Yapay zeka makro

[uzmanamele]

Merhaba

Microsoft Edge üzerinden Bing'e "2.derece denklem çözen excel makro" sordum.

Ekteki açıklamayı ve kodu verdi.
Siz de deneyiniz.

Sub DereceDenklemCoz()
Dim a As Double, b As Double, c As Double 'Katsayıları tanımla
Dim x1 As Variant, x2 As Variant 'Kökleri tanımla
Dim d As Double 'Diskriminantı tanımla

a = Range("A1").Value 'A1 hücresindeki değeri a'ya ata
b = Range("B1").Value 'B1 hücresindeki değeri b'ye ata
c = Range("C1").Value 'C1 hücresindeki değeri c'ye ata

d = b ^ 2 - 4 * a * c 'Diskriminantı hesapla

If d > 0 Then 'Eğer diskriminant pozitifse
    x1 = (-b + Sqr(d)) / (2 * a) 'Birinci kökü hesapla
    x2 = (-b - Sqr(d)) / (2 * a) 'İkinci kökü hesapla
    MsgBox "Denklemin iki farklı kökü vardır: " & x1 & " ve " & x2 'Kökleri mesaj kutusunda göster
ElseIf d = 0 Then 'Eğer diskriminant sıfırsa
    x1 = -b / (2 * a) 'Tek kökü hesapla
    MsgBox "Denklemin tek bir kökü vardır: " & x1 'Kökü mesaj kutusunda göster
Else 'Eğer diskriminant negatifse
    x1 = (-b + Sqr(-d) * I) / (2 * a) 'Birinci karmaşık kökü hesapla
    x2 = (-b - Sqr(-d) * I) / (2 * a) 'İkinci karmaşık kökü hesapla
    MsgBox "Denklemin iki farklı karmaşık kökü vardır: " & x1 & " ve " & x2 'Kökleri mesaj kutusunda göster
End If
End Sub

 

[uzmanamele]

Bu kodu da önerdi

Sub QuadraticSolver()
    Dim a As Double
    Dim b As Double
    Dim c As Double
    Dim x1 As Double
    Dim x2 As Double
    a = InputBox("Enter the value of a")
    b = InputBox("Enter the value of b")
    c = InputBox("Enter the value of c")
    If b ^ 2 - 4 * a * c < 0 Then
        MsgBox "The equation has no real roots"
        Exit Sub
    End If
    x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
    x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
    MsgBox "The roots are " & x1 & " and " & x2
End Sub

 

[uzmanamele]

Bu kodu da önerdi

Sub QuadraticSolver()
    Dim a As Double
    Dim b As Double
    Dim c As Double
    Dim x1 As Double
    Dim x2 As Double
    a = InputBox("Enter the value of a")
    b = InputBox("Enter the value of b")
    c = InputBox("Enter the value of c")
    If b ^ 2 - 4 * a * c < 0 Then
        MsgBox "The equation has no real roots"
        Exit Sub
    End If
    x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
    x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
    MsgBox "The roots are " & x1 & " and " & x2
End Sub

Not: Bu soru için Sayın İdris Serdar'ın 3.Derece Denklem Katsayıları, Kökleri ve Grafiği – Excel Gurusu referans verilmiş.

 

[Ali]

Farklı dereceler (3,4,5 ...) içinde Newton-Ralpson metotu var. Önceki yıllarda eklemiştim.

Farklı derecede denklemlerin çözümleri