留言板
- xuliujuan1987
- 您好，我是在论坛中看到您的，知道您对ansys很精通，我刚开始学习ansys这个软件，还不太懂，能请教您一个问题吗，我想在ansys中建立一个带缺陷管道的模型，请问怎样模拟缺陷呢，方便的话能加您qq吗，麻烦了，谢谢！
- Abaiyueguang
- 前辈您好：
小弟刚接触ANSYS 现在要做一个管道的流固耦合分析 前辈能不能给我一些这方面的教程 或者 例子 或是您做过的资料 学习一下 不胜感激！！邮箱：308448022@qq.com
我会永远感谢您的帮助的！！
- superrain
- 从*SET,DELT,1开始就好了，谢谢你！
- superrain
- 请问您能否将你编写的采用Table型数组加载移动高斯热源中solv后面的语句注释发给我deng152@126.com，本人是初学的，有些不了解。 您的程序： /UNITS,SI /CONFIG,NRES,10000 /PREP7 ET,1,SOLID70 MP,DENS,1,3200 MP,C,1,840 MP,KXX,1,16.8 /VIEW,1,1,1,1 BLOCK,0,0.04,0,0.04,0,0.004 SAVE LESIZE,1,,,40 LESIZE,4,,,40 LESIZE,9,,,4 MSHKEY,1 VATT,1,1,1 VMESH,1 /PNUM,DEFA EPLOT FINISH /SOLU LSIZE=0.001 V=0.05 TINC=LSIZE/V rb=0.002 pi=3.1415926 Q=600 Qmax=Q/(pi*rb*rb) R=0.002 MAX_TIME=41 MAX_X=41 MAX_Y=41 *DIM,laser,TABLE,MAX_X,MAX_Y,MAX_TIME,X,Y,TIME *DO,K,1,MAX_TIME,1 *DO,I,1,MAX_X,1 laser(I,0,K)=(I-1)*LSIZE *ENDDO *DO,J,1,MAX_Y,1 laser(0,J,K)=(J-1)*LSIZE *ENDDO *DO,I,1,MAX_X,1 *DO,J,1,MAX_Y,1 XCENTER=V*(K-1)*TINC YCENTER=0.02 DISTANCE=SQRT(((I-1)*LSIZE-XCENTER)**2+((J-1)*LSIZE-YCENTER)**2) *IF,DISTANCE,LE,R,THEN laser(I,J,K)=Qmax/EXP(2*DISTANCE**2/(0.002**2)) *ELSE laser(I,J,K)=0 *ENDIF *ENDDO *ENDDO laser(0,0,K)=(K-1)*TINC *ENDDO ANTYPE,TRANS TUNIF,27 KBC,1 *SET,DELT,1 TIMINT,ON AUTOTS,OFF TT=0.8 *DO,TM,1E-6,TT,TINC /VIEW,1,1,1,1 /ANG,1 /REP,FAST FLST,2,1,5,ORDE,1 FITEM,2,2 /GO !* TIME,TM AUTOTS,0 DELTIM, , , ,1 KBC,0 !* TSRES,ERASE FLST,2,1,5,ORDE,1 FITEM,2,2 /GO !* !* SFA,P51X,1,HFLUX,%laser% SOLVE OUTRES,ALL,ALL, /PSF,HFLUX,,2 /REPLOT *ENDDO OUTRES,ALL,ALL, FINISH
