空间管理您的位置: cpubbs论坛免费虚拟仪器博客 » aqsw5的个人空间 » 日志

数学模型0831-4

上一篇 / 下一篇 2010-09-01 07:30:17 / 天气: 晴朗 / 心情: 平静

<DIV class=t_msgfont id=postmessage_480>!求第二部分<A href="http://www.everbuying.com/product33061.html" target=_blank>air phone no.4 wifi+dvb-t</A> 积分值 !   SSTATD.LIB SSTATS.LIB SMATHD.LIB SMATHS.LIB SF90MP.LIB CALL UMACH (2, NOUT) !Get output unit number     A=s0     !Set lower limit of integration IWEIGH=2   <A href="http://www.everbuying.com/Wholesale-Smart-Phones-c-38.html" target=_blank>cheap phones</A> <A href="http://www.everbuying.com/Wholesale-PHONE-IN-AMERICA-ASSEMBLED-IN-CHINA-MODEL-NO-A1221-FCC-ID-BCGA-1221-IC-ID-579C-A1221.html" target=_blank>phone tv a1221</A> !Select weight W(X) = sin(OMEGA*X)     MEGA=stepx/(2.0*thickness_layer1)+y_gita     ERRABS=0.001   !Set error tolerance CALL QDAWF (F, A, IWEIGH, OMEGA, ERRABS, Value_s0_infinite_1, ERREST) Value_s0_infinite_1=-Value_s0_infinite_1/pai !   print *,'Value_s0_infinite_1=',Value_s0_infinite_1,'  ERREST=',ERREST !   SSTATD.LIB SSTATS.LIB SMATHD.LIB SMATHS.LIB SF90MP.LIB CALL UMACH (2, NOUT) !Get <A href="http://www.everbuying.com/Airphone-NO-1-Single-Card-Quad-Band-Wifi-Java-Touch-Screen-Cell-Phone-Black-with-Silver-p-24031.html" target=_blank>notice airphone</A> output unit number     A=s0     !Set lower limit of integration IWEIGH=2    !Select weight W(X) = sin(OMEGA*X) OMEGA=stepx/(2.0*thickness_layer1)-y_gita    ERRABS=0.001   !Set error tolerance CALL QDAWF (F, A, IWEIGH, OMEGA, ERRABS, Value_s0_infinite_2, ERREST) value_s0_infinite_2=-Value_s0_infinite_2/pai ! print *,'Value_s0_infinite_2=',Value_s0_infinite_2,'  ERREST=',ERREST !求第三部分积分值    <A href="http://www.everbuying.com/Sciphone-I68-4G-Dual-Cards-Quad-Band-Wifi-Java-FM-Touch-Screen-Cell-Phone-Black-p-31348.html" target=_blank>sciphone i68 4g review</A>   if (s0*y_gita.lt.88.0) then   t1=stepx/(2.0*thickness_layer1)+y_gita   t2=t1*t1+x_kexi*x_kexi   Value_trivia1=-t1*cos(t1*s0)/(t2*exp(s0*x_kexi)) <A href="http://www.everbuying.com/product31868.html" target=_blank>sciphone 4 i2000</A>   Value_trivia2=-x_kexi*sin(t1*s0)/(t2*exp(s0*x_kexi))   t3=stepx/(2.0*thickness_layer1)-y_gita   t4=t3*t3+x_kexi*x_kexi   Value_trivia3=-t3*cos(t3*s0)/(t4*exp(s0*x_kexi))   Value_trivia4=-<A href="http://www.everbuying.com/Sciphone-I68-4G-Dual-Cards-Quad-Band-Wifi-Java-FM-Touch-Screen-Cell-Phone-Black-p-31348.html" target=_blank>sciphone i68 4g cell phone quad band</A> x_kexi*sin(t3*s0)/(t4*exp(s0*x_kexi))   Value_trivia=(Value_trivia1+Value_trivia2+Value_trivia3+Value_trivia4)*x_kexi/pai else   Value_trivia=0.0 endif ! print *,'Value_trivia=',Value_trivia else <A href="http://www.everbuying.com/Wholesale-Cell-Phones-b-22.html" target=_blank>best chinese phone</A> Value_s0_infinite_1=0.0 Value_s0_infinite_2=0.0 Value_trivia=0.0 endif !Add all up value_stress_x <A href="http://www.everbuying.com/Wholesale-Cell-Phones-b-22.html" target=_blank>chinese phones online for cheap</A> =Value_0_s0+Value_s0_infinite_1+Value_s0_infinite_2+Value_trivia endsubroutine</DIV>

数学模型0831-4

相关阅读:

用户菜单

我的栏目

标题搜索

日历

我的存档

数据统计

RSS订阅