' *** ARCOSH.LST *** 2nd GFA-Manual, page 6-8 DEFFN arcosh(x#)=LOG(x#+SQR(x#*x#-1)) ' *** '