Round a Price with a Fraction (1/2)

[aaa 10]

Hello

 

I'd like to round a price like this ;

 

7980,5 instead of 7980.40 or 7980,60

 

With Excel there is a way to round a price with a fraction (1/2)

 

Is there something similar in EL ?

 

Thank you

[Tams 20]

Round

 

Returns the value of one specified numerical expression rounded to the number of decimal places specified by another.

 

Usage

 

Round(Value,Precision)

 

Where:

Value - a numerical expression

Precision - a numerical expression

 

Examples

 

Round(1.237,2) will return a value of 1.24

 

Round(-5.7744,3) will return a value of –5.774

[aaa 10]

I use this function but is there a way to round as a fraction ?

 

Round(1.237,2) will return a value of 1.24

 

1.24 = 1.0

 

Round(-5.7744,3) will return a value of –5.774

 

–5.774 = -6.0

 

7981 instead of 7980.76 or 7981.24

 

7980,5 instead of 7980.26 or 7980,74

 

7980 instead of 7980.24 or 7979.76

[aaa 10]

it is because I always have to choose quickly when I buy or sell

 

If I round to 0 I miss the half or I pay half more...

 

I hope that I'm clear enough...

[aaa 10]

I'm wondering if it is possible to make a function called RoundFraction

 

Pseudo Code

 

if decimal >= .00 and < .024 then decimal = 0

 

if decimal >= .25 and < .074 then decimal = 0.5

 

if decimal >= .75 and < 1.0 then decimal = 0 and number +1

 

If someone knows how to code that it'll be very kind.

[sevensa 10]

I'm wondering if it is possible to make a function called RoundFraction

 

Pseudo Code

 

if decimal >= .00 and < .024 then decimal = 0

 

if decimal >= .25 and < .074 then decimal = 0.5

 

if decimal >= .75 and < 1.0 then decimal = 0 and number +1

 

If someone knows how to code that it'll be very kind.

 

This should do it... Create a new numeric function called RoundFraction and copy and paste the code below into it.

 

inputs: Number(NumericSimple);

vars: Fraction(0);

Fraction = FracPortion(Number);

If Fraction > 0 and Fraction < 0.24 then RoundFraction = 0;
If Fraction >= 0.25 and Fraction < 0.74 then RoundFraction = 0.5;
If Fraction > 0.75 then RoundFraction = 1;

 

You can use it as follows:

vars: 	val1(20.2),
val2(20.4),
val3(20.8),
Result(0);

{Result = 20.0)}
Result = RoundFraction(val1) + IntPortion(val1); 
Print("Result = ", Result);

{Result = 20.5)}
Result = RoundFraction(val2) + IntPortion(val1); 
Print("Result = ", Result);

{Result = 21)}
Result = RoundFraction(val3) + IntPortion(val1); 
Print("Result = ", Result);

 

The output of above code...

 

Result = 20.00

Result = 20.50

Result = 21.00

[aaa 10]

ThanX SEVENSA

 

I appreciate your help and I hope that this function will be usefull for the community

 

For me it is exactly what I was looking for a while

[aaa 10]

// RoundFraction

// Version 1.00 by SEVENSA

// Version 1.01

// minor changes in the formula

// Date: 20090320

//-----------------------------------------------------

inputs:

//----------------------------------------------------

 

Number(NumericSimple);

 

//----------------------------------------------------------------

variables:

//----------------------------------------------------------------

 

Fraction(0);

 

Fraction = FracPortion(Number);

 

 

If Fraction >= 0 and Fraction < 0.25 then

RoundFraction = 0;

 

If Fraction >= 0.25 and Fraction < 0.75 then

RoundFraction = 0.5;

 

If Fraction >= 0.75 then

RoundFraction = 1;

 

{

vars: val1(20.2),

val2(20.4),

val3(20.8),

Result(0);

 

{Result = 20.0)}

Result = RoundFraction(val1) + IntPortion(val1);

Print("Result = ", Result);

 

{Result = 20.5)}

Result = RoundFraction(val2) + IntPortion(val1);

Print("Result = ", Result);

 

{Result = 21)}

Result = RoundFraction(val3) + IntPortion(val1);

Print("Result = ", Result);

}

[BlowFish 10]

The way I would do it is double the original price round it to zero decimal places and half it. I think the syntax should be correct....didn't check it.

 

value1 = round(2*close,0)/2;

 

That's just me...contrary

 

Edit if you want quarters replace 2 with 4 - eighths replace 2 with 8 etc.

Edited March 21, 2009 by BlowFish

[aaa 10]

