wurzelformel (Programmieren)

Von: heller

28.10.04 - 17:49

Ich habe das gefühl das ich hier genau an der Quelle sitz .Ich würde eine formel suchen mit der man wurzel stelle für stelle
berechnen kann. Brauche ich für ein Programm.

Von: Freestyler

28.10.04 - 18:30 (28.10.04 - 18:31)

Also mit Java kann ich dir das in 5min programmieren ;)
Aber dafür braucht man nen JavaEditor + jdkfiles was eigentlich niemand so hat ^.^

Von: Rackergen

28.10.04 - 20:58 (28.10.04 - 21:00)

Was meinst du mit "stelle für stelle"?
Welche Programmiersprache?
->sqrt(x)

Von: René [Mogel-Power]

28.10.04 - 21:05

Offenbar meint er: mit der Hand berechnen.

http://groups.google.de/groups?hl=de&;lr=&newwindow=1&selm=3AD8B409.A36FD633%40t-online.de

Von: L!nk3T

31.10.04 - 21:40

er will es so machen
wurzel(2) =
1
1,4
1,41
1,414
1,4142

usw

warum weis er bestimmt selber nicht

Von: Rackergen

01.11.04 - 10:04

Dan has aber nix mit Programmieren zu tun...

Von: Sex Gott

01.11.04 - 12:42

Mal 'ne schnelle Visual Basic Version von mir:

Private Function fSqr(ByVal dStartValue As Double, Optional ByVal lLoops As Long = 5) As Double



    'Variables

    Dim dValue1() As Double

    Dim dValue2() As Double

    Dim nCount     As Long



    'Redimensionate the variable

    ReDim dValue1(0): ReDim dValue2(0)



    'Search the startvalue

    Do

        'Increase the value

        dValue1(0) = dValue1(0) + 1

    Loop Until ((dValue1(0) * dValue1(0)) >= dStartValue)



    'Check if it is equal

    If ((dValue1(0) * dValue1(0)) = dStartValue) Then

        'Return the value

        fSqr = dValue1(0)

        Exit Function

    End If



    'Set the start value

    dValue2(0) = (dStartValue * 0.5)



    For nCount = 1 To lLoops

        'Redimensionate the variables

        ReDim Preserve dValue1(nCount): ReDim Preserve dValue2(nCount)

        'Calculate the new values

        dValue1(nCount) = ((dValue1(nCount - 1) + dValue2(nCount - 1)) * 0.5)

        dValue2(nCount) = (dStartValue / dValue1(nCount))

    Next



    'Return the value

    fSqr = CDbl((dValue1(lLoops) + dValue2(lLoops)) * 0.5)

    

End Function