Mathematicada çizim sorunu

Question

Mathematicada $P(u,v)=(-v^2,-2uv,2uv^2)$  , $u=-1$   to  $1$,  $v=-1$  to $1$  ve

$P(u,v)=(sinu-vcosu,-sinu,-usinu-cosu+uvcosu)$,  $u=-\pi$  to $\pi$  , $v=-2$ to $2$  yüzeylerini  parametricplot 3D komutu ile çizdirmek istediğimde, aralıkla oynamama rağmen,  çizimde (3 boyutlu uzayda) birşey gözükmüyor. Ne yapabilirim?

Comments

Veri bilimi kategorisinde olmali bence.

Kodunuzu paylasarak baslayabilirsiniz.

Mathematica bilmedigim icin cok yardimci olamiyorum ama sadece cizdirmek istiyorsaniz gnuplot asli programda su komutlari kullanabilirsiniz. (gnuplot ucretsiz ve ozgur bir yazilimdir interaktif grafik cizdirmenize yarar basit bir dildir)

set multiplot
set param
set iso 50
set ztics .05
set xtics .04
set ytics .04
set urange [-1:1]
set vrange [-1:1]
set hidd


splot cos(u)*cos(v), sin(u)*cos(v), sin(u)

set ztics .05
set xtics .04
set ytics .04
set urange [-pi:pi]
set vrange [-2:2]

splot sin(u)-v*cos(u), -sin(u), -u*sin(u)-cos(u)+u*v*cos(u)

 

Answer 1

Mathematica ile soyle yapilabilir. Show da sira onemli, ilk grafigin sinir degerleri kullanilir.. Show[p2,p1] yaparak farki gorebilirsiniz.

p1 = ParametricPlot3D[{-v^2, -2 u v, 2 u v^2}, {u, -1, 1}, {v, -1, 1},
    BoxRatios -> {1, 1, 1}, PlotStyle -> Red];
p2 = ParametricPlot3D[{Sin[u] - v Cos[u], -Sin[u], -u Sin[u] - 
     Cos[u] + u Cos[u]}, {u, -\[Pi], \[Pi]}, {v, -2, 2}, 
   BoxRatios -> {1, 1, 1}, PlotStyle -> Green];
Show[p1, p2]

Veya tek seferde soyle yapilir, yine sira onemli..

ParametricPlot3D[{{Sin[u] - v Cos[u], -Sin[u], -u Sin[u] - Cos[u] + 
    u Cos[u]}, {-v^2, -2 u v, 2 u v^2}}, {u, -\[Pi], \[Pi]}, {v, -2, 
  2}, BoxRatios -> {1, 1, 1}]

Comments

Teşekkürler ÖkkeşDülgerci.