APDL命令求助
FINISH/CLEAR
*DIM,A,,1,1,1
*DIM,V,,1,4
*VREAD,A(1),NG,TXT,,JIK,1,1,1
(F5.0)
*VREAD,V(1,1),V,TXT,,IJK,1,4,1
(4F12.6)
NGA=A(1)
VA=V(1,1)
L=V(1,2)
H=V(1,3)*V(1,4)
/PREP7
*DIM,B,,NGA,2 !定义二维数组NGA*2
*VREAD,B(1,1),FORANSYS,TXT,,JIK,2,NGA !从FORANSYS.TXT读入数据给二维数组
(2F14.6)
*DO,J,1,NGA
K,J,B(J,1),B(J,2),0
*ENDDO !创建NGA个关键点
*DO,J,1,NGA-1
LSTR,J,J+1 !依据编号依次把创建关键点之间的连线
*ENDDO
LSTR,NGA,1
AL,ALL
BLC5,0,0,L,H
ASBA,2,1
ET,1,PLANE67
MP,DENS,1,10409 !定义材料属性定值密度
MP,KXX,1,418.68
MP,KXY,1,418.68 !热传导率
MP,C,1,232 !比热容
MPTEMP,,0,200,400,600,800,1000 !定义电阻随温度线性变化
MPDATA,RSVX,1,,1.586E-8,2.79136E-8,3.99672E-8,5.20208E-8,6.40744E-8,7.6128E-8
MPTEMP,,0,200,400,600,800,1000
MPDATA,RSVY,1,,1.586E-8,2.79136E-8,3.99672E-8,5.20208E-8,6.40744E-8,7.6128E-8
SMRT,3
AMESH,ALL !划分网格
DL,NGA+4,,VOLT,VA !边界条件
DL,NGA+2,,VOLT,0
/SOLU
ANTYPE,TRANS !瞬态分析
TIMINF,ON !打开时间积分效应
TUNIF,293 !初始温度293K
AUTOTS,ON !打开自动时间步长
SOLVE
/POST1 !后处理数据的提取
*DIM,T,,NGA,1
*DO,J,1,NGA !关键点所对应的节点编号
*GET,T(J),NODE,J,TEMP !和关键点编号相同故为1-NGA
*ENDDO
*CFOPEN,WENDU,TXT
*VWRITE,T(1)
(F10.6)
*CFCLOS
!接下来要进行热应力分析
高手帮我看一下上面的命令有什么错误吗?我的目的是得到导体在电压加载下的发热,然后由温度场计算应力,该怎么做呢? 为了节省时间,先说说你到底遇到了什么问题? 2# woomii
回复woomii我现在是不知道怎么做,自己模仿的写了一个命令流,不知对错。能帮我看一下吗?先谢过了 能把我的问题解决流程给我说一遍吗?自己这两天一直在看ANSYS的书,还是没弄清楚该怎么下手 你可以运行一下你的命令流,有什么问题再说。
因为没有前面那几个读入的txt文件,我没法运行这个命令流。不过看后面一部分,我觉得没有必要把算出来的温度写成txt文件。如果是同一个模型,用etchg换单元,再用ldread命令加载就可以了。
页:
[1]