Una superficie di Riemann (Giovanni Bertoglio, Aprile 2006)

In[146]:=

<<Graphics`Shapes`

In[147]:=

<<Graphics`ParametricPlot3D`

In[148]:=

Clear[f, Riemann, Riemann1, Reale, Immaginaria, PianoComplesso]

General :: spell : Possible spelling error: new symbol name \"Reale\" is similar to existing symbols {Real, Reals} . More…

In[149]:=

RowBox[{RowBox[{Riemann1, =, RowBox[{ParametricPlot3D, [, RowBox[{{Sin[x] Cos[y], Sin[x] Sin[y ... , 1, 0]}], }}]}], }}]}], ,, ImageSize400, ,, DisplayFunctionIdentity}], ]}]}], ;}]

In[150]:=

PianoComplesso = ParametricPlot3D[{a, b, 0}, {a, -2, 2}, {b, -2, 2}, PlotPoints20, DisplayFunctionIdentity] ;

In[151]:=

StyleBox[RowBox[{RowBox[{Reale, =, RowBox[{1.8, Sin[t/16], *, (Cos[x/2])}]}], ;}], FontColor - ... {Immaginaria, =, RowBox[{1.8, Sin[t/16], *, (Sin[x])}]}], ;}], FontColor -> RGBColor[1., 0., 0.]]

In[153]:=

f[x_] := {Reale, Immaginaria, 0}

In[154]:=

RowBox[{Table, [, RowBox[{RowBox[{Show, [, RowBox[{WireFrame[PianoComplesso], ,, , Rot ... RowBox[{-, 1.2}], ,, 1.2}], }}]}], }}]}], ,, ImageSize800}], ]}], ,, {t, -8Pi, 8Pi}}], ]}]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Out[154]=

{⁃Graphics3D⁃, ⁃Graphics3D⁃, ⁃Graphics3D⁃, ⁃Graphics ... 9;Graphics3D⁃, ⁃Graphics3D⁃, ⁃Graphics3D⁃, ⁃Graphics3D⁃}

Created by Mathematica  (September 18, 2006)