Građevinski fakultet Sveučilišta u Zagrebu
Osnove inženjerske informatike II (Mathematica)
7. vježbe

2D grafika

Graphics

Zadatak 1.

Nacrtajte sljedeće prometne znakove

"07vj_rijesene_1.gif"

"07vj_rijesene_2.gif"

"07vj_rijesene_3.gif"

"07vj_rijesene_4.gif"

"07vj_rijesene_5.gif"

"07vj_rijesene_6.gif"

"07vj_rijesene_7.gif"

ParametricPlot

Zadatak 1.

Nacrtajte krivulju zadanu parametarskim jednadžbama:
     x(t) = cost - "07vj_rijesene_8.gif"
      y
(t) = sint cost,   t ε [0,2π].
Obojite ju crveno.      

"07vj_rijesene_9.gif"

"07vj_rijesene_10.gif"

Zadatak 3.

Na istoj slici nacrtajte jediničnu kružnicu i dvije astroide (a=1 i a=2). Kružnicu obojite crvenom, a astroide plavom bojom.
Uputa: Parametarske jednadžbe astroide su
     x(t)=a·"07vj_rijesene_11.gif"t
      y
(t)=a·"07vj_rijesene_12.gif"t,   tε[0,2π].

"07vj_rijesene_13.gif"

"07vj_rijesene_14.gif"

"07vj_rijesene_15.gif"

Zadatak 2.

Pomoću funkcije Manipulate napravite animaciju iscrtavanja elipse kojoj su poluosi a=3 i  b=2  parelelne s osi x, odnosno  y,  a koordinate središta (2, -1).
Uputa: Parametarske jednadžbe elipse su
     x(t)=a·cost+p
      y
(t)=b·sint+q,   t ε [0,2π].

"07vj_rijesene_16.gif"

"07vj_rijesene_17.gif"

Zadaci za vježbu

Zadatak 1.

Koristeći naredbu ParametricPlot nacrtajte hiperbolu kojoj su poluosi a=3 i  b=2  parelelne s osi x, odnosno  y,  a koordinate središta (-3, 3).
Neka jedinice na osima budu jednake.
Uputa: Parametarske jednadžbe hiperbole su
     x(t)=a·sect+p
      y
(t)=b·tant+q,   t ε [0, 2π].

"07vj_rijesene_18.gif"

"07vj_rijesene_19.gif"

Zadatak 2.

Nacrtajte krivulju kojoj su parametarske jednadžbe
     x(t)=sect
      y
(t)=csct,   tε[0,2π].

Pomoću opcije PlotRange nacrtajte ju u području [-5,5]×[-5,5].
Što znači upozorenje koje vam Mathematica ispisuje?

"07vj_rijesene_20.gif"

"07vj_rijesene_21.gif"

"07vj_rijesene_22.gif"

PolarPlot

Zadatak 1.

Polarna  jednadžba krivulje je  r(φ)=cos(e·φ).
Nacrtajte tu krivulju za  φε[0,30 π],  obojite ju crveno na žutoj podlozi i neka Mathematica pri tom ne iscrtava koordinatne osi.

"07vj_rijesene_23.gif"

"07vj_rijesene_24.gif"

Zadatak 2.

Polarna  jednadžba logaritamske spirale je
r(φ)="07vj_rijesene_25.gif".
Na istoj slici nacrtajte 2 logaritamske spirale  (za a="07vj_rijesene_26.gif" i a="07vj_rijesene_27.gif"), za φε[0,8π],  i obojite ih crvenom i plavom bojom.

"07vj_rijesene_28.gif"

"07vj_rijesene_29.gif"

Zadatak 3.

Pomoću funkcije Manipulate pokažite kako se, za interval [0,4π], mijenja oblik krivulje čija je polarna jednadžba
r(φ)= a +cos φ,
ako realni parametar a poprima vrijednosti između 0 i 2.
Neka za svaku od dobivenih krivulja Mathematica prikazuje područje (-1.2,3)×(-2.2,2.2).
(opcija PlotRange)

"07vj_rijesene_30.gif"

"07vj_rijesene_31.gif"

Zadaci za vježbu

Zadatak 1.

Polarna  jednadžba krivulje je  r(φ)="07vj_rijesene_32.gif" - 2cos4t + "07vj_rijesene_33.gif""07vj_rijesene_34.gif".
Nacrtajte tu krivulju za  tε[0, 9π],  obojite ju plavo na svijetlo plavoj podlozi i neka Mathematica pri tom ne iscrtava koordinatne osi.

"07vj_rijesene_35.gif"

"07vj_rijesene_36.gif"

Zadatak 2.

Polarna  jednadžba krivulje je
r(u)=sin 3u, u [0, π].
Pomoću funkcije Manipulate rotirajte tu krivulju oko ishodišta koordinatnog sustava. Neka je krivulje crvena, a podloga crna.

"07vj_rijesene_37.gif"

"07vj_rijesene_38.gif"

ContourPlot

Zadatak 1

Krivulja je zadana jednadžbom   "07vj_rijesene_39.gif"="07vj_rijesene_40.gif""07vj_rijesene_41.gif"),  za xε[–1,1].
Na istoj slici nacrtajte 4 takve krivulje (za a=1, a=2, a=3 i a=4) i obojite ih redom crvenom, plavom, zelenom
i žutom bojom.

"07vj_rijesene_42.gif"

"07vj_rijesene_43.gif"

"07vj_rijesene_44.gif"

Zadatak 2.

