Skip to main content
. Author manuscript; available in PMC: 2017 Nov 21.
Published in final edited form as: Phys Med Biol. 2016 Oct 26;61(22):8135–8156. doi: 10.1088/0031-9155/61/22/8135
1:Initial: (1) = K(0) = 0, m(1) = 1;
2:Initial: η = 1.0×10−3, δ;
3: For n = 1, 2, …, J;
4: Ks = (n)r(n+1) AT (AK̅(n)C),
5:
wi,i+1,j,j,t,t=exp[(Ks(i,j,t)Ks(i+1,j,t)δ)2],
wi,i,j,j+1,t,t=exp[(Ks(i,j,t)Ks(i,j+1,t)δ)2],
wi,i,j,j,t,t+1=exp[(Ks(i,j,t)Ks(i,j,t+1)δ)2],
6: For d = 1, 2, ⋯, D;
7:   If d == 1;
8:
K(n1)+d=KsKsK(n1)2·η·KsAwTTVKsAwTTV;
9:   Else K(n1)+d=K(n1)+(d1)KsK(n1)2·η·K(n1)+(d1)AwTTVK(n1)+(d1)AwTTV;
10:   End If ;
11:  End For;
12: K(n) = K(n−1)+D;
13:
m(n+1)=1+1+4(m(n))22;
14: (n+1) = K(n) + ((m(n) − 1) / m(n+1))(K(n)K(n−1));
15: η = 0.995* η;
16: End For;
17: = K(N);
18: Return .