Rd:=24: a:=40: b:=10: r:=4:h:=40:
Burchak tezlanish va D markaz tezlanishi
318
>
epsD:=(Wa-We)/(Rd-rd): Wd:=Wa-epsD*Rd:
>
epsC:=Wa/Rc:
Koordinatlar
>
x[12]:=0:y[12]:=0:
y[2]:=0: y[4]:=0:
x[5]:=0: y[5]:=Rc:
y[6]:=y[5]:
y[8]:=y[6]-b*2+Rd-rd: y[10]:=y[8]:
y[7]:=y[8]-r*1.5:
y[9]:=y[7]:
x[2]:=-Rc:x[4]:=-rc: x[1]:=-Rc: x[3]:=-rc:
y[11]:=y[6]+Rd: y[13]:=y[8]+b:
K –kadrlar soni
>
K:=36: with(plots):with(plottools):
Barcha kadrlarni hosil qilish
>
for i from 0 to K do
>
t:=5*i/K:
>
phiC:=t^2/2*epsC:
phiD:=t^2/2*epsD: Se:=t^2/2*We:Sd:=t^2/2*Wd:
S12:=-35-phiC*Rc:S34:=-40-phiC*rc:
S56:=100+h-Sd:
y[1]:=S12: y[3]:=S34:
x[7]:=120+h-Se-a: x[8]:=x[7]:
x[9]:=x[7]+2*a: x[10]:=x[9]:
x[11]:=S56: x[13]:=x[7]+a: x[6]:=x[11]:
P[i]:=display(Cir(12,Rc),Cir(12,rc),Cir(7,r),Cir(9,r),
box(13,1.2*a,b),
box(1,r,r),box(3,r,r),
Cir(11,Rd),Cir(11,rd),Cir(11,1),
cir4(12,Rc,phiC),cir4(12,rc,phiC),
319
cir4(11,Rd,-phiD),cir4(11,rd,-phiD),
seq(TEXT([x[Nnam[j]]+4,y[Nnam[j]]+9],nam[j]),j=1..5),
seq(Line(2*i-1,2*i,9),i=1..3),Lin(7,8),Lin(9,10)):
od:
Harakatlanayotgan mexanizmning tasviri
>
PP:=display(seq(P[i],i=0..K),insequence=true,
thickness=2,
scaling=constrained,
axes=none):
Warning, the name changecoords has been redefined
Warning, the name arrow has been redefined
>
Dostları ilə paylaş: |
