Newton Method error.

[Philosophaie]

Getting an error on the line where you calculate "diff".
I am certain the equations are correct.

E1 is in Radians and MA(k) and EA(k) are in Degrees.
e(k) is no Units.

Error code:

Invalid procedure call or argument.

           'Newton Method
            Pi = Application.WorksheetFunction.Pi
            E1 = Pi / 4 'Initialize
            diff = 1 'Initialize
            Do Until Math.abs(diff) < 0.00001
                If E1 = 3 * Pi / 2 Then
                    MsgBox ("/0")
                    E1 = 0.1
                End If
                diff = (E1 - e(k) * Math.Sin(E1) - MA(k) * Pi / 180) / (1 + Math.Cos(E1)) 'Error
                E1 = E1 + diff
            Loop
            EA(k) = E1 * 180 / Pi

What am I doing wrong?

 

[AlanY]

have you declared e(k) and MA(k) elsewhere in the subroutine?

 

[pgc01]

Hi

When the code stops and you get the error what are the values of

E1
e(k)
MA(k)

 

[Rick Rothstein]

            Pi = Application.WorksheetFunction.Pi

This is not an answer to your question (you will need to answer the questions that have been asked of you in order to get one), rather, I thought you might find it interesting that the above can be replaced with this...

Pi = 4 * Atn(1)

 

[pgc01]

... or the shorthand for the worksheetfunction:

Pi=[pi()]

 

[Rick Rothstein]

... or the shorthand for the worksheetfunction:

Pi=[pi()]

Red text should read "Evaluate function".

 

[pgc01]

Rick, Thank you for the correction. You are right, it should read 'Evaluate function'.