Mathematicaでの計算（行列）？

質問

Mathematicaで、すごく困っています。
sについての解を求めたい。a1,a2,a3,a4はそれぞれwについての関数。
Solve[s^4+a1*s^3+a2*s^2+a3*s+a4==0,s]
ここまでは4乗故、汚い解ながら、一応数値解は得られました。
ここで、wを1列のデータに置き換えて、a1,a2,a3,a4は４列の数値になりました。
同じようにsについて解きます。
Solve[s^4+a1[[i]]*s^3+a2[[i]]*s^2+a3[[i]]*s+a4[[i]]==0,s](?)
For文やTableなどいろいろ試して見ましたが、全然出来ません。質問が意味不明な点ありましたらお答えします。
sが求まらないと、次に進めません。期限が迫っていますので、切実です。
どなたか詳しい方よろしくお願いします。

回答No.1

hinarikako

Mathematica 疑問、使い方、その他いろいろなトラブルについては　Mathematicaユーザの会がサポート
しています。下記のE-Mailに問い合わせてください。
mug@jp-mathusers.org