This is the revision history for _ohms_law in <*:##NULL>

factoid_idsubjectcopulapredicateauthornamespace
11185 _ohms_law is sub calc {my %h=@_;my ($a,$v,$p,$r)=@h{qw/a v w o/}; my $c=join '',@{[sort keys %h]}[0,1]; {av=>sub{$r=$v/$a;$p=$v*$a},aw=>sub{$v=$p/$a;$r=$v/$a},ao=>sub{$v=$r*$a;$p=$a*$v},vw=>sub{$a=$p/$v;$r=$v/$a},ov=>sub{$a=$v*$r;$p=$v*$a},ow=>sub{$a=sqrt($p/$r);$v=$p/$a}}->{$c}->(); [$a, $v, $r, $p]}; simcop2387
11178 _ohms_law is sub calc {my %h=@_;my ($a,$v,$p,$r)=@h{qw/a v w o/}; my $c=join '', sort keys %h; {av=>sub{$r=$v/$a;$p=$v*$a},aw=>sub{$v=$p/$a;$r=$v/$a},ao=>sub{$v=$r*$a;$p=$a*$v},vw=>sub{$a=$p/$v;$r=$v/$a},ov=>sub{$a=$v*$r;$p=$v*$a},ow=>sub{$a=sqrt($p/$r);$v=$p/$a}}->{$c}->(); [$a, $v, $r, $p]}; simcop2387
11174 _ohms_law is sub calc {my %h=@_;my ($a,$v,$p,$r)=@h{qw/a v p r/}; my $c=join '', sort keys %h; {av=>sub{$r=$v/$a;$p=$v*$a},aw=>sub{$v=$p/$a;$r=$v/$a},ao=>sub{$v=$r*$a;$p=$a*$v},vw=>sub{$a=$p/$v;$r=$v/$a},ov=>sub{$a=$v*$r;$p=$v*$a},ow=>sub{$a=sqrt($p/$r);$v=$p/$a}}->{$c}->(); [$a, $v, $r, $p]}; simcop2387
11171 _ohms_law is sub calc {my %h=@_;my ($a,$v,$p,$r)=@h{qw/a v p r/}; my $c=join '', sort keys %h; {av =>sub {$r=$v/$a;$p=$v*$a}, ap=>sub{$v=$p/$a;$r=$v/$a}, ar=>sub{$v=$r*$a;$p=$a*$v}, pv=>sub{$a=$p/$v;$r=$v/$a}, rv=>sub{$a=$v*$r;$p=$v*$a}, pr=>sub{$a=sqrt($p/$r);$v=$p/$a}}->{$c}->(); [$a, $v, $r, $p]}; simcop2387
11167 _ohms_law is sub calc {my %h=@_;my ($a,$v,$p,$r)=@h{qw/a v p r/}; my $c=join '', sort keys %h; print "C:$c::"; {av =>sub {$r=$v/$a;$p=$v*$a}, ap=>sub{$v=$p/$a;$r=$v/$a}, ar=>sub{$v=$r*$a;$p=$a*$v}, pv=>sub{$a=$p/$v;$r=$v/$a}, rv=>sub{$a=$v*$r;$p=$v*$a}, pr=>sub{$a=sqrt($p/$r);$v=$p/$a}}->{$c}->(); [$a, $v, $r, $p]}; simcop2387
11163 _ohms_law is sub calc {my %h=@_;my ($a,$v,$p,$r)=@h{qw/a v p r/}; my $c=join '', sort keys %h; {av =>sub {$r=$v/$a;$p=$v*$a}, ap=>sub{$v=$p/$a;$r=$v/$a}, ar=>sub{$v=$r*$a;$p=$a*$v}, pv=>sub{$a=$p/$v;$r=$v/$a}, rv=>sub{$a=$v*$r;$p=$v*$a}, pr=>sub{$a=sqrt($p/$r);$v=$p/$a}}->{$c}->(); [$a, $v, $r, $p]}; simcop2387
11162 _ohms_law is sub calc {my %h=@_;my ($a,$v,$p,$r)=@h{qw/a v p r/}; my $c=join '', sort keys %h; {av =>sub {$r=$v/$a;$p=$v*$a}, ap=>sub{$v=$p/$a;$r=$v/$a}, ar=>sub{$v=$r*$a;$p=$a*$v}, pv=>sub{$a=$p/$v;$r=$v/$a}, rv=>sub{$a=$v*$r;$p=$v*$a}, pr=>sub{$a=sqrt($p/$r);$v=$p/$a}}->{$c}->(); [$a, $v, $r, $p]};
Not Available		 simcop2387