Soru Üstel fonksiyon hesaplama ödevim

[goko36]

Merhaba. Bir ödevim var fakat hiçbir şekilde ilerleyemedim bu ödevde. kısaca bahsetmek gerekirse taylor serilerini kullanarak üssel fonksiyon hesaplamamı istiyor.

http://imgur.com/rJ6HGxh

yardımcı olabilirmisiniz?

 

[Haluk]

Sub Test()
    Dim X As Integer, N As Integer, i As Integer
    Dim iFact As Double, RetVal As Double
    
    X = Application.InputBox(Prompt:="Enter X", Title:="Calculation....", Type:=1)
    
    For N = 0 To 100
        iFact = 1
        
        For i = 1 To N
            iFact = i * iFact
        Next
        
        RetVal = RetVal + (X ^ N) / iFact
    Next
    
    MsgBox "e^" & X & "= " & RetVal
    Range("B1") = RetVal
End Sub

.

 

[Merhum İdris SERDAR]

.

Bu da fonksiyonlarla.

İndir taylordizisi

Dosyayı indir taylordizisi

dosya.co

.

 

[goko36]

Sub Test()
    Dim X As Integer, N As Integer, i As Integer
    Dim iFact As Double, RetVal As Double
   
    X = Application.InputBox(Prompt:="Enter X", Title:="Calculation....", Type:=1)
   
    For N = 0 To 100
        iFact = 1
       
        For i = 1 To N
            iFact = i * iFact
        Next
       
        RetVal = RetVal + (X ^ N) / iFact
    Next
   
    MsgBox "e^" & X & "= " & RetVal
    Range("B1") = RetVal
End Sub

.

hocam mükemmel bir cevap çok teşekkür ederim. nedense 2 for döngüsünü iç içe çalıştırmak bir türlü aklıma gelmedi. sağolun

 

[goko36]

.

Bu da fonksiyonlarla.

İndir taylordizisi

Dosyayı indir taylordizisi

dosya.co

.

Hocam sizede çok teşekkür ederim. hazırladığınız bu dosyayı incelemek için kaydettim çok sağolun

 

[ibrahimpeng]

sub TAYLOR()
Dim x, i, t As Double
for i=0 To 20
t=0
t=t+i+1+(i^i)/worksheetfunction.Fact(i)
next i
msgbox t
End sub

ödevin küçük bir kısmı...