感应电磁热耦合问题

零下一度free

我先把问题陈述一下。我用117单元建立电磁场模型，得到焦耳热，想把焦耳热耦合到温度场中，不知该怎么耦合。
现在有一种耦合方法，不知对不对，我把思路说一下
       1. 117单元建立电磁场，计算得到焦耳热，solution done；
       2.  在原模型中，改变单元类型，改为90；
       3.  改变材料属性；
       4.  施加边界条件；
       5.  施加载荷，此时LDREAD，焦耳热；
       6.  进行温度场模拟。

不知是否可行？
哪位有这方面的资料，麻烦给小弟一份，不胜感激！  先谢过了~~

hchangduan

可行的，你的步骤

零下一度free

2# hchangduan

/PREP7  
!*  
et,1,0       !改变单元类型
et,2,0  
et,5,0  
et,7,0  
et,3,solid97
et,4,solid97
et,6,solid97
et,8,solid97
et,9,solid97
!*  
MPTEMP,,,,,,,,     !设置材料参数
MPTEMP,1,0  
MPDATA,KXX,3,,401   
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,C,3,,390
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,3,,8960
MPTEMP,,,,,,,,  
MPTEMP,1,150
MPTEMP,2,200
MPTEMP,3,400
MPTEMP,4,600
MPTEMP,5,800
MPTEMP,6,1000   
MPTEMP,7,1200   
MPTEMP,8,1400   
MPTEMP,9,1600   
MPDATA,KXX,4,,8
MPDATA,KXX,4,,8.5   
MPDATA,KXX,4,,10
MPDATA,KXX,4,,12
MPDATA,KXX,4,,14.5  
MPDATA,KXX,4,,16.5  
MPDATA,KXX,4,,18.5  
MPDATA,KXX,4,,20.5  
MPDATA,KXX,4,,22.5  
MPTEMP,,,,,,,,  
MPTEMP,1,100
MPTEMP,2,200
MPTEMP,3,300
MPTEMP,4,400
MPTEMP,5,500
MPTEMP,6,600
MPTEMP,7,700
MPTEMP,8,800
MPTEMP,9,900
MPTEMP,10,1000  
MPTEMP,11,1100  
MPTEMP,12,1200  
MPTEMP,13,1300  
MPTEMP,14,1400  
MPTEMP,15,1500  
MPDATA,C,4,,610
MPDATA,C,4,,640
MPDATA,C,4,,650
MPDATA,C,4,,700
MPDATA,C,4,,700
MPDATA,C,4,,700
MPDATA,C,4,,800
MPDATA,C,4,,940
MPDATA,C,4,,1000
MPDATA,C,4,,1080
MPDATA,C,4,,1160
MPDATA,C,4,,1300
MPDATA,C,4,,1600
MPDATA,C,4,,2000
MPDATA,C,4,,2340
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,4,,4430
MPTEMP,,,,,,,,  
MPTEMP,1,150
MPTEMP,2,200
MPTEMP,3,400
MPTEMP,4,600
MPTEMP,5,800
MPTEMP,6,1000   
MPTEMP,7,1200   
MPTEMP,8,1400   
MPTEMP,9,1600   
MPDATA,KXX,8,,8
MPDATA,KXX,8,,8.5   
MPDATA,KXX,8,,10
MPDATA,KXX,8,,12
MPDATA,KXX,8,,14.5  
MPDATA,KXX,8,,16.5  
MPDATA,KXX,8,,18.5  
MPDATA,KXX,8,,20.5  
MPDATA,KXX,8,,22.5  
MPTEMP,,,,,,,,  
MPTEMP,1,100
MPTEMP,2,200
MPTEMP,3,300
MPTEMP,4,400
MPTEMP,5,500
MPTEMP,6,600
MPTEMP,7,700
MPTEMP,8,800
MPTEMP,9,900
MPTEMP,10,1000  
MPTEMP,11,1100  
MPTEMP,12,1200  
MPTEMP,13,1300  
MPTEMP,14,1400  
MPTEMP,15,1500  
MPDATA,C,8,,610
MPDATA,C,8,,640
MPDATA,C,8,,650
MPDATA,C,8,,700
MPDATA,C,8,,700
MPDATA,C,8,,700
MPDATA,C,8,,800
MPDATA,C,8,,940
MPDATA,C,8,,1000
MPDATA,C,8,,1080
MPDATA,C,8,,1160
MPDATA,C,8,,1300
MPDATA,C,8,,1600
MPDATA,C,8,,2000
MPDATA,C,8,,2340
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,8,,4430
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,KXX,9,,401   
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,C,9,,390
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,9,,8960
MPTEMP,,,,,,,,  
MPTEMP,1,30
MPTEMP,2,60
MPTEMP,3,90
MPTEMP,4,100
MPTEMP,5,150
MPTEMP,6,200
MPTEMP,7,250
MPTEMP,8,300
MPTEMP,9,350
MPTEMP,10,400   
MPTEMP,11,450   
MPTEMP,12,500   
MPTEMP,13,600   
MPTEMP,14,700   
MPTEMP,15,1000  
MPTEMP,16,1500  
MPDATA,KXX,6,,0.017894  
MPDATA,KXX,6,,0.019439  
MPDATA,KXX,6,,0.020984  
MPDATA,KXX,6,,0.021498  
MPDATA,KXX,6,,0.024073  
MPDATA,KXX,6,,0.026647  
MPDATA,KXX,6,,0.029222  
MPDATA,KXX,6,,0.031796  
MPDATA,KXX,6,,0.034371  
MPDATA,KXX,6,,0.036945  
MPDATA,KXX,6,,0.03952   
MPDATA,KXX,6,,0.042094  
MPDATA,KXX,6,,0.047243  
MPDATA,KXX,6,,0.052392  
MPDATA,KXX,6,,0.067839  
MPDATA,KXX,6,0.093584   
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,C,6,,520
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,6,,535.6     !材料参数设置完成
FINISH  

/SOLU   
!*  
ANTYPE,4    !瞬态分析
!*  
TRNOPT,FULL
!*  
TUNIF,30,   
!*  
OUTRES,ALL,ALL,
!*  
TIME,300
AUTOTS,1
DELTIM,10,5,15,1
KBC,1   
!*  
TSRES,ERASE
ESEL,S,TYPE,,4         !选择单元属性为4的单元
nsle,s  
esln,s,1
ldread,hgen,,,,2,,rst  !加载耦合焦耳热
ALLSEL,ALL  
/STATUS,SOLU
SOLVE   

之后就出现，啥也没提示，就自动退出软件。不知是什么原因，程序是哪错了？？

wxwieandy2012

零下一度free 发表于 2011-6-20 09:38
2# hchangduan

/PREP7  

读入文件时，把rst改为emg