[DUG] Maths problem for the day

[Glenn Crouch]

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/46c60ecd/attachment.html