Üç Terimli İfadeleri Çarpanlarına Ayırma isimli bu Hazır Makro Kodu, denklemin çarpanlarına ayrılmış halini hesaplama ve çıkan sonucu gösterme işlevini yerine getirmektedir.
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.
Üç terimli ifadelerin (trinomials) çarpanlarına ayrılması, genellikle ikinci dereceden denklemlerin çözülmesine benzer. Bu ifadeler genellikle ax^2 + bx + c şeklindedir. Excel VBA kullanarak, bu tür ifadeleri çarpanlarına ayırmak için bir makro yazabiliriz.
Öncelikle, bu ifadelerin çarpanlarına ayrılması için köklerinin bulunması gerekmektedir. Eğer ifade tam kare bir trinomial ise (yani kökler tam sayı ise), bu kökler çarpanlara ayrılmada kullanılabilir.
Bu tabloda, Sonuç sütunundaki formül, a=1, b=-5 ve c=6 için denklemin çarpanlarına ayrılmış halini hesaplayacak ve çıkan sonucu gösterecektir. Bu örnekte, sonuç (x + 2)(x + 3) olacaktır.
Yararlanmanız temennisiyle.
Kod:
Function UcTerimliIfadeyiCarpalaraAyirma(a As Double, b As Double, c As Double) As String
Dim diskriminant As Double
Dim kok1 As Variant, kok2 As Variant
Dim sonuc As String
' Diskriminantı hesapla
diskriminant = b ^ 2 - 4 * a * c
' Diskriminantı kontrol et
If diskriminant >= 0 Then
' İki gerçek kök
kok1 = (-b + Sqr(diskriminant)) / (2 * a)
kok2 = (-b - Sqr(diskriminant)) / (2 * a)
If diskriminant > 0 Then
sonuc = "(x + " & -kok1 & ")(x + " & -kok2 & ")"
Else
sonuc = "(x + " & -kok1 & ")^2"
End If
Else
sonuc = "Reel kök yok"
End If
' Sonucu döndür
UcTerimliIfadeyiCarpalaraAyirma = sonuc
End FunctionUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.
Kısa Açıklama
Excel'de ikinci dereceden bir denklemi çarpanlarına ayırma işlemi genellikle denklemin köklerinin bulunması ve bu köklerin denklemdeki terimlerle bölünmesi yoluyla yapılır. İkinci dereceden bir denklemin genel formu ax^2 + bx + c = 0 şeklindedir ve kökleri (-b±√(b^2-4ac))/(2a) formülü ile bulunur.Üç terimli ifadelerin (trinomials) çarpanlarına ayrılması, genellikle ikinci dereceden denklemlerin çözülmesine benzer. Bu ifadeler genellikle ax^2 + bx + c şeklindedir. Excel VBA kullanarak, bu tür ifadeleri çarpanlarına ayırmak için bir makro yazabiliriz.
Öncelikle, bu ifadelerin çarpanlarına ayrılması için köklerinin bulunması gerekmektedir. Eğer ifade tam kare bir trinomial ise (yani kökler tam sayı ise), bu kökler çarpanlara ayrılmada kullanılabilir.
Bu tabloda, Sonuç sütunundaki formül, a=1, b=-5 ve c=6 için denklemin çarpanlarına ayrılmış halini hesaplayacak ve çıkan sonucu gösterecektir. Bu örnekte, sonuç (x + 2)(x + 3) olacaktır.
Yararlanmanız temennisiyle.
