0
我的表看起来像这样:表格转换成矩阵方程
{975/2048 - 512 y[1] + 256 y[2]},
{175/128 + 256 y[1] - 512 y[2] + 256 y[3]},
{4095/2048 + 256 y[2] - 512 y[3] + 256 y[4]},
我想将它转化成一个矩阵方程:
A*y=b
你有一些建议办呢? 谢谢!
我的表看起来像这样:表格转换成矩阵方程
{975/2048 - 512 y[1] + 256 y[2]},
{175/128 + 256 y[1] - 512 y[2] + 256 y[3]},
{4095/2048 + 256 y[2] - 512 y[3] + 256 y[4]},
我想将它转化成一个矩阵方程:
A*y=b
你有一些建议办呢? 谢谢!
eq = {
975/2048 - 512 y[1] + 256 y[2],
175/128 + 256 y[1] - 512 y[2] + 256 y[3],
4095/2048 + 256 y[2] - 512 y[3] + 256 y[4]}
b = -eq /. y[_] -> 0;
a = Transpose[Table[ D[ eq, y[i]] , {i, 4}]];
a.Table[ y[i], {i, 4}] == b
{-512 y[1] + 256 y[2],
256 y[1] - 512 y[2] + 256 y[3],
256 y[2] - 512 y[3] + 256 y[4]} ==
{-(975/2048), -(175/128), -(4095/2048)}
然后解决:
sol = LinearSolve[a, b];
{524288分之3155,524288分之5335,524288分之4715,0}
(eq /. Table[ y[i] -> sol[[i]] , {i, 4}]) == {0, 0, 0}
真