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[ 1/{1 + Sin[{x - 0.5}*{ y - 0.5}]^2 - Cos[{x - 0.5}* {y - 0.5}]^2} - 1/{1 + Sin[{x + 0.5}*{ y + 0.5}]^2 - Cos[{x + 0.5}* {y + 0.5}]^2}, {x, -1, 1}, {y, -1, 1}, PlotPoints -> 50, Boxed -> False, Axes -> None]	Plot3D[ 2/Sqrt[(1 - x)^6 y^4] /Sqrt[(1 + x)^6 y^4], {x, -3, 3}, {y, -3, 3}, PlotPoints -> 50, Boxed -> False, Axes -> None]	Plot3D[ x y (x^2 - y^2)Tan[x]Sin[y], {x, -3, 3}, {y, -2, 2}, PlotPoints -> 50, Boxed -> False, Axes -> None]

Send your opinions and comments to .