zad2

Zadanie 2

ClearAll["Globar*^M]

t=10    (* czas [s] *)

a=25    (* przyspieszenie [m/s^A2] *)

g=9.81    (* przyspieszenie ziemskie [m/s^A2] *)

ms=u><t (* masa spalin wyrzuconych w czasie *)

Fg=(m-ms)xg (* siła grawitacji *)

Fc=uxv    (* siła ciągu *)

(* Zastosowanie drugiej zasady dynamiki do obliczenia u *)

A=Sołve[ (m-ms)xa==Fc-Fg,u];

Wykres dla m = 2kg

rysl=Plot[u/.A/.m-»2,{v,150,200},TextStyle->{FontFamily-VTimes",FontSlant-> "Italie",Fon tSize->12},

PlotLabel->StyłeForm[" m = 2kg",

FontFamily-^"Helvetica",FontSlant-^"Plain",FontWeight->"Bold",FontSize->12], PlotStyłe->(_{{RGBColor[l,0,0], Thickness[0.006]}}_),AxesLabel->{"v [m/s]","u [kg/s] "}]

Wykres dla m = 3kg

rys2=Plot[u/.A/.m->3,{v,150,200},TextStyle->{FontFamily->"Times",FontSlant->"Italic",Fon

tSize->12},

PlotLabel->StyleForm[" m = 2kg",

FontFamily-V'Helvetica",FontSlant->"Plain",FontWeight->"Bold",FontSize->12], PlotStyle->(_{{RGBColor[l,0,0], Thickness[0.006]}}_),AxesLabel->{"v [m/s]","u [kg/s] "}]