Question

mathematica解方程组遇到了问题,

Answer 1

1、这是一个微分方程,因此要用NDSolve函数.

2、求数值解的时候,要给出自变量的变化范围,而且,每个自变量的变化范围要分开写

3、微分方程需要初值才能给出确定的解

因此,这个代码应该拥有如下的形式：

NDSolve[{D[Iw[PW],PW] == 0,D[Is[PS],PS] == 0,D[Ib[PB],PB] == 0,

D[Ic[PCB],PCB] == 0},{Iw,Is,Ib,Ic},{PW,1,10},{PS,1,

10},{PB1,10},{PCB,1,10},Reals]