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

Mathematica (zadatak)

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
daniela
Gost
PostPostano: 18:05 sub, 23. 4. 2011    Naslov: Mathematica Citirajte i odgovorite
Ovo je dio mog koda iz seminara. Trebala bi još napravit da mi izračunava površinu ovog lika koji se mijenja u ovisnosti o naredbi Manipulate. Pokušavala sam ali nikako mi ne uspijeva, nezgodno mi je jer je lik zadan pomoću naredbi Polygon i Table. Je li možda netko ima ideju? Unaprijed zahvaljujem

[code:1]Manipulate[
Graphics3D[{Polygon[
Table[{(.2 Cos[h] + .7) Cos[x] + 7, (.2 Cos[h] + .7) Sin[x],
h}, {x, 0, 2 \[Pi], \[Pi]/12}]]},
PlotRange -> {{5, 10}, {-3, 3}, {0, 7}}], {h, 0, 6, 1}] [/code:1]
Ovo je dio mog koda iz seminara. Trebala bi još napravit da mi izračunava površinu ovog lika koji se mijenja u ovisnosti o naredbi Manipulate. Pokušavala sam ali nikako mi ne uspijeva, nezgodno mi je jer je lik zadan pomoću naredbi Polygon i Table. Je li možda netko ima ideju? Unaprijed zahvaljujem

Kod:
Manipulate[
Graphics3D[{Polygon[
Table[{(.2 Cos[h] + .7) Cos[x] + 7, (.2 Cos[h] + .7) Sin[x],
h}, {x, 0, 2 \[Pi], \[Pi]/12}]]},
PlotRange -> {{5, 10}, {-3, 3}, {0, 7}}], {h, 0, 6, 1}]


[Vrh]
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: 19:12 pet, 29. 4. 2011    Naslov: Citirajte i odgovorite
Formula za površinu poligona zadanog koordinatama [latex](x_i,y_i),~i=1,\dots,n[/latex] je dana sa

[latex]\displaystyle \left|\frac{1}{2}\sum_{i=1}^{n-1} (x_i y_{i+1}-y_i x_{i+1})+\frac{1}{2} (x_n y_1 -y_n x_1)\right|[/latex]

Za pojedini h, koordinate vrhova su

[code:1]g[h_] := Table[{(.2 Cos[h] + .7) Cos[x] + 7, (.2 Cos[h] + .7) Sin[x]}, {x, 0, 2 \[Pi], \[Pi]/12}][/code:1]

a površina je onda

[code:1]area[list_List] := Module[{i},
Return[Abs[
1/2 Sum[list[[i]][[1]] list[[i + 1]][[2]] -
list[[i]][[2]] list[[i + 1]][[1]], {i, 1, Length[list] - 1}] +
1/2 (list[[Length[list]]][[1]] list[[1]][[2]] -
list[[Length[list]]][[2]] list[[1]][[1]])
]
]
][/code:1]

Postoji i nešto elegantnija formula u obliku [url=http://mathworld.wolfram.com/PicksTheorem.html]Pickovog teorema[/url], ali tamo se mora znati broj točaka u interioru poligona.
Formula za površinu poligona zadanog koordinatama je dana sa



Za pojedini h, koordinate vrhova su

Kod:
g[h_] := Table[{(.2 Cos[h] + .7) Cos[x] + 7, (.2 Cos[h] + .7) Sin[x]}, {x, 0, 2 \[Pi], \[Pi]/12}]


a površina je onda

Kod:
area[list_List] := Module[{i},
  Return[Abs[
    1/2 Sum[list[[i]][[1]] list[[i + 1]][[2]] -
        list[[i]][[2]] list[[i + 1]][[1]], {i, 1, Length[list] - 1}] +
     1/2 (list[[Length[list]]][[1]] list[[1]][[2]] -
        list[[Length[list]]][[2]] list[[1]][[1]])
    ]
   ]
  ]


Postoji i nešto elegantnija formula u obliku Pickovog teorema, ali tamo se mora znati broj točaka u interioru poligona.



_________________
The Dude Abides
[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