[WWcvs] pg: Add basic electrical units.

[Gavin L. v. a. <we...@ma...>]

Log Message:
-----------
Add basic electrical units.

Tags:
----
rel-2-1-a1

Modified Files:
--------------
    pg/lib:
        Units.pm

Revision Data
-------------
Index: Units.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Units.pm,v
retrieving revision 1.2
retrieving revision 1.2.8.1
diff -Llib/Units.pm -Llib/Units.pm -u -r1.2 -r1.2.8.1
--- lib/Units.pm
+++ lib/Units.pm
@@ -40,6 +40,7 @@
                      'degC'   => 0,
                      'degF'   => 0,
                      'degK'   => 0,
+                     'amp'    => 0,
                      'mol'    => 0,  # moles, treated as a fundamental unit?
 );
 
@@ -397,7 +398,61 @@
                            'kg'        => 1,
                            's'         => -2
                           },
-
+# ELECTRICAL UNITS (incomplete)
+# C      -- Coulomb
+# V      -- volt
+# mV     -- milivolt
+# kV     -- kilovolt
+# MV     -- megavolt
+# F      -- Farad
+# mF     -- miliFarad
+# uF     -- microFarad
+# ohm    -- ohm
+# kohm   -- kilo-ohm
+                'C'    => {
+                           'factor'    => 1,
+                           'amp'       => 1,
+                           's'         => 1,
+		          },
+                'V'    => {
+                           'factor'    => 1,
+                           'J'         => 1,
+                           's'         => -1,
+		          },
+                'mV'   => {
+                           'factor'    => 0.001,
+                           'V'         => 1,
+		          },
+                'kV'   => {
+                           'factor'    => 1000,
+                           'V'         => 1,
+		          },
+                'MV'   => {
+                           'factor'    => 10**(6),
+                           'V'         => 1,
+		          },
+                'F'    => {
+                           'factor'    => 1,
+                           'C'         => 1,
+                           'V'         => -1,
+		          },
+                'mF'   => {
+                           'factor'    => 0.001,
+                           'F'         => 1,
+		          },
+                'uF'   => {
+                           'factor'    => 10**(-6),
+                           'F'         => 1,
+		          },
+                'ohm'  => {
+                           'factor'    => 1,
+                           'V'         => 1,
+                           'amp'       => -1,
+		          },
+                'kohm' => {
+                           'factor'    => 1000,
+                           'ohm'       => 1,
+		          },
 );