一個(gè)壓力容器分析設(shè)計(jì)實(shí)例

2017-03-03  by:CAE仿真在線  來源:互聯(lián)網(wǎng)

FINISH

/CLEAR,START

/CONFIG,NPROC,1 !Your CPU Number

!****************Parameter Define*******************

*SET,corrupt,1.5

*SET,NDTA,9

*SET,DTA,NDTA-corrupt

!Flange size

*SET,FLANG_D,420

*SET,FLANG_N,273

*SET,FLANG_A,219

*SET,FLANG_B,FLANG_A-2*DTA

*SET,FLANG_H,133

*SET,FLANG_C,55.5

*SET,FLANG_H1,15

*SET,FLANG_DF,270

*SET,FLANG_F,1.6

*SET,FLANG_R,5

!Shell size

*SET,SHELL_L,539.6

*SET,SHELL_DO,219

*SET,SHELL_DI,SHELL_DO-2*DTA

!Intergrade

*SET,INTER_H,200.6

*SET,INTER_H1,30

*SET,INTER_H2,40

*SET,INTER_DO2,70

*SET,INTER_DI2,INTER_DO2-2*DTA

*SET,INTER_R,60

*SET,INTER_R1,60

!Pressure

*SET,pi,5.2

*SET,flang_area,pi*(SHELL_DI/2)**2/((FLANG_DF/2)**2-(FLANG_B/2)**2)

*SET,inter_area,pi*(SHELL_DI/2)**2/((INTER_DO2/2)**2-(INTER_DI2/2)**2)

!****************Model Create*******************

/prep7

et,1,185

mp,ex,1,1.95e5

mp,nuxy,1,0.3

/TITLE,Creating Modling

!Create Up Flange

!Create Key

k,1,FLANG_B/2,FLANG_H

k,2,FLANG_A/2,FLANG_H

k,3,FLANG_A/2,FLANG_H-FLANG_H1

k,4,FLANG_N/2,FLANG_C

k,5,FLANG_D/2,FLANG_C

k,6,FLANG_D/2,FLANG_F

k,7,FLANG_DF/2,FLANG_F

k,8,FLANG_DF/2,0

k,9,FLANG_B/2,0

!Create Line From Key

*do,ii,1,8

l,ii,ii+1

*enddo

l,1,9

lfillt,2,3,FLANG_R

lfillt,3,4,FLANG_R

!Create Area From Line

AL,ALL

CM,FLANG_LOW,AREA

!Create Shell

CSYS,4

wpoff,0,FLANG_H

RECTNG,SHELL_DI/2,SHELL_DO/2,0,SHELL_L,

ASEL,S,LOC,Y,0,SHELL_L

!Create Intergrade

wpoff,0,SHELL_L

*GET,KPMAX, KP,, NUM,MAX

k,KPMAX+1,SHELL_DI/2,,

k,KPMAX+2,SHELL_DI/2,INTER_H1

k,KPMAX+3,INTER_DI2/2,INTER_H-INTER_H2

k,KPMAX+4,INTER_DI2/2,INTER_H

k,KPMAX+5,INTER_DI2/2+DTA,INTER_H

k,KPMAX+6,INTER_DI2/2+DTA,INTER_H-INTER_H2

k,KPMAX+7,SHELL_DI/2+DTA,INTER_H1

k,KPMAX+8,SHELL_DI/2+DTA,,

*do,i,KPMAX+1,KPMAX+7

l,i,i+1

*enddo

l,KPMAX+1,KPMAX+8

LFILLT,17,16,INTER_R, ,

LFILLT,17,18,INTER_R1+DTA, ,

LFILLT,20,21,INTER_R1, ,

LFILLT,21,22,INTER_R+DTA, ,

ALLSEL,ALL

LSEL,S, , ,16

LSEL,A, , ,17

LSEL,A, , ,18

LSEL,A, , ,24

LSEL,A, , ,25

