声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 3507|回复: 2

[CFD及热分析] 移动高斯热源+热辐射命令流(自己编的不敢保证一定对)

[复制链接]
发表于 2006-5-9 19:19 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
  1. /PREP7
  2. /UNIT,SI

  3. ET,1,SOLID70
  4. ET,2,SURF152
  5. KEYOPT,2,4,1
  6. KEYOPT,2,5,1
  7. KEYOPT,2,6,0
  8. KEYOPT,2,7,1
  9. KEYOPT,2,8,2
  10. KEYOPT,2,9,1
  11. R,2,1,5.67E-8


  12. MP,C,1,480
  13. MP,KXX,1,45
  14. MP,DENS,1,7820

  15. MP,DENS,2,7820
  16. MP,EMIS,2,1
  17. MP,KXX,2,45
  18. BLOCK,0,0.01,0,0.0025,0,0.01
  19. /VIEW,1,1,1,1
  20. /REPLOT
  21. LPLOT
  22. /PNUM,LINE,1
  23. /REPLOT
  24. LESIZE,1,,,5
  25. LESIZE,3,,,5
  26. LESIZE,6,,,5
  27. LESIZE,8,,,5
  28. LESIZE,2,,,20,5
  29. LESIZE,4,,,20,0.2
  30. LESIZE,5,,,20,0.2
  31. LESIZE,7,,,20,5
  32. LSEL,S,,,9,12
  33. LESIZE,ALL,,,20
  34. VATT,1
  35. MSHKEY,1
  36. VMESH,1
  37. ALLSEL
  38. TYPE,2
  39. REAL,2
  40. MAT,2
  41. *GET,NN,NODE,,num,max
  42. N,NN+1,0,0,0.015
  43. ASEL,S,,,1,5
  44. NSLA,S,1
  45. NPLOT
  46. ESURF,NN+1
  47. EPLOT
  48. ALLSEL


  49. /SOLU
  50. ANTYPE,4
  51. TRNOPT,FULL
  52. TOFFST,273
  53. D,NN+1,TEMP,27
  54. dsym,symm,x
  55. TUNIF,27
  56. TREF,27
  57. KBC,1

  58. V1=0.001
  59. TINC=0.0005/V1
  60. Qm=1.68E8
  61. R=0.002

  62. LD2=0.0002
  63. MAX_TIME=0.04/0.0001
  64. MAX_R=R/LD2

  65. *DO,K,1,3,1

  66. CLOCAL,11,CYLIN,0.01,0.0025,V1*K*TINC,0,-90,0
  67. wprota,,-90
  68. *DO,I,1,MAX_R,1
  69. asel,s,,,4
  70. NSla,s,1
  71. NSEL,R,LOC,X,(I-1)*LD2-0.0001,(I-1)*LD2+0.0001
  72. BF,ALL,HGEN,Qm/EXP(2*((I-1)*LD2)**2/R**2)
  73. *ENDDO

  74. ESEL,S,MAT,,2
  75. SFE,ALL,,CONV,,110
  76. ALLSEL

  77. TIME,K*TINC
  78. NSUBST,5
  79. AUTOTS,ON
  80. OUTRES,,ALL
  81. SOLVE
  82. CSDELE,ALL
  83. *ENDDO
  84. /post1
  85. set,last
  86. /plopts,info,on
  87. plnsol,temp
复制代码



可能有点小错误:)以前编的
回复
分享到:

使用道具 举报

发表于 2006-5-10 07:00 | 显示全部楼层
不错不错
发表于 2011-1-3 15:18 | 显示全部楼层
回复 1 # kisfire 的帖子

知道封闭路径上的怎么加载吗?谢谢!
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-30 02:02 , Processed in 0.076500 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表