求教程序
最近在自学Maple，有一道练习题是已知两点P,P1和通过两点的向量r,r1，求旋转矩阵A，移动向量d下面是我自己编的，请大家帮忙指正，谢谢！
restart;
with (plots):
with(linalg):
pi := evalf(Pi):
p := :
r := vector :
p1 := :
r1 := vector :
local p,p1,r,r1,res;
res := planTransf (p, r, p1, r1)
r := vector(2,,);
r1 := vector(2,,);
A := matrix (2,2,, );
d := vector (, -p]);
x := <4,2>:
x1 := proc(p,p1)
evalf (x-1) ;
RETURN(res);
end:
页:
[1]