2B' Dogrusal Olmayan Cebirsel Denklem Takimlari:

1
2B. Dogrusal Olmayan Cebirsel Denklem Takimlari
Hata Denklemleri
Örnek 2B.1
Hata Denklemleri
Ilk tahmin x1, y-1 olsun.
Sub newtonrn_Click () ' Change lines 40,41, Error
Equations (45-46) for different problems ' Change
line 42 if necessary Static n As Integer, kmatris
As Integer 40 n 2 ReDim a(n, n) As Single,
b(n) As Single, x(n) As Single, xb(n) As Single,
xh(n) As Single 41 xb(1) 1 xb(2) -1 xh(1)
.001 xh(2) .001 42 NITER1 5 NITER2 20
2
KHATA 0 Call cls1 For ir 1 To NITER2 45
'---- Error equations ----------- a(1, 1) 30
xb(1) a(1, 2) -3 a(2, 1) 13.5 /
Sqr(xb(1)) a(2, 2) 6 xb(2) b(1) -(15
xb(1) 2 - 3 xb(2) - 21) b(2) -(27
Sqr(xb(1)) 3 xb(2) 2 - 39) 46
'-------------------- Call ldenk(n, a(), b(),
x(), kmatris) If kmatris 1 Then KHATA 2
GoTo 49 For i 1 To n xb(i) xb(i) x(i)
Next i If ir lt NITER1 Then 47 For i 1 To
n If Abs(x(i)) gt xh(i) Then 47 Next i
GoTo 48 47 Next ir KHATA 1 GoTo 49 48 For i
1 To n Print xb(i) Next i 49 Print Print "
NITER, HATA " ir, KHATA End Sub
ldenk.vb
x1, y-2 bulunur.
3
ms.exe
s4k, skb, s2k, s01, k1, k2, k8