马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
- /PREP7
- /UNIT,SI
- ET,1,SOLID70
- ET,2,SURF152
- KEYOPT,2,4,1
- KEYOPT,2,5,1
- KEYOPT,2,6,0
- KEYOPT,2,7,1
- KEYOPT,2,8,2
- KEYOPT,2,9,1
- R,2,1,5.67E-8
- MP,C,1,480
- MP,KXX,1,45
- MP,DENS,1,7820
- MP,DENS,2,7820
- MP,EMIS,2,1
- MP,KXX,2,45
- BLOCK,0,0.01,0,0.0025,0,0.01
- /VIEW,1,1,1,1
- /REPLOT
- LPLOT
- /PNUM,LINE,1
- /REPLOT
- LESIZE,1,,,5
- LESIZE,3,,,5
- LESIZE,6,,,5
- LESIZE,8,,,5
- LESIZE,2,,,20,5
- LESIZE,4,,,20,0.2
- LESIZE,5,,,20,0.2
- LESIZE,7,,,20,5
- LSEL,S,,,9,12
- LESIZE,ALL,,,20
- VATT,1
- MSHKEY,1
- VMESH,1
- ALLSEL
- TYPE,2
- REAL,2
- MAT,2
- *GET,NN,NODE,,num,max
- N,NN+1,0,0,0.015
- ASEL,S,,,1,5
- NSLA,S,1
- NPLOT
- ESURF,NN+1
- EPLOT
- ALLSEL
- /SOLU
- ANTYPE,4
- TRNOPT,FULL
- TOFFST,273
- D,NN+1,TEMP,27
- dsym,symm,x
- TUNIF,27
- TREF,27
- KBC,1
- V1=0.001
- TINC=0.0005/V1
- Qm=1.68E8
- R=0.002
- LD2=0.0002
- MAX_TIME=0.04/0.0001
- MAX_R=R/LD2
- *DO,K,1,3,1
- CLOCAL,11,CYLIN,0.01,0.0025,V1*K*TINC,0,-90,0
- wprota,,-90
- *DO,I,1,MAX_R,1
- asel,s,,,4
- NSla,s,1
- NSEL,R,LOC,X,(I-1)*LD2-0.0001,(I-1)*LD2+0.0001
- BF,ALL,HGEN,Qm/EXP(2*((I-1)*LD2)**2/R**2)
- *ENDDO
- ESEL,S,MAT,,2
- SFE,ALL,,CONV,,110
- ALLSEL
- TIME,K*TINC
- NSUBST,5
- AUTOTS,ON
- OUTRES,,ALL
- SOLVE
- CSDELE,ALL
- *ENDDO
- /post1
- set,last
- /plopts,info,on
- plnsol,temp
复制代码
可能有点小错误:)以前编的 |