计算了一会就不能计算了
不知到什么问题
快要毕业了 要交论文
求各位高手指交
/SOLU
ANTYPE,4
AUTOTS,ON
NSUBST,3,10,1,0
KBC,0
TIMINT,ON
TINTP,0.005, , ,1,0.5,0.2
OUTRES,ALL,LAST
NROPT,FULL,,ON
A=3.1416
CMSEL,S,E1
EKILL,ALL
ALLSEL,ALL
CMSEL,S,N8
SF,N8,HFLUX,0.03 ! 加热流密度
ALLSEL,ALL
CMSEL,S,E1
NSLE,S,ALL
D,ALL,ALL
ALLSEL,ALL
A=3.1416
*DO,TM1,1,18250,10
TIME,TM1
TEM0=-3.75+11*SIN(2*A*TM1/365-3*A/5)
CMSEL,S,N9
D,N9,TEMP,TEM0
ALLSEL,ALL
SOLVE
*ENDDO
SAVE
ALLSEL,ALL
CMSEL,S,E1
NSEL,ALL
DDELE,ALL,ALL
ALLSEL,ALL
CMSEL,S,N9
DDELE,N9,TEMP
ALLSEL,ALL
CMSEL,S,E1
EALIVE,E1
ALLSEL,ALL
*DO,TM2,18251,21900,10
TIME,TM2
TEM1=-0.41+0.02*TM2/365+12.3*SIN(2*A*TM2/365-3*A/5)
TEM2=1.33+0.02*TM2/365+12.3*SIN(2*A*TM2/365-3*A/5)
TEM3=-0.31+0.02*TM2/365+12.3*SIN(2*A*TM2/365-3*A/5)
TEM4=-2.31+0.02*TM2/365+12.3*SIN(2*A*TM2/365-3*A/5)
TEM5=-0.83+0.02*TM2/365+12.3*SIN(2*A*TM2/365-3*A/5)
ALLSEL,ALL
CMSEL,S,N1
D,N1,TEMP,TEM1
ALLSEL,ALL
CMSEL,S,N2
D,N2,TEMP,TEM2
ALLSEL,ALL
CMSEL,S,N3
D,N3,TEMP,TEM3
ALLSEL,ALL
CMSEL,S,N4
D,N4,TEMP,TEM4
ALLSEL,ALL
CMSEL,S,N5
D,N5,TEMP,TEM5
ALLSEL,ALL
SOLVE
*ENDDO
SAVE
FINISH
!应力计算%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/SOLU
/COM,STRUCTURAL
/TITLE,MODEL1_STRESS
/CONFIG,NRES,4000
/SOLU
ALLSEL,ALL
LSCLEAR,SOLID
FINISH
/PREP7
ETCHG,TTS
MPTEMP,1,-15,-10,-5,-1,-0.5,-0.2
MPTEMP,7,0,15
MPDATA,EX,1,1,2E8,2E8,2E8,2E8,2E8,2E8
MPDATA,EX,1,7,2E8,2E8
MPDATA,EX,2,1,22E7,12E7,7E7,45E6,20E6,6E6
MPDATA,EX,2,7,2.5E6,2.5E6
MPDATA,EX,3,1,19E8,11.5E8,5.6E8,1.65E8,10E7,3E7
MPDATA,EX,3,7,3E6,3E6
MPDATA,EX,4,1,36E8,22.5E8,11E8,2.4E8,1.1E8,5E7
MPDATA,EX,4,7,8E6,8E6
MPDATA,EX,5,1,35E8,28E8,20.5E8,10.2E8,4.6E8,8E7
MPDATA,EX,5,7,35E6,35E6
MPDATA,NUXY,1,1,0.156,0.203,0.288,0.435,0.465,0.485
MPDATA,NUXY,1,7,0.49,0.49
MPDATA,NUXY,2,1,0.264,0.273,0.299,0.322,0.351,0.375
MPDATA,NUXY,2,7,0.392,0.392
MPDATA,NUXY,3,1,0.151,0.261,0.363,0.402,0.452,0.471
MPDATA,NUXY,3,7,0.485,0.485
MPDATA,NUXY,4,1,0.163,0.212,0.255,0.365,0.410,0.422
MPDATA,NUXY,4,7,0.465,0.465
MPDATA,NUXY,5,1,0.213,0.233,0.251,0.266,0.335,0.394
MPDATA,NUXY,5,7,0.421,0.421
ALLSEL,ALL
SAVE
FINISH
/PREP7
D,N6,UX,0
D,N7,UX,0
D,N8,UY,0
ALLSEL,ALL
FINISH
/SOLU
ANTYPE,4
AUTOTS,ON
NSUBST,3,10,1,0
KBC,0
TIMINT,ON
TINTP,0.005,,,1,0.5,0.2
OUTRES,ALL,LAST
ALLSEL,ALL
*DO,TM2,18251,21900,10
TIME,TM2
LDREAD,TEMP,,,TM2,,'NORMAL_1','RTH',''
DELTIM,20
ALLSEL,ALL
ACEL,,10
SOLVE
*ENDDO
SAVE |