UnitConverter.st
changeset 3701 88126504abb7
parent 3674 f1c3dfa54f92
child 4092 61384ffc7271
equal deleted inserted replaced
3700:02b6eebda3de 3701:88126504abb7
   311     self addConversion:4840        from:#acre  to:#'yard^2'.
   311     self addConversion:4840        from:#acre  to:#'yard^2'.
   312 
   312 
   313     self addConversion:100         from:#are      to:#'meter^2'.
   313     self addConversion:100         from:#are      to:#'meter^2'.
   314     self addConversion:100         from:#hectare  to:#are.
   314     self addConversion:100         from:#hectare  to:#are.
   315 
   315 
   316     "/ german area - add your countries, and return to me...
   316     "/ german area - add your countries, and return to me ...
   317     Aliases at:#'german-ar'      put:#are.
   317     Aliases at:#'german-ar'      put:#are.
   318     Aliases at:#'german-hektar'  put:#hectare.
   318     Aliases at:#'german-hektar'  put:#hectare.
   319 
   319 
   320 
   320 
   321     "/ ---------------- liquid ---------------- 
   321     "/ ---------------- liquid ---------------- 
   322 
   322 
   323     self addConversion:231      from:#gallon to:#'inch^3'.
   323     self addConversion:231      from:#gallon to:#'inch^3'.
   324     self addConversion:(1/4)    from:#quart to:#gallon.  "/ well - at least here,
   324     self addConversion:(1/4)    from:#quart to:#gallon.  "/ well - at least here,
   325                                                          "/ that's also 1/4th of a good wine ;-)
   325                                                          "/ thats also 1/4th of a good wine ;-)
   326     self addConversion:(1/2)    from:#pint to:#quart.
   326     self addConversion:(1/2)    from:#pint to:#quart.
   327     self addConversion:(1/16)   from:#floz to:#pint.
   327     self addConversion:(1/16)   from:#floz to:#pint.
   328     self addConversion:(1/8)    from:#fldr to:#floz.
   328     self addConversion:(1/8)    from:#fldr to:#floz.
   329 
   329 
   330     self addConversion:42       from:#barrel to:#gallon.
   330     self addConversion:42       from:#barrel to:#gallon.
   385     "/ ---------------- temperature ---------------- 
   385     "/ ---------------- temperature ---------------- 
   386 
   386 
   387     self addConversion:[:d | d * 1.8 + 32] from:#celsius    to:#fahrenheit.
   387     self addConversion:[:d | d * 1.8 + 32] from:#celsius    to:#fahrenheit.
   388     self addConversion:[:f | (f - 32) / 1.8] from:#fahrenheit to:#celsius.
   388     self addConversion:[:f | (f - 32) / 1.8] from:#fahrenheit to:#celsius.
   389 
   389 
       
   390     "/ ---------------- nature ---------------- 
       
   391     Constants at:#planckLength   put:#(1.616e-35   #'m').
       
   392     Constants at:#planckMass     put:#(2.176-8     #'Kg').
       
   393     Constants at:#planckTime     put:#(5.391e-44   #'s').
       
   394     
   390     "
   395     "
   391      Conversions := nil.
   396      Conversions := nil.
   392      UnitConverter initializeConversions
   397      UnitConverter initializeConversions
   393     "
   398     "
   394 
   399