Pi auf bis 2400 Nachkommastellen bestimmen Mit nachfolgenden Tipp lässt sich eine der wohl wichtigsten Zahlen in der Mathematik - PI - bis auf 2400 Nachkommastellen bestimmen.
Autor:   Gunnar Schmitz	Bewertung:	Views:  15.752
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Eine der wohl wichtigsten Zahlen in der Mathematik ist PI. Pi steht sowohl für den Flächeninhalt eines Kreises mit dem Radius 1, als auch für den Umfang eines Kreises mit dem Durchmesser 1. Für Pi gibt es mehrere Näherungsverfahren, die sich auch mit einem Programme realisieren lassen. Mit nachfolgendem Code lässt sich die Zahl Pi auf bis zu 2400 Nachkommastellen bestimmen.

Public Function CalcPI() As String
  Dim PI As String
  Dim TmpString As String
  Dim Tmp1 As String
  Dim Tmp2 As String
  Dim a As Long
  Dim b As Long
  Dim c As Long
  Dim d As Long
  Dim e As Long
  Dim f(8401) As Long
  Dim g As Long
  Dim mLen As Integer
 
  a = 10000
  c = 8400
 
  Do While (b <> c)
    f(b) = a \ 5
    b = b + 1
  Loop
 
  Do While (c > 0)
    g = 2 * c
    d = 0
    b = c
    Do While (b > 0)
      d = d + (f(b) * a)
      g = g - 1
      f(b) = d Mod g
      d = d \ g
      g = g - 1
      b = b - 1
      If b <> 0 Then
        d = d * b
      End If
    Loop
    c = c - 14
    TmpString = e + d \ a
    mLen = Len(TmpString)
    If mLen < 4 Then
      TmpString = TmpString & ("0000" & TmpString)
    End If
    Tmp1 = Left(TmpString, 5 - mLen)
    Tmp2 = Right(TmpString, mLen - 1)
    PI = PI & (Tmp1 & Tmp2)
    e = d Mod a
  Loop
 
  PI = Left(PI, 1) & "." & Mid(PI, 2)
 
  CalcPI = PI
End Function

Natürlich ist dieses Näherungsverfahren sehr rechenintensiv, wodurch es auf älteren Systemen auch ein bisschen länger dauern kann.
 

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.