Percolation/Site percolation: Difference between revisions

Content added Content deleted
(Added Julia language)
(Added Julia language)
Line 1,068: Line 1,068:
println("\nFrequencies for $nrep tries that percolate through\n")
println("\nFrequencies for $nrep tries that percolate through\n")
for (pi, fi) in zip(p, f)
for (pi, fi) in zip(p, f)
@printf("p = %.1f ⇛ f = %.2f\n", pi, fi)
@printf("p = %.1f ⇛ f = %.3f\n", pi, fi)
end</lang>
end</lang>


Line 1,074: Line 1,074:
<pre>Sample percolation, 15×15 grid, p = 0.40
<pre>Sample percolation, 15×15 grid, p = 0.40


1) A B B
1) A A B # # # # #
2) # # A A A A A A A B
2) A A B # # # #
3) # # A A A B #
3) A B B B # #
4) # # # # B B
4) # B B # # #
5) # # # # B # # #
5) # # B B B # # #
6) # # # # B #
6) # # # B B # #
7) # # # # # B # # #
7) B # # #
8) # # # # # # B # # #
8) # B # #
9) # # # # B #
9) # B B
0) # B B B # #
0) # # B # # # #
1) # # # # # B
1) # # B
2) # # # # # B B # # #
2) # # # B # # #
3) # # # # # B B B #
3) # # # # B #
4) # # # # # # # B
4) # # # B B # # #
5) # # # B #
5) # # B # # #
!) B
!) B


Frequencies for 1000 tries that percolate through
Frequencies for 1000 tries that percolate through


p = 0.0 ⇛ f = 0.00
p = 0.0 ⇛ f = 0.000
p = 0.1 ⇛ f = 0.00
p = 0.1 ⇛ f = 0.000
p = 0.2 ⇛ f = 0.00
p = 0.2 ⇛ f = 0.000
p = 0.3 ⇛ f = 0.00
p = 0.3 ⇛ f = 0.000
p = 0.4 ⇛ f = 0.01
p = 0.4 ⇛ f = 0.001
p = 0.5 ⇛ f = 0.09
p = 0.5 ⇛ f = 0.089
p = 0.6 ⇛ f = 0.56
p = 0.6 ⇛ f = 0.559
p = 0.7 ⇛ f = 0.96
p = 0.7 ⇛ f = 0.956
p = 0.8 ⇛ f = 1.00
p = 0.8 ⇛ f = 1.000
p = 0.9 ⇛ f = 1.00
p = 0.9 ⇛ f = 1.000
p = 1.0 ⇛ f = 1.00</pre>
p = 1.0 ⇛ f = 1.000</pre>


=={{header|Perl 6}}==
=={{header|Perl 6}}==
Retrieved from "https://rosettacode.org/wiki/Percolation/Site_percolation"