{{ Sin[t]Sin[s + 12t],
Tan[t],
Cos[t] Cos[s + 12t]},
{ -Sin[t]Sin[s + 12t],
Tan[t],
-Cos[t] Cos[s + 12t]}},
{t, -49 Pi/100, 49 Pi/100},
{s, -0.2, 0.2},
PlotPoints -> {150, 3},
Boxed -> False,
Axes -> None]
{Sin[t] Sin[s + 16t],
Sin[t] Sin[s + 12t],
Sin[t]},
{t, 0, 2Pi}, {s, -0.5, 0.2},
PlotPoints -> {200, 2},
Boxed -> False,
Axes -> None]
{2*t*Cos[ s + t],
2*t*Sin[s + t],
-4*t},
{t, 0, 20π},
{ s, -Pi/10, Pi/10},
AspectRatio -> Automatic,
PlotPoints -> {120, 30},
Boxed -> False,
Axes -> False]
卜部東介研究室に戻る
まで！