In the function below, I tried to use the following commands
)display value Acon
print(['Acon = Acon])
to print one or more variable.
However, I get very strange behaviour and error messages, so had to comment
them out. There might be a bug somwhere in my program.
If an axiom expert could implement a simplified version of the Maxima
display() function (probably a lisp function) in lisp/axiom, then this would
be very useful.
In Maxima:
x1:1;
x2:2;
x3:3;
display(x1,x2,x3); ->
x1 = 1
x2 = 2
x3 = 3
Any assistance would be appreciated.
TIA
C. Frangos.
testkinemat1 ==
--)read expandsincos.input
Acon := matrix([[1 , 0 , Lo1*sin(phi) , -sin(phi)*a , 0 , 0 , 0 , 0 , 0],_
[0 , 1 , -Lo1*cos(phi) , a*cos(phi) , 0 , 0 , 0 , 0 , 0],_
[1 , 0 , -Lo1*sin(phi) , 0 , -a*sin(phi), 0 , 0 , 0 , 0],_
[0 , 1 , Lo1*cos(phi) , 0 , a*cos(phi) , 0 , 0 , 0 , 0],_
[1,0,-Lc*cos(phi)+Lo1*sin(phi),0,0,0,-a*sin(phi)*cos(delta3)_
-a*cos(phi)*sin(delta3),0,0],_
[0,1,-Lc*sin(phi)-Lo1*cos(phi),0,0,0,a*cos(phi)*cos(delta3)_
-a*sin(phi)*sin(delta3),0,0],_
[1,0,-Lc*cos(phi)-Lo1*sin(phi),0,0,(-2*sin(phi)*Lo1*sin(delta3)-sin(phi)*_
Lc*cos(delta3)-cos(phi)*Lc*sin(delta3))*a/sqrt(4*Lo1^2*sin(delta3)^2+_
4*Lo1*sin(delta3)*Lc*cos(delta3)+Lc^2*cos(delta3)^2+Lc^2*sin(delta3)^2),0,0,0
],_
[0,1,-Lc*sin(phi)+Lo1*cos(phi),0,0,a*(2*cos(phi)*Lo1*sin(delta3)+_
cos(phi)*Lc*cos(delta3)-sin(phi)*Lc*sin(delta3))/sqrt(4*Lo1^2*sin(delta3)^2+_
4*Lo1*sin(delta3)*Lc*cos(delta3)+Lc^2*cos(delta3)^2+Lc^2*sin(delta3)^2),0,0,0
],_ [0 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , -k]])
pause()
Acon := map(simplify,Acon)
--)display value Acon
-- print('Acon = Acon)
print(Acon)
pause()
rankAcon := rank(Acon)
-- print('rankAcon = rankAcon)
print(rankAcon)
pause()
Acone := rowEchelon(Acon)
--)display value Acone
-- print('Acone = Acone)
print(Acone)
pause()
Aconnull := nullSpace(Acon)
--)display value Aconnull
-- print('Aconnull = Aconnull)
print(Aconnull)
pause()
Aconnullity := nullity(Acon)
--)display value Aconnullity
-- print('Aconnullity = Aconnullity)
print(Aconnullity)
_______________________________________________
Axiom-math mailing list
Axiom-math@nongnu.org
http://lists.nongnu.org/mailman/listinfo/axiom-math
