|
楼主 |
发表于 2003-8-15 22:48:09
|
显示全部楼层
Clear[maxxx];
Clear[mbxxx];
For[y = 0, y > -3, y = y - 0.001,
If[y < -1.56,
If[y < -3.81, maxxx = 9 + 2*(-3.81 - y), maxxx = 4*(-1.56 - y)],
maxxx = 0];
If[y < -0.78,
If[y < -1.906, mbxxx = 4.5 + 2*(-1.906 - y), mbxxx = 4*(-0.78 - y)],
mbxxx = 0];
If[mbxxx > maxxx*2 , Print["c=", maxxx, " B=", mbxxx, " y=", y]]] |
|