CM,INNER_LINE,LINE

CMSEL,A,INNER_LINE

ALLSEL,ALL

ALLSEL,BELOW,AREA

CM,TEMP,LINE

ALLSEL,ALL

LSEL,U, , ,TEMP

AL,ALL

CMDELE,TEMP

!Rote Area

ALLSEL,ALL

CM,ALL_AREA,AREA

wpstyl,defa

*GET,KPMAX, KP,, NUM,MAX

k,KPMAX+1,,,,

k,KPMAX+2,,FLANG_H+SHELL_L+INTER_H,,

VROTAT,ALL_AREA, , , , , ,KPMAX+1,KPMAX+2 ,180, ,

VGLUE,ALL

/TITLE,Meshing Modling

TYPE,1

MAT,1

VSEL,S,LOC,Y,0,FLANG_H+SHELL_L

ESIZE,10,0,

VSWEEP,ALL

VSEL,S,LOC,Y,FLANG_H+SHELL_L,FLANG_H+SHELL_L+INTER_H

ESIZE,1,0,

VSWEEP,ALL

ALLSEL,ALL

NUMMRG,ALL, , , ,LOW

NUMCMP,ALL, , , ,LOW

!****************Load And Solve**********

FINISH

/SOL

/TITLE,Define Load Pressure

/REPLOT

ASEL,S,LOC,Z,0

DA,ALL,SYMM

ALLSEL,ALL

ASEL,S,LOC,Y,0

SFA,ALL,1,PRES,-flang_area

ASEL,S,LOC,Y,FLANG_H+SHELL_L+INTER_H

SFA,ALL,1,PRES,-inter_area

ALLSEL,ALL

wpro,,-90,

wpstyle,,,,,,1,,,

ASEL,S,LOC,X,FLANG_D/2

DA,ALL,ALL,

ALLSEL,ALL

VSEL,S,LOC,Z,0,FLANG_H+SHELL_L

ASLV,R

ASEL,S,LOC,X,SHELL_DI/2

SFA,ALL,1,PRES,pi

ALLSEL,ALL

LSEL,S, , ,INNER_LINE

ASLL,R

wpstyl,defa

wpoff,,FLANG_H+SHELL_L+INTER_H1

ASEL,U,LOC,Z,0

LSLA,R

LSLA,S

LSEL,R,LOC,X,0

ASLL,S

ASEL,U,LOC,X,0

SFA,ALL,1,PRES,pi

ALLSEL,ALL

SOLVE

FINISH

/POST1

/TITLE,Giving The Stress Intensity Plot

PLNSOL,S,INT,0,1



開放分享:優(yōu)質(zhì)有限元技術(shù)文章,助你自學(xué)成才

相關(guān)標(biāo)簽搜索:一個(gè)壓力容器分析設(shè)計(jì)實(shí)例 Ansys有限元培訓(xùn) Ansys workbench培訓(xùn) ansys視頻教程 ansys workbench教程 ansys APDL經(jīng)典教程 ansys資料下載 ansys技術(shù)咨詢 ansys基礎(chǔ)知識(shí) ansys代做 Fluent、CFX流體分析 HFSS電磁分析 Abaqus培訓(xùn) 

編輯
在線報(bào)名:
  • 客服在線請(qǐng)直接聯(lián)系我們的客服,您也可以通過下面的方式進(jìn)行在線報(bào)名,我們會(huì)及時(shí)給您回復(fù)電話,謝謝!
驗(yàn)證碼

全國(guó)服務(wù)熱線

1358-032-9919

廣州公司:
廣州市環(huán)市中路306號(hào)金鷹大廈3800
電話:13580329919
          135-8032-9919
培訓(xùn)QQ咨詢:點(diǎn)擊咨詢 點(diǎn)擊咨詢
項(xiàng)目QQ咨詢:點(diǎn)擊咨詢
email:kf@1cae.com