1

我有一组我需要无量纲化的变量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/单位时间；theta = T/H/单位时间；ap = /P/单位时间；bp = /P/单位时间；up = /P/单位时间；v = /P/单位时间；L = W/P/单位时间；R = /T/单位时间；bt = /T/单位时间；phi = /T/单位时间；g = /W/单位时间；k = 常数。

4

1 回答 1

0

这个包可以帮助你使用 Pi 定理。

不过，我从未使用过它。

于 2011-03-28T16:27:42.950 回答