This is the revision history for _ohms_law in <matrix.org:#DYJOMClZbVOMHnzPQt:matrix.org>
factoid_id | subject | copula | predicate | author | namespace |
---|---|---|---|---|---|
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 | <*:##NULL> |
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 | <*:##NULL> |
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 | <*:##NULL> |
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 | <*:##NULL> |
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 | <*:##NULL> |
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 | <*:##NULL> |
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 | <*:##NULL> |