zad3

Zadanie 3

ClearAll["Globar*"j

S=0.1*10^A-6 (* powierzchnia styku ziaren piasku z metalem [m^A2] *)

a=60 (* kat jaki tworzą wektory prędkości przed i po zderzeniu z normalna do powierzchni

metalu [deg] *)

ppn=p*Cos[a] (* składowa normalna pędu ziarenek piasku przed zderzeniem *) pkn=0.7*p*Cos[a] (* składowa normalna pędu ziarenek piasku po zderzeniu *) dpn=pkn-ppn (* przyrost pędu ziarenek *)

Fn=dpn/dt (* składowa normalna siły wywierana przez ziarna na metal *)

P=Fn/s (* ciśnienie wywierane przez ziarnka piasku na powierzchnie metalu *)

(* Sporządzenie wykresu zależności p od ciśnienia dla zderzenia trwającego 0.002sekundy. *)

rysl=Plot[P.\dt->0.002,{p,30*10^A-8,80*10^A-8},

TextStyle->{FontFamily->"Times",FontSlant->"ltalic"_/FontSize->12}_/

PlotLabel->StyleForm[" dt = 0.002 s ",FontFamily->"Helvetica", FontSlant->^,,Plain"_/FontWeight->"Bold",FontSize->12]_/

PlotStyle->(RGBColor[l,0,0] Thickness[0.006]),AxesLabel->{"p [kg*m/s]"_/"P [MPa]"}]

(* Sporządzenie wykresu zależności p od ciśnienia dla zderzenia trwającego 0.02sekundy. *)

rys2=Plot[P.\dt->0.02_/{P/30*10^A-8,80*10^A-8},

TextStyle->{FontFamily->'^,Times"_/FontSlant->"ltalic^,,/FontSize->12}_/

PlotLabel->StyleForm[" dt = 0.02 s ",FontFamily->"Helvetica", FontSlant->^,,Plain”_/FontWeight->"Bold^,,/FontSize->12],

PlotStyle->(RGBColor[ 1,0,0] ThicknessIO.OOGD^esLabel^rp [kg*m/s]^,,/^,P [MPa]"}]