# # canola - canon canola 1614p emulator # Copyright (C) 2011 Peter Miller # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License, version 3, as # published by the Free Software Foundation. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License along # with this program. If not, see . # ; Group Function card set 4 ; ; ------------------ Card-Pocket-Begin ----------------------------------- ; Title: GF-4: asinh(x), acosh(x), atanh(x), ln(x) ; Color: green ; Style: blank ; ------------------ Card-Pocket-End ------------------------------------- ; ; [LRN] program cards ; [OPE] data cards ; [UJ] [1] => asinh(x) ; [UJ] [2] => acosh(x) ; [UJ] [3] => atanh(x) ; [UJ] [4] => ln(x) ; ; [UJ] [1] 3.0 [START] => 1.8184464592 ; [UJ] [2] 2.0 [START] => 1.3169578969 ; [UJ] [3] 0.5 [START] => 0.549306144338654 ; [UJ] [4] 3.0 [START] => 1.0986122997 ; SFJ $614 SM8 CM9 CS MJ $614 1 / 0 += FJ $614 .1 RM8 -= MJ $613 RM8 * 100 += SM8 2 CS M9 UJ $614 FJ $613 RM8 10 -= MJ $612 RM8 / 100 += SM8 2 M9 UJ $613 FJ $612 RM8 SQRT SQRT SQRT 1 += / 2 RV -= 1 += SM8 * += SM7 * RM13 += RM14 += * RM8 += SM8 RM11 * RM7 += RM12 += * RM7 += 1 += / RM8 RV += RM9 += * RM10 += SRJ SFJ $613 RM9 SQRT SQRT SQRT 10 -= MJ $609 RM9 * 2 += SRJ FJ $609 RM9 * += RM8 += SQRT RM9 += SRJ SFJ $612 * 1 ROUND $710 += PRINT SRJ FJ 1 ; asinh(x) ENT MJ $608 SM9 1 FJ $607 SM6 1 SM8 SUJ $613 SUJ $614 * RM6 += SUJ $612 UJ 1 FJ $608 CS SM9 1 CS UJ $607 FJ 2 ; acosh(x) ENT SM9 1 CS SM8 += MJ $605 SUJ $613 SUJ $614 SUJ $612 UJ 2 FJ $605 / 0 += FJ 3 ; atanh(x) ENT SM9 * += 1 -= MJ $606 / 0 += FJ $606 RM9 1 -= / 2 RV -= 1 -= SUJ $614 / 2 += PRINT UJ 3 FJ 4 ; ln(x) ENT SUJ $614 SUJ $612 UJ 4