MonteCarlo

Modo manual

Modo automático

Recuento

Dispara

Ráfaga de

disparos a la vez.

Reiniciar

El número de disparos ha de ser un entero positivo.

El número de disparos por ráfaga no puede ser mayor de 5000.

lista: {}
dianas = CountIf((x(P))^(2) + (y(P))^(2) ≤ 1, P, lista)
disparos = Length(lista)
disparar: 5000
dispararC = If(disparar ≤ 5000 ∧ disparar > 0 ∧ floor(disparar) ≟ disparar, disparar, 0)
dianasT = 0
disparosT = 0
texto6: "Número de dianas: " + dianasT + ""
texto7: "Número de disparos: " + disparosT + ""
texto8: "Estimación de π: " + ((4 * dianasT / disparosT)) + ""
CasillaDeEntrada1 = Textfield(disparar)
rafa: {}
dianasR = CountIf((x(P))^(2) + (y(P))^(2) ≤ 1, P, rafa)
texto10: "Número de dianas de la última ráfaga: " + dianasR + ""
a = Length(lista)