Percolation/Site percolation: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add Perl 6 example) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Adds trial numbers) |
||
Line 994: | Line 994: | ||
my $tests = 1000; |
my $tests = 1000; |
||
say "Doing $tests trials at each porosity:"; |
|||
for .1, .2 ... 1.0 -> $p { |
for .1, .2 ... 1.0 -> $p { |
||
printf "p = %0.1f: %0.3f\n" , $p, (sum percolate($p) xx $tests) / $tests; |
printf "p = %0.1f: %0.3f\n" , $p, (sum percolate($p) xx $tests) / $tests; |
||
Line 1,063: | Line 1,064: | ||
Doing 1000 trials at each porosity: |
|||
p = 0.1: 0.000 |
p = 0.1: 0.000 |
||
p = 0.2: 0.000 |
p = 0.2: 0.000 |