作业帮 > 英语 > 作业

maple矩阵求逆

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:英语作业 时间:2024/04/28 22:16:16
maple矩阵求逆
maple矩阵求逆
with(LinearAlgebra):
a:=RandomMatrix(3,3);
E:=Matrix(3,3,shape=identity);
A:=;
B:=RowOperation(%,[2,1],(-A[2,1])/(A[1,1]));
C:=RowOperation(%,[3,1],(-A[3,1])/(A[1,1]));
d:=RowOperation(%,[1,2],(-C[1,2])/(C[2,2]));
F:=RowOperation(%,[3,2],(-d[3,2])/(d[2,2]));
g:=RowOperation(%,[1,3],(-F[1,3])/(F[3,3]));
G:=RowOperation(%,[2,3],(-F[2,3])/(F[3,3]));
c:=RowOperation(%,1,(1/G[1,1]));
f:=RowOperation(%,2,(1/G[2,2]));
H:=RowOperation(%,3,(1/G[3,3]));
a逆:=SubMatrix(%,1..3,4..6);
a对角:=SubMatrix(G,1..3,1..3);
a:=[-2,-1,1]; b:=[2,2.5,3.5];
f:=interp(a, b, x); with(plots):
p:=pointplot([[-1,2.5],[-2,2],[1,3.5]]):
g:=plot(f,x=-3..3,color=red):
display(p,g);
with(LinearAlgebra);
a:=RandomVector(3);
b:=RandomVector(3);
c:=RandomVector(3);
s:=GramSchmidt([a,b,c],normalized);
a1:=s[1];b1:=s[2];c1:=s[3];
evalb(DotProduct(a1,b1)=0);
evalb(DotProduct(a1,c1)=0);
evalb(DotProduct(b1,c1)=0);