Urabe Lab. |1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|Epilogue　

Plot3D[ Cosh[Sinh[y]/Sinh[x]], {x, -Pi/2 + Pi/512, Pi/2 - Pi/512}, {y, -Pi/2 + Pi/512, Pi/2 - Pi/512}, PlotRange -> {{-Pi/2, Pi/2}, {-Pi/2, Pi/2}, {1, 3}}, AspectRatio -> Automatic, BoxRatios -> Automatic, PlotPoints -> 50, Boxed -> False, Axes -> None]	Plot3D[ Sin[y] Sin[x] Exp[3/2y] x^3 - 3x y^2, {x, -2, 2}, {y, -2, 2}, BoxRatios -> {1, 1, 1.6}, ViewPoint -> {2, 3, 2}, PlotPoints -> 50, Boxed -> False, Axes -> None]	Plot3D[ Cos[Sqrt[u^2 + v^2]]/Sqrt[u^2 + v^2], {u, -0.458 Pi, 0.458 Pi}, {v, -0.458 Pi, 0.458 Pi}, ViewPoint -> {-1.985, -2.985, -0.785}, PlotPoints -> 50, Boxed -> False, Axes -> None]	Plot3D[ u*v - v^3, {v, -1, 1}, {u, -3, 3}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, PlotPoints -> 50, Boxed -> False, Axes -> None]

Send your opinions and comments to .