Popular channels

Algoritmo para obtener decimales de pi - Inventado por mi.

numpasos# = CLng(text3.Text)
For paso# = 1 To numpasos#
text2.Text = "El número de iteraciones es " + CStr(paso#)
'aleatorizar
Randomize Timer
'definir x aleatorio
x# = Rnd * 2
'definir y aleatorio
y# = Rnd * 2
'calcular distancia respecto al centro
distancia# = Sqr(((Abs(x# - 1) ^ 2) + (Abs(y# - 1) ^ 2)))
'esta dentro del circulo?
If distancia# < 1 Then
estaenelcirculo = True
puntosenelcirculo# = puntosenelcirculo# + 1
Else
estaenelcirculo = False
End If
'calcular las probabilidades
probabilidad# = puntosenelcirculo# / paso#
'calcular pi aproximado
piaproximado# = 4 * probabilidad#
text1.Text = piaproximado#
Next paso#

Lo postee acá: http://www.taringa.net/posts/downloads/8236013/Calcula-Pi---Programado-por-mi.html

Opiniones acerca del algoritmo, de como se lo podria mejorar, etc???
0
0
0
0No comments yet