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

数学模型0831-6

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

<DIV class=t_msgfont id=postmessage_482>!求第一部分积分值 Value_0_s0=0.0 s_step=1.0 <A href="http://www.everbuying.com/" target=_blank>unlocked phones</A>  do s1=0.0,s0,s_step   s2=s1+s_step   call trifle_y(s1,s2,y_gita,x_kexi,stepx,thickness_layer1,<A href="http://www.everbuying.com/Wholesale-Hiphone-c-23.html" target=_blank>unlocked phone</A> v_halfspace_1,e_halfspace_1,v_halfspace_2,e_halfspace_2,Value_0_s0_part3)   Value_0_s0=Value_0_s0+Value_0_s0_part3 enddo Value_0_s0=-Value_0_s0/(pai*thickness_layer1) ! print *,'Value_0_s0='<A href="http://www.everbuying.com/product31863.html" target=_blank>w338 phone</A> ,Value_0_s0 if (x_kexi.lt.thickness_layer1) then   !求第二部分积分值 !   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    !Select weight W(X) = sin(OMEGA*X)   OMEGA=stepx/(2.0*thickness_layer1)+y_gita   ERRABS=0.001   !Set error tolerance   CALL QDAWF <A href="http://www.everbuying.com/Airphone-NO-4-Dual-Cards-Quad-Band-Wifi-Java-FM-Touch-Screen-Cell-Phone-Black-p-30663.html" target=_blank>air phone no.4 wifi </A>(F, A, IWEIGH, OMEGA, ERRABS, Value_s0_infinite_1, ERREST)   Value_s0_infinite_1=-Value_s0_infinite_1/pai !   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    !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/Wholesale-Hiphone-c-23.html" target=_blank>unlocked cell phone</A> 100 if (s0*y_gita.lt.88.0) then !  print *,'exp(s0*x_kexi)=',exp(s0*x_kexi)   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))   Value_trivia2=x_kexi*sin(t1*s0)/(t2*exp(s0*x_kexi))   t3=stepx/(2.0*thickness_layer1)-y_gita   t4=t3*t3+<A href="http://www.everbuying.com/New-Pinphone-3GS-I836-Dual-Cards-Quad-Band-Wifi-Java-FM-Touch-Screen-Cell-Phone-p-29966.html" target=_blank>pinphone 3gs + reviews</A>  x_kexi*x_kexi   Value_trivia3=t3*cos(t3*s0)/(t4*exp(s0*x_kexi))   Value_trivia4=x_kexi*sin(t3*s0)/(t4*exp(s0*x_kexi))   Value_trivia=(Value_trivia1+Value_trivia2+Value_trivia3+Value_trivia4)*x_kexi/pai !  print *,'Value_trivia=',Value_trivia else   Value_trivia=0.0 endif else Value_s0_infinite_1=0.0 Value_s0_infinite_2=0.0 <A href="http://www.everbuying.com/www.everbuying.com/product32889.html" target=_blank>eken m006</A> Value_trivia=0.0 endif !Add all up value_stress_y=Value_0_s0+Value_s0_infinite_1+Value_s0_infinite_2+Value_trivia endsubroutine</DIV>

数学模型0831-6

相关阅读:

用户菜单

我的栏目

标题搜索

日历

我的存档

数据统计

RSS订阅