{u*Cos[Cos[u]] + Log[u],
Mod[Sin[v], 5],
If[Sin[u] > Cos[v],
u*Cos[u - v] + 4,
If[u > 30, Cos[1/Tan[u]],
u*Sin[v - u]]
]},
{u, 0.1, 3Pi},
{v, 0.1, 2Pi},
ViewPoint -> {-1.997, 2.300, 2.218},
PlotPoints -> {72, 30},
Boxed -> False,
Axes -> None]
(*ピアノ(パイプオルガン)をイメ - ジしての図形*)
ParametricPlot3D[
{0.3 (Abs[Sin[y^2]] + 0.5) Cos[t],
-3y + 3 (2 Pi)^(1/2),
0.16 (Abs[Sin[y^2]] + 0.5) Sin[t]},
{y, 0, (2 Pi)^(1/2)},
{t, 0, 2 Pi},
DisplayFunction -> Identity][[1]]
}];
For[y0 = ((2 Pi)^(1/2)/3);
counter = 1,
counter <= 8,
y0 = y0 + ((2 Pi)^(1/2))/3; counter++,
regRight1[counter] =
Graphics3D[
{EdgeForm[],
ParametricPlot3D[
{-(1/2^(1/2)) l,
y0 + 0.15 Exp[-l] Cos[t],
l/((2)^(1/2)) + 0.15 Exp[-l] Sin[t]},
{l, 0, 2}, {t, 0, 2 Pi},
DisplayFunction -> Identity][[1]]
}];
regRight2[counter] =
ParametricPlot3D[
{-(1/2) l - 2^(1/2),
y0 + 0.15 Exp[-l - 2] Cos[t],
-(3^(1/2)/2) l + 0.15 Exp[-l - 2] Sin[t] + 2^(1/2)},
{l, 0, 2 (2/3)^(1/2)}, {t, 0, 2 Pi},
DisplayFunction -> Identity];
regRight3[counter] =
ParametricPlot3D[
{-l,
y0 + 0.15Exp[-l - 2 - 2 (2/3)^(1/2)] Cos[t],
0.15 Exp[-l - 2 - 2 (2/3)^(1/2)] Sin[t]},
{l, 2^(1/2) + (2/3)^(1/2),
2^(1/2) + (2/3)^(1/2) + (1/4)},
{t, 0, 2 Pi},
DisplayFunction -> Identity];
regLeft1[counter] =
Graphics3D[{EdgeForm[],
ParametricPlot3D[
{(1/2^(1/2)) l,
y0 + 0.15 Exp[-l] Cos[t],
l/((2)^(1/2)) + 0.15 Exp[-l] Sin[t]},
{l, 0, 2}, {t, 0, 2 Pi},
DisplayFunction -> Identity][[1]]
}];
regLeft2[counter] =
ParametricPlot3D[
{(1/2) l + 2^(1/2),
y0 + 0.15 Exp[-l - 2] Cos[t],
-(3^(1/2)/2) l + 0.15 Exp[-l - 2] Sin[t] + 2^(1/2)},
{l, 0, 2 (2/3)^(1/2)},
{t, 0, 2 Pi},
DisplayFunction -> Identity];
regLeft3[counter] =
ParametricPlot3D[
{l,
y0 + 0.15Exp[-l - 2 - 2 (2/3)^(1/2)] Cos[t],
0.15 Exp[-l - 2 - 2 (2/3)^(1/2)] Sin[t]},
{l, 2^(1/2) + (2/3)^(1/2),
2^(1/2) + (2/3)^(1/2) + (1/4)},
{t, 0, 2 Pi},
DisplayFunction -> Identity]
]
antenaRight1 =
ParametricPlot3D[
{-(3^(1/2)) l/4,
-(3/4) l - 0.1 Exp[-l] Cos[t] + 0.2,
(1/2) l + 0.1Exp[-l] Sin[t]},
{l, 0, 2}, {t, 0, 2 Pi},
DisplayFunction -> Identity];
antenaRight2 =
ParametricPlot3D[
{-l/(2 2^(1/2)) - (3^(1/2))/2,
-(3^(1/2)) l/(2 2^(1/2)) - 0.1 Exp[-l - 2] Cos[t] - 3/2 + 0.2,
-l/2 + 0.1 Exp[-l - 2] Sin[t] + 1},
{l, 0, 2^(1/2)}, {t, 0, 2 Pi},
DisplayFunction -> Identity];
antenaLeft1 =
ParametricPlot3D[
{(3^(1/2)) l/4,
-(3/4) l - 0.1 Exp[-l] Cos[t] + 0.2,
(1/2) l + 0.1Exp[-l] Sin[t]},
{l, 0, 2}, {t, 0, 2 Pi},
DisplayFunction -> Identity];
antenaLeft2 =
ParametricPlot3D[
{l/(2 2^(1/2)) + (3^(1/2))/2,
-(3^(1/2)) l/(2 2^(1/2)) - 0.1 Exp[-l - 2] Cos[t] - 3/2 + 0.2,
-l/2 + 0.1 Exp[-l - 2] Sin[t] + 1},
{l, 0, 2^(1/2)}, {t, 0, 2 Pi},
DisplayFunction -> Identity];
tailRight =
Graphics3D[{EdgeForm[],
ParametricPlot3D[
{-l/2 + 0.1 Exp[-l] Cos[t] - 0.1,
3 ((2 Pi)^(1/2)) 15/16 + (3^(1/2)) l/2 + 0.5,
0.1 Exp[-l] Sin[t]},
{l, 0, 2}, {t, 0, 2 Pi},
DisplayFunction -> Identity][[1]]
}];
tailLeft =
Graphics3D[{EdgeForm[],
ParametricPlot3D[
{l/2 + 0.1 Exp[-l] Cos[t] + 0.1,
3 ((2 Pi)^(1/2)) 15/16 + (3^(1/2)) l/2 + 0.5,
0.1 Exp[-l] Sin[t]}, {l, 0, 2}, {t, 0, 2 Pi},
DisplayFunction -> Identity][[1]]
}];
armRight =
ParametricPlot3D[
{0.05 Exp[-l] Cos[t] - 0.1,
-l + (1/16) (2 Pi)^(1/2),
0.05Exp[-l] Sin[t]},
{l, 0, 0.5}, {t, 0, 2 Pi},
DisplayFunction -> Identity];
armLeft =
ParametricPlot3D[
{0.05 Exp[-l] Cos[t] + 0.1,
-l + (1/16) (2 Pi)^(1/2),
0.05Exp[-l] Sin[t]},
{l, 0, 0.5}, {t, 0, 2 Pi},
DisplayFunction -> Identity];
Show[
{body,
regRight1[1],
regRight1[2],
regRight1[3],
regRight1[4],
regRight1[5],
regRight1[6],
regRight1[7],
regRight1[8],
regRight2[1],
regRight2[2],
regRight2[3],
regRight2[4],
regRight2[5],
regRight2[6],
regRight2[7],
regRight2[8],
regRight3[1],
regRight3[2],
regRight3[3],
regRight3[4],
regRight3[5],
regRight3[6],
regRight3[7],
regRight3[8],
regLeft1[1],
regLeft1[2],
regLeft1[3],
regLeft1[4],
regLeft1[5],
regLeft1[6],
regLeft1[7],
regLeft1[8],
regLeft2[1],
regLeft2[2],
regLeft2[3],
regLeft2[4],
regLeft2[5],
regLeft2[6],
regLeft2[7],
regLeft2[8],
regLeft3[1],
regLeft3[2],
regLeft3[3],
regLeft3[4],
regLeft3[5],
regLeft3[6],
regLeft3[7],
regLeft3[8],
antenaRight1,
antenaLeft1,
antenaRight2,
antenaLeft2,
tailRight,
tailLeft,
armRight,
armLeft
},
Boxed -> False,
Axes -> None]
{Sin[v] + Cos[u],
(u/Exp[Cos[v]] + v/Exp[Cos[u]])*(1/Sqrt[2]),
(v/Exp[Cos[u]] - u/Exp[Cos[v]])*(1/Sqrt[2])},
{u, -π, π},
{v, -π, π},
ViewPoint -> {4.000, 0.000, 0.000},
PlotPoints -> {20, 20},
LightSources -> {{{-1, 1, 1},
RGBColor[.8, .8, .5]}, {{1, -1, 1},
RGBColor[1, 1, 1]}},
PlotRange -> {{-12, 12}, {-12, 12}, {-12, 12}},
Boxed -> False,
Axes -> None]
卜部東介研究室に戻る
まで！