Search
 
 
  Engleski
 
 
 
Open in this window (click to change)
Forum@DeGiorgi: Početna
Forum za podršku nastavi na PMF-MO
Login Registracija FAQ Smajlići Članstvo Pretražnik Forum@DeGiorgi: Početna

Šuplja kugla u Mathematici?

Moja sarma
 
Započnite novu temu   Odgovorite na temu   printer-friendly view    Forum@DeGiorgi: Početna -> Ostalo - ozbiljno -> Čistilište
Prethodna tema :: Sljedeća tema  
Autor/ica Poruka
Luuka
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 13. 02. 2007. (20:34:54)
Postovi: (925)16
Spol: muško
Sarma = la pohva - posuda
188 = 301 - 113
Lokacija: Hakuna Matata
PostPostano: 13:28 sub, 5. 2. 2011    Naslov: Šuplja kugla u Mathematici? Citirajte i odgovorite
Trebala bi mi pomoć oko crtanja u Mathematici.

On što bi mi trebalo je nacrati šuplju kuglu sa unutrašnjim radijusom r1, vanjskim r2. Dakle za 0<=r<r1 je prazno, pa za r1<=r<=r2 je puno.
Probao sam nešto sa ParametricPlot3d, ali nisam dobio što sam htio.

Ovo imam zasad:
[code:1]prva = ParametricPlot3D[
{0.5*Cos[\[Phi]] Sin[\[Theta]], 0.5*Sin[\[Phi]] Sin[\[Theta]],
0.5*Cos[\[Theta]]}, {\[Phi], 0, 2 Pi}, {\[Theta], 0, Pi},
Mesh -> False]
druga = ParametricPlot3D[
{Cos[\[Phi]] Sin[\[Theta]], Sin[\[Phi]] Sin[\[Theta]],
Cos[\[Theta]]}, {\[Phi], 0, 3 Pi/2}, {\[Theta], 0, Pi},
Mesh -> False]
Show[{druga, prva}, Axes -> False][/code:1]

To mi je početni položaj, i to bi valjda trebalo bit jednostavno. Nakon tog crteža mi treba još jedan. S tom kuglom se nešto desi i ona se deformira. Pomak ovisi samo o radijusu i dan je funkcijom u=u(r). Trebam nacrtati kuglu nakon te deformacije. Točka [tt](x,y,z)[/tt] prijeđe u [tt](x,y,z)+u(r)[/tt].

Hvala svima na pomoći :D
Trebala bi mi pomoć oko crtanja u Mathematici.

On što bi mi trebalo je nacrati šuplju kuglu sa unutrašnjim radijusom r1, vanjskim r2. Dakle za 0⇐r<r1 je prazno, pa za r1⇐r⇐r2 je puno.
Probao sam nešto sa ParametricPlot3d, ali nisam dobio što sam htio.

Ovo imam zasad:
Kod:
prva = ParametricPlot3D[
  {0.5*Cos[\[Phi]] Sin[\[Theta]], 0.5*Sin[\[Phi]] Sin[\[Theta]],
   0.5*Cos[\[Theta]]}, {\[Phi], 0, 2 Pi}, {\[Theta], 0, Pi},
  Mesh -> False]
druga = ParametricPlot3D[
  {Cos[\[Phi]] Sin[\[Theta]], Sin[\[Phi]] Sin[\[Theta]],
   Cos[\[Theta]]}, {\[Phi], 0, 3 Pi/2}, {\[Theta], 0, Pi},
  Mesh -> False]
Show[{druga, prva}, Axes -> False]


To mi je početni položaj, i to bi valjda trebalo bit jednostavno. Nakon tog crteža mi treba još jedan. S tom kuglom se nešto desi i ona se deformira. Pomak ovisi samo o radijusu i dan je funkcijom u=u(r). Trebam nacrtati kuglu nakon te deformacije. Točka (x,y,z) prijeđe u (x,y,z)+u(r).

Hvala svima na pomoći Very Happy



