Resistor mesh: Difference between revisions
m
→{{header|Perl}}: dial back precision
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: dial back precision) |
|||
Line 1,451:
{{trans|C}}
<lang perl>use strict;
use warnings;
my ($w, $h) = (9, 9);
Line 1,487 ⟶ 1,488:
sub iter {
my $diff = 1;
while ($diff > 1e-
set_boundary();
$diff = calc_diff();
#print "error^2: $diff\
for my $i (0 .. $h) {
for my $j (0 .. $w) {
Line 1,497 ⟶ 1,498:
}
}
my @current = (0) x 3;
Line 1,509:
}
=={{header|Perl 6}}==
| |||