案例-CSDN博客

/prep7
/filname,pipe
/title,pipe

finish$/clear$/prep7
!定义单元类型，属性，实常数
et,1,solid95
!定义参数
dia=139.7
thick=7.72
hole_dia=12.7
hole_length=25.4
hole_num=10
hole_ang=18
!建立模型
cyl4,,,dia/2-thick,,dia/2,,thick
wpoffs,,dia/2+10
wprota,,90
wpoffs,,thick/2
cyl4,,,2.5,,,,dia+20
wpcsys,-1
/view,1,1,1,1
local,11,1
vgen,10,2,,,,18
vsel,s,,,1
vsel,inve
cm,_v1cm,volu
allsel
vsbv,1,_v1cm
cmdele,_v1cm
/pnum,volu,1
vgen,5,12,,,,30,thick
vglue,all
nummrg,all
numcmp,all

allsel,all
esize,2
mshape,1,3d
mshkey,0
vmesh,all
/pnum,elem,1
/number,1
eplot

finish
/clear
/filname,ex5-4
/title,the thermal analysis of the welding

/prep7
length1=0.004
length2=0.008
length3=0.03
width1=0.02
width2=0.04
height=0.003
dia=0.001
ah=dia/2
chf=2*ah
chb=8*ah
bh=0.005
rf=2*chf/(chf+chb)
rb=2*chb/(chf+chb)
w=500
step=0.002
count=width1/step
v=0.004

et,1,solid70

!定义导热系数1
mptemp !初始化随温度变化的材料参数表格
!定义表格的温度数值
mptemp,1,20 $mptemp,2,100 $mptemp,3,200 $mptemp,4,300 $mptemp,5,400 $mptemp,6,500 $mptemp,7,600 $mptemp,8,700 $mptemp,9,800 $mptemp,10,900 $mptemp,11,1000 $mptemp,12,1100 $mptemp,13,1200 $mptemp,14,1500 $mptemp,15,1700 $mptemp,16,2500
!定义对应温度下的导热系数数值
mpdata,kxx,1,,50.7 $mpdata,kxx,1,,48.2 $mpdata,kxx,1,,46.5 $mpdata,kxx,1,,41.5 $mpdata,kxx,1,,38.1 $mpdata,kxx,1,,34.2 $mpdata,kxx,1,,30.0 $mpdata,kxx,1,,31.8 $mpdata,kxx,1,,26.0 $mpdata,kxx,1,,26.8 $mpdata,kxx,1,,26.8 $mpdata,kxx,1,,28.8 $mpdata,kxx,1,,29.2 $mpdata,kxx,1,,35.0 $mpdata,kxx,1,,14.0 $mpdata,kxx,1,,14.2

!定义比热容1
mptemp !初始化随温度变化的材料参数表格
!定义表格的温度数值
mptemp,1,20 $mptemp,2,100 $mptemp,3,200 $mptemp,4,300 $mptemp,5,400 $mptemp,6,500 $mptemp,7,600 $mptemp,8,700 $mptemp,9,800 $mptemp,10,900 $mptemp,11,1000 $mptemp,12,1500 $mptemp,13,1700 $mptemp,14,2500
!定义对应温度下的比热数值
mpdata,c,1,,470 $mpdata,c,1,,490 $mpdata,c,1,,515 $mpdata,c,1,,550 $mpdata,c,1,,590 $mpdata,c,1,,645 $mpdata,c,1,,725 $mpdata,c,1,,860 $mpdata,c,1,,835 $mpdata,c,1,,680 $mpdata,c,1,,650 $mpdata,c,1,,660 $mpdata,c,1,,780 $mpdata,c,1,,820

!定义密度
mptemp !初始化随温度变化的材料参数表格
mptemp,1,1 !定义表格的温度数值
mpdata,dens,1,,7850 !定义对应温度下的密度数值