Open Access

Algorithm 3

Find delay lengths.

procedure CurvinG(xr0, z0, H, V, N, η, β, g, a, b)
 constant:
  Δv = −V/N
  Δh = Δv
  ν = f(xr,0, z0) according to Eq. (19)
  ϑ0 = ν − η
   M = - H 2   Δ v + 1 $ M=-\frac{H}{2\enspace \Delta v}+1$
   r = z 0 sin ( η + ϑ 0 ) $ r=\frac{{z}_0}{\mathrm{sin}(\eta +{\vartheta }_0)}$ according to fig. 2
 initialization:
  W = zeros(M, N)
  Wh = zeros(M, N)
  Wv = zeros(M, N)
  Wv[1] = −sinϑ0
  Whh = a
 for n = 1…N do
  W[m,n + 1] ← W[m, n] + Wv[m, n] Δv num. int.
  v = n Δv
  r ← f(v, η, Wh[m, n], Wv[m, n], z0) cf. Eq. (12)
  Wvvf(r, g, β, a, b, Wv[m, n]) cf. Eq. (18)
  Wv[m, n + 1] ← Wv[m, n] + Wvv Δv num. int.
 end for
 for m = 1…M do
  for n = 1…N do
   W[m + 1, n]←W[m, n] + Wh[m, n] Δh num. int.
   v = n
   Δv rf(v, η, Wh[m, n], Wv[m, n], z0) cf. Eq. (12)
    Whh = Wh [ m , n ] 2 r + a $ {Whh}=\frac{{Wh}[m,n{]}^2}{r}+a$ cf. Eq. (16)
    Whv = Wh [ m , n ]   Wv [ m , n ] r + b $ {Whv}=\frac{{Wh}[m,n]\enspace {Wv}[m,n]}{r}+b$ cf. Eq. (17)
   Wv[m + 1, n] ← Wv[m, n]+Whv Δh num. int.
   Wh[m+1, n] ← Wh[m, n]+Whh Δh num. int.
  end for
 end for
 return W
end procedure

Current usage metrics show cumulative count of Article Views (full-text article views including HTML views, PDF and ePub downloads, according to the available data) and Abstracts Views on Vision4Press platform.

Data correspond to usage on the plateform after 2015. The current usage metrics is available 48-96 hours after online publication and is updated daily on week days.

Initial download of the metrics may take a while.