Parameterflade.
Fladen med parameterfremstilling: $\left[ x, y, z \right] = \left[ s, t , 3 \cdot s \cdot t \cdot e^{-s^2-t^2} \right]$ for $(s,t)\in\left[-2,2\right]\times\left[-2,2\right]$
Du kan dreje figuren ved at trække med musen. Hvis du holder musen nede, skifter markøren, og du kan trække figuren. Du kan zoome med musehjulet (eller ved at pinche).
Figure3D figure = Position [0,0] Size [x,y] Origin [x/2,y/2] Unit x/6 Angles [30,-40,0] Color "white" Dynamic;
Line xaxis = Start [-3,0,0] Dir [6,0,0] Vector Size 1 Color "gray";
Line yaxis = Start [0,-3,0] Dir [0,6,0] Vector Size 1 Color "gray";
Line zaxis = Start [0,0,-2] Dir [0,0,4] Vector Size 1 Color "gray";
Label xlabel = "x" At [3,0,0] Offset [10,0] Color "black";
Label ylabel = "y" At [0,3,0] Offset [10,0] Color "black";
Label zlabel = "z" At [0,0,2] Offset [10,0] Color "black";
/*
Timer tid = From 0 To 2*pi Step pi/20 Tick 100 Infinite;
RadioButton tidknap = Text [ "Start tid"; "Stop tid" ] Action [ start tid; stop tid ]
Position [20,y-50] Size [80,25];
*/
Net flade = Parameter [s,t,3*s*t*exp(-s^2-t^2)] [-2,2,0.1] [-2,2,0.1] 4 4 Constant;
Net axes = Points [-2.5,0,0], [2.5,0,0], [0,-2.5,0], [0,2.5,0], [0,0,-2.5], [0,0,2.5]
Lines [0,1], [2,3], [4,5];
Net outline = Outline flade Constant;
Scene scene = flade Color "black" "#d0d0d0", outline Color "black" "#d0d0d0";