求教程序

宝宝

最近在自学Maple，有一道练习题是已知两点P,P1和通过两点的向量r,r1，求旋转矩阵A，移动向量d
下面是我自己编的，请大家帮忙指正，谢谢！
restart;
with (plots):
with(linalg):

pi := evalf(Pi):
p := [3.0, 0.0]:
r := vector [1.0, 0.0]:
p1 := [5.0, 0.0]:
r1 := vector [0.0, 1.0]:

local p,p1,r,r1,res;

res := planTransf (p, r, p1, r1)

r := vector(2,[1,0],[0,0]);
r1 := vector(2,[0,0],[1,0]);

A := matrix (2,2,[r1], [r]);
d := vector ([p1[1], -p[1]]);
x := <4,2>:
x1 := proc(p,p1)

evalf (x-1) ;

RETURN(res);
end: