# File lib/rapfp/Test01.rb, line 36
36: def initialize(a1,a2,op,c_flg)
37:   @a1 = a1
38:   @a2 = a2
39:   @op = op
40:   @c_flg = c_flg
41: end

     # File lib/rapfp/Test01.rb, line 43
 43: def do_it
 44: case @op
 45: when 1: b = @a1+@a2
 46: when 2: b = @a1-@a2
 47: when 3: b = @a1*@a2
 48: when 4: b = @a1/@a2
 49: when 5: b = @a1.sin
 50: when 6: b = @a1.cos
 51: when 7: b = @a1.tan
 52: when 8: b = @a1.sinh
 53: when 9: b = @a1.cosh
 54: when 10: b = @a1.tanh
 55: when 11: b = @a1.asin
 56: when 12: b = @a1.acos
 57: when 13: b = @a1.atan
 58: when 14: b = @a1.log
 59: when 15: b = @a1.exp
 60: when 16: b = @a1**@a2
 61: when 17: b = @a1.log10
 62: when 18: b = @a1**(4)
 63: when 19: b = @a1**(-4)
 64: when 50: 
 65:  b = @a1+@a2
 66: b.display_val("@a1+@a2")
 67:  b = @a1-@a2
 68: b.display_val("@a1-@a2")
 69:  b = @a1*@a2
 70: b.display_val("@a1*@a2")
 71:  b = @a1/@a2
 72: b.display_val("@a1/@a2")
 73: if @c_flg != "y" then
 74:   b = @a1.trunc
 75:   b.display_val("trunc")
 76:   b = @a1.frac
 77:   b.display_val("frac")
 78: end
 79: b = @a1.sin
 80:  b.display_val("sin")
 81:  b = @a1.cos
 82: b.display_val("cos")
 83:  b = @a1.tan
 84: b.display_val("tan")
 85:  b = @a1.exp
 86: b.display_val("exp")
 87:  b = @a1.sinh
 88: b.display_val("sinh")
 89:  b = @a1.cosh
 90: b.display_val("cosh")
 91:  b = @a1.tanh
 92: b.display_val("tanh")
 93:  b = @a1.asin
 94: b.display_val("asin")
 95:  b = @a1.acos
 96: b.display_val("acos")
 97:  b = @a1.atan
 98: b.display_val("atan")
 99:  b = @a1.log
100: b.display_val("log")
101:  b = @a1**@a2
102: b.display_val("@a1**@a2")
103:  b = @a1.log10
104: b.display_val("log10")
105:  b = @a1**(4)
106: b.display_val("@a1**(4)")
107:  b = @a1**(-4)
108: b.display_val("@a1**(-4)")
109: if @a1 == @a2 then puts "@a1 == @a2" else puts "not @a1 == @a2" end
110: if @a1 != @a2 then puts "@a1 != @a2" else puts "not @a1 != @a2" end
111: if @c_flg != "y" then
112:   if @a1 >= @a2 then puts "@a1 >= @a2" else puts "not @a1 >= @a2" end
113:   if @a1 <= @a2 then puts "@a1 <= @a2" else puts "not @a1 <= @a2" end
114:   if @a1 > @a2 then puts "@a1 > @a2" else puts "not @a1 > @a2" end
115:   if @a1 < @a2 then puts "@a1 < @a2" else puts "not @a1 < @a2" end
116: end
117: 
118: when 99: exit
119: else 
120: puts "invalid entry"
121: b = $ApConst.zero
122: end #case
123: 
124: if @op != 50 then b.display_val("b") end
125: 
126: true
127: 
128: end