Question: linsolve

Question:linsolve

lei_xiaowen 269 Maple

I use the order linsolve to solve matrix,but it does nothing. It is as follows,

a := matrix([[-k, -c*omega], [c*omega, -k]])

b := matrix(2, 1, [A1, B1])

d := matrix([[M*omega^2-K-k, -c*omega], [c*omega, M*omega^2-K-k]])

f := matrix(2, 1, [A2, B2])

g := matrix(2, 1, [0, F])

h := matrix([[m*omega^2-k, -c*omega], [c*omega, m*omega^2-k]])

dbg1 := evalm(`&*`(d, b)+g)

AB2 := linsolve(a, dbg1)

AB2h := evalm(`&*`(h, AB2))

t := matrix(2, 1, [-c*omega*F, (m*omega^2-k)*F])

tt := evalm(AB2h-t)

qq := linsolve(b, evalm(tt))

Thank you very much

Please Wait...