18 |
|
|
19 |
c On en revient a resoudre un systeme de 4 equat.a 4 inconnues a0,a1,a2,a3 |
c On en revient a resoudre un systeme de 4 equat.a 4 inconnues a0,a1,a2,a3 |
20 |
|
|
21 |
REAL*8 Xf1, Xf2,Xprim1,Xprim2, xtild1,xtild2, xi |
DOUBLE PRECISION Xf1, Xf2,Xprim1,Xprim2, xtild1,xtild2, xi |
22 |
REAL*8 Xfout, Xprim |
DOUBLE PRECISION Xfout, Xprim |
23 |
REAL*8 a1,a2,a3,a0, xtil1car, xtil2car,derr,x1x2car |
DOUBLE PRECISION a1,a2,a3,a0, xtil1car, xtil2car,derr,x1x2car |
24 |
|
|
25 |
xtil1car = xtild1 * xtild1 |
xtil1car = xtild1 * xtild1 |
26 |
xtil2car = xtild2 * xtild2 |
xtil2car = xtild2 * xtild2 |