SPH法一維實(shí)例:?jiǎn)l(fā)

左志華(在讀碩士) zuo.zhihua@qq.com
@深圳市羅湖區(qū) 2021.1.12
ThinkPad S2 2018 Windows10 Home
關(guān)鍵詞:SPH法;一維帝嗡;啟發(fā)幸海;B樣條核函數(shù)勺疼;Octave 6.1

1. 背景

在5月31號(hào)仗扬,我的“傻弟弟”室友不太會(huì)編程粥诫,有一道SPH習(xí)題不會(huì)做幔荒,當(dāng)時(shí)我給他寫(xiě)了一份Matlab代碼朝抖。
如今正式自己學(xué)SPH時(shí)發(fā)現(xiàn)啥箭,網(wǎng)上這方面的基礎(chǔ)資料還是挺匱乏的,所以找到了這份代碼槽棍,希望對(duì)初學(xué)者有啟發(fā)效果捉蚤。

2. 題目

拉格朗日型無(wú)網(wǎng)格粒子法在描述結(jié)構(gòu)毀傷行為時(shí)具有先天的優(yōu)勢(shì)。假定單位長(zhǎng)度細(xì)長(zhǎng)梁結(jié)構(gòu)如下圖所示炼七,梁的截面內(nèi)被離散為單個(gè)粒子,在初始狀態(tài)下梁內(nèi)變量\eta(x)=x布持,請(qǐng)選用三次樣條核函數(shù)豌拙,光滑長(zhǎng)度h=1.3\Delta{x},通過(guò)SPH方法中的粒子近似原理編程求解每個(gè)粒子處的變量值题暖。

(1)粒子分辨率\Delta{x}=0.2\Delta{x}=0.1情況按傅;

參考答案:(1)對(duì)于函數(shù)的粒子近似存在以下表達(dá)形式:

<f(x_i)>=\sum_jf(x_j)W(x_i-x_j,h)dV_j

三次樣條函數(shù)為:

