Inactive阻止函数的计算, 求解微分方程有奇效
Block[{Integrate = Inactive[Integrate]},
DSolve[((H - h0)^(7/5) P0 (T - c t0))/(T0 (H - h0 - m*h[t])^(7/5)) +
1/2 \[Rho]*(h'[
t] - (h[t] m (m \[Pi] r^2 - S2))/(2 (H - h0 +
h[t] m) \[Pi] r^2) + (h[
t] m^2 (2 H \[Pi] r^2 - 2 h0 \[Pi] r^2 + h[t] m*\[Pi]*r^2 -
h[t]*S2 -
2 H*S2))/(2 (H - h0 +
h[t] m)^2 \[Pi] r^2) - (m (2 H \[Pi] r^2 -
2 h0 \[Pi] r^2 + h[t] m \[Pi] r^2 - h[t] S2 -
2 H S2))/(2 (H - h0 + h[t] m) \[Pi] r^2)*h'[t]) ==
P0 + g \[Rho] (h[t] +
h0 - (h[t] m (2 H \[Pi] r^2 - 2 h0 \[Pi] r^2 +
h[t] m \[Pi] r^2 - h[t] S2 - 2 H S2))/(2 (H - h0 +
h[t] m) \[Pi] r^2) - m*h[t]) +
1/2 \[Rho] Derivative[1][h][t]^2, h[t], t]]
