vizualizacije1.nb

definicije grafičkih prikaza

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

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

$grafgauss[f_][u_, v_][u0_, u1_][v0_, v1_][opts___] := Plot3D[GZ[f][u, v], {u, u0, u1}, {v, v0, v1}, MeshFalse, opts]$

$grafsrednja[f_][u_, v_][u0_, u1_][v0_, v1_][opts___] := Plot3D[SZ[f][u, v], {u, u0, u1}, {v, v0, v1}, MeshFalse, opts]$

$RowBox[{bojagauss[f_][u_, v_][u0_, u1_, du_][v0_, v1_, dv_][opts___], :=, RowBox[{ParametricPl ... [{AbsoluteThickness, [, 0.1, ]}], ]}], ]}]}], ,, , LightingFalse, ,, opts}], ]}]}]$

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

Created by Mathematica (May 4, 2004)