W(q,h)=\alpha\left\{ \begin{array}{ll}\frac{2}{3}-q^2+\frac{1}{2}q^3 &,0 \leq q \lt1\\\frac{1}{6}(2-q)^3&,1\leq q\lt2\\0&,q\gt2\end{array}\right.

其中\alpha=1/hq=r/h胧卤。

①粒子分辨率為\Delta x=0.2情況:

支持域半徑為R=2h=2.6\Delta x唯绍,粒子從左到右編號(hào)分別為1~6:

粒子1:與其相互作用的粒子編號(hào):1,2枝誊,3

因此<f(0)>=\sum_{j=1,2,3}f(x_j)W_{ij}\Delta x=0.0516

粒子2:與其相互作用的粒子編號(hào):1况芒,2,3叶撒,4

因此<f(0.2)>=\sum_{j=1,2,3,4}f(x_j)W_ij\Delta x=0.2032

粒子3:與其相互作用的粒子編號(hào):1绝骚,2,3祠够,4压汪,5

因此<f(0.4)>=\sum_{j=1,2,3,4,5}f(x_j)W_ij\Delta x=0.4014

粒子分辨率為\Delta x=0.2情況

3. 代碼

% func B-Spline_w 是B-樣條函數(shù)(光滑核函數(shù)). 
function w = B_Spline_w(r,h)
    r = abs(r);
    alpha = 1/h;
    q = r/h;
    if q>=0 & q<1
        w = alpha*(2/3-q^2+0.5*q^3);
    elseif q>=1 & q<2
        w = alpha*(1/6*(2-q)^3);
    elseif q>=2
        w = 0;
    else
        fprintf("q = %d 是否小于了0; 請(qǐng)檢查! ",q);
    end
end
% func partcleApproximation 粒子近似值函數(shù). 
function f = particleApproximation_f(i,tol,h,dx)
    A1 = 1; A2 = 1; A3 = 1; A4 = 1;
    if i == 1
        A1 = 0; A2 = 0;
    elseif i == 2
        A1 = 0;
    elseif i == tol
        A3 = 0; A4 = 0;
    elseif i == tol-1
        A4 = 0;
    else
        % 此處不執(zhí)行任何語(yǔ)句.
    end
    f = A1*dx*(i-3)*B_Spline_w(2*dx,h)*dx+A2*dx*(i-2)*B_Spline_w(dx,h)*dx+...
        dx*(i-1)*B_Spline_w(0,h)*dx+A3*dx*i*B_Spline_w(-dx,h)*dx+...
        A4*dx*(i+1)*B_Spline_w(-2*dx,h)*dx;
end
% SPH(Smoothed Particle Hydrodynamics)法 是光滑粒子流體動(dòng)力學(xué)方法的縮寫(xiě).
% 描述:
% 一維無(wú)網(wǎng)格實(shí)例
%
% 方法:
% B樣條核函數(shù)
% 
% 代碼所有者:
% 左志華[zoziha] zuo.zhihua@qq.com
%
% 版本   日期     注釋
% ---- -------- -------
% V1.0 2020-6-1 原始版本 左志華
%
% 軟件標(biāo)準(zhǔn):Octave 6.1
%
close all; % 關(guān)閉所有圖像.
% float dx 是粒子分辨率; 下語(yǔ)句 并且賦值 dx=0.2. [2020-6-1 wrote; 可修改 dx 值]
dx  = 0.2;
% float tol 是粒子總數(shù). [2020-6-1 wrote; 可修改 tol 值]
tol = 6;
% float h 是光滑長(zhǎng)度. 
h   = 1.3*dx;
% float r 是域半徑. 
r   = 2*h;
% 下語(yǔ)句 在屏幕打印出 f
for i = 1:tol
    f(i) = particleApproximation_f(i,tol,h,dx);
end
disp(f);
plot(f,"rp");
grid on;
運(yùn)行結(jié)果

運(yùn)行圖像

4. 解析

可以發(fā)現(xiàn)SPH法在邊界處的精度不高,在求解域內(nèi)精度較高古瓤。
如果要開(kāi)發(fā)一個(gè)核心的SPH計(jì)算程序止剖,則需要包含三個(gè)模塊:

  1. 核函數(shù)模塊;
  2. 粒子近似模塊落君;
  3. 實(shí)例求解模塊穿香。
    如果需要配合核心的SPH計(jì)算程序,還需要:
  4. 建模的前處理模塊叽奥;
  5. 數(shù)據(jù)的可視化模塊扔水。
    (挖坑一個(gè),有空整理和修改朝氓。)

5. 思考

網(wǎng)上有挺多的SPH法的代碼魔市,還有基于分子動(dòng)力學(xué)的MPS法代碼和程序主届,如LAMMPS。要我這數(shù)學(xué)基礎(chǔ)弱的工科人來(lái)用別人的代碼待德,看懂都費(fèi)勁君丁;自己編寫(xiě)也不現(xiàn)實(shí),需要花費(fèi)很多時(shí)間和精力将宪,而且有可能失敗绘闷。難熬~

  1. 現(xiàn)有的常用的建模工具都是基于有限元的,少有粒子建模较坛;
  2. 我估計(jì)還得學(xué)一個(gè)粒子可視化軟件印蔗。
  3. SPHysics是有Fortran代碼的,我可以參考丑勤,我學(xué)Fortran的华嘹;
  4. SPHysics依靠的建模與可視化工具是Blender軟件;
  5. LAMMPS偏分子學(xué)科法竞,完成度很高耙厚,基于C++,我不太想多學(xué)這么多語(yǔ)言岔霸;
  6. LAMMPS文檔挺多薛躬,資料也全,但是我一個(gè)學(xué)船的挺難看進(jìn)去分子層面的編程的呆细;
  7. 自己編程一般幾年時(shí)間內(nèi)能編寫(xiě)和維護(hù)的代碼量?jī)H為5千~5萬(wàn)的中小型程序型宝,還存在不確定性;
  8. 我現(xiàn)在正在請(qǐng)教師兄侦鹏,看看能給我點(diǎn)意見(jiàn)不诡曙。之后找找老師。希望能給我指條明路略水。
    前路漫漫价卤,上下求索~
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市渊涝,隨后出現(xiàn)的幾起案子慎璧,更是在濱河造成了極大的恐慌,老刑警劉巖跨释,帶你破解...
    沈念sama閱讀 219,539評(píng)論 6 508
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件胸私,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡鳖谈,警方通過(guò)查閱死者的電腦和手機(jī)岁疼,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,594評(píng)論 3 396
  • 文/潘曉璐 我一進(jìn)店門(mén),熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)缆娃,“玉大人捷绒,你說(shuō)我怎么就攤上這事瑰排。” “怎么了暖侨?”我有些...
    開(kāi)封第一講書(shū)人閱讀 165,871評(píng)論 0 356
  • 文/不壞的土叔 我叫張陵椭住,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我字逗,道長(zhǎng)京郑,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,963評(píng)論 1 295
  • 正文 為了忘掉前任葫掉,我火速辦了婚禮些举,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘俭厚。我一直安慰自己金拒,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,984評(píng)論 6 393
  • 文/花漫 我一把揭開(kāi)白布套腹。 她就那樣靜靜地躺著,像睡著了一般资铡。 火紅的嫁衣襯著肌膚如雪电禀。 梳的紋絲不亂的頭發(fā)上,一...
    開(kāi)封第一講書(shū)人閱讀 51,763評(píng)論 1 307
  • 那天笤休,我揣著相機(jī)與錄音尖飞,去河邊找鬼。 笑死店雅,一個(gè)胖子當(dāng)著我的面吹牛政基,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播闹啦,決...
    沈念sama閱讀 40,468評(píng)論 3 420
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼沮明,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來(lái)了窍奋?” 一聲冷哼從身側(cè)響起荐健,我...
    開(kāi)封第一講書(shū)人閱讀 39,357評(píng)論 0 276
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎琳袄,沒(méi)想到半個(gè)月后江场,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,850評(píng)論 1 317
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡窖逗,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 38,002評(píng)論 3 338
  • 正文 我和宋清朗相戀三年址否,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片碎紊。...
    茶點(diǎn)故事閱讀 40,144評(píng)論 1 351
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡佑附,死狀恐怖樊诺,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情帮匾,我是刑警寧澤啄骇,帶...
    沈念sama閱讀 35,823評(píng)論 5 346
  • 正文 年R本政府宣布,位于F島的核電站瘟斜,受9級(jí)特大地震影響缸夹,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜螺句,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,483評(píng)論 3 331
  • 文/蒙蒙 一虽惭、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧蛇尚,春花似錦芽唇、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 32,026評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至谱邪,卻和暖如春炮捧,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背惦银。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 33,150評(píng)論 1 272
  • 我被黑心中介騙來(lái)泰國(guó)打工咆课, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人扯俱。 一個(gè)月前我還...
    沈念sama閱讀 48,415評(píng)論 3 373
  • 正文 我出身青樓书蚪,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親迅栅。 傳聞我的和親對(duì)象是個(gè)殘疾皇子殊校,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,092評(píng)論 2 355

推薦閱讀更多精彩內(nèi)容