anchor.diff:       ?assertRPNFloat("1,1 tanh", {1.083923327,0.271752585})
       ].
   
  -% Powers and Logarithms
   powers_and_logarithms_tests() ->
       [
        ?assertRPNFloat("64 sqrt", 8.0),
  
positive.code: 
  -define(round(Value, Decimals), round(Value*math:pow(10,Decimals))/math:pow(10,Decimals)).
  -define(assertRPNFloat(Input, Expected), {atom_to_list(element(2,element(2,process_info(self(), current_function))))++", line "++integer_to_list(?LINE), Input, Expected}).
  -define(assertRPNError(Operator, Stack), {atom_to_list(element(2,element(2,process_info(self(), current_function))))++", line "++integer_to_list(?LINE), {Operator, Stack}, error}).
  
  %%% Unit Tests
  
  
negative.code:      ?assertRPNFloat("i", {0,1})
      ].
  
  trig_functions_in_real_domain() ->
      [
       ?assertRPNFloat("30 sin", 0.5),
  