Just another update
This commit is contained in:
parent
a25938f123
commit
00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
|
|
@ -1,8 +1,8 @@
|
|||
load(distrib);
|
||||
load("distrib");
|
||||
approx_pi(n):= block(
|
||||
[x: random_continuous_uniform(0, 1, n),
|
||||
y: random_continuous_uniform(0, 1, n),
|
||||
r, cin: 0],
|
||||
r, cin: 0, listarith: true],
|
||||
r: x^2 + y^2,
|
||||
for r0 in r do if r0<1 then cin: cin + 1,
|
||||
4*cin/n);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue