無次元化する必要がある変数H
、W
、P
、 & (以下)の一連の結合方程式があります。T
手動で行うのは難しいことが証明されているため、Mathematica でこれを達成する方法はありますか。
{(a 1/(1 + R T[t]) - b) H[t] - (ap + bp) P[t] - bt T[t] == H'[t],
L P[t] - g W[t] - B W[t] H[t] == W'[t],
B W[t] H[t] - (up + b + bp + bt T[t]/H[t]) P[t] -
bp (P[t]^2)/H[t] ((k + 1)/k) + phi T[t] == P'[t],
H[t] (theta) - (b + bp P[t]/H[t] + bt ) T[t] -
bt (T[t]^2)/H[t] ((k + 1)/k) - v P[t] == T'[t]}
パラメータの単位: a = /H/単位時間; b = /H/単位時間; B = /H/単位時間; シータ = T/H/単位時間; ap = /P/単位時間; bp = /P/単位時間; アップ = /P/単位時間; v = /P/単位時間; L = W/P/単位時間; R = /T/単位時間; bt = /T/単位時間; ファイ = /T/単位時間; g = /W/単位時間; k = 定数。