Question

请帮我翻译一段ANSYS命令流

*DIM,TIME_STEP,ARRAY,18,,
*VFILL,TIME_STEP(1),DATA,0.005,0.1,0.15,0.2,0.21,0.215,0.22,0.225,0.23,0.235
*VFILL,TIME_STEP(11),DATA,0.24,0.245,0.25,0.26,0.27,0.285,20,300
*DIM,SUB_STEP_NO,ARRAY,18,,
*VFILL,SUB_STEP_NO(1),DATA,2,2,2,3,3,3,3,3,3,3
*VFILL,SUB_STEP_NO(11),DATA,3,3,2,2,2,2,50,100
!
!
/COM,THERMAL
KEYW,PR_THERM,1
!
/FILNAME,THERMAL_ANALYSIS,1
!
/PREP7
!
ET,1,PLANE77
KEYOPT,1,1,0
KEYOPT,1,3,1
!
!
MPTEMP,,,,,,,,
MPTEMP,1,0
MPTEMP,2,100
MPTEMP,3,150
MPTEMP,4,200
MPDATA,KXX,1,,47.1
MPDATA,KXX,1,,45
MPDATA,KXX,1,,43.95
MPDATA,KXX,1,,42.9
!
MPDATA,C,1,,464
MPDATA,C,1,,485
MPDATA,C,1,,495.5
MPDATA,C,1,,506
!
MPDATA,DENS,1,,7800
MPDATA,DENS,1,,7800
MPDATA,DENS,1,,7800
MPDATA,DENS,1,,7800
!
K,1,0.034,0,0,
K,2,0.034,0.1377,0,
K,3,0.034,0.20655,0,
K,4,0.034,0.2754,0,
K,5,0.034,0.28917,0,
K,6,0.034,0.296055,0,
K,7,0.034,0.30294,0,
K,8,0.034,0.309825,0,
K,9,0.034,0.31671,0,
K,10,0.034,0.323595,0,
K,11,0.034,0.33048,0,
K,12,0.034,0.337365,0,
K,13,0.034,0.34425,0,
K,14,0.034,0.35802,0,
K,15,0.034,0.37179,0,
K,16,0.034,0.392445,0,
K,17,0.034,0.416,0,
!
K,18,0.038,0.416,0,
K,19,0.038,0,0,
!
*DO,KKK,1,18
LSTR,KKK,KKK+1
*ENDDO
LSTR,19,1
!
AL,ALL
!
RECTNG,.038,.5,.3,.316,
!
AGLUE,1,2
!
LFILLT,24,22,.004,,
LFILLT,25,20,0.004,,
AL,18,26,27
AL,28,29,30
!
AADD,ALL
!
ESIZE,0.0025,0,
AMESH,ALL
LSEL,S,,,18,28,10
LREF,ALL,,,2,5,1,1
ALLSEL,ALL
!
SAVE
FINISH
!
/SOLU
!
IC,ALL,TEMP,190.7,
!
SFL,22,CONV,1094,,190.7,
SFL,24,CONV,1792.4,,190.7,
SFL,18,CONV,1792.4,,190.7,
*DO,LINE_NO,1,16
SFL,LINE_NO,CONV,8947.1,,190.7,
*ENDDO
!
ANTYPE,4
TRNOPT,FULL
LUMPM,0
OUTRES,ALL,ALL,
TIMINT,1
!
*DO,LOAD_STEP_NO,1,18
*IF,LOAD_STEP_NO,EQ,1,THEN
TIME,TIME_STEP(LOAD_STEP_NO)
AUTOTS,1
NSUBST,SUB_STEP_NO(LOAD_STEP_NO),,,1
KBC,1
LSWRITE,LOAD_STEP_NO,
*ELSEIF,LOAD_STEP_NO,LT,18,THEN
SFL,LOAD_STEP_NO-1,CONV,5513.6,,50,
TIME,TIME_STEP(LOAD_STEP_NO)
AUTOTS,1
NSUBST,SUB_STEP_NO(LOAD_STEP_NO),,,1
KBC,1
LSWRITE,LOAD_STEP_NO,
*ENDIF
*IF,LOAD_STEP_NO,EQ,18,THEN
TIME,TIME_STEP(LOAD_STEP_NO)
AUTOTS,1
NSUBST,SUB_STEP_NO(LOAD_STEP_NO),,,1
KBC,1
LSWRITE,LOAD_STEP_NO,
*ENDIF
*ENDDO
!
LSSOLVE,1,18,1,
FINISH
!
/POST1
SET,LAST
PLNSOL,TEMP,,0,
!

Answer 1

http://hi.baidu.com/enlun0/blog/item/5573f21b59d1861c8618bf8c.html
命令解释在这里，放到word文档里，一一替换比较快

Answer 2

很想帮忙，但真无能为力。。。

Answer 3

外行飘过，表示无能为力~~~~~~~~·