Akademisyenler öncülüğünde matematik/fizik/bilgisayar bilimleri soru cevap platformu
0 beğenilme 0 beğenilmeme
523 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 (3.1k puan) tarafından  | 523 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,282 soru
21,821 cevap
73,504 yorum
2,533,235 kullanıcı