mathematicaで行列の連立方程式を解きたい

質問

タイトルの通りなのですが、条件が複雑で自分では思った通りの答えが出てきませんでした。
係数行列A=[a1,a2,a3,a4]^Tとする。
a1=[p,0,1-p,0]
a2=[q,0,1-q,0]
a3=[0,r,1-r,0]
a4=[0,s,1-s,0]
但し0<p,q,r,s<1
このとき行ベクトルb=[x,y,z,w]とすると、方程式b=bAを解け

どなたか方程式の解を導くコマンドをご教示ください。どうかよろしくお願いします。

回答No.2

info22_

b=bA
が正しいとするなら

誤：
A=[a1,a2,a3,a4]^T
a1=[p,0,1-p,0]
a2=[q,0,1-q,0]
a3=[0,r,1-r,0]
a4=[0,s,1-s,0]

正：
A=[a1,a2,a3,a4]
a1=[p,0,1-p,0]^T
a2=[q,0,1-q,0]^T
a3=[0,r,1-r,0]^T
a4=[0,s,1-s,0]^T

ではないですか？

回答No.1

Tacosan

Mathematica を使ったことはないけど, 固有ベクトルで終わりだよねぇ....