Ajustement polynomial

Ajustement affine

Tester les deux types d'ajustement, et en utilisant les curseurs,
 choisir celui qui ajuste au mieux le nuage de points

A1: 1
B1: 17719
A2: 2
B2: 19086
A3: 3
B3: 20639
A4: 4
B4: 24140
A5: 5
B5: 30006
A6: 6
B6: 35836
A7: 7
B7: 42076
A: (A1, B1)
B: (A2, B2)
C: (A3, B3)
D: (A4, B4)
E: (A5, B5)
F: (A6, B6)
G: (A7, B7)
l1: {A, B, C, D, E, F, G}
a = 130 (slider from 0 to 1000, step 5)
f(x) = If[1 ≤ x ≤ 19, (a * x^(2)) - (667 * x) + 17720]
b = RSquare(l1, f)
texte1: "Coefficient de détermination: " + b + ""
a' = 3010 (slider from 3000 to 5000, step 10)
c = false
g(x) = If[1 ≤ x ≤ 19, (a' * x) + 10509]
d = RSquare(l1, g)
texte2: "Coefficient de détermination: " + d + ""
h = false
texte3: "f(x) = " + a' + " x + 10 509"
texte4: "f(x) = " + a + " x ² - 667 x + 17 720"