Word / Интерполяция v1
.0.doc|
|
|
|
Интерполяция |
|
|
|
|
|
Xi |
Yi |
i |
|
|
y=A*X^2+B*X+C |
|
|
|
-4 |
6 |
0 |
|
i |
A |
B |
C |
|
-3 |
10 |
1 |
|
0 |
3 |
15 |
18 |
|
-2 |
5 |
2 |
|
1 |
-10 |
-60 |
-80 |
|
|
|
|
|
2 |
2,5 |
17,5 |
30 |
|
проверка |
|
|
|
сумма |
-4,5 |
-27,5 |
-32 |
|
для х= |
-4 |
|
|
|
|
|
|
|
y= |
6 |
|
|
|
|
|
|
|
для х= |
-3 |
|
|
|
|
|
|
|
y= |
10 |
|
|
|
|
|
|
|
для х= |
-2 |
|
|
|
|
|
|
|
y= |
5 |
|
|
|
|
|
|
Sub interpoliacija()
Dim x0!, x1!, x2!, y0!, y1!, y2!, yp1!, yp2!, yp3!, A0!, A1!, A2!, B0!, B1!, B2!, C0!, C1!, C2!, sA!, sB!, sC!
Dim i%, j%
x0 = Cells(3, 1): x1 = Cells(4, 1): x2 = Cells(5, 1)
y0 = Cells(3, 2): y1 = Cells(4, 2): y2 = Cells(5, 2)
A0 = y0 \ (x0 - x1) * (x0 - x2): Cells(4, 6) = A0
A1 = y1 / (x1 - x0) * (x1 - x2): Cells(5, 6) = A1
A2 = y2 / (x2 - x0) * (x2 - x1): Cells(6, 6) = A2
sA = A0 + A1 + A2
Cells(7, 6) = sA
B0 = A0 * (-x1 - x2): Cells(4, 7) = B0
B1 = A1 * (-x0 - x2): Cells(5, 7) = B1
B2 = A2 * (-x0 - x1): Cells(6, 7) = B2
sB = B0 + B1 + B2: Cells(7, 7) = sB
C0 = A0 * ((-x1) * (-x2)): Cells(4, 8) = C0
C1 = A1 * ((-x0) * (-x2)): Cells(5, 8) = C1
C2 = A2 * ((-x0) * (-x1)): Cells(6, 8) = C2
sC = C0 + C1 + C2: Cells(7, 8) = sC
yp1 = sA * x0 ^ 2 + sB * x0 + sC: Cells(9, 2) = yp1
yp2 = sA * x1 ^ 2 + sB * x1 + sC: Cells(11, 2) = yp2
yp3 = sA * x2 ^ 2 + sB * x2 + sC: Cells(13, 2) = yp3
End Sub