set term x11 font ',14'

E = 200.
NU = 0.4

K = E/(3.*(1.-2.*NU))
G = E/(2.*(1.+NU))

set key center bottom
set yrange[0:]
set ytics add ("K" K)
p   K  t 'theorique K' w p lc 0 pt 4 ps 1.5
rep "test_CP_princ.maple" u 5:13 t 'herezh CP' w l lc 1 dt 1 lw 2
rep "test_DP_princ.maple" u 5:13 t 'herezh DP' w l lc 3 dt 2 lw 2
pause -1

set ytics 30
set ytics add ("G" G, "2G" 2.*G)
p   G  t 'theorique G' w p lc 0 pt 2 ps 1.5
rep 2.*G  t 'theorique 2G' w p lc 0 pt 4 ps 1.5
rep "test_CP_princ.maple" u 5:14 t 'herezh CP' w l lc 1 dt 1 lw 2
rep "test_DP_princ.maple" u 5:14 t 'herezh DP' w l lc 3 dt 1 lw 2
pause -1
