/* Appendix J.Laporte May 2014 */
fpprec:35$
set_display(ascii)$

printf (true,"Neper ")$

NapLog(x) := block([l],l:10^7 * log ( 10^7/x),return(bfloat(l)))$

printf (true,"Short Table")$
/* Ratio 2 to 1 */
i:2$
block(printf (true, "~% ~d : ~h ~%", i, NapLog(1/(i * 10^-7)) ))$
/* Ratio 4 to 1 */
i:4$
block(printf (true, "~% ~d : ~h ~%", i, NapLog(1/(i * 10^-7)) ))$
/* Ratio 10 to 1 */
i:10$
block(printf (true, "~% ~d : ~h ~%", i, NapLog(1/(i * 10^-7)) ))$


printf (true,"Appendix")$

AppLog(y) := block([l],l:10^6 * log ( 10^6/y),return(bfloat(l)))$

/* Ratio 2 to 1 */
i:2$
block(printf (true, "~% ~d : ~h ~%", i, AppLog(1/(i * 10^-6)) ))$

/* Ratio 3 to 1 */
i:3$
block(printf (true, "~% ~d : ~h ~%", i, AppLog(1/(i * 10^-6)) ))$


/* Ratio 4 to 1 */
i:4$
block(printf (true, "~% ~d : ~h ~%", i, AppLog(1/(i * 10^-6)) ))$

/* Ratio 10 to 1 */
i:10$
block(printf (true, "~% ~d : ~h ~%", i, AppLog(1/(i * 10^-6)) ))$

/* Ratio 90 to 1 */
i:90$
block(printf (true, "~% ~d : ~h ~%", i, AppLog(1/(i * 10^-6)) ))$


/* Ratio 10^6 to 1 */
i:10^6$
block(printf (true, "~% ~d : ~h ~%", i, AppLog(1/(i * 10^-6)) ))$


/* Ratio 257 to 1 */
i:257$
block(printf (true, "~% ~d : ~h ~%", i, AppLog(1/(i * 10^-6)) ))$


/* Ratio 257 to 1 and TrueLog */
i:257$
block(printf (true, "~% True Log = ~h ",  AppLog(1) - AppLog(1/(i * 10^-6))))$