OpenEuphoria

More of my "eternal novice" stuff:

-- 
--  elecCalc.ex 
-- 
include std/console.e 
include std/graphics.e 
 
constant Options = sprintf("%s", { 
""" 

 
  Electrical Formulas 
 
   1.  W = V2/R 
   2.  W = R*A2 
   3.  W = V*A 
 
   4.  A = power(W/R,.5) 
   5.  A = W/V 
   6.  A = V/R 
   
   7.  V = R*A 
   8.  V = W/A 
   9.  V = power(W*R,.5) 
  10.  V = Wh/Ah 
   
  11.  R = V/A 
  12.  R = V2/W 
  13.  R = W/A2 
   
  14.  Wh = V/Ah 
  15.  Wh = mAh*(V/1000) 
   
  16.  Ah = Wh/V 
   
  0 -- quit 
   
 """ 

 })