|
楼主 |
发表于 2006-6-21 20:52
|
显示全部楼层
给( AaronSpark) 的程序
<P>/prep7<BR>multipro,'start',8<BR> *cset, 1, 3,v_state,'valve current state(open/close) :','close'<BR> *cset, 4, 6,rou,'fluid density:',1e-9<BR> *cset, 7, 9,v,'fluid flowing velocity:',3000<BR> *cset,10,12,km,'fluid bulk modulus:',3000<BR> *cset,13,15,diam,'pipe inner diameter(mm):',<BR> *cset,16,18,bh,'pipe wall thickness(mm):',<BR> *cset,19,21,em,'pipe wall Youngs modulus:',3000<BR> *cset,22,24,wp,'working pressure(Mpa):',0.6<BR> *cset,61,62,'Input these parameters',' to calculate fati loads.'<BR> *cset,63,64,'Note unit: N-mm-s !'<BR>multipro,'end'<BR>*if,_button,eq,1,then<BR> *go,:01<BR>*endif </P>
<P>:01<BR>finish<BR><BR><BR>请多指教,哈哈.</P> |
|