a) Nacrtajte krivulju koja je zadana jednadžbom
"07vj_rijesene_45.gif"2"07vj_rijesene_46.gif"·y+2"07vj_rijesene_47.gif"=0,  za (x,y) ε"07vj_rijesene_48.gif".
Upotrijebite opciju PlotPoints da dobijete precizan crtež u okolini singularne točke.
Neka Mathematica ne iscrtava okvir (opcija Frame).

"07vj_rijesene_49.gif"

"07vj_rijesene_50.gif"

b) Nacrtajte plohu koja je zadana jednadžbom
z="07vj_rijesene_51.gif"2"07vj_rijesene_52.gif"·y+2"07vj_rijesene_53.gif",  za (x,y) ε"07vj_rijesene_54.gif".

"07vj_rijesene_55.gif"

"07vj_rijesene_56.gif"

c) Nacrtajte nivo linije gornje plohe. Obojite ih crveno.

"07vj_rijesene_57.gif"

"07vj_rijesene_58.gif"

Zadatak za vježbu

Zadatak 1.

a) Krivulja je zadana jednadžbom  ("07vj_rijesene_59.gif""07vj_rijesene_60.gif")"07vj_rijesene_61.gif"+"07vj_rijesene_62.gif"=0,  za xε[–a,a].
Na istoj slici, u području [-3,3]×[-5,5] nacrtajte 3 takve krivulje (za a=1, a=2 i a=3) i obojite ih crvenom, plavom i zelenom bojom.
Neka su jedinice na osima jednake i neka Mathematica ne iscrtava okvir.

"07vj_rijesene_63.gif"

"07vj_rijesene_64.gif"

"07vj_rijesene_65.gif"

b) Nacrtajte plohu koja je zadana jednadžbom
z=("07vj_rijesene_66.gif""07vj_rijesene_67.gif")"07vj_rijesene_68.gif"+"07vj_rijesene_69.gif",  za (x,y) ε [-3,3]×[-5,5].

"07vj_rijesene_70.gif"

"07vj_rijesene_71.gif"

c) Nacrtajte nivo linije gornje plohe. Obojite ih žuto.

"07vj_rijesene_72.gif"

"07vj_rijesene_73.gif"

RegionPlot

Zadatak 1

Dio kvadratnog područja "07vj_rijesene_74.gif" u kojem vrijedi  
"07vj_rijesene_75.gif" < "07vj_rijesene_76.gif"  
obojite crveno i obrubite debelom crnom linijom. Preostali dio područja neka bude sive boje. Neka Mathematica ne iscrtava okvir.

"07vj_rijesene_77.gif"

"07vj_rijesene_78.gif"

Zadatak 2.

Dio kvadratnog područja "07vj_rijesene_79.gif" u kojem vrijedi  
"07vj_rijesene_80.gif" > "07vj_rijesene_81.gif"  ili   "07vj_rijesene_82.gif"<0.04,
pomoću funkcije ColorFunction obojite s "Rainbow". Neka podloga bude bijela.

"07vj_rijesene_83.gif"

"07vj_rijesene_84.gif"

Zadatak za vježbu

Zadatak 1.

Dio  područja [–1,1]×[–2,2] u kojem vrijedi  
"07vj_rijesene_85.gif" > "07vj_rijesene_86.gif"  i   | y | < 1.5,
pomoću funkcije ColorFunction obojite s "Rainbow". Neka podloga bude crna.

"07vj_rijesene_87.gif"

"07vj_rijesene_88.gif"

Show

Zadatak 1.

Hiperbola i kružnica dane su implicitnim jednadžbama
"07vj_rijesene_89.gif"-"07vj_rijesene_90.gif"=1  i   "07vj_rijesene_91.gif"+"07vj_rijesene_92.gif"=9.
Izračunajte koordinate njihovih sjecišta, a zatim nacrtajte obe krivulje i na crtežu njihova sjecišta istaknite crvenom bojom.

"07vj_rijesene_93.gif"

"07vj_rijesene_94.gif"

"07vj_rijesene_95.gif"

"07vj_rijesene_96.gif"

Zadatak 2.

Središte elipse je u ishodištu, a poluosi   a=5 i  b=3  parelelne s osi x, odnosno  y.
Pomiću funkcije Manipulate, napravite animaciju generiranja te elipse kao skupa točaka kojima je zbroj udaljenosti od fokusa konstantan.
Uputa: Animirajte radij-vektore (spojnice fokusa s točkama elipse).
            e= "07vj_rijesene_97.gif" je udaljenost fokusa od sredista elipse

"07vj_rijesene_98.gif"

"07vj_rijesene_99.gif"

Zadatak za vježbu

Zadatak 1.

Na istoj slici nacrtajte krivulje "07vj_rijesene_100.gif", "07vj_rijesene_101.gif" i "07vj_rijesene_102.gif".
1. Polarna  jednadžba krivulje "07vj_rijesene_103.gif" je:
     r(φ)=cos(2·φ),   φε[0,π].
2. Parametarske jednadžbe  krivulje "07vj_rijesene_104.gif" su:
     x(t)="07vj_rijesene_105.gif"t
      y
(t)="07vj_rijesene_106.gif"t,   tε[0,2π].
3. Implicitna  jednadžbe  krivulje "07vj_rijesene_107.gif" je:
    "07vj_rijesene_108.gif"+"07vj_rijesene_109.gif"=0.25,  za  xε[–0.5,0.5].

"07vj_rijesene_110.gif"

"07vj_rijesene_111.gif"

"07vj_rijesene_112.gif"

"07vj_rijesene_113.gif"

"07vj_rijesene_114.gif"

Notebook izradili: Vladimir Benić i Sonja Gorjanc


Created by Wolfram Mathematica 6.0  (05 April 2008) Valid XHTML 1.1!