_________________
"Bolje bi prolazio na faxu da sam na drogama nego na netu" - by a friend of mine
"Poslije spavanja doma spavanje bilo di mi je najdraža stvar" - by the same guy Very Happy
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
vsego
Site Admin
Site Admin


Pridružen/a: 06. 10. 2002. (22:07:09)
Postovi: (3560)16
Spol: zombi
Sarma = la pohva - posuda
854 = 1068 - 214
Lokacija: /sbin/init
PostPostano: 14:56 sub, 5. 2. 2011    Naslov: Citirajte i odgovorite
Ovo prvo bih izveo tako da nacrtam rubove:
[code:1]prva=ParametricPlot3D[{Cos[\[Phi]] Sin[\[Theta]],Sin[\[Phi]] Sin[\[Theta]],Cos[\[Theta]]},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False];
druga=ParametricPlot3D[0.5{Cos[\[Phi]] Sin[\[Theta]],Sin[\[Phi]] Sin[\[Theta]],Cos[\[Theta]]},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False];
treca=ParametricPlot3D[r {Sin[\[Theta]],0,Cos[\[Theta]]},{r,0.5,1},{\[Theta],0,Pi},Mesh->False];
cetvrta=ParametricPlot3D[r {0,- Sin[\[Theta]],Cos[\[Theta]]},{r,0.5,1},{\[Theta],0,Pi},Mesh->False];
sve=Show[{prva,druga,treca,cetvrta},Axes->False][/code:1]

Za ovo drugo treba samo izmanipulirati racunanje tocaka. Jednostavno interaktivno isprobavanje mozes izvesti ovako:

[code:1]Manipulate[Show[{
ParametricPlot3D[{Cos[\[Phi]] Sin[\[Theta]]+ux,Sin[\[Phi]] Sin[\[Theta]]+uy,Cos[\[Theta]]+uz},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False],
ParametricPlot3D[0.5 {Cos[\[Phi]] Sin[\[Theta]]+ux,Sin[\[Phi]] Sin[\[Theta]]+uy,Cos[\[Theta]]+uz},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False],
ParametricPlot3D[r {Sin[\[Theta]]+ux,uy,Cos[\[Theta]]+uz},{r,0.5,1},{\[Theta],0,Pi},Mesh->False],
ParametricPlot3D[r {ux,-Sin[\[Theta]]+uy,Cos[\[Theta]]+uz},{r,0.5,1},{\[Theta],0,Pi},Mesh->False]
},Axes->False],
{{ux,0},-1,1},{{uy,0},-1,1},{{uz,0},-1,1}][/code:1]

Nadam se da je to ono sto trazis ili barem korak u dobrom smjeru.
Ovo prvo bih izveo tako da nacrtam rubove:
Kod:
prva=ParametricPlot3D[{Cos[\[Phi]] Sin[\[Theta]],Sin[\[Phi]] Sin[\[Theta]],Cos[\[Theta]]},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False];
druga=ParametricPlot3D[0.5{Cos[\[Phi]] Sin[\[Theta]],Sin[\[Phi]] Sin[\[Theta]],Cos[\[Theta]]},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False];
treca=ParametricPlot3D[r {Sin[\[Theta]],0,Cos[\[Theta]]},{r,0.5,1},{\[Theta],0,Pi},Mesh->False];
cetvrta=ParametricPlot3D[r {0,- Sin[\[Theta]],Cos[\[Theta]]},{r,0.5,1},{\[Theta],0,Pi},Mesh->False];
sve=Show[{prva,druga,treca,cetvrta},Axes->False]


Za ovo drugo treba samo izmanipulirati racunanje tocaka. Jednostavno interaktivno isprobavanje mozes izvesti ovako:

