长春网站公司哪家好,那些做电影的网站赚钱吗,公司电子商务平台和企业网站建设和维护工作管理办法,react.js 做网站好吗小木虫的各位童鞋们#xff0c;我现在调试matlab程序遇到一个问题。一个很复杂的关于角度theta的数值积分#xff0c;我调用自带的quadl函数#xff0c;结果出现虚数。我后来又根据变步长的simpson算法编了一个数值积分程序#xff0c;结果还是有虚数#xff0c;而且我的积… 小木虫的各位童鞋们我现在调试matlab程序遇到一个问题。一个很复杂的关于角度theta的数值积分我调用自带的quadl函数结果出现虚数。我后来又根据变步长的simpson算法编了一个数值积分程序结果还是有虚数而且我的积分程序和quadl算出的结果还有一些误差。积分函数包含了很多三角函数还有e的指数函数在里面但是积分过程中并无傅里叶变换等可以带来虚数的过程不知道虚数是怎么来的。我把积分函数曲线都画出来了波动比较大但是作为一个面积怎么会出现虚数呢我把我的八个积分函数表达式以及各自的函数曲线贴出来希望大神们帮我看看给点意见。论文卡在这里一直得不到解决。 %function group of theta function F1Ff1(theta) % basic formula % TO identify whether the rotating axis is inside the circle if rrat0 rm0.5*(exp((theta-theta0)*tan(phi))-rrat*exp((theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))rrat*exp((theta-theta0)*tan(phi))); else rm0.5*(exp((theta-theta0)*tan(phi))rrat*exp(-(theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))-rrat*exp(-(theta-theta0)*tan(phi))); end asin(theta0)/sin(theta)-rm; F12*cos(theta)*(((R^2-a^2)^(1/2))*(0.125*R^2*a-0.25*a^3-0.5*a*rm^2(R^2-a^2)*rm)... (0.5*pi-asin(a/R))*(0.125*R^40.5*rm^2*R^2)); end function F2Ff2(theta) %basic formula % TO identify whether the rotating axis is inside the circle if rrat0 rm0.5*(exp((theta-theta0)*tan(phi))-rrat*exp((theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))rrat*exp((theta-theta0)*tan(phi))); else rm0.5*(exp((theta-theta0)*tan(phi))rrat*exp(-(theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))-rrat*exp(-(theta-theta0)*tan(phi))); end dsin(betaSthetah)/sin(betaStheta)*exp((thetah-theta0)*tan(phi))-rm; F22*cos(theta)*(((R^2-d^2)^(1/2))*(0.125*R^2*d-0.25*d^3-0.5*d*rm^2(R^2-d^2)*rm)... (0.5*pi-asin(d/R))*(0.125*R^40.5*rm^2*R^2)); end function G1Gf1(theta) % basic formula % TO identify whether the rotating axis is inside the circle if rrat0 rm0.5*(exp((theta-theta0)*tan(phi))-rrat*exp((theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))rrat*exp((theta-theta0)*tan(phi))); else rm0.5*(exp((theta-theta0)*tan(phi))rrat*exp(-(theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))-rrat*exp(-(theta-theta0)*tan(phi))); end asin(theta0)/sin(theta)-rm; G1(rm^2*(R-a)rm*(R^2-a^2)(1/3)*(R^3-a^3))*cos(theta); end function G2Gf2(theta) %basic formula % TO identify whether the rotating axis is inside the circle if rrat0 rm0.5*(exp((theta-theta0)*tan(phi))-rrat*exp((theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))rrat*exp((theta-theta0)*tan(phi))); else rm0.5*(exp((theta-theta0)*tan(phi))rrat*exp(-(theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))-rrat*exp(-(theta-theta0)*tan(phi))); end dsin(betaSthetah)/sin(betaStheta)*exp((thetah-theta0)*tan(phi))-rm; G2(rm^2*(R-d)rm*(R^2-d^2)(1/3)*(R^3-d^3))*cos(theta); end function E1Ef1(theta) %basic formula % TO identify whether the rotating axis is inside the circle if rrat0 rm0.5*(exp((theta-theta0)*tan(phi))-rrat*exp((theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))rrat*exp((theta-theta0)*tan(phi))); else rm0.5*(exp((theta-theta0)*tan(phi))rrat*exp(-(theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))-rrat*exp(-(theta-theta0)*tan(phi))); end asin(theta0)/sin(theta)-rm; E1(cos(theta)/(sin(theta))^3)*(R^2-a^2)^(1/2); end function E2Ef2(theta) % basic formula % TO identify whether the rotating axis is inside the circle if rrat0 rm0.5*(exp((theta-theta0)*tan(phi))-rrat*exp((theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))rrat*exp((theta-theta0)*tan(phi))); else rm0.5*(exp((theta-theta0)*tan(phi))rrat*exp(-(theta-theta0)*tan(phi))); R0.5*(exp((theta-theta0)*tan(phi))-rrat*exp(-(theta-theta0)*tan(phi))); end dsin(betaSthetah)/sin(betaStheta)*exp((thetah-theta0)*tan(phi))-rm; E2cos(thetabetaS)/((sin(thetabetaS))^3)*(R^2-d^2)^(1/2); end function H1Hf1(theta) %basic formula H1cos(theta)/(sin(theta))^3; end function H2Hf2(theta) % basic formula H2cos(thetabetaS)/(sin(thetabetaS))^3; end computational parameters d2rpi/180; theta020*d2r;thetah100*d2r;rrat0.6;brat0.5; betaS45*d2r; phi30*d2r; A1sin(betaSthetah)/sin(theta0)*exp((thetah-theta0)*tan(phi)); B1cos(betaS); C1sin(betaS); thetaBacot((A1-B1)/C1); %numerical integration for W and D Wd1quadl(Ff1,theta0,thetaB); Wd2quadl(Ff2,thetaB,thetah); WdWd1Wd2; Wp1quadl(Gf1,theta0,thetaB); Wp2quadl(Gf2,thetaB,thetah); WpWp1Wp2; Kd1quadl(Ef1,theta0,thetaB); Kd2quadl(Ef2,thetaB,thetah); Dd-2*cot(phi)*(sin(theta0))^2*Kd1... -2*cot(phi)*exp(2*(thetah-theta0)*tan(phi))*(sin(thetahbetaS))^2*Kd2; Kp1quadl(Hf1,theta0,thetaB); Kp2quadl(Hf2,thetaB,thetah); Dp-cot(phi)*(sin(theta0))^2*Kp1... -cot(phi)*exp(2*(thetah-theta0)*tan(phi))*(sin(thetahbetaS))^2*Kp2; disp([Wd1,Wd2,Wp1,Wp2,Kd1,Kd2,Kp1,Kp2]); disp([Wd1,Wd2,Wp1,Wp2,Kd1,Kd2,Kp1,Kp2]); 八个被积函数曲线.jpg
