definicije grafičkih prikaza

In[84]:=

dip[ins_][g_] := $DisplayFunction[Insert[g, ins, {1, 1}]]

In[85]:=

RowBox[{ploha[f_][u_, v_][u0_, u1_, du_][v0_, v1_, dv_][opts___], :=, RowBox[{ParametricPlot3D ... {dip, [, RowBox[{EdgeForm, [, RowBox[{AbsoluteThickness, [, 0.1, ]}], ]}], ]}]}], ,, opts}], ]}]}]

In[86]:=

ploha1[f_][u_, v_][u0_, u1_, du_][v0_, v1_, dv_][opts___] := ParametricPlot3D[f[u, v], {u, u0, u1, du}, {v, v0, v1, dv}, opts]

In[87]:=

bojagauss[f_][u_, v_][u0_, u1_, du_][v0_, v1_, dv_][opts___] := ParametricPlot3D[Append[f[u, v], Hue[GZ[f][u, v]]], {u, u0, u1, du}, {v, v0, v1, dv}, LightingFalse, opts]

Created by Mathematica  (April 30, 2004)