/FILNAME,EX5-4,1                             !趨
/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,0                         !¶ֵ
MPDATA,DENS,1,,7850                !Ӧ¶µֵܶ
!ϵ
MPTEMP,,,,,,,,                      !ʼ¶ȱ仯Ĳϲ
MPTEMP,1,20                         !¶ֵ
MPTEMP,2,250
MPTEMP,3,400
MPTEMP,4,500
MPTEMP,5,750
MPTEMP,6,800
MPTEMP,7,1000   
MPTEMP,8,1200   
MPTEMP,9,1500   
MPTEMP,10,1700  
MPTEMP,11,2500  
MPDATA,HF,1,,100                    !Ӧ¶µĶϵֵ
MPDATA,HF,1,,350
MPDATA,HF,1,,480
MPDATA,HF,1,,520
MPDATA,HF,1,,1000   
MPDATA,HF,1,,1050   
MPDATA,HF,1,,1500   
MPDATA,HF,1,,2000   
MPDATA,HF,1,,3000   
MPDATA,HF,1,,3100   
MPDATA,HF,1,,3500  
!Ϻ2 
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,1000  
MPTEMP,11,1200  
MPTEMP,12,1500  
MPTEMP,13,2500  
MPDATA,KXX,2,,11.9                !Ӧ¶µĵϵֵ
MPDATA,KXX,2,,12.5 
MPDATA,KXX,2,,14.3 
MPDATA,KXX,2,,16.2 
MPDATA,KXX,2,,17.3 
MPDATA,KXX,2,,34.2 
MPDATA,KXX,2,,32.0 
MPDATA,KXX,2,,31.8 
MPDATA,KXX,2,,26.0 
MPDATA,KXX,2,,26.8 
MPDATA,KXX,2,,28.8 
MPDATA,KXX,2,,35.0 
MPDATA,KXX,2,,14.2 
!
MPTEMP,,,,,,,,                     !ʼ¶ȱ仯Ĳϲ
MPTEMP,1,20                        !¶ֵ
MPTEMP,2,100
MPTEMP,3,200
MPTEMP,4,500
MPTEMP,5,700
MPTEMP,6,1000   
MPTEMP,7,1100   
MPTEMP,8,1500   
MPTEMP,9,1700   
MPTEMP,10,2500  
MPDATA,C,2,,460                    !Ӧ¶µıֵ
MPDATA,C,2,,490 
MPDATA,C,2,,530 
MPDATA,C,2,,570 
MPDATA,C,2,,610 
MPDATA,C,2,,645 
MPDATA,C,2,,855 
MPDATA,C,2,,670 
MPDATA,C,2,,780 
MPDATA,C,2,,820 
! 
MPTEMP,,,,,,,,                     !ʼ¶ȱ仯Ĳϲ
MPTEMP,1,0                         !¶ֵ
MPDATA,DENS,2,,8350                !Ӧ¶ȵֵܶ
!
MPTEMP,,,,,,,,                     !ʼ¶ȱ仯Ĳϲ
MPTEMP,1,20                        !¶ֵ
MPTEMP,2,100
MPTEMP,3,200
MPTEMP,4,400
MPTEMP,5,500
MPTEMP,6,1000   
MPTEMP,7,1100   
MPTEMP,8,1500   
MPTEMP,9,1700   
MPTEMP,10,2500  
MPDATA,HF,2,,120                   !Ӧ¶µĶϵֵ
MPDATA,HF,2,,210
MPDATA,HF,2,,300
MPDATA,HF,2,,460
MPDATA,HF,2,,540
MPDATA,HF,2,,1200   
MPDATA,HF,2,,1200   
MPDATA,HF,2,,2800   
MPDATA,HF,2,,3000   
MPDATA,HF,2,,3100   
!*  
!******************************
!ģ
!****************************** 
WPSTYLE,,,,,,,,0                     !趨ƽ
BLOCK,0,LENGTH1,0,WIDTH1,0,HEIGHT,   !ɳ庸1
BLOCK,LENGTH1,LENGTH2,0,WIDTH2,0,HEIGHT, !ɳ庸2
BLOCK,LENGTH2,LENGTH3,0,WIDTH2,0,HEIGHT, !ɳ庸3
VGLUE,all                           !ճе
!******************************
!Ԫģ
!****************************** 
MAT,1                               !ϱ1
ESIZE,HEIGHT/8,0      		    !趨Ԫߴ
VSWEEP,1                            !ԱΪ1sweep񻮷 
MAT,2                               !ϱ2
ESIZE,HEIGHT/2,0                    !趨Ԫߴ
VSWEEP,4                            !ԱΪ4sweep񻮷 
MSHAPE,1,3D                         !趨Ԫ״Ϊ嵥Ԫ
MSHKEY,0                            !趨Ϊ񻮷ַʽ
VMESH,5                             !ԱΪ5񻮷 
FINISH                              !ǰģ
!******************************
!ѭء
!****************************** 
!ʩغ
*DO,I,0,COUNT                         !ѭ⿪ʼ
DISY=I*STEP                           !disy
T=(DISY+STEP)/V                       !t
/SOLU                                 !ģ
ANTYPE,4                              !趨 
TRNOPT,FULL                           !趨Ϊȫ˲̬
TUNIF,293,                            !ʩӾȳʼ¶
OUTRES,BASIC,LAST                     !һӲĻ
TIME,T                                !趨ʱ
NROPT,FULL,,ON                        !趨Newton-Raphsonѡ
AUTOTS,1                              !Զʱ䲽 
NSUBST,5,,,1                          !趨Ӳ5         
KBC,1                                 !Ծطʽ
LNSRCH,1     			      !
TSRES,ERASE                           !ʱ䲽ѡ
TIMINT,1,THERM                        !趨ʱ
!*******************************
!ӹ̿ʼ
!*******************************
NSEL,S,EXT       		      !ѡⲿڵ
NSEL,U,LOC,X,0   		      !ѡx=0Ľڵ 
SF,ALL,CONV,200,293                   !ڽڵʩӶϵ
ALLSEL,ALL                            !ѡȫͼԪ
!*******************************
!*******************************
!˫Դļ
!*******************************
!*******************************
!ǰڵѡȡ
!*******************************
LOCAL,11,2,0,DISY,0, , , ,3,8,        !ɾֲϵ11
NSEL,S,LOC,X,,DIA                     !ѡx=0~diaĽڵ
NSEL,R,LOC,Y,,90                      !ڵǰѡѡy=0~90Ľڵ
NSEL,R,LOC,Z,,90                      !ڵǰѡѡz=090Ľڵ
CM,NODEF,NODE                         !ɽڵnodef
!*******************************
!ǰ
!*******************************
LOCAL,12,0,0,DISY,0, , , ,1,1,        !ɾֲϵ12
!ɾ²
*DEL,TABLENAME                     
*DEL,TABLEMTID   
*DEL,TABLE_ROW1
*DEL,TABLE_ROW2
*DEL,TABLE_ROW3
*DEL,TABLE_ROW4
*DEL,TABLE_ROW5
*DEL,TABLECSYS
*DEL,'TEMPF' 
!   
*SET,TABLENAME,'TEMPF'  
*DIM,TABLE_ROW1,,1 
*DIM,TABLE_ROW2,,1 
*DIM,TABLE_ROW3,,1 
*DIM,TABLE_ROW4,,1 
*DIM,TABLE_ROW5,,1 
!иֵ
*SET,TABLE_ROW1(1),rf         
*SET,TABLE_ROW2(1),w        
*SET,TABLE_ROW3(1),chf       
*SET,TABLE_ROW4(1),ah        
*SET,TABLE_ROW5(1),bh        
*SET,TABLECSYS,12  
!ݸֵ          
*DIM,%TABLENAME%,TABLE,7,38,1,,,,%TABLECSYS%         !һغɱ
*SET,%TABLENAME%(0,0,1), 0.0,-999                    !ֵ
*SET,%TABLENAME%(2,0,1), 0.0 
*SET,%TABLENAME%(3,0,1), %TABLE_ROW1(1)%
*SET,%TABLENAME%(4,0,1), %TABLE_ROW2(1)%
*SET,%TABLENAME%(5,0,1), %TABLE_ROW3(1)%
*SET,%TABLENAME%(6,0,1), %TABLE_ROW4(1)%
*SET,%TABLENAME%(7,0,1), %TABLE_ROW5(1)%
*SET,%TABLENAME%(0,1,1), 1.0, -1, 16, 3, 0, 0, 0 
*SET,%TABLENAME%(0,2,1), 0.0, -2, 0, 6, 0, 0, -1 
*SET,%TABLENAME%(0,3,1), 0.0, -3, 0, 1, -2, 3, -1
*SET,%TABLENAME%(0,4,1), 0.0, -1, 0, 1, -3, 3, 17
*SET,%TABLENAME%(0,5,1), 0.0, -2, 0, 1, -1, 3, 18
*SET,%TABLENAME%(0,6,1), 0.0, -1, 0, 0, 0, 0, 0  
*SET,%TABLENAME%(0,7,1), 0.0, -3, 0, 1, 0, 0, -1 
*SET,%TABLENAME%(0,8,1), 0.0, -4, 0, 1, -1, 2, -3
*SET,%TABLENAME%(0,9,1), 0.0, -1, 0, 2, 0, 0, 2  
*SET,%TABLENAME%(0,10,1), 0.0, -3, 0, 1, 2, 17, -1   
*SET,%TABLENAME%(0,11,1), 0.0, -1, 0, 2, 0, 0, 19
*SET,%TABLENAME%(0,12,1), 0.0, -5, 0, 1, 19, 17, -1  
*SET,%TABLENAME%(0,13,1), 0.0, -1, 0, 1, -3, 4, -5   
*SET,%TABLENAME%(0,14,1), 0.0, -3, 0, 2, 0, 0, 3 
*SET,%TABLENAME%(0,15,1), 0.0, -5, 0, 1, 3, 17, -3   
*SET,%TABLENAME%(0,16,1), 0.0, -3, 0, 2, 0, 0, 20
*SET,%TABLENAME%(0,17,1), 0.0, -6, 0, 1, 20, 17, -3  
*SET,%TABLENAME%(0,18,1), 0.0, -3, 0, 1, -5, 4, -6   
*SET,%TABLENAME%(0,19,1), 0.0, -5, 0, 1, -1, 1, -3   
*SET,%TABLENAME%(0,20,1), 0.0, -1, 0, 2, 0, 0, 4 
*SET,%TABLENAME%(0,21,1), 0.0, -3, 0, 1, 4, 17, -1   
*SET,%TABLENAME%(0,22,1), 0.0, -1, 0, 2, 0, 0, 21
*SET,%TABLENAME%(0,23,1), 0.0, -6, 0, 1, 21, 17, -1  
*SET,%TABLENAME%(0,24,1), 0.0, -1, 0, 1, -3, 4, -6   
*SET,%TABLENAME%(0,25,1), 0.0, -3, 0, 1, -5, 1, -1   
*SET,%TABLENAME%(0,26,1), 0.0, -1, 0, 3, 0, 0, -3
*SET,%TABLENAME%(0,27,1), 0.0, -5, 0, 1, -1, 3, -3   
*SET,%TABLENAME%(0,28,1), 0.0, -1, 0, 1, -4, 3, -5   
*SET,%TABLENAME%(0,29,1), 0.0, -1, 7, 1, -1, 0, 0
*SET,%TABLENAME%(0,30,1), 0.0, -3, 0, 1, -2, 3, -1   
*SET,%TABLENAME%(0,31,1), 0.0, -1, 0, 1, 20, 3, 21   
*SET,%TABLENAME%(0,32,1), 0.0, -2, 0, 1, -1, 3, 19   
*SET,%TABLENAME%(0,33,1), 0.0, -1, 0, 3.14, 0, 0, -2  
*SET,%TABLENAME%(0,34,1), 0.0, -4, 0, 1, -2, 3, -1   
*SET,%TABLENAME%(0,35,1), 0.0, -1, 16, 3.14, 0, 0, 0  
*SET,%TABLENAME%(0,36,1), 0.0, -2, 0, 1, -4, 3, -1   
*SET,%TABLENAME%(0,37,1), 0.0, -1, 0, 1, -3, 4, -2   
*SET,%TABLENAME%(0,38,1), 0.0, 99, 0, 1, -1, 0, 0
!ʩӱԴغ
BF,NODEF,HGEN,%TEMPF%               !ڽڵʩغ
CMDELE,NODEF                        !ɾڵnodef
ALLSEL,ALL                          !ѡȫͼԪ
!*******************************
!ڵѡȡ
!*******************************
LOCAL,13,2,0,DISY,0, , , ,3,8,      !ɾֲϵ13
NSEL,S,LOC,X,,DIA                   !ѡx=0~diaĽڵ
NSEL,R,LOC,Y,-90,0                  !ڵǰѡѡy=-90~0Ľڵ
NSEL,R,LOC,Z,,90                    !ڵǰѡѡz=090Ľڵ
CM,NODEB,NODE                       !ɽڵnodeb
!*******************************
!
!*******************************
LOCAL,14,0,0,DISY,0, , , ,1,1,      !ɾֲϵ14
!ɾ²
*DEL,TABLENAME   
*DEL,TABLEMTID   
*DEL,TABLE_ROW1
*DEL,TABLE_ROW2
*DEL,TABLE_ROW3
*DEL,TABLE_ROW4
*DEL,TABLE_ROW5
*DEL,TABLECSYS 
*DEL,'TEMPB' 
!
*SET,TABLENAME,'TEMPB' 
*DIM,TABLE_ROW1,,1 
*DIM,TABLE_ROW2,,1 
*DIM,TABLE_ROW3,,1 
*DIM,TABLE_ROW4,,1 
*DIM,TABLE_ROW5,,1 
!иֵ
*SET,TABLE_ROW1(1),rb              
*SET,TABLE_ROW2(1),w              
*SET,TABLE_ROW3(1),chb             
*SET,TABLE_ROW4(1),ah              
*SET,TABLE_ROW5(1),bh             
*SET,TABLECSYS,14                 
!ݸֵ
*DIM,%TABLENAME%,TABLE,7,38,1,,,,%TABLECSYS%        !һغ
*SET,%TABLENAME%(0,0,1), 0.0,-999                   !ֵ
*SET,%TABLENAME%(2,0,1), 0.0 
*SET,%TABLENAME%(3,0,1), %TABLE_ROW1(1)%
*SET,%TABLENAME%(4,0,1), %TABLE_ROW2(1)%
*SET,%TABLENAME%(5,0,1), %TABLE_ROW3(1)%
*SET,%TABLENAME%(6,0,1), %TABLE_ROW4(1)%
*SET,%TABLENAME%(7,0,1), %TABLE_ROW5(1)%
*SET,%TABLENAME%(0,1,1), 1.0, -1, 16, 3, 0, 0, 0 
*SET,%TABLENAME%(0,2,1), 0.0, -2, 0, 6, 0, 0, -1 
*SET,%TABLENAME%(0,3,1), 0.0, -3, 0, 1, -2, 3, -1
*SET,%TABLENAME%(0,4,1), 0.0, -1, 0, 1, -3, 3, 17
*SET,%TABLENAME%(0,5,1), 0.0, -2, 0, 1, -1, 3, 18
*SET,%TABLENAME%(0,6,1), 0.0, -1, 0, 0, 0, 0, 0  
*SET,%TABLENAME%(0,7,1), 0.0, -3, 0, 1, 0, 0, -1 
*SET,%TABLENAME%(0,8,1), 0.0, -4, 0, 1, -1, 2, -3
*SET,%TABLENAME%(0,9,1), 0.0, -1, 0, 2, 0, 0, 2  
*SET,%TABLENAME%(0,10,1), 0.0, -3, 0, 1, 2, 17, -1   
*SET,%TABLENAME%(0,11,1), 0.0, -1, 0, 2, 0, 0, 19
*SET,%TABLENAME%(0,12,1), 0.0, -5, 0, 1, 19, 17, -1  
*SET,%TABLENAME%(0,13,1), 0.0, -1, 0, 1, -3, 4, -5   
*SET,%TABLENAME%(0,14,1), 0.0, -3, 0, 2, 0, 0, 3 
*SET,%TABLENAME%(0,15,1), 0.0, -5, 0, 1, 3, 17, -3   
*SET,%TABLENAME%(0,16,1), 0.0, -3, 0, 2, 0, 0, 20
*SET,%TABLENAME%(0,17,1), 0.0, -6, 0, 1, 20, 17, -3  
*SET,%TABLENAME%(0,18,1), 0.0, -3, 0, 1, -5, 4, -6   
*SET,%TABLENAME%(0,19,1), 0.0, -5, 0, 1, -1, 1, -3   
*SET,%TABLENAME%(0,20,1), 0.0, -1, 0, 2, 0, 0, 4 
*SET,%TABLENAME%(0,21,1), 0.0, -3, 0, 1, 4, 17, -1   
*SET,%TABLENAME%(0,22,1), 0.0, -1, 0, 2, 0, 0, 21
*SET,%TABLENAME%(0,23,1), 0.0, -6, 0, 1, 21, 17, -1  
*SET,%TABLENAME%(0,24,1), 0.0, -1, 0, 1, -3, 4, -6   
*SET,%TABLENAME%(0,25,1), 0.0, -3, 0, 1, -5, 1, -1   
*SET,%TABLENAME%(0,26,1), 0.0, -1, 0, 3, 0, 0, -3
*SET,%TABLENAME%(0,27,1), 0.0, -5, 0, 1, -1, 3, -3   
*SET,%TABLENAME%(0,28,1), 0.0, -1, 0, 1, -4, 3, -5   
*SET,%TABLENAME%(0,29,1), 0.0, -1, 7, 1, -1, 0, 0
*SET,%TABLENAME%(0,30,1), 0.0, -3, 0, 1, -2, 3, -1   
*SET,%TABLENAME%(0,31,1), 0.0, -1, 0, 1, 20, 3, 21   
*SET,%TABLENAME%(0,32,1), 0.0, -2, 0, 1, -1, 3, 19   
*SET,%TABLENAME%(0,33,1), 0.0, -1, 0, 3.14, 0, 0, -2  
*SET,%TABLENAME%(0,34,1), 0.0, -4, 0, 1, -2, 3, -1   
*SET,%TABLENAME%(0,35,1), 0.0, -1, 16, 3.14, 0, 0, 0  
*SET,%TABLENAME%(0,36,1), 0.0, -2, 0, 1, -4, 3, -1   
*SET,%TABLENAME%(0,37,1), 0.0, -1, 0, 1, -3, 4, -2   
*SET,%TABLENAME%(0,38,1), 0.0, 99, 0, 1, -1, 0, 0
!
BF,NODEB,HGEN,%TEMPB%       	        !ڽڵnodebʩغ
CMDELE,NODEB                		!ɾڵnodeb
ALLSEL,ALL                  	        !ѡȫͼԪ
SOLVE                       	        !ʼ
BFDELE,ALL,HGEN             		!ɾнڵϵغ
*ENDDO                      	        !ѭ
SAVE                                    !ݿ
!***************************
!ȴ׶οʼ
!***************************
TIME,20                                  !趨ʱ
NSUBST,5,,,1                             !趨Ӳ5
SOLVE                                    !ʼ
/post26                                  !ʱ̺
nsol,2,1775,temp,,                       !ڵ1775¶ݶΪ2
nsol,3,1278,temp,,                       !ڵ1278¶ݶΪ3
nsol,4,1279,temp,,                       !ڵ1279¶ݶΪ4
nsol,5,1374,temp,,                       !ڵ1374¶ݶΪ5
nsol,6,1375,temp,,                       !ڵ1375¶ݶΪ6
nsol,7,2204,temp,,                       !ڵ2204¶ݶΪ7
plvar,2,3,4,5,6,7                        !ͼʾ2~7ı仯
/post1                                   !ͨú
set,,,1,,5.5,,,                          !ʱ5.5ʱĽ
plnsol,temp,                             !ͼʾ¶ȷֲ
finish                                   !ͨúģ
/exit,all                                !˳ȫ
