ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 08 Oct 2009 7:26 Sujet du message: |
|
|
Bonjour,
merci de copier coller votre code entre les 2 balises "Code" et "Code*" et non de créer une image de votre feuille Maple, ce qui m'évitera de recopier tout votre code pour donner ma réponse.
La solution est d'appliquer la fonction combine sur les coefficients de votre matrice:
Code: |
> with(linalg):
> T01:=matrix([[cos(theta1),-sin(theta1),0,0],[sin(theta1),cos(theta1),0,0],[0,0,1,0],[0,0,0,1]]);
> T02:=matrix([[cos(theta2),-sin(theta2),0,a1],[sin(theta2),cos(theta2),0,0],[0,0,1,0],[0,0,0,1]]);
> T:=evalm(T01&*T02);
[cos(theta1) -sin(theta1) 0 0]
[ ]
[sin(theta1) cos(theta1) 0 0]
T01 := [ ]
[ 0 0 1 0]
[ ]
[ 0 0 0 1]
[cos(theta2) -sin(theta2) 0 a1]
[ ]
[sin(theta2) cos(theta2) 0 0 ]
T02 := [ ]
[ 0 0 1 0 ]
[ ]
[ 0 0 0 1 ]
T :=
[cos(theta1) cos(theta2) - sin(theta1) sin(theta2) ,
-cos(theta1) sin(theta2) - sin(theta1) cos(theta2) , 0 ,
cos(theta1) a1]
[sin(theta1) cos(theta2) + cos(theta1) sin(theta2) ,
cos(theta1) cos(theta2) - sin(theta1) sin(theta2) , 0 ,
sin(theta1) a1]
[0 , 0 , 1 , 0]
[0 , 0 , 0 , 1]
> T:=map(combine,T);
T :=
[cos(theta1 + theta2) , -sin(theta1 + theta2) , 0 ,
cos(theta1) a1]
[sin(theta1 + theta2) , cos(theta1 + theta2) , 0 ,
sin(theta1) a1]
[0 , 0 , 1 , 0]
[0 , 0 , 0 , 1]
|
A bientôt. |
|