Программа 14. Задача 21
> | restart: |
> | t:=time(): |
> | read "C:\\Podpr1.m": |
> | with(plots): |
Номера точек
> | O1,A,B,C,D1,E,F:=i$i=1..7: |
Координаты опор
> | x[O1],x[C],x[F]:=4,10,0: |
> | y[O1],y[C],y[F]:=6,0,-3: |
Длины стержней
> | OA,AB,CB,AD,BD,DE,FE:=2,9,5,3,6,6,6: |
> | N:=72: # Число кадров |
> | df:=2*pi/N:# Шаг угла |
> | for k to N do |
> | f:=df*k: |
> | x[2]:=x[1]+OA*cos(f): y[2]:=y[1]+OA*sin(f): |
> | Координата(A,C,B,AB,CB): # x[B],y[B]-? |
> | Координата(A,B,D1,AD,BD):# x[D1],y[D1]-? |
> | Координата(D1,F,E,DE,FE): # x[E],y[E]-? |
> | M:=2,3,5,6:K:=4,1,7: |
> | Шарниры:=seq(Окружн(M[i],0.1),i=1..4): |
> | Опоры:=seq(Опора(K[i],0.1),i=1..3): |
> | Стержни:=ЛиниЯ(O1,A),ЛиниЯ(A,B),ЛиниЯ(B,C),ЛиниЯ(D1,E),ЛиниЯ(E,F),thickness=2,color=red: |
> | P[k]:=display(Стержни,Шарниры,Опоры): |
> | od: |
> | display(seq(P[i],i=1..N),insequence=true); |
> | time()-t; |
> |