Kod:
Manipulate[Show[{
ParametricPlot3D[{Cos[\[Phi]] Sin[\[Theta]]+ux,Sin[\[Phi]] Sin[\[Theta]]+uy,Cos[\[Theta]]+uz},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False],
ParametricPlot3D[0.5 {Cos[\[Phi]] Sin[\[Theta]]+ux,Sin[\[Phi]] Sin[\[Theta]]+uy,Cos[\[Theta]]+uz},{\[Phi],0,3 Pi/2},{\[Theta],0,Pi},Mesh->False],
ParametricPlot3D[r {Sin[\[Theta]]+ux,uy,Cos[\[Theta]]+uz},{r,0.5,1},{\[Theta],0,Pi},Mesh->False],
ParametricPlot3D[r {ux,-Sin[\[Theta]]+uy,Cos[\[Theta]]+uz},{r,0.5,1},{\[Theta],0,Pi},Mesh->False]
},Axes->False],
{{ux,0},-1,1},{{uy,0},-1,1},{{uz,0},-1,1}]


Nadam se da je to ono sto trazis ili barem korak u dobrom smjeru.



_________________
U pravilu ignoriram pitanja u krivim topicima i kodove koji nisu u [code]...[/code] blokovima.
Takodjer, OBJASNITE sto vas muci! "Sto mi je krivo?", bez opisa u cemu je problem, rijetko ce zadobiti moju paznju. Drzim prodike
[Vrh]
Korisnički profil Pošaljite privatnu poruku
goranm
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 12. 11. 2002. (20:09:12)
Postovi: (906)16
Spol: kućni ljubimac
Sarma = la pohva - posuda
218 = 249 - 31
PostPostano: 15:20 sub, 5. 2. 2011    Naslov: Citirajte i odgovorite
Ne razumijem zašto crtati šuplju kuglu? Npr. sa

[code:1]RegionPlot3D[
1/4 < x^2 + y^2 + z^2 && x^2 + y^2 + z^2 <= 1, {x, -1, 0}, {y, -1,
1}, {z, -1, 0}, PlotRange->{{-1,1},{-1,1},{-1,1}}][/code:1]
se postiže slično kao i prvi vsegin kod, a radijusom i komadom koji se odreže tako da se vidi unutrašnjost se lako manipulira. Odmah se ispričavam jer vjerojatno nisam dobro shvatio.
Ne razumijem zašto crtati šuplju kuglu? Npr. sa

Kod:
RegionPlot3D[
 1/4 < x^2 + y^2 + z^2 && x^2 + y^2 + z^2 <= 1, {x, -1, 0}, {y, -1,
  1}, {z, -1, 0}, PlotRange->{{-1,1},{-1,1},{-1,1}}]

se postiže slično kao i prvi vsegin kod, a radijusom i komadom koji se odreže tako da se vidi unutrašnjost se lako manipulira. Odmah se ispričavam jer vjerojatno nisam dobro shvatio.



_________________
The Dude Abides
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
Luuka
Forumaš(ica)
Forumaš(ica)


Pridružen/a: 13. 02. 2007. (20:34:54)
Postovi: (925)16
Spol: muško
Sarma = la pohva - posuda
188 = 301 - 113
Lokacija: Hakuna Matata
PostPostano: 15:52 sub, 5. 2. 2011    Naslov: Citirajte i odgovorite
Oba odgovora će mi puno koristit, hvala obojici :thankyou:
Oba odgovora će mi puno koristit, hvala obojici Thank you



_________________
"Bolje bi prolazio na faxu da sam na drogama nego na netu" - by a friend of mine
"Poslije spavanja doma spavanje bilo di mi je najdraža stvar" - by the same guy Very Happy
[Vrh]
Korisnički profil Pošaljite privatnu poruku Pošaljite e-mail
Prethodni postovi:   
Započnite novu temu   Odgovorite na temu   printer-friendly view    Forum@DeGiorgi: Početna -> Ostalo - ozbiljno -> Čistilište Vremenska zona: GMT + 01:00.
Stranica 1 / 1.

 
Forum(o)Bir:  
Ne možete otvarati nove teme.
Ne možete odgovarati na postove.
Ne možete uređivati Vaše postove.
Ne možete izbrisati Vaše postove.
Ne možete glasovati u anketama.
You can attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2002 phpBB Group
Theme created by Vjacheslav Trushkin
HR (Cro) by Ančica Sečan