Başlangıç > Kodlar > Visual Basic 6 ile n.derece denklem çözümü

Visual Basic 6 ile n.derece denklem çözümü


n*n lik matris katsayılarıyla oluşturulan denklemin kökleri


Dim katsayi() As Double
Dim sonuc() As Double
Dim kokler() As Double
Dim n As Double
Dim k As Integer
Dim sum As Double
Dim carpan As Double
Dim i As Integer
Dim harf() As String

Private Sub hesap_Click()
On Local Error Resume Next

For k = 1 To n - 1
For i = k + 1 To n
carpan = katsayi(i, k) / katsayi(k, k)
For j = k + 1 To n
katsayi(i, j) = katsayi(i, j) - carpan * katsayi(k, j)
Next j
sonuc(i) = sonuc(i) - carpan * sonuc(k)
Next i
Next k
kokler(n) = sonuc(n) / katsayi(n, n)

For i = n - 1 To 1 Step -1
sum = 0
For j = i + 1 To n
sum = sum + katsayi(i, j) * kokler(j)
Next j
kokler(i) = (sonuc(i) - sum) / katsayi(i, i)
Next i
List1.Clear
For i = 1 To n
List1.AddItem harf(i) & " = " & Format(kokler(i), "#0.00000000")
Next i

End Sub

Private Sub kaysayilarial_Click()
MSFlexGrid1.Rows = 0
MSFlexGrid1.Cols = 0
n = CDbl(Text1.Text)
MSFlexGrid1.Rows = n
MSFlexGrid1.Cols = n + 1
ReDim katsayi(n, n)
ReDim sonuc(n)
ReDim kokler(n)
ReDim harf(n)

For i = 1 To n
harf(i) = Chr(97 + i - 1)
For j = 1 To n
Dim a As String
2
a = InputBox(i & "." & j & " .katsayısını giriniz:")
If a <> "" Then
katsayi(i, j) = CDbl(a)
Else
MsgBox ("veri girilmedi")
GoTo 2
End If
Next j
Dim b As String
3
b = InputBox(i & ".denlem sonucunu giriniz:")
If b <> "" Then
sonuc(i) = CDbl(b)
Else
MsgBox ("veri girilmedi")
GoTo 3
End If

Next i

For i = 1 To n
For j = 1 To n
MSFlexGrid1.TextMatrix(i - 1, j - 1) = katsayi(i, j) & harf(j)
Next j

MSFlexGrid1.TextMatrix(i - 1, n) = sonuc(i)
Next i

End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: