You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
|
module Homotopy
|
|
|
|
|
|
export homotopy
|
|
|
|
|
|
|
|
|
|
|
|
# Define a straight-line homotopy between the two systems
|
|
|
|
|
|
function homotopy(F, G)
|
|
|
|
|
|
γ = cis(2π * rand())
|
|
|
|
|
|
function H(t)
|
|
|
|
|
|
return [(1 - t) * f + γ * t * g for (f, g) in zip(F, G)]
|
|
|
|
|
|
end
|
|
|
|
|
|
return H
|
|
|
|
|
|
end
|
|
|
|
|
|
end
|
