fprintf(fd, ",%3.0f",k*rs(tm));
od:
>
fprintf(fd, "];"):
>
fclose(fd):# Faylni yopish
>
fd := fopen("C:\\DOS\\xfla.txt", WRITE):#Faylni ochish. fprintf(fd, "mx=[
%3.0f",k*rx(0)):
>
for i to n do
>
tm:=T0/n*i:
>
fprintf(fd, ",%3.0f",k*rx(tm));
od:
>
fprintf(fd, "];"):
314
>
fclose(fd):
3.24-rasm
Rasmni silliq sirtda prujinalar vositasida biriktirilgan erkinlik darajasi ikkita
boʻlgan ikkita yukdan iborat sistema tasvirlangan.
Diskka biriktirilgan sterjen uchiga yoʻnalishi va miqdori oʻzgarmas kuch
qoʻyilgan sistemaning tebranma harakatini dasturini tuzamiz.
>
restart:
>
read "ras.m":
>
R:=3: a:=6:
> # Koordinatsi
>
y[1]:=R:
> # Kadrlar soni K
>
K:=36: with(plots):with(plottools):
> #
Barcha kadrlarni xosil kilish
>
for i from 0 to K do t:=i/K: phi:=sin(2*pi*i/K)*pi/6+3*pi/2: x[1]:=-R*phi:
x[2]:=x[1]+a*cos(phi):
y[2]:=y[1]+a*sin(phi):
F:=arrow([x[2],y[2]+4],evalm([0,-20]*0.2),0.1,0.6,0.2,color=red):
P[i]:=display(F,Cir(1,R),Cir(2,0.2),Cir(1,0.2),
Line(1,2,3)):
cir4(1,R,phi),
|
