![dip[ins_][g_] := $DisplayFunction[Insert[g, ins, {1, 1}]]](../HTMLFiles/index_242.gif){kind=small}
11. Costina minimalna ploha
In[278]:=
In[279]:=
![selectgraphics3d[graphics3dobj_, bound_, opts___] := Show[Graphics3D[Select[graphics3d ... p;Abs[#[[1, 4, 2]]] <bound&&Abs[#[[1, 4, 3]]] <bound) &]], opts]](../HTMLFiles/index_243.gif)
In[280]:=
![RowBox[{RowBox[{costa[u_, v_], :=, RowBox[{{, RowBox[{RowBox[{(1/2), RowBox[{Re, [, RowBox[{Ro ... , ,, RowBox[{{, RowBox[{189.073, ,, 0}], }}]}], ]}], +, 6.87519}], )}]}], ]}], ]}]}]}], }}]}], ;}]](../HTMLFiles/index_244.gif)
In[281]:=
![RowBox[{RowBox[{costaplot80, =, RowBox[{ParametricPlot3D, [, RowBox[{costa[u, v], ,, RowBox[{{ ... 0.001, ,, 1.001}], }}], ,, PlotPoints80, ,, DisplayFunctionIdentity}], ]}]}], ;}]](../HTMLFiles/index_245.gif){kind=small}
In[282]:=
![RowBox[{selectgraphics3d, [, RowBox[{costaplot80[[1]], ,, 8, ,, BoxedFalse, ,, RowBox[ ... ,, PlotRange {{-4, 4}, {-4, 4}, {-2, 2}}, ,, DisplayFunctiondip[EdgeForm[]]}], ]}]](../HTMLFiles/index_246.gif){kind=small}
![[Graphics:../HTMLFiles/index_247.gif]](../HTMLFiles/index_247.gif)
Out[282]=
In[283]:=
![RowBox[{selectgraphics3d, [, RowBox[{costaplot80[[1]], ,, 8, ,, BoxedFalse, ,, RowBox[ ... ,, PlotRange {{-4, 4}, {-4, 4}, {-2, 2}}, ,, DisplayFunctiondip[EdgeForm[]]}], ]}]](../HTMLFiles/index_249.gif){kind=small}
![[Graphics:../HTMLFiles/index_250.gif]](../HTMLFiles/index_250.gif)
Out[283]=
In[284]:=
![RowBox[{selectgraphics3d, [, RowBox[{costaplot80[[1]], ,, 8, ,, BoxedFalse, ,, RowBox[ ... ,, PlotRange {{-4, 4}, {-4, 4}, {-2, 0}}, ,, DisplayFunctiondip[EdgeForm[]]}], ]}]](../HTMLFiles/index_252.gif){kind=small}
![[Graphics:../HTMLFiles/index_253.gif]](../HTMLFiles/index_253.gif)
Out[284]=
In[285]:=
![RowBox[{selectgraphics3d, [, RowBox[{costaplot80[[1]], ,, 8, ,, BoxedFalse, ,, RowBox[ ... ,, PlotRange {{-4, 4}, {-4, 4}, {0, 2}}, ,, DisplayFunctiondip[EdgeForm[]]}], ]}]](../HTMLFiles/index_255.gif){kind=small}
![[Graphics:../HTMLFiles/index_256.gif]](../HTMLFiles/index_256.gif)
Out[285]=
In[286]:=
![RowBox[{selectgraphics3d, [, RowBox[{costaplot80[[1]], ,, 8, ,, BoxedFalse, ,, ViewPoi ... ox[{-, 2.5}], ,, 2.5}], }}], ,, {-2, 2}}], }}]}], ,, DisplayFunctiondip[EdgeForm[]]}], ]}]](../HTMLFiles/index_258.gif){kind=small}
![[Graphics:../HTMLFiles/index_259.gif]](../HTMLFiles/index_259.gif)
Out[286]=
In[287]:=
![RowBox[{selectgraphics3d, [, RowBox[{costaplot80[[1]], ,, 8, ,, BoxedFalse, ,, ViewPoi ... ox[{-, 2.5}], ,, 2.5}], }}], ,, {-2, 2}}], }}]}], ,, DisplayFunctiondip[EdgeForm[]]}], ]}]](../HTMLFiles/index_261.gif){kind=small}
![[Graphics:../HTMLFiles/index_262.gif]](../HTMLFiles/index_262.gif)
Out[287]=
Created by Mathematica (April 30, 2004)