Программа 12
> | restart;# Кинематический граф |
(список вершин, длины, углы, угл.скорости)
> | Граф:=proc(S,L,f,w) |
> | [seq(v[S[-1],j]=v[S[1],j]- |
> | add(L[i]*sin(f[i]-Pi/2*(j-1))*w[i],i=1..nops(f)),j=1..2)] |
> | end: |
> | save Граф, "C:\\graph.m";#сохраняем на диске |
> |