# M; X6 A' C" B& |: G. F8 [ 一、内容梗概
! E# d1 w# S0 G$ Z8 f2 c7 q$ m “Ocean Modelling for Beginners”第一章主要是一些编程语言和软件的介绍还有一些序言之类的内容，在此就不多做解释了。“The Decay Problem”是书中第二章最开始引入的一个问题，借此向读者介绍数值计算的基本知识。 2 Y* a/ S3 \) U3 t+ Y: X( A+ B4 h
“The Decay Problem” 的中文怎么称呼都好啦，衰退问题、腐败问题，总之就是假设某种物质的浓度是 C0C_0 ，这种物质的浓度随着时间变化会按照一定的速率逐渐减少，例如酒精挥发等等，这样一个过程可以由下面一个方程来表示：
* H0 c4 B! t0 p# a dCdt=−κ⋅C\frac{dC}{dt} = - \kappa \cdot C \\ ! w9 F4 f, o+ h. p' D
这是一个一阶常微分方程，其中变量 CC 表示某种物质的浓度， tt 代表时间， κ\kappa (希腊字母：kappa)是一个常量，影响衰减的速率。有了这样一个式子，我们就可以求解出任意时刻 tt 这种物质的浓度 C(t)C(t) 了。这个方程解起来也比较简单，对等式两边同时积分就能得到解，也就是未知函数 C(t)C(t) :
3 j+ ?- ?8 ?" P2 V. l( o4 m9 r C(t)=c⋅e−κ⋅tC(t) = c \cdot e^{-\kappa \cdot t} \\
7 Q( E9 h! ]5 P) l 然而，由上式可以看出这个解不是唯一的(注意e前面的c指的是任意常数不是浓度)，要确定唯一的解，还要在一些自变量点上给出 C(t)C(t) 的值，也就是边界条件。这里我们可以设 t0t_0 时刻物质的浓度 C(t0)=C0C(t_{0}) = C_0 ：
) C7 g7 e# H' w* I {dCdt=−κ⋅C,t≥t0C(t0)=C0\left\{ \begin{array}{l} \frac{dC}{dt}= -\kappa \cdot C, t \geq t_0 \\ C(t_{0})=C_0 \end{array} \right. \\
n; {& r3 G* S- }" w! b7 o) f 在合理假定下，我们就可以认为从 t0t_0 时刻对应的初始浓度 C0C_0 开始，上式中的常微分方程决定了未知函数 C(t)C(t) 在 t_0">t>t0t > t_0 时的变化情况，也就是说这个边界条件可以确定常微分方程的唯一解。相应地，C(t0)=C0C(t_{0}) = C_0叫做初始条件，像上式一样带初始条件的常微分方程问题被称为初值问题。
) |- K7 ~6 T0 p h+ i+ Q 那么讲了这么多，该如何利用计算机来求解这样的问题呢？这里就需要介绍另一个概念——有限差分(finite difference)了，形如 f(x+b)−f(x+a)f(x+b)-f(x+a) 的式子称为有限差分，将上式除以 b−ab-a ，我们就得到了差商，在数值计算中用有限差分来近似替代微分是一种非常重要的方法，有限差分通常分为三种前向差分(forward difference)、后向差分(backward difference)和中心差分(central difference)。前向差分的形式为 f(x+h)−f(x)f(x+h) - f(x) ，其中 hh 是步长，假设步长为 Δt\Delta t ，我们可以将上面的常微分方程改写成前向差分的形式：
7 ]# Q7 `. y- X. ^7 G, N8 Y- I dCdt=C(tn+Δt)−C(tn)Δt=−κ⋅C(tn)\frac{dC}{dt} = \frac{C(t_n + \Delta t) - C(t_n)}{\Delta t} = -\kappa \cdot C(t_n) \\ ' g1 v, d- B7 ]6 X1 A
换一种表示方式，让 C(tn)C(t_n) 为 CnC_n 也就是 tnt_n 时刻的浓度为 CnC_n ，则 tn+1t_{n+1} 时刻的物质浓度为C(tn+Δt)C(t_n + \Delta t) 即 Cn+1C_{n+1} ： 4 e2 e- G! \# k0 l
Cn+1−CnΔt=−κCn\frac{C_{n+1} - C_n}{\Delta t} = -\kappa C_n \\
$ ~! E; }! Q% _. u 整理一下左右两边的项可以得到：
( I x$ }! m! S Cn+1=Cn−Δt⋅κ⋅Cn=(1−Δt⋅κ)CnC_{n+1} = C_n - \Delta t \cdot \kappa \cdot C_n = (1-\Delta t \cdot \kappa) C_n \\ ) _. Y* _3 h+ l( y* ]' \9 y4 u* {' r
这样的有限差分格式叫做显式格式(explicit scheme)，利用上式，我们就可以从t0t_0开始“步进式”的计算出后续时刻的函数近似值，在计算机程序中利用一个循环就可以完成。细心的同学可能注意到在这种方法下 Δt\Delta t 和 κ\kappa 的值是不能随便取的，试想一下如果 1">Δt⋅κ>1\Delta t \cdot \kappa > 1 那么 t0t_0 时刻之后的浓度就会变成负数，现实中根本不可能存在这种情况。因此我们的时间步长 Δt\Delta t 和 κ\kappa 需要满足下面一个条件：
. r& c! _8 q7 B6 T2 C. A ; M0 T$ D8 s6 B/ J 该条件被称为数值稳定性条件(condition of numerical stability)。换句话说，只有当上式被满足时，我们的预测值，也就是通过有限差分发计算出的t时刻的物质浓度，是稳定的。可以看出这种方法下， Δt\Delta t 的最大值要受 κ\kappa 的限制。
" ]- b* o% Y, U 除了上述的显式格式以外，还有两种格式，分别是隐式格式(implicit scheme)和混合格式(hybrid scheme)。
% Z, J, T2 t& P$ I x% t: ~ 隐式格式 A( H1 L& _! J- L/ n
这种格式是通过后向差分得来的，后向差分其实就是用 xx 和 x−hx - h 替代显式差分中的 x+hx + h 和 xx ，将之前的微分方程写成后向差分的形式： " s8 q, J' W$ X: o# u
Cn+1−CnΔt=−κCn+1\frac{C_{n+1} - C_n}{\Delta t} = -\kappa C_{n+1} \\
D) D- ^9 ~* z 和之前一样整理下等式左右两边，得到了这样一个结果：
6 d# a: W/ r* n' \% ] Cn+1=Cn(1+Δt⋅κ)C_{n+1} = \frac{C_n}{(1 + \Delta t \cdot \kappa)} \\ W6 {) u) J' J9 a! W& i6 S3 k3 [. f
与显式格式相比，一个很大的好处是 Δt\Delta t 的取值不再受到 κ\kappa 的限制了。而且分母始终是大于1的( 0" >κ>0\kappa >0 )，因此浓度一定会随着时间逐渐减少。
0 t ?; M6 P3 y* l5 Z 混合格式( f! x9 Y) |7 g3 v- k
如字面意思，这种方法混合了上述两种格式，形式如下： # { h' Z) A) A8 V- T) e
Cn+1−CnΔt=−α⋅κ⋅Cn+1−(1−α)⋅κ⋅Cn\frac{C_{n+1} - C_n}{\Delta t} = - \alpha \cdot \kappa \cdot C_{n+1} - (1- \alpha) \cdot \kappa \cdot C_n \\
x% b) M# J, D: f; G 整理一下可以得到：
5 r. C) z) o& ]* m, Z( r! q, b Cn+1=1−(1−α)⋅κ⋅Δt1+α⋅κ⋅ΔtCnC_{n+1} = \frac{1-(1-\alpha) \cdot \kappa \cdot \Delta t}{ 1 + \alpha \cdot \kappa \cdot \Delta t} C_n \\
! v x5 o- k6 @+ k 其中 α\alpha (希腊字母：alpha)是一个权值，决定哪一种格式所占的比重大，当 alpha=1alpha =1 时这种方法完全变成了隐式格式，而当 α=0.5\alpha = 0.5 时，这种格式被称做半隐式格式(semi-implicit scheme)。
3 H) A. l4 ]) a- D 二、参考程序
( i U% l9 @! b 上面就是“The Decay Problem”练习之前的大致内容和基本概念，接下来就进入编码阶段了。题目的要求是： κ=0.0001s−1\kappa = 0.0001 \quad s^{-1} ， Δt=3600s\Delta t = 3600 s ，初始浓度 C0C_0 为100(%)，模拟15个小时的浓度变化。 程序中我将三种方法都写了出来方便后面比较它们的异同，其中混合格式的 α\alpha 值取了0.5。同时程序中还包含了一个求 tt 时刻真实值的方法，利用的是文章一开始积分求出的 C(t)C(t) ， c=C0c = C_0 。和猴子也能看懂的海洋数值模拟（零）里面说的一样，计算的部分用C++来写，数据处理和绘图利用python来完成，两部分代码如下：
+ O% X" a* W# j/ G, _" s! Q0 z1 b 数值模拟程序1 c; m1 g* b: T2 a6 G0 t0 j
#include <fstream>#include <cmath>#include <vector>#include <functional>
9 C6 z* E3 y( U& g const double kappa = 0.0001f;% q, {( D: J8 w3 \
const double alpha = 0.5f;
2 N: d% f' G- `1 y1 J4 \3 u const double dt = 3600; // 3600 seconds1 p+ n" u/ B9 B" [% \* m4 D
- Y+ K; S5 I- ?4 v0 g# h9 N7 s // lambda expression3 ]! A# H) k" J1 E% Y) Z! E' Z
auto explicit_scheme = [](double conc)->double{ return (1 - dt * kappa) * conc; };* v4 l5 [2 s7 K8 B0 A1 q$ `. x
auto implicit_scheme = [](double conc)->double{ return conc / (1 + dt * kappa); };
1 d# y3 i1 F& q7 T auto hybrid_scheme = [](double conc)->double{ return (1 - (1 - alpha) * kappa * dt) * conc / (1 + alpha * kappa * dt); };
) i9 p- z" q- x' j) c+ u( V! Y+ \% X; f8 P: {
void Decay( double concentration,
! w R- Z8 N/ t j! W1 e int steps,
5 I1 L2 V" s) S' m+ \; l" V const std::function<double(double)>& scheme,9 N t) W! O8 R- E3 ]& F, P. y* a8 B
const char* result_path )
2 v6 x# p$ X7 E$ w- [$ I {6 w* x/ W! ]" X$ w4 b2 y5 i& O
std::vector<double> res{concentration};* e+ g3 A( m7 ]
for(int i = 0; i < steps; i++)
: p" C D0 E4 V# b% O5 J2 D) ]! L {
' A* t( d8 z! B2 |1 C double conc1 = scheme(res[i]);% _4 S; Z b% Q/ B- `4 j$ N$ j% f
res.push_back(conc1);
$ B5 w' ` r1 d* ~5 q8 n1 f }
" K& f+ g0 B- }2 Z/ d$ w B8 B- g# y; q
std::ofstream file(result_path);
$ U X N' i. u if(file.is_open())2 ?, S4 h3 k& Y+ f( M5 {+ D3 S
{. _* ]; F) M' N, h8 x
for(auto val : res)" }2 E) A4 D; ^2 b$ R
file << val << "\n";( O" T Q) [7 E) d0 c: e
file.close();
* P- H1 _5 g7 d+ h1 [! S }
! M- u6 a: t8 R ]; ` }
6 L% Q+ n1 S& I1 i* n' }7 ^
# I" [$ R. [" f$ w void AnalyticalSolution(double concentration, int steps)2 a9 O0 q5 E3 X" D' d5 D4 f9 O
{- i+ v. ?3 W2 j0 l
std::vector<double> res{concentration};' V/ D" u7 x/ J
double t = 0;+ Y+ R! w: d- S- n$ j3 e1 n
for(int i = 1; i <= steps; i++)
7 U& H3 w( W' Y1 K# E( b) ~ {
/ r) x% m h& Q0 Q# @ t += dt;
) M$ `$ m7 p9 W# N double ct = std::exp(-kappa * t) * concentration;% f7 J" B: c; R. H, \
res.push_back(ct);) g+ L- r$ L- |' ]7 U+ p) t
}
/ K; Z8 Z) h; s
( x2 U5 N6 L/ }: X6 K7 t* z1 a std::ofstream file("res_analytical.txt");# D/ Y0 H) \* ]4 q* g
if(file.is_open())6 s+ M& Y, c+ g, ]0 r
{4 j2 g6 ^4 T1 C2 m, V; q# g2 I4 i9 w
for(auto val : res)' X4 l( S: c7 i9 O$ u; f# s+ O
file << val << "\n";7 X X& x8 Q6 C- ?: }
file.close();
& I, q( ]& J; z }$ f4 X- e9 J9 ]! [- H0 b1 e
}
6 m1 f5 k/ G0 k6 `5 D" Z6 v! W1 j
, u" c' U1 M5 a, g/ N int main()! |4 I3 M5 h8 C) a. S6 }0 w
{7 f5 d2 ]$ Q# D
// the initial concentration is 100 %% u- W' k( w. D* n) I
double concentration = 100;
( C+ _% W# W" H5 ^" x // which means the total simulating time is steps * dt seconds
/ b- N+ @! C4 ^9 F$ g int steps = 15;6 P; o$ B: H+ C6 T+ x& g
Decay(concentration, steps, explicit_scheme, "res_explicit.txt");4 x8 ^, _/ t2 A! P6 V' t2 ^
Decay(concentration, steps, implicit_scheme, "res_implicit.txt");, \/ t! }4 ~. `- I
Decay(concentration, steps, hybrid_scheme, "res_hybrid.txt");
7 a5 \2 e* _/ t, u y5 Y. L5 n- i& y AnalyticalSolution(concentration, steps);
. Z# w* y/ F/ @$ h return 0;
; F# y9 J* D3 o( D$ ]$ m* @ }
% {8 s* `( y8 W" Q" r
; Q8 L' ]2 ~8 Y6 ]- k; z. l+ H 绘图程序: n: H: U6 V9 D
import numpy as np
# F7 X1 b b9 O import matplotlib.pyplot as plt
( P/ ] G/ m% o A8 e
) U) x K$ J& H$ ? plt.figure(Decay Problem)) e Q: v% z% Z+ B: p% { K# m1 g
& }. M+ {1 R* m& N" l
res_explicit = np.loadtxt(res_explicit.txt).T
2 @% F# Z- `* ?4 |& `8 g res_implicit = np.loadtxt(res_implicit.txt).T
! H& M5 F. v- u& y8 P; V' R5 \( j res_hybrid = np.loadtxt(res_hybrid.txt).T
. U9 U- u3 y7 l4 E" l analytical = np.loadtxt(res_analytical.txt).T
$ n7 e) y5 ~, E2 Y5 `& s/ k
: x! r. W J# l, Z$ b time = np.arange(0, 16, 1). u" E+ T0 ^$ Q
plt.plot(time, analytical, color=black, linestyle=dashed, label=analytical)6 m9 K. I; ^6 ?1 R6 h$ o9 U
plt.plot(time, res_explicit, label=explicit)
- d: |7 H7 o/ a; A9 R0 _ plt.plot(time, res_implicit, label=implicit)/ P1 W i [9 H" G
plt.plot(time, res_hybrid, label=hybrid)
2 e% W) e0 X: Z* |3 A! @7 }
8 m, k& L" g, K+ _, |- I9 Q plt.legend()
0 _4 E9 `* C5 P0 w plt.title(Decay Problem)
1 l9 ?% N; _1 ^ plt.xlabel(Time (hours))
# P8 G0 K8 ~- H7 B( g8 N8 o plt.ylabel(Concentration (100%))3 X# G1 G( i3 W
plt.ylim(0, 100)+ E7 }- Q8 ?2 ~# [% J% e' t$ U9 i
plt.xlim(0, 15), u) }! v$ k5 H' \: r/ c
plt.xticks(time), ?; g: x6 L% ^; w/ [ B
plt.grid(True)6 F" Z3 `* V% i N
% x( p7 P5 x) T- n4 \$ C
plt.show()
8 ~* n6 J* o6 z5 Z4 q. @3 h1 l
5 e- n) L& H P* P, y 三、运行结果
2 H& t! z, u7 L/ r5 R0 a 结果如下图1所示，程序模拟了初始浓度为100%的某物质从零时刻开始15个小时的浓度变化情况，分别采用了显式、隐式以及半隐式的差分方法，对比黑色虚线的真实值可以看出同一时刻显示差分法的计算出的浓度比真实值要少，相反，隐式差分法要多一些。令人惊讶的是半隐式差分法（hybrid），几乎和真实值的曲线吻合，从此图可以直观的看出三种不同的差分方法的区别。 " a$ D, \0 n* B5 M& N& L
图 1. Decay Problem程序模拟结果参考文献Jochen Kampf. Ocean Modelling for Beginners. Springer. 2009. 喻文健. 数值分析与算法(第2版). 清华大学出版社. 2015.Wikipedia. 有限差分. https://en.wikipedia.org/wiki/Finite_difference.之前的文章
) {8 W; ^5 d9 s 猴子也能看懂的海洋数值模拟（零）
0 K3 s& o) D% d! |1 `- \ r D' B: J% j
) w8 ^/ W7 A/ i" v! T
3 f; h6 i: b0 h4 K8 r ?$ j: d! {: O4 e- L: U0 I: \
| 
