Constant s0=0.055, r=0.04, c=1000;
Parameter theta1,alfa,p,q;
ConstStr g=-p*cos(alfa)-q*sin(alfa),
         fun_cal1=1/sqrt(abs(2*(p*cos(aaa)+q*sin(aaa)+g)/c)),
         fun_cal2=cos(bbb)/sqrt(abs(2*(p*cos(bbb)+q*sin(bbb)+g)/c)),
         fun_cal3=sin(ccc)/sqrt(abs(2*(p*cos(ccc)+q*sin(ccc)+g)/c));
Function
    s0-theta1*r-Integrate(fun_cal1,aaa=theta1,alfa)+Integrate(fun_cal1,aaa=alfa,pi/2);
    r*(1-sin(theta1))-Integrate(fun_cal2,bbb=theta1,alfa)+Integrate(fun_cal2,bbb=alfa,pi/2);
    r*cos(theta1)-Integrate(fun_cal3,ccc=theta1,alfa)+Integrate(fun_cal3,ccc=alfa,pi/2);
    r-1/sqrt(abs(2*(p*cos(theta1)+q*sin(theta1)+g)/c));

2楼: Originally posted by dingd at 2014-06-20 14:13:29
楼主图方便自己贴个图片省事，难道还要帮助的人照着图片一个个输入？应先学会懂得如何求助。