3

単純化するためにMathematicaに転送したインピーダンス方程式があります。これは回路回路図を表しており、回路インピーダンス（Z、V = iZから）はs平面のいくつかの項の大部分です。

簡略化した例として、次のようになります。

 L0s + (R1/(1 + R1 C1 s) + R3b + L3s + V3/s)/(R2a L2a s/(R2a + L2a s))

データを次のように再配置したいと思います。 

k1*s^-1 + k2*s^0 + k3*s^1 ...

k超過データ（さまざまなR、L、およびC値の分数） を表すすべての値を使用します。

これらのタイプの構造を作成するには、どの式の操作が最適ですか？
。
。
。方程式が単純化されてから、項間の分割のレベルのためにExpandAll-edされたとしても、関数はsの指数に従って物事を分離することを処理できないと思います-未解決の分数のいくつかの層があります
。Collect

これについて疑問に思ったのですが、すべてを時間領域に変換した場合、素数（派生/統合された回数）で並べ替えることができるのでしょうか？

S c0 + c1 + d/dt*c2 + d^2/dt^2*c3 ...
4

2 に答える 2

1

元の方程式では何もできませんでした。可能な有用なアプローチを説明するために、次の大幅に簡略化されたバージョンを使用します。おそらく、これはあなたが必要とするものではありません。

myeqn = Expand[L0 s + (R3b + L3 s + V3/s)/(R2a L2a s/(R2a + L2a s))]

与える:

ここに画像の説明を入力

SelectとなりFreeQ、MemberQ次のように k0、k1 ... を定義するために使用できるようになりました。

k0 = Select[myeqn, FreeQ[#, s] &]

ここに画像の説明を入力

同様に：

k1 = Expand[Select[myeqn, MemberQ[#, s] &] 1/s];

km1 = Expand[Select[myeqn, MemberQ[#, 1/s] &] s];

km2 = Expand[Select[myeqn, MemberQ[#, 1/s^2] &] s^2];

以下はTrueと評価されるようになりました（最終的にはこのようなものが必要になると想定しています）

Expand[k0 + k1 s + km1/s + km2/s^2] == myeqn

ただし、上記のSasha によるアプローチの方がはるかに優れているようです。

scoeff = SeriesCoefficient[myeqn, {s, 0, n}];

たとえば、

k0alt = First@scoeff[[1, 2]]
于 2011-02-22T11:44:27.773 に答える