用Mathematica解线性方程组.
用Mathematica解线性方程组.
M = {{1,-2,1,1},{1,-2,1,-1},{1,-2,1,-1}};
b = {1,-5,-5};
LinearSolve[M,b]
{-2,0,0,3}
NullSpace[M]
{{-1,0,1,0},{2,1,0,0}}
x = c %[[1]] = %%
Set::write:Tag Times in -2 c is Protected.>>
{1,-5,-5}
结果总是不对啊.
M = {{1,-2,1,1},{1,-2,1,-1},{1,-2,1,-1}};
b = {1,-5,-5};
LinearSolve[M,b]
{-2,0,0,3}
NullSpace[M]
{{-1,0,1,0},{2,1,0,0}}
x = c %[[1]] = %%
Set::write:Tag Times in -2 c is Protected.>>
{1,-5,-5}
结果总是不对啊.
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前1个回答
-
1年前2个回答
-
1年前1个回答
-
1年前1个回答
-
再求解一道题目 用克莱姆法则或增广矩阵的初等行变换解线性方程组
1年前1个回答
-
1年前2个回答
你能帮帮他们吗