[DUG] Maths problem for the day

[Jolyon Smith]

Nice one Glen!!

 

I made it harder on myself by self-imposing Integers (and actually you'd
still need to handle High(Files) for 0, 1 and 2 separately as these will
trap Log10() with a ZeroDivide error in my case.   DOH!

 

J

 

That was a fun diversion tho. 

 

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz] On
Behalf Of Glenn Crouch
Sent: Tuesday, 11 January 2011 14:37
To: 'NZ Borland Developers Group - Delphi List'
Subject: Re: [DUG] Maths problem for the day

 

Something akin to:

 

                Max := Int (Math.Log10 (High (Files)/ 3.0 - 0.1)) *
BiasPositon;

 

Above assumes Max is a Float need to convert to Integer otherwise :)

 

Glenn Crouch,  <mailto:glenn at esbconsult.com> mailto:glenn at esbconsult.com
ESB Consultancy,  <http://www.esbconsult.com/> http://www.esbconsult.com

Follow us on Twitter: http://twitter.com/esbglenn 
Home of ESBPCS and ESB Calculators

Kalgoorlie-Boulder, Western Australia 

 

From: delphi-bounces at delphi.org.nz [mailto:delphi-bounces at delphi.org.nz] On
Behalf Of Ross Levis
Sent: Tuesday, 11 January 2011 9:25 am
To: 'NZ Borland Developers Group - Delphi List'
Subject: [DUG] Maths problem for the day

 

Convert the following into one line.

 

if High(Files) < 30 then Max := Bias.Position

else if High(Files) < 300 then Max := Bias.Position*2

else if High(Files) < 3000 then Max := Bias.Position*3

else if High(Files) < 30000 then Max := Bias.Position*4

etc

 

I think there must be a way. Probably using the Power function, but I can't
get my head around it.

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20110111/5a0bafdb/attachment.html