Akademisyenler öncülüğünde matematik/fizik/bilgisayar bilimleri soru cevap platformu
0 beğenilme 0 beğenilmeme
414 kez görüntülendi
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?
Serbest kategorisinde (2.8k puan) tarafından  | 414 kez görüntülendi

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)

 

1 cevap

0 beğenilme 0 beğenilmeme

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}]

(2.9k puan) tarafından 
Teşekkürler ÖkkeşDülgerci.
20,246 soru
21,768 cevap
73,412 yorum
2,123,309 kullanıcı