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

数学模型0831-9

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

<DIV class=t_msgfont id=postmessage_486>附录E 带有一层涂层的半空间体受到<A href="http://www.everbuying.com/Wholesale-gaffrig-gps-speedometer-kit.html" target=_blank>gaffrig gps speedometer</A>  椭圆分布的压力作用下，半空间体内的剪应力分布的计算程序 主程序名：stress_t.f90 !---------------------------------------------------------- !     此程序用于计算剪应力 !---------------------------------------------------------- !设定接触面力，采用<A href="http://www.everbuying.com/Wholesale-goodmans-gps185dab.html" target=_blank>gps185dab</A> <A href="http://www.everbuying.com/Wholesale-q-computer-page-69.html" target=_blank>jwd gps 2270</A>另一个程序的计算结果。 parameter (n=200)  !实际接触线的条元数目 dimension p(n) !data (p(i),i=1,41)/5.9700012E-04,1.6415119E-03,2.1514073E-03,2.5552623E-03,2.8793626E-03,3.1586811E-03,3.3939332E-03,3.6049113E-03,3.7837699E-03,3.9469935E-03,4.0850602E-03,4.2105112E-03,4.3150913E-03,4.4099651E-03,4.4862051E-03,4.5492928E-03,4.6069678E-03,4.6492573E-03,4.6739280E-03,4.6903510E-03,4.6991799E-03,4.6903323E-03,4.6739057E-03,4.6492890E-03,4.6069380E-03,4.5493543E-03,4.4861548E-03,4.4099726E-03,4.3150689E-03,4.2105401E-03,4.0850714E-03,3.9469711E-03,3.7838016E-03,3.6049038E-03,3.3939546E-03,3.1586601E-03,2.8793511E-03,2.5552886E-03,2.1514120E-03,1.6415853E-03,5.9686293E-04/ n0=301     !轮廓接触线的条元数目 pai=3.14159265359  !圆周率 <A href="http://www.everbuying.com/KTW08-Waterproof-GPS-Tracker-p-6621.html" target=_blank>ktw08 waterproof gps tracker</A> thickness_layer1=0.1 !第一层的厚度，单位：μm e_halfspace_1=0.21      !涂层1的弹性模量 v_halfspace_1=0.3  !涂层1的泊松比 e_halfspace_2=0.21  !涂层2的弹性模量 v_halfspace_2=0.3  !涂层2的泊松比 e_cylinder=0.21   !<A href="http://www.everbuying.com/5-0-inch-LCD-Windows-CE-6-0-Core-468MHz-GPS-Navigator-with-Bluetooth-and-USA-Canada-Maps-2GB-TF-Card-p-30412.html" target=_blank>win ce 6.0 gps free shipping china</A>基体的弹性模量    v_cylinder=0.3   !基体的泊松比 r_e1e2=e_halfspace_1/e_halfspace_2  !涂层1与涂层2弹性模量之比 eps=1.0e-5    !误差参数 !调整参数 !stepx=1.765E-04*301.0/n0 !<A href="http://www.everbuying.com/Wholesale-aigo-2-7-inch-mp3-mp3-player.html" target=_blank>gps aigo2</A> 选择适当的条元宽度 !stepx=thickness_layer1/(depth_k-(n0+1.0)/2.0) !i_1=int(thickness_layer1/stepx+(n0+1.0)/2.0+0.6) !print *,'参考点（gita=1,距接触中心的横坐标为层厚）i_1=',i_1,'n0=',n0 stepx=1.0e-3 r=7.8248776E-02   !<A href="http://www.everbuying.com/7-GPS-Navigator-TM730-p-23245.html" target=_blank>tm730 car gps</A> 选择适当大小的压头 call Resolution_Gauss(n,stepx,pai,e_halfspace_1,v_halfspace_1,r,p) !do i=1,n ! print *,'i=',i,'p=',p(i) !enddo</DIV>

数学模型0831-9

相关阅读:

用户菜单

我的栏目

标题搜索

日历

我的存档

数据统计

RSS订阅