| 5 | 1/1 | 返回列表 |
| 查看: 2465 | 回復(fù): 7 | ||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | ||
dqyzgyttro金蟲 (小有名氣)
|
[求助]
求助利用uds求解方程組,uds發(fā)散 已有2人參與
|
|
|
在收斂的流場(chǎng)中設(shè)置四個(gè)uds,求解四個(gè)方程,算的是穩(wěn)態(tài)問(wèn)題,不計(jì)算流場(chǎng),只計(jì)算四個(gè)標(biāo)量。 現(xiàn)在我按照uds的格式寫好各項(xiàng),其中對(duì)流項(xiàng)和源項(xiàng)都有利用C_UDSI引用其他三個(gè)標(biāo)量,同時(shí)還用ON_DEMAND給各標(biāo)量賦了初值。 代碼可以通過(guò)編譯,問(wèn)題是開始計(jì)算就會(huì)顯示uds發(fā)散,不知道問(wèn)題出在哪里,向各位高手求助。 謝謝解答!@wuming524 |
新蟲 (初入文壇)
至尊木蟲 (職業(yè)作家)

金蟲 (小有名氣)
|
程序如下 #include "udf.h" #include "mem.h" #include "math.h" DEFINE_ON_DEMAND(demandbeginning) { Thread *t; cell_t c; face_t f; Domain *d; d=Get_Domain(1); thread_loop_c(t,d) { begin_c_loop(c,t) { C_UDSI(c,t,0)=0.000001; C_UDSI(c,t,1)=C_U(c,t); C_UDSI(c,t,2)=C_V(c,t); C_UDSI(c,t,3)=C_W(c,t); } end_c_loop(c,t); } } DEFINE_UDS_FLUX(flux0, f, t, i) { Thread *t0,*t1=NULL; cell_t c0,c1=-1; real NV_VEC(psi_vec),NV_VEC(A),flux; NV_D(psi_vec,=,0,0,0); c0=F_C0(f,t); t0=F_C0_THREAD(f,t); F_AREA(A,f,t); if(NULL==F_C1_THREAD(f,t)) { NV_DS(psi_vec,=,C_UDSI(c0,t0,1),C_UDSI(c0,t0,2),C_UDSI(c0,t0,3),*,998); flux=NV_DOT(psi_vec,A); } else { c1=F_C1(f,t); t1=F_C1_THREAD(f,t); NV_DS(psi_vec,=,C_UDSI(c0,t0,1),C_UDSI(c0,t0,2),C_UDSI(c0,t0,3),*,988); NV_DS(psi_vec,+=,C_UDSI(c1,t1,1),C_UDSI(c1,t1,2),C_UDSI(c1,t1,3),*,0.5); flux=NV_DOT(psi_vec,A); } return flux; } DEFINE_UDS_FLUX(flux1, f, t, i) { Thread *t0,*t1=NULL; cell_t c0,c1=-1; real NV_VEC(psi_vec),NV_VEC(A),flux1; NV_D(psi_vec,=,0,0,0); c0=F_C0(f,t); t0=F_C0_THREAD(f,t); F_AREA(A,f,t); if(NULL==F_C1_THREAD(f,t)) { NV_DS(psi_vec,=,C_UDSI(c0,t0,1),C_UDSI(c0,t0,2),C_UDSI(c0,t0,3),*,998); flux1=C_UDSI(c0,t0,0)*NV_DOT(psi_vec,A); } else { c1=F_C1(f,t); t1=F_C1_THREAD(f,t); NV_DS(psi_vec,=,C_UDSI(c0,t0,1),C_UDSI(c0,t0,2),C_UDSI(c0,t0,3),*,988); NV_DS(psi_vec,+=,C_UDSI(c1,t1,1),C_UDSI(c1,t1,2),C_UDSI(c1,t1,3),*,0.5); flux1=(C_UDSI(c0,t0,0)+C_UDSI(c1,t1,0))*0.5*NV_DOT(psi_vec,A); } return flux1; } DEFINE_SOURCE(myudssourceu,c,t,dS,eqn) { real x[ND_ND]; real CD,Re,force,k,source,a,b; Domain *d; d=Get_Domain(1); C_CENTROID(x,c,t); a=pow((C_U(c,t)*C_U(c,t)+C_V(c,t)*C_V(c,t)+C_W(c,t)*C_W(c,t)),0.5); b=pow((C_UDSI(c,t,1)*C_UDSI(c,t,1)+C_UDSI(c,t,2)*C_UDSI(c,t,2)+C_UDSI(c,t,3)*C_UDSI(c,t,3)),0.5); Re=998*pow((a*a-2*a*b+b*b),0.5)*0.00002/0.0000179; if (Re<=1000.0) { CD=24*(1+0.15*pow(Re,0.687))/Re; } else { CD=0.44; } force=CD*Re/24; k=18*0.0000179*force/998/0.00002/0.00002; source=998*C_UDSI(c,t,0)*k*(C_U(c,t)-C_UDSI(c,t,1)); dS[eqn]=-998*C_UDSI(c,t,0)*k; return source; } DEFINE_SOURCE(myudssourcev,c,t,dS,eqn) { real x[ND_ND]; real CD,Re,force,k,source,a,b; Domain *d; d=Get_Domain(1); C_CENTROID(x,c,t); a=pow((C_U(c,t)*C_U(c,t)+C_V(c,t)*C_V(c,t)+C_W(c,t)*C_W(c,t)),0.5); b=pow((C_UDSI(c,t,1)*C_UDSI(c,t,1)+C_UDSI(c,t,2)*C_UDSI(c,t,2)+C_UDSI(c,t,3)*C_UDSI(c,t,3)),0.5); Re=998*pow((a*a-2*a*b+b*b),0.5)*0.00002/0.0000179; if (Re<=1000.0) { CD=24*(1+0.15*pow(Re,0.687))/Re; } else { CD=0.44; } force=CD*Re/24; k=18*0.0000179*force/998/0.00002/0.00002; source=998*C_UDSI(c,t,0)*k*(C_V(c,t)-C_UDSI(c,t,1)); dS[eqn]=-998*C_UDSI(c,t,0)*k; return source; } DEFINE_SOURCE(myudssourcew,c,t,dS,eqn) { real x[ND_ND]; real CD,Re,force,k,source,a,b; Domain *d; d=Get_Domain(1); C_CENTROID(x,c,t); a=pow((C_U(c,t)*C_U(c,t)+C_V(c,t)*C_V(c,t)+C_W(c,t)*C_W(c,t)),0.5); b=pow((C_UDSI(c,t,1)*C_UDSI(c,t,1)+C_UDSI(c,t,2)*C_UDSI(c,t,2)+C_UDSI(c,t,3)*C_UDSI(c,t,3)),0.5); Re=998*pow((a*a-2*a*b+b*b),0.5)*0.00002/0.0000179; if (Re<=1000.0) { CD=24*(1+0.15*pow(Re,0.687))/Re; } else { CD=0.44; } force=CD*Re/24; k=18*0.0000179*force/998/0.00002/0.00002; source=998*C_UDSI(c,t,0)*k*(C_W(c,t)-C_UDSI(c,t,3)); dS[eqn]=-998*C_UDSI(c,t,0)*k; return source; } |
用戶注銷 (小有名氣)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085410人工智能專碩317求調(diào)劑(0854都可以) +3 | xbxudjdn 2026-03-18 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 一志愿中海洋材料工程專碩330分求調(diào)劑 +5 | 小材化本科 2026-03-18 | 5/250 |
|
|
[考研] 26調(diào)劑/材料/英一數(shù)二/總分289/已過(guò)A區(qū)線 +7 | 步川酷紫123 2026-03-13 | 7/350 |
|
|
[考研] 266求調(diào)劑 +5 | 陽(yáng)陽(yáng)哇塞 2026-03-14 | 9/450 |
|
|
[考研] 生物學(xué)071000 329分求調(diào)劑 +3 | 我愛生物生物愛?/a> 2026-03-17 | 3/150 |
|
|
[考研] 考研求調(diào)劑 +3 | 橘頌. 2026-03-17 | 4/200 |
|
|
[考研] 材料與化工求調(diào)劑 +6 | 為學(xué)666 2026-03-16 | 6/300 |
|
|
[考研] 290求調(diào)劑 +6 | 孔志浩 2026-03-12 | 11/550 |
|
|
[考研] 藥學(xué)383 求調(diào)劑 +3 | 藥學(xué)chy 2026-03-15 | 4/200 |
|
|
[考研] 0854控制工程 359求調(diào)劑 可跨專業(yè) +3 | 626776879 2026-03-14 | 9/450 |
|
|
[考研] 328求調(diào)劑 +3 | 5201314Lsy! 2026-03-13 | 6/300 |
|
|
[考研] 一志愿哈工大材料324分求調(diào)劑 +5 | 閆旭東 2026-03-14 | 5/250 |
|
|
[考研] 308 085701 四六級(jí)已過(guò)求調(diào)劑 +7 | 溫喬喬喬喬 2026-03-12 | 14/700 |
|
|
[考研] 材料與化工(0856)304求B區(qū)調(diào)劑 +6 | 邱gl 2026-03-12 | 7/350 |
|
|
[考研] 304求調(diào)劑 +7 | 7712b 2026-03-13 | 7/350 |
|
|
[考研] 0703化學(xué)求調(diào)劑 +7 | 綠豆芹菜湯 2026-03-12 | 7/350 |
|
|
[考研] 295求調(diào)劑 +3 | 小匕仔汁 2026-03-12 | 3/150 |
|
|
[考研] 土木第一志愿276求調(diào)劑,科研和技能十分豐富,求新興方向的導(dǎo)師收留 +3 | 土木小天才 2026-03-12 | 3/150 |
|
|
[考研] 070303一志愿西北大學(xué)學(xué)碩310找調(diào)劑 +3 | d如愿上岸 2026-03-13 | 3/150 |
|
|
[考研] 290求調(diào)劑 +3 | ADT 2026-03-13 | 3/150 |
|