Predavanje-8.nb

Zadatak. Pokazite da je helikoid x^2+y^2-z^2=1 linijska povrs, tako sto cete nacrtati niz slika, "animaciju", na kojoj se odgovarajuca prava rotira na povrsini hiperboloida.

In[38]:=

(*Ovo definise funkciju rotacije oko z - ose vektora r za ugao u*)rotate[u_, v ... 0 0 1

In[39]:=

(*Ova se prava nalazi na hiperboloidu - naravno, nije jedinstvena, parametar 5 izabran radi bolje vizuelizacije*)p = {1/Sqrt[2] v, 5, 1/Sqrt[2] v} ; 

In[41]:=

RowBox[{For, [, RowBox[{i = 0, ,, i<2 Pi, ,, RowBox[{i, =, RowBox[{i, +, 0.2}]}], ,, ᡝ ... Identity] ; Show[g1, g2, DisplayFunction$DisplayFunction]}], , ]}]

[Graphics:HTMLFiles/Predavanje-8_5.gif]

[Graphics:HTMLFiles/Predavanje-8_6.gif]

[Graphics:HTMLFiles/Predavanje-8_7.gif]

[Graphics:HTMLFiles/Predavanje-8_8.gif]

[Graphics:HTMLFiles/Predavanje-8_9.gif]

[Graphics:HTMLFiles/Predavanje-8_10.gif]

[Graphics:HTMLFiles/Predavanje-8_11.gif]

[Graphics:HTMLFiles/Predavanje-8_12.gif]

[Graphics:HTMLFiles/Predavanje-8_13.gif]

[Graphics:HTMLFiles/Predavanje-8_14.gif]

[Graphics:HTMLFiles/Predavanje-8_15.gif]

[Graphics:HTMLFiles/Predavanje-8_16.gif]

[Graphics:HTMLFiles/Predavanje-8_17.gif]

[Graphics:HTMLFiles/Predavanje-8_18.gif]

[Graphics:HTMLFiles/Predavanje-8_19.gif]

[Graphics:HTMLFiles/Predavanje-8_20.gif]

[Graphics:HTMLFiles/Predavanje-8_21.gif]

[Graphics:HTMLFiles/Predavanje-8_22.gif]

[Graphics:HTMLFiles/Predavanje-8_23.gif]

[Graphics:HTMLFiles/Predavanje-8_24.gif]

[Graphics:HTMLFiles/Predavanje-8_25.gif]

[Graphics:HTMLFiles/Predavanje-8_26.gif]

[Graphics:HTMLFiles/Predavanje-8_27.gif]

[Graphics:HTMLFiles/Predavanje-8_28.gif]

[Graphics:HTMLFiles/Predavanje-8_29.gif]

[Graphics:HTMLFiles/Predavanje-8_30.gif]

[Graphics:HTMLFiles/Predavanje-8_31.gif]

[Graphics:HTMLFiles/Predavanje-8_32.gif]

[Graphics:HTMLFiles/Predavanje-8_33.gif]

[Graphics:HTMLFiles/Predavanje-8_34.gif]

[Graphics:HTMLFiles/Predavanje-8_35.gif]

[Graphics:HTMLFiles/Predavanje-8_36.gif]

In[42]:=

RowBox[{, RowBox[{eksport = Table[Null, {32}] ;, , (*kreiramo praznu tabelu sa 32 ele ... 71;(*povecamo tajmer za 1*)tajmer = tajmer + 1}], , ]}], ;}], <br />, }]}]

[Graphics:HTMLFiles/Predavanje-8_39.gif]

[Graphics:HTMLFiles/Predavanje-8_40.gif]

[Graphics:HTMLFiles/Predavanje-8_41.gif]

[Graphics:HTMLFiles/Predavanje-8_42.gif]

[Graphics:HTMLFiles/Predavanje-8_43.gif]

[Graphics:HTMLFiles/Predavanje-8_44.gif]

[Graphics:HTMLFiles/Predavanje-8_45.gif]

[Graphics:HTMLFiles/Predavanje-8_46.gif]

[Graphics:HTMLFiles/Predavanje-8_47.gif]

[Graphics:HTMLFiles/Predavanje-8_48.gif]

[Graphics:HTMLFiles/Predavanje-8_49.gif]

[Graphics:HTMLFiles/Predavanje-8_50.gif]

[Graphics:HTMLFiles/Predavanje-8_51.gif]

[Graphics:HTMLFiles/Predavanje-8_52.gif]

[Graphics:HTMLFiles/Predavanje-8_53.gif]

[Graphics:HTMLFiles/Predavanje-8_54.gif]

[Graphics:HTMLFiles/Predavanje-8_55.gif]

[Graphics:HTMLFiles/Predavanje-8_56.gif]

[Graphics:HTMLFiles/Predavanje-8_57.gif]

[Graphics:HTMLFiles/Predavanje-8_58.gif]

[Graphics:HTMLFiles/Predavanje-8_59.gif]

[Graphics:HTMLFiles/Predavanje-8_60.gif]

[Graphics:HTMLFiles/Predavanje-8_61.gif]

[Graphics:HTMLFiles/Predavanje-8_62.gif]

[Graphics:HTMLFiles/Predavanje-8_63.gif]

[Graphics:HTMLFiles/Predavanje-8_64.gif]

[Graphics:HTMLFiles/Predavanje-8_65.gif]

[Graphics:HTMLFiles/Predavanje-8_66.gif]

[Graphics:HTMLFiles/Predavanje-8_67.gif]

[Graphics:HTMLFiles/Predavanje-8_68.gif]

[Graphics:HTMLFiles/Predavanje-8_69.gif]

[Graphics:HTMLFiles/Predavanje-8_70.gif]

RowBox[{, (*ovo eksportuje sliku animacije u animirani gif fajl na racunaru u fajl log ... ot;Disposal"Background, ,, "Loop"True}], }}]}]}], ]}], }]}]