# [B4X] Today - Pi Day

#### Star-Dust

##### Expert
Longtime User
Today March 14 (3/14) is the day of the Greek Pi ù

(https://en.wikipedia.org/wiki/Pi_Day)

3,14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280 34825 34211 70679…

#### Star-Dust

##### Expert
Longtime User
Some B4X methods to calculate it

1) Formulas di Leibniz
B4X:
``````Dim N As Int = 1000 ' The greater the value, the greater the precision
Dim PiGreek As Double = 1

For i=1 To N
PiGreek=PiGreek+Power(-1,i)/(2*i+1)
Next

Log(4*PiGreek)``````

2) Formulas di Machin
B4X:
``````Dim PiGreek As Double = 4*ATan(1/5)-ATan(1/239)

Log(4*PiGreek)``````

3) Formulas di Wallis
B4X:
``````Dim N As Int = 1000
Dim PiGreek As Double = 1

For i=1 To N
PiGreek=PiGreek*((i*2)/((i-1)*2+1))*((i*2)/((i-1)*2+3))
Next

Log(2*PiGreek)``````

Last edited:

#### Erel

##### B4X founder
Staff member
Longtime User
B4X:
``````Sub AppStart (Args() As String)
Dim CountIn As Int
Dim Total As Int = 100000000
For i = 0 To Total - 1
Dim r1 As Int = Rnd(0, 0x7fffffff)
Dim r2 As Int = Rnd(0, 0x7fffffff)
Dim x As Double = r1 / 0x7fffffff
Dim y As Double = r2 / 0x7fffffff
Dim distance2 As Double = Power(x - 0.5, 2) + Power(y - 0.5, 2)
If distance2 <= 0.25 Then CountIn = CountIn + 1
Next
Log(CountIn / Total / 0.25)
End Sub``````

#### Star-Dust

##### Expert
Longtime User
Formulas di Basel
B4X:
``````Dim N As Int = 1000
Dim PiGreek As Double = 0

For i=1 To N
PiGreek=PiGreek+1/Power(i,2)
Next

Log(Sqrt(PiGreek*6))``````

#### MarkusR

##### Well-Known Member
Longtime User
simplified ~ 22/7

#### Star-Dust

##### Expert
Longtime User
simplified ~ 22/7
There is a difference between an approximation and a calculation.

22/7= 3.1428571429
PI Gr= 3,1415926535 89793

#### MarkusR

##### Well-Known Member
Longtime User
There is a difference between an approximation and a calculation.
22/7= 3.1428571429
PI Gr= 3,1415926535 89793
yes but it works if u have a sin / cos method with radiant input 22/7/180 (angle in radians) and you will just move a sprite along this direction.