何に見えますか？？

[Graphics:HTMLFiles/index_33.gif]

a = ParametricPlot3D[            &nbs ... p;       PlotPoints -> {100, 12}, Boxed -> False, Axes -> None ]

b = ParametricPlot3D[            &nbs ... p;       PlotPoints -> {100, 12}, Boxed -> False, Axes -> None ]

c = ParametricPlot3D[            &nbs ... p;       PlotPoints -> {100, 12}, Boxed -> False, Axes -> None ]

d = ParametricPlot3D[            &nbs ... p;       PlotPoints -> {100, 12}, Boxed -> False, Axes -> None ]

Show[a, b, c, d]

コメント


少しずつ式を変えて色々なグラフィックスを作り、それらを組み合わせてみました。

3年A組51番　藤田 雄太　
Created by Mathematica  (November 5, 2010) Valid XHTML 1.1!