VoyForums

[ VoyUser Login optional ] [ Main index ] [ Post a new message ] [ Search | Check update time ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 18:19:43 03/13/09 Fri
Author: Sylvester Noonan
Author Host/IP: 96.32.28.3
Subject: Re: involute function
In reply to: Web Gear Services Ltd 's message, "Re: involute function" on 20:10:57 11/11/02 Mon

Function Inv(x As Double) As Double
Inv = Tan(x) - x
End Function

Function ArcInv(y As Double) As Double
Dim x As Double
Dim x1 As Double
x1 = 0.5

Do While Abs(x1 - x) > 0.000001
x = x1
x1 = x + (y - Inv(x)) / ((Cos(x)) ^ (-2) - 1)
Loop

ArcInv = x1

End Function

[ Next Thread | Previous Thread | Next Message | Previous Message ]
[ VoyUser Login ] Not required to post.
Post a public reply to this message | Go post a new public message
 * HTML allowed in marked fields.
Message subject (required):

Name (required):

  Expression (Optional mood/title along with your name) Examples: (happy, sad, The Joyful, etc.) help)

  E-mail address (required):

Type your message here:


Notice: Copies of your message may remain on this and other systems on internet. Please be respectful.
 The Voy.com User Agreement applies to all visitors.

Forum timezone: GMT-5
VF Version: 2.94, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2012 Voyager Info-Systems. All Rights Reserved.