Definizione delle componenti del brigantino

In[130]:=

RowBox[{RowBox[{Poppa, =, RowBox[{Show, [, , RowBox[{ParametricPlot3D[{Cos[x] Sin[y], ... ty}], ]}], ,, , DisplayFunctionIdentity, ,, ViewPoint-> {1, 0, 1}}], ]}]}], ;}]

In[131]:=

RowBox[{RowBox[{Prua, =, RowBox[{Show, [, , RowBox[{ParametricPlot3D[{Cos[x] Sin[y], 2 ... 754;Identity}], ]}], ,, DisplayFunctionIdentity, ,, ViewPoint-> {1, 0, 1}}], ]}]}], ;}]

In[132]:=

RowBox[{RowBox[{Bompresso, =, RowBox[{ParametricPlot3D, [, RowBox[{RowBox[{{, RowBox[{.05 * Co ... ,, RowBox[{{, RowBox[{y, ,, 0.8, ,, 4.5}], }}], ,, DisplayFunctionIdentity}], ]}]}], ;}]

In[136]:=

RowBox[{RowBox[{VeleMaestro, =, RowBox[{Show, [, RowBox[{RowBox[{ParametricPlot3D, [, RowBox[{ ... ,, -Pi/4, ,, RowBox[{Pi, /, 2.5}]}], }}], ,, DisplayFunctionIdentity}], ]}]}], ]}]}], ;}]

In[137]:=

RowBox[{RowBox[{VeleTrinchetto, =, RowBox[{Show, [, RowBox[{RowBox[{ParametricPlot3D, [, RowBo ... Identity}], ]}], ,, DisplayFunctionIdentity, ,, ViewPoint {0, 1, -0}}], ]}]}], ;}]

In[138]:=

RowBox[{RowBox[{VeleMezzana, =, RowBox[{Show, [, RowBox[{RowBox[{ParametricPlot3D, [, RowBox[{ ... Identity}], ]}], ,, DisplayFunctionIdentity, ,, ViewPoint {0, 1, -0}}], ]}]}], ;}]

In[139]:=

RowBox[{RowBox[{Spinnaker, =, RowBox[{Show, [, RowBox[{RowBox[{ParametricPlot3D, [, RowBox[{Ro ... 2, 0}, ,, DisplayFunctionIdentity}], ]}], ,, DisplayFunctionIdentity}], ]}]}], ;}]

In[140]:=

RowBox[{RowBox[{Fiocchi, =, RowBox[{Show, [, RowBox[{RowBox[{ParametricPlot3D, [, RowBox[{RowB ... ], ]}], ,, , DisplayFunctionIdentity, ,, ViewPoint {1, 0, 0}}], ]}]}], ;}]

In[141]:=

RowBox[{RowBox[{Controfiocchi, =, RowBox[{Show, [, RowBox[{RowBox[{ParametricPlot3D, [, RowBox ... ], ]}], ,, , DisplayFunctionIdentity, ,, ViewPoint {1, 0, 0}}], ]}]}], ;}]

In[142]:=

RowBox[{RowBox[{Sartiame, =, RowBox[{Show, [, , RowBox[{ParametricPlot3D[{0, x, .25x + ... , }}], ,, DisplayFunctionIdentity}], ]}], ,, DisplayFunctionIdentity}], ]}]}], ;}]

In[143]:=

RowBox[{RowBox[{Tangone, =, RowBox[{Show, [, RowBox[{RowBox[{ParametricPlot3D, [, RowBox[{RowB ... ], ]}], ,, , DisplayFunctionIdentity, ,, ViewPoint {0, 0, 1}}], ]}]}], ;}]

In[144]:=

RowBox[{RowBox[{Bandiera, =, RowBox[{Show, [, RowBox[{RowBox[{ParametricPlot3D, [, RowBox[{Row ... Pi/2}, ,, DisplayFunctionIdentity}], ]}], ,, DisplayFunctionIdentity}], ]}]}], ;}]

Created by Mathematica  (September 18, 2006)