求：ANSYS电阻电焊，电阻缝焊的例子呀

结晶雨

以前找了一个程序，但是运行出错，资深人士麻烦看哈，小弟哭谢
finish
/clear                 !清除数据库
/UNITS,SI               ！使用国际单位
/PREP7                  ！进入前处理器
ET,1,plane55
*do,mnum,1,2            ！使用do循环，参数mnum在1和2之间
               
MPTEMP,1,27,127,327,527,727                ！定义材料1 性能的温度表
MPDATA,DENS,MNUM,1,7920,7890,7810,7730,7640   ！定义各温度下的密度      
MPDATA,KXX,MNUM,1,16.0,16.5,19.0,22.5,25.7    !定义各温度下的X上热传导系数
MPDATA,Kyy,MNUM,1,16.0,16.5,19.0,22.5,25.7    ！定义各温度下的Y上热传导系数
MPDATA,Kzz,MNUM,1,16.0,16.5,19.0,22.5,25.7    定义各温度下的Z上热传导系数
MPTEMP,,,,,,,,  
MPTEMP,1,0,200,400,800,1200                ！定义温度表
MPTEMP,6,1400,1454,1800,2000
MPDATA,ENTH,mnum,1,0,7.9729e+8,1.6400e+9,3.4621e+9,5.3897e+9
MPDATA,ENTH,mnum,6,6.3415e+9,8.2595e+9,9.8798e+9,1.0816e+10 !热焓

MPTEMP,,,,,,,,  
MPTEMP,1,200,700,800,1000,1200   
MPTEMP,6,1400,1454,1800,2000      
MPDATA,HF,3,1,30,41.86,46.56,60.9,90.72      
MPDATA,HF,3,6,129.09,141.06,235.86,306.44   !等效对流系数
*enddo
rectng,0/1000,3/1000,0/1000,8/1000          ！建立一个矩形
rectng,3/1000,25/1000,0/1000,8/1000         ！建立另一个矩形            
aglue,all                                   ！把两个面粘结起来
NUMCMP,ALL                                  ！压缩所有的号码

!常数定义
U=20                                  ！电压
I=30                                  ！电流
eff=0.4                               ！有效效率
MAXHOT=18*eff*U*I                     ！最大的热流量  
Ra=2.1/1000   !电弧半径
NStep=15  !运动步数
SizeE=0.1/1000  !网格大小
lesize,3,SizeE         ！定义1、3线的划分单元的尺寸
lesize,1,SizeE
lesize,4,,,25,2        ！定义4、2、5 的划分个数和相邻单元的比例
lesize,2,,,25,1/2
lesize,5,,,25,1/2
lesize,6,,,25,3
lesize,7,,,25,3
mat,1                  ！ 给相关的元素分配材料属性
amesh,all              ！所有面划分网格
save                   ！保存
eplot                  ！
finish                 ！从当前的处理器中退出
/solu                  ！进入求解处理器
ANTYPE,TRANS           ！进入瞬态分析
tunif,25               ！定义统一温度
TOFFST,273        !定义绝对温度与所选温度的偏差
allsel
DSYM, symm,y,          !定义对称
!表面传热状态
allsel
LSEL,ALL             ！选择所有的线
lsel,u,,,2           ！不选择编号为2的线
lsel,u,,,4           ！不选择编号为4的线
NSLL,s,1             ！选择关连与线的节点
SF,ALL,CONV,-3,25    ！在所选的节点上施加对流系数

*DO,STEP,1,15   !热源来临，加热升温过程
*do,XLoc,0,Ra,SizeE                  ！定义do循环
Ni=(1-step/NStep)**2+(XLoc/Ra)**2    ！？？？？？？？？？
NHeat=MAXHOT*exp(-3*Ni)              ！定义所加的热量？？？？
allsel
nsel,s,loc,y,8/1000                  ！选择Y坐标为8的节点
nsel,r,loc,x,XLoc                    ！再选择X坐标为XLOC的节点
f,all,heat,NHeat                     ！在所选的节点上施加热载荷
*enddo     !逐点计算并施加热流
allsel
t=1000*Ra*STEP/NStep  !初始时间步长？？？？
NSUBST,8,16,5            ！定义载荷步的子步数量
TIME,t    !时间步长
KBC,0    !斜坡
AUTOTS,On   !自动时间步长
timint,on  !Turns on transient effects.
OUTRES,ALL  !All solution items written to the database
OUTRP,ALL,LAST  !-- Controls the solution printout
TINTP,,,,1  !Defines transient integration parameters
TRNOPT,FULL  !Specifies transient analysis options
EQSLV,ICCG,,2  ！Specifies the type of equation solve save saver
LNSRCH,ON               ！打开线搜索
solve
save
*ENDDO
    !2.1s结束
   
*DO,STEP,16,30   !热源来临，加热升温过程
*do,XLoc,0,Ra,SizeE
Ni=(1-step/NStep)**2+(XLoc/Ra)**2
NHeat=MAXHOT*exp(-3*Ni)
allsel
nsel,s,loc,y,8/1000
nsel,r,loc,x,XLoc
f,all,heat,NHeat
*enddo     !逐点计算并施加热流
allsel
t=1000*Ra*STEP/NStep     !初始时间步长
NSUBST,8,16,5
TIME,t    !时间步长
KBC,0     !斜坡
AUTOTS,On    !自动时间步长
timint,on    !Turns on transient effects.
OUTRES,ALL    !All solution items written to the database
OUTRP,ALL,LAST    !-- Controls the solution printout
TINTP,,,,1    !Defines transient integration parameters
TRNOPT,FULL    !Specifies transient analysis options
EQSLV,ICCG,,2    Specifies the type of equation solve save saver
LNSRCH,ON
solve
save
*ENDDO
     !4.2S结束
allsel
NSEL,ALL
NSEL,s,LOC,y,8/1000  !选择Y坐标为8/1000的节点
fdele,all,heat,                 ！删除所施加的热量
allsel

TIME,4.3   !step31
solve
save
TIME,4.4   !step32
solve
save
TIME,4.5   !step33
solve
save     
   
TIME,4.75   !step34
solve
save   
TIME,5    !step35
solve
save
TIME,5.5   !step36
solve
save  
TIME,6    !step37
solve
save
TIME,7    !step38
solve
save  
TIME,8   !step39
solve
save  
TIME,9    !step40
solve
save      
TIME,10    !step41
solve
save  
TIME,15    !step42
solve
save
TIME,20    !step43
solve
save
TIME,25    !step44
solve
save   
TIME,40    !step45
solve
save
TIME,60    !step46
solve
save
TIME,100   !step47
solve
save
TIME,200   !step48
solve
save

TIME,300   !step49
solve
save
TIME,500   !step50
solve
save
TIME,800   !step51
solve
save
TIME,1500   !step52
solve
save
TIME,3000   !step53
solve
save

结晶雨

没人解答

抹不去的依赖

我是在看不懂啊

wangyan43

收藏下，有空学习。焊接例子太少了。

zhulang88

顶起，同样的问题，还请高人指点。

zhulang88

找到原因了，是因为后面的注释的格式不对！