Hakkavar.nb

Cuscini, Braccioli e Assi.

Cuscino di larghezza a, lunghezza b, altezza c, centrato nell'origine.

In[9]:=

$Cuscino[{a_, b_, c_}] := ParametricPlot3D[ &nbs ... , Pi/2}, DisplayFunction->Identity]$

In[10]:=

[Graphics:../HTMLFiles/index_26.gif]

Out[10]=

Cuscino di larghezza a, lunghezza b, altezza c, ruotato di angoli di eulero {phi,theta,psi}, di baricentro {x,y,z}.

In[11]:=

In[12]:=

In[13]:=

$Cuscino[{a_, b_, c_}, {x_, y_, z_}, {phi_, theta_, psi_}] := Show[ &nb ... }], DisplayFunction$DisplayFunction]$

In[14]:=

[Graphics:../HTMLFiles/index_33.gif]

Out[14]=

In[15]:=

[Graphics:../HTMLFiles/index_36.gif]

Out[15]=

Tubolare di larghezza a, lunghezza b, altezza c, centrato nell'origine. E' ottenuto dalla rotazione di una Lemniscata, eliminando la sezione centrale.

In[16]:=

$Tubolare[{a_, b_, c_}] := ParametricPlot3D[{a Sin[t] Cos[u], b Sin[u] Cos[u], c Cos[u] Cos[t]}, {t, -Pi, Pi}, {u, -Pi/3, Pi/3}, DisplayFunction->Identity]$

In[17]:=

$Tubolare[{a_, b_, c_}, {x_, y_, z_}, {phi_, theta_, psi_}] := Show[ &nb ... }], DisplayFunction$DisplayFunction]$

In[18]:=

RowBox[{Show, [, , RowBox[{RowBox[{Tubolare, [, RowBox[{{1/3, 5, 1/3}, ,, RowBox[{{, Row ... wBox[{{, RowBox[{0, ,, RowBox[{-, 0.5}], ,, RowBox[{-, 0.5}]}], }}], ,, {Pi/2, 0, 0}}], ]}]}], ]}]

[Graphics:../HTMLFiles/index_41.gif]

[Graphics:../HTMLFiles/index_42.gif]

[Graphics:../HTMLFiles/index_43.gif]

Out[18]=

Bracciolo di larghezza a, lunghezza b, altezza c, e baricentro {x,y,z}.

In[19]:=

$RowBox[{RowBox[{MezzEllisse[{a_, b_, c_}, {x_, y_, z_}], , :=, , RowBox[{ParametricPlot3D, [ ... x[{0.4, *, b}]}], ,, z + c/2 Cos[u]}], }}], ,, {u, 0, Pi}, ,, {t, -Pi, 0}}], ]}]}], ;}]$

In[20]:=

$Bracciolo[{a_, b_, c_}, {x_, y_, z_}] := Show[ Tubolare[{a, b, c}, {x, y, z}, {0, 0, 0}], MezzEllisse[{a, b, c}, {x, y, z}] ]$

Created by Mathematica (August 4, 2004)