|  | 
 
| 
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
为什么这里内压再这么改, 都不起作用
 | 
 |