Resistance calculator: Difference between revisions

given $!.symbol {

when '+' { return $!.a.res + $!.b.res }

when '*' { return 1 / (1 / $!.a.res + 1 / $!.b.res) }

default { return $!.resistance }

given $!.symbol {

my $ra = $!.a.res;

my $rb = $!.b.res;

$!.a.set-voltage( $ra / ($ra+$rb) * $voltage );

$!.b.set-voltage( $rb / ($ra+$rb) * $voltage );

$!.a.set-voltage( $voltage );

$!.b.set-voltage( $voltage );

my $f = ( self.res, $!.voltage, self.current, self.effect ).fmt('%8.3f');

say "$f $pad$!.symbol";

$!.a.report( $level+1 ) if $!.a;

$!.b.report( $level+1 ) if $!.b;