Skip to main content
. Author manuscript; available in PMC: 2017 Jun 14.
Published in final edited form as: Midas J. 2008 Sep;2008:27–35.

Algorithm 1.

Solution of OMT:

û ← OMTsol(μ0, μ1);

Use μ0 and μ1 to compute a mass preserving u0
while true do
 Solve (3.7) for δû
 line search: set α = 1
while true do
   u^n+1=P(u^n+αδu^)
   ifu^n+1xμ0<u^nxμ0andRe(λ(hun+1))>0then
   Break
  end if
   α ⇐ α/2
end while
end while