set term x11 font ',14'

elongation_al(eps_almansi) = 1./sqrt(1. - 2.*eps_almansi)
eps_log(eps_almansi) = log(elongation_al(eps_almansi))



set grid


set xlabel 'temps'
set ylabel 'epaisseur'
ep_via_EPS(ep0, epsI, epsII, NU) = ep0*exp(-NU/(1.-NU)*(eps_log(epsI) + eps_log(epsII)))
ep_via_EPSIII(ep0, epsIII) = ep0*exp(eps_log(epsIII))
p   "test_princ.maple" u 1:13 t 'EPAISSEUR_FINALE' noenhanced w p
rep "test_princ.maple" u 1:14 t 'EPAISSEUR_MOY_FINALE' noenhanced w p
rep "test_princ.maple" u 1:(ep_via_EPS(0.038, $5, $6, 0.4)) t 'via def I et II et NU' w l dt 1
rep "test_princ.maple" u 1:(ep_via_EPSIII(0.038, $15)) t 'via def III' w l dt 1
pause -1
