include("../ho_basis.jl")
include("../EC.jl")

V_of_r(r) = 2 * exp(-(r-3)^2 / (1.5)^2)
Λ = 0
m = 1.0

μω_global = 0.5 * exp(-2im * pi / 9)
E_max = 40

T = get_3b_H_matrix(src, V_of_r, μω_global, E_max, Λ, m, true, false)
V = get_3b_H_matrix(src, V_of_r, μω_global, E_max, Λ, m, false, true)

ref_E = 5.9673 - 0.0006im

training_c = 2.0 : -0.2 : 1.2
extrapolating_c = 1.05 .- [0.0 : 0.1 : 0.4; 0.45 : 0.05 : 0.60]

EC = affine_EC(T, V)
train!(EC, training_c; ref_eval=ref_E, CAEC=false)
extrapolate!(EC, extrapolating_c)

exportCSV(EC, "temp/HO_R2R.csv")
plot(EC, "temp/HO_R2R.pdf")