Predavanje-7.nb

Problemi iz grafova i koristenje petlji za kreiranje animacija

Zadatak 1. Nacrtajte tangentu funkcije f(x)=x^2-1 u tacki x=1.2

$f[x_] := x^2 - 1 ; RowBox[{RowBox[{tangenta[x_], :=, RowBox[{RowBox[{RowBox[{f ', [, 1.2, ]}], ... wBox[{x, -, 1.2}], )}]}], +, RowBox[{f, [, 1.2, ]}]}]}], ;}] Plot[{f[x], tangenta[x]}, {x, 0, 2}]$

[Graphics:HTMLFiles/Predavanje-7_2.gif]

Zadatak 2. Iskoristiti funkciju Show kako biste prikazali "animaciju" prave y=kx, za k u intervalu [-1,1]

RowBox[{For, [, RowBox[{i = -1, ,, i<1, ,, RowBox[{i, =, RowBox[{i, +, 0.2}]}], ,,  ... 1.2}], }}], ,, RowBox[{{, RowBox[{RowBox[{-, 1.2}], ,, 1.2}], }}]}], }}]}]}], ]}]}], , ]}]

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

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

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

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

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

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

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

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

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

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

Zadatak 3. Iskoristiti funkciju Show kako biste prikazali "animaciju" tangente neke proizvoljne krive (pocnite sa kvadratnom funkcijom y=x^2-1)

(*Definisemo funkciju - primjetite da mozemo definisati funkciju kako god zelimo, a program jos uvijek radi*)

$RowBox[{RowBox[{k[x_] := x^2 - 1 ;, , , (*Pocetak For petlje*), , RowBox[{For ... Color[0, 0, 1]}}], , ]}]}]}], , (*kraj Plota*), , ]}]}], , (*kraj For petlje*)}]$