excelde turev ve integral alınması

[parametre]

excelde turev ve integral alınması

integral sayfasındaki açıklama
Burada "x" ifadesi değişkenimiz olup "y" ifadesi ise "x" ile oluşturulmuş olan bir fonksiyondur. "y" fonksiyonunun integrali yandaki gibi "ilk" ve "son" değerleri arasında hesaplanmıştır.

"y" fonksiyonunu istediğiniz gibi değiştirebilirsiniz. Değiştirdiğinizde fonksiyonun integrali de değişmiş olacaktır.

Burada "y" ifadesi bir fonksiyon olmak zorundadır. "x" ifadesi herhangi bir sayı olabilir.

turev sayfasındaki acıklama
Lütfen makro güvenliğini kapatınız.


Burada yer alan "Türev" fonksiyonu, belirtilmiş olan bir denklemin türevii hesaplamaktadır.

Türev, yanda gösterildiği şekilde parametrelerden bir tanesi x, diğeri ise x ile ifade edilen bir y fonksiyonundan oluşmaktadır.

Hesaplamak için "=Türev(x;y)" şeklinde yazılarak hesaplanır.

guzel bir uygulama

kodlari

[COLOR="Green"][B]Function integral(x As Range, y As Range, ilk, son)
On Error Resume Next
Dim Hareket_Adımı
Dim Yazı
Dim i
Hareket_Adımı = (son - ilk) / 10000
If Hareket_Adımı <= 0.00001 Then Hareket_Adımı = 0.00001
Yazı = (Application.WorksheetFunction.Substitute(y.Formula, "$", ""))
adres = (Application.WorksheetFunction.Substitute(x.Address, "$", ""))
Yazı = (Application.WorksheetFunction.Substitute(Yazı, adres, "i"))
For i = ilk To son Step Hareket_Adımı
b = (Application.WorksheetFunction.Substitute(Yazı, "i", i))
a = Application.Evaluate((Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Yazı, "i", i), ",", ".")))
integral = integral + Hareket_Adımı * a
Next
integral = Format(integral, "#0.00")
End Function[/B][/COLOR]
[COLOR="Red"][B]Function Türev(x As Range, y As Range)
On Error Resume Next
Dim Hareket_Adımı
Dim Yazı
Dim i
Dim x_adım
Dim y_adım
 
Hareket_Adımı = 1 / 100000
 
Yazı = (Application.WorksheetFunction.Substitute(y.Formula, "$", ""))
adres = (Application.WorksheetFunction.Substitute(x.Address, "$", ""))
Yazı = (Application.WorksheetFunction.Substitute(Yazı, adres, "i"))
For i = x.Value + Hareket_Adımı To x.Value + Hareket_Adımı ' Step Hareket_Adımı
b = (Application.WorksheetFunction.Substitute(Yazı, "i", i))
a = Application.Evaluate((Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Yazı, "i", i), ",", ".")))
y_adım = a
 
x_adım = x.Value + Hareket_Adımı
 
Next
Türev = (y_adım - y.Value) / Hareket_Adımı
 
 
End Function[/B][/COLOR]

[COLOR="Black"][B]Option Private Module
Sub Auto_Open()
Application.MacroOptions "integral", "Bu fonksiyon, bir formülün integral değerini verir.", , , , , "integral"
Application.MacroOptions "Türev", "Bu fonksiyon, bir formülün türev değerini verir.", , , , , "Türev"

End Sub[/B][/COLOR]

konu alıntıdır

 

[parametre]

Slm sayın mod arkadaslardan rica etsek aceba Bu konuyu daha faydalı olacağına inandıgımız bir bolume alma imkanı varmıdır aceba