Math: Percent inside a range.

[Draco9898]

Ok, don't make me look stupid and tell me theres a math function for this already.
This finds a value from a range using a percentage.

Code Select Expand


function CalcPerInsideRng(P#,Bgnrng#,Endrng#)
returnVal# = Bgnrng# + ((Endrng#-Bgnrng#)*P#)
ENDFUNCTION returnVal#


[Rembrandt Q Einstein]

Useful function, something I needlessly code again every time I use something like tihs.  Almost every time I use it, I want to bound the P# from 0-1, so it might be helpful to do this.

Code Select Expand


function CalcPerInsideRng(P#,Bgnrng#,Endrng#)
if p# < 0.0 then p# = 0.0
if p# > 1.0 then p# = 1.0
returnVal# = Bgnrng# + ((Endrng#-Bgnrng#)*P#)
ENDFUNCTION P#,returnVal#


Edit: rearrange.

[kevin]

 You can use ClipRange#() to clip a value with a pair of markers.  Can be handy to clean up those common bits of clipping code.

PlayBASIC Code: [Select]

psub CalcPerInsideRng(P#,Bgnrng#,Endrng#)
   p#=cliprange#(p#,0,1)
   returnVal# = Bgnrng# + ((Endrng#-Bgnrng#)*P#)
endPsub returnVal#