Программа 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";#сохраняем на диске

>