;
; An approximation of Pi (name and source of algorithm unknown).
;
; Jacob, August 5, 2008
;


AppTitle( "New Pi" )
Graphics( 300, 200, 16, 2 )


Global n          = 2000 	; Takes very long, starting at about 10000


Global nCountdown = 2000
Global fn         = 2000
Global fn_new = 0
Global i = 1

Print( n*2)


; Main loop:
While ( nCountdown > 2 )

	nCountdown = nCountdown - 1
	
	fn_new = nCountdown 
	
	i = 0
	While fn_new < fn

		i = i + 1
		fn_new = i*nCountdown
	Wend
	
	fn = fn_new
	
	
Wend	; end of main loop

Print( n*n)

Print( fn)

Print( 1.0*n*n/fn)

Stop

End