ANSYS热分析教程及命令流算例(6)

! !*IF,T,EQ,136,THEN !SAVE,SA136,DB !*ENDIF ! !!!!!!!!!检验数据流的正确性，随意存几个时间步结果 solve *ENDDO

!!!!!!!!!!!!!!!!!!!!!!!!!!!!砼浇筑后一个月按天计算（第142天-第1072天） !修改各层的材料编号，均变为1号材料 CMSEL,S,LAYER(k+1,1) *DO,K,0,36,1 CMSEL,A,LAYER(k+1,1) *ENDDO MPCHG,1,ALL,

*DO,T,142,1072,30

!***********!solve*****

!!!!!!!!!!!!!! LOAD

!GRAVITY LOAD ACEL,0,0,9.8, !TEMP LOAD LDREAD,TEMP,,,T, ,'CAL-030301','rth',' ' !TEMP LOAD !WATER PRESURRE !*IF,T,GT,1095,AND,T,LE,1185,THEN !SFGRAD,PRES,0,Z,1580+2.45*(T-1095),-9800

!CMSEL,S,UPNODE !NSEL,R,LOC,Z,1580,1580+2.45*(T-1095), !SF,ALL,PRES,0 !ALLSEL,ALL !*ENDIF

ALLSEL,ALL TIME,T

AUTOTS,0 NSUBST,1, , ,1 CNVTOL,F, ,0.2,2,200,

KBC,0

OUTRES,ALL,LAST,

!!!!!!!!!!检验数据流的正确性，随意存几个时间步结果 !*IF,T,EQ,172,THEN !SAVE,SA172,DB !*ENDIF ! !*IF,T,EQ,382,THEN !SAVE,SA382,DB !*ENDIF ! !

!*IF,T,EQ,742,THEN !SAVE,SA742,DB !*ENDIF

!!!!!!!!!检验数据流的正确性，随意存几个时间步结果

solve *ENDDO

!!!!**********************************************************************

!!!!******************编制所用材料数据流********************************** !!!!********************************************************************** !!!!**********************************************************************

/PREP7

!热分析转换为结构分析 ETCHG,TTS

!删除计算温度场所用材料

*DO,I,1,3,1

MPDE,ALL,I TBDE,ALL,I *ENDDO

!坝体材料最终值 (材料编号1)

MPTEMP,,,,,,,,

MPTEMP,1,0 MPDATA,EX,1,,3.2e10 MPDATA,PRXY,1,,0.167 MPDATA,DENS,1,,2400 MPDATA,ALPX,1,,0.9E-5 UIMP,1,REFT,,,10.0

!纵向围堰材料(材料编号2) MPTEMP,,,,,,,, MPTEMP,1,0 MPDATA,EX,2,,3.2e10 MPDATA,PRXY,2,,0.167 MPDATA,DENS,2,,2400 MPDATA,ALPX,2,,0.9E-5 UIMP,2,REFT,,,10.0

!岩石材料，按高程确定(材料编号3) MPTEMP,,,,,,,, MPTEMP,1,0

MPDATA,EX,3,,4.0e10 MPDATA,PRXY,3,,0.2 MPDATA,ALPX,3,,0.9E-5 UIMP,3,REFT,,,17.3

!混凝土材料(材料编号21-57)

MPTEMP,,,,,,,, MPTEMP,1,0

*DO,i,21,57,1 MPTEMP,,,,,,,, MPTEMP,1,0 MPDATA,EX,I,,0.325e10 MPDATA,PRXY,I,,0.167 MPDATA,DENS,I,,2400 MPDATA,ALPX,I,,0.9E-5 UIMP,I,REFT,,,10.0 TB,CREE,I,,,0 TBMODIF,1,1,8.33E-12 TBMODIF,1,2,1 TBMODIF,1,3,0 TBMODIF,1,4,0 TBMODIF,1,5,0 TBMODIF,1,6,0 *ENDDO

!坝体材料的变化 (材料编号201-7505) *DO,J,0,36,1

*DO,I,201+J*200,305+J*200,1

E=3.2E10*((I-200-J*200)/(7+I-200-J*200)) MPTEMP,,,,,,,, MPTEMP,1,0 MPDATA,EX,I,,E MPDATA,PRXY,I,,0.167 MPDATA,DENS,I,,2400 MPDATA,ALPX,I,,0.9E-5 UIMP,I,REFT,,,10.0 !CREEP CHANGE

*IF,I,LE,203+J*200,THEN CREEP=8.33E-12

*ELSEIF,I,GT,203+J*200,AND,I,LE,230+J*200,THEN CREEP=0.78E-12

*ELSEIF,I,GT,230+J*200,AND,I,LE,290+J*200,THEN CREEP=0.21E-12

*ELSEIF,I,GT,290+J*200,AND,I,LE,305+J*200,THEN CREEP=0.028E-12 *ELSE

CREEP=0.0067E-12 *ENDIF

TB,CREE,I,,,0

TBMODIF,1,1,CREEP TBMODIF,1,2,1 TBMODIF,1,3,0 TBMODIF,1,4,0 TBMODIF,1,5,0 TBMODIF,1,6,0 *ENDDO *ENDDO !

SAVE,STRUCTURE,DB

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库ANSYS热分析教程及命令流算例(6)在线全文阅读。