Great !!!!!!!!!!!!!!!!!

[BlowFish 10]

Every now and then I get nostalgic about the good old days. (most people move to the next post about then) Many many years ago I used to work as a software engineer. Coding in assembler (and working with smart people) exposes you to all sorts of neat tricks and tips. Actually after a while you actually start to think differently when it comes to programmatic problems.

 

Multiplying and dividing by powers of two (2,4,8,16 etc.) can be achieved by bitwise operators, rotate left, and rotate right. Rotating and adding was a common way of doing arithmetic in the days before processors had dedicated hardware to do floating point arithmetic.

[sevensa 10]

The way I would do it is double the original price round it to zero decimal places and half it. I think the syntax should be correct....didn't check it.

 

value1 = round(2*close,0)/2;

 

That's just me...contrary

 

Edit if you want quarters replace 2 with 4 - eighths replace 2 with 8 etc.

 

You are such a show off.

[aaa 10]

Thanx to Sevensa and BlowFish to light the first steps of beginners.

[aaa 10]

And to all the others from this great coding forum of course !

[aaa 10]

The results of the Pivots doesn't match with Excel...

 

R1 = Round( 2 * ( 2 * PP - DailyLow ), 0 ) / 2 ;

R2 = Round( 2 * ( PP + Range ) , 0 ) / 2 ;

R3 = Round( 2 * ( R2 + Range ) , 0 ) / 2 ;

R4 = Round( 2 * ( R3 + Range ) , 0 ) / 2 ;

S1 = Round( 2 * ( 2 * PP - DailyHigh ) , 0 ) / 2 ;

S2 = Round( 2 * ( PP - Range ) , 0 ) / 2 ;

S3 = Round( 2 * ( S2 - Range ) , 0 ) / 2 ;

S4 = Round( 2 * ( S3 - Range ) , 0 ) / 2 ;

[aaa 10]

I have the same wrong result with my method

 

I trust more Excel because it's so simple

 

I notice that from PP to R4 is correct

 

Strange

 

But from S1 to S4 is wrong (half a point)

 

R1 = RoundFraction( 2 * PP - DailyLow ) + IntPortion( 2 * PP - DailyLow ) ;

R2 = RoundFraction( PP + Range ) + IntPortion( PP + Range ) ;

R3 = RoundFraction( R2 + Range ) + IntPortion( R2 + Range ) ;

R4 = RoundFraction( R3 + Range ) + IntPortion( R3 + Range ) ;

S1 = RoundFraction( 2 * PP - DailyHigh ) + IntPortion( 2 * PP - DailyHigh ) ;

S2 = RoundFraction( PP - Range ) + IntPortion( PP - Range ) ;

S3 = RoundFraction( S2 - Range ) + IntPortion( S2 - Range ) ;

S4 = RoundFraction( S3 - Range ) + IntPortion( S3 - Range ) ;

[aaa 10]

I think that it's because it computes 2 rounds

 

PP is rounded then used to compute S1 wich is also rounded

 

The same for the others Pivots

[aaa 10]

Bingo

 

This one matches perfectly with Excel

 

PP = Round( 2 * ( DailyHigh + DailyLow + ClotCompense ) / 3 , 0 ) / 2

 

R1 = Round( 2 * ( 2 * ( DailyHigh + DailyLow + ClotCompense ) / 3 - DailyLow ) , 0 ) / 2 ;

R2 = Round( 2 * ( ( DailyHigh + DailyLow + ClotCompense ) / 3 + Range ) , 0 ) / 2 ;

R3 = Round( 2 * ( ( DailyHigh + DailyLow + ClotCompense ) / 3 + Range + Range ) , 0 ) / 2 ;

R4 = Round( 2 * ( ( DailyHigh + DailyLow + ClotCompense ) / 3 + Range + Range + Range ) , 0 ) / 2 ;

S1 = Round( 2 * ( 2 * ( DailyHigh + DailyLow + ClotCompense ) / 3 - DailyHigh ) , 0 ) / 2 ;

S2 = Round( 2 * ( ( DailyHigh + DailyLow + ClotCompense ) / 3 - Range ) , 0 ) / 2 ;

S3 = Round( 2 * ( ( DailyHigh + DailyLow + ClotCompense ) / 3 - Range - Range ) , 0 ) / 2 ;

S4 = Round( 2 * ( ( DailyHigh + DailyLow + ClotCompense ) / 3 - Range - Range - Range ) , 0 ) / 2 ;

[BlowFish 10]

You are such a show off.

 

Hehe better be careful before I exhaust my repertoire of tricks.