Apel
Desember 17th, 2011 § Tinggalkan sebuah Komentar
Gambar tersebut dibuat dengan Mathematica 8.
Ini dia script-nya. Silakan Mencoba 
ParametricPlot3D[{(1 + Cos[v]) Cos[u] + 0.085 Cos[5 u] + (0.994 v/\[Pi])^100, (1 + Cos[v]) Sin[u], 6 Sin[v] + 2 Cos[v] – 0.7 Log[1 - v/\[Pi]]}, {u, -\[Pi], Pi}, {v, -\[Pi], Pi}, Mesh -> False, BoxRatios -> 2, PlotStyle -> {Green, Specularity[Yellow, 5]}]
Jika warna (Plot Style) diganti red, maka inilah hasilnya :
