Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!midway!news
From: news@midway.uchicago.edu (News Administrator)
Newsgroups: comp.lang.pascal
Subject: Re: Real LOGn functions in TP 5.5 needed (Thanks)
Summary: Found it.
Message-ID: <1991Mar21.214843.29025@midway.uchicago.edu>
Date: 21 Mar 91 21:48:43 GMT
References: <1991Mar20.220800.24027@midway.uchicago.edu> <1991Mar21.122959.346@matai.vuw.ac.nz> <1991Mar21.042630.6174@midway.uchicago.edu>
Organization: Dept. of Mathematics, Univ. of Chicago
Lines: 25

I should kick myself for not realizing this...
This solution saves me a Ln() call, Thanks to raymond@math.berkeley.edu
 (Raymond Chen):
(Ps. TP does calculate Ln by Chebyshev (actualy, the *chip* is ;-})
From: daryl@zaphod.uchicago.edu (Daryl McLaurine)
Path: zaphod!daryl

var ln10,whatIsIt: real;
function log10(x: real): real; begin log10 := ln(x)/ln10 end;

{ main program } 
begin ln10 := ln(10);
 { other stuff } 
 whatIsIt := Log10(1001001);
end.

All praise the NET...All Hail the NET...

   ^
<{[-]}>---------------------------------------------------------------------
   V Daryl McLaurine,     Systems Consultant / Associate
   | University of Chicago Mathematics Dept. / Friedrich, Klatt & Associates
   | daryl@zaphod.UChicago.EDU(128.135.72.61)/ 1621 E. 55th St Chicago 60615
   | {...}!gargoyle!tank!zaphod!daryl        / 1-312-288-4849
==\*/===================== Standard Disclaimers apply ======================