|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
- fini
- /clear
- !Minimal Model_ib_pipe
- !unit: mm,s,N,1000Kg
- pi=3.14159
- emod_isol=0.3 ! E-Modul of insulation
- emod_rohr=210000 ! E-Modul of Grundrohr
- emod_fed=2100000 !E-modul of spring
- den_rohr=8e-9 ! density of pipe
- den_flu=9.3e-10 ! density of fluid
- den_Isol=5e-11 ! density of insulation
- nux_rohr=0.3 !poisson's ratio of pipe
- nux_isol=0.3 !poisson's ratio of insulation
- nux_fluid=0.3 !poisson's ratio of fluid
- alpha_rohr=11.5e-6 ! coefficient of thermal expansion for pipe
- alpha_isol=8e-6 ! coefficient of thermal expansion for insulation
- alpha_flu=1e-3 ! coefficient of thermal expansion for fluid
- Di=29.8 ! inner diameter of pipe
- Da=42.4 ! external diameter of pipe
- d_rohr=(Da/2-Di/2) ! thickness of pipe
- d_isol=5 ! thickness of pipe
- L_rohr=800 ! length of pipe
- Tem_inn=285 ! Temperature of internal pipe
- Tem_auss=20 ! Temperature von external pipe
- Druck=240 ! pressure
- /prep7
- PUNIT,0 ! define system of units
- et,1,pipe16,,,,,,,1 ! element of pipe
- r,1,da,d_rohr,,,,den_flu, ! define outer diameter,thickness,internal fluid density
- rmore,,den_isol,d_isol ! density and thickness of insulation
- KEYOPT,1,1,0 ! Temperatureffekt
- !KEYOPT,1,2,0 ! Stress intensity factors
- KEYOPT,1,4,0 ! Straight pipe
- KEYOPT,1,5,1 ! normal component of pressure
- KEYOPT,1,8,0 ! Internal and external pressures do not cause loads on end caps
- mp,ex,1,emod_rohr ! define material properties
- mp,nuxy,1,nux_rohr
- mp,dens,1,den_rohr
- mp,alpx,1,alpha_rohr
- mp,alpy,1,alpha_rohr
- mp,alpz,1,alpha_rohr
- k,1,
- k,2,800
- lstr,1,2 ! define a straight line
- lsel,s,,,1,1,1 ! select line
- latt,1,,1,,,,1
- lesize,all,50,
- secnum,1
- lmesh,all
- nkpt,1,1
- nkpt,2,2
- nummrg,node
-
- ET,2,COMBIN14,,2 ! Spring
- R,2,emod_fed,
- n,51,0,100,
- n,101,800,100,
- type,2
- real,2
- e,1,51
- e,2,101
- d,51,all, ! boundary condition
- d,101,all,
- esel,s,,,1,16
- sfbeam,all,1,pres,150 ! internal pressure of pipe
- allsel
- FINISH
- /SOLU
-
- ANTYPE,Modal ! Modal Analyse
- modopt,lanb,15,1 ! Block-Lanczos-method
- Mxpa,15
- rigid,all
- pstres,on ! prestress
- solve
- /post1
- set,list
复制代码 请问哪位大侠, 正常情况下, 管道有内压作用会影响管道的固有频率,
为什么这里内压再这么改, 都不起作用 |
|