zad1

Zadanie 1

ClearAli ["Global' * "]

Fod = (m*V^A2)/R (* siła odśrodkowa *)

Fg = m*g (* siła grawitacji *)

Epl = m*g*H (* energia potencjalna wózka w punkcie startu *)

Ep2 = m*g*(2*R) (* energie potencjalne wózka w najwyższym punkcie pętli *) Ek2 = (m*V^A2)/2 (* energia kinetyczna wózka w najwyższym punkcie pętli *)

(* Szukanie prędkości (V) i promienia (R) dla danego układu równań *)

rl = Solve[{Fod = Fg, Epl - Ep2 = Ek2}, {R, V}]

(* Wykres obrazujący zależność średnicy (2R) od wysokości zjeżdżalni (2H) *)

Plot[2*R /. rl[[l, 1]], {H, 25,35},

TextStyle -> (FontFamily -> "Times",

FontSlant -> "Italie", FontSize -> 12},

PlotStyle -> {{RGBColor[l, 0, 0], Thickness[0.006]}},

AxesLabel -> {"H [m]", "2R [m]"}]