| 查看: 453 | 回复: 0 | |||
[交流]
自己编写了一个蒸发扩散的程序，但编译和加载后，在下拉菜单中没有发现程序
|
|
#include"udf.h" #include"math.h" #include"mem.h" #define N_HEPTANE_NUM 0// the n-hexane number in the species list DEFINE_ADJUST(species_mass_fraction,domain) { real Ma=86,Mb=28.966,A=6.8776,B=1171.530,C=224.366,Pvap,P_total;//Ma 是正己烷的分子量；Mb是空气的分子量；Pvap是正己烷的饱和蒸汽压；P_total是总压 float Z,D=133.325; face_t f; int ID=14;//泄漏面的ID Thread*thread=Lookup_Thread(domain,ID); begin_f_loop(f,thread) { Z=A-B/(F_T(f,thread)-273.15+C); Pvap=D*pow(10,Z); P_total=ABS_P(F_P(f,thread),op_pres); F_YI(f,thread,0)=Pvap*Ma/P_total/(Pvap*Ma/P_total+(1-Pvap/P_total)*Mb); } end_f_loop(f,thread) |
回复此楼» 猜你喜欢
帮我的英语口语老师找学生
已经有0人回复
-
什么时候开奖？
已经有13人回复
-
物理学I论文润色/翻译怎么收费?
已经有297人回复
-
散金币祈福
已经有94人回复
-
青基已中
已经有1人回复
-
散金币祈福
已经有186人回复
-
求助，如何提取ELK的rt-TDDFT在某一时刻的自旋密度分布和电子密度分布
已经有1人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
-
澳门大学IAPME李海峰教授常年招收博士研究生
已经有0人回复
» 本主题相关商家推荐: (我也要在这里推广)
