46854_de-DE

liliconcom

Wie mache ich Bankers Rounding in JMP?

Ich wurde kürzlich nach einer Rundung durch Banker gefragt und in der JMP-Dokumentation nichts gefunden. Ich habe die schnelle Funktion unten geschrieben (sowie eine Formeloption), war aber neugierig, ob 1) JMP über eine festgelegte Methode verfügt, um Banker-Rundungen durchzuführen, und 2) welche anderen / besseren Methoden im Vergleich zu meinen nützlich sind. http://wiki.c2.com/?BankersRounding 

bankerRound = Function( {inputValue},
 {inputValue, fDiff, cDiff, modX, bankRound},
 fDiff = inputValue - Floor( inputValue );
 cDiff = Ceiling( inputValue ) - inputValue;
 modX = Modulo( Round( inputValue, 0 ), 2 );
 If(
  cDiff == fDiff & modX == 0, bankRound = Ceiling( inputValue ),
  cDiff == fDiff & modX != 0, bankRound = Floor( inputValue ),
  bankRound = Round( inputValue, 0 )
 );
 Return( bankRound );
);
inputValue = Empty(); // put column name here 
fDiff = inputValue - Floor( inputValue );
cDiff = Ceiling( inputValue ) - inputValue;
modX = Modulo( Round( inputValue, 0 ), 2 );
If(
 cDiff == fDiff & modX == 0, bankRound = Ceiling( inputValue ),
 cDiff == fDiff & modX != 0, bankRound = Floor( inputValue ),
 bankRound = Round( inputValue, 0 )
);

Re: Wie man Banker-Runden in JMP machtDas sieht nach einer saubereren Lösung aus. Zu schade, dass JMP dies nicht als Rundungssache in Dosen sieht. Um ehrlich zu sein, hatte ich keine Ahnung, dass es andere Rundungen gab als ... Standard? Rundung

Vielen Dank!Re: Wie man Banker-Runden in JMP macht

Es ist nicht eingebaut, sondern ich denken das bewirkt dasselbe:

 

bankerRound = Function( {inputValue},
 if( mod(inputValue, 0.5) == 0 & ! mod(inputValue, 1) == 0,
  round(inputValue / 2) * 2,
  round(inputValue)
 )
);

tests = { 0,0.499,0.5,0.501,1,1.499,1.5,1.501,2,2.499,
 2.5,2.501,3,3.499,3.5,3.501,-0.499,-0.5,-0.501,
 -1,-1.499,-1.5,-1.501,-2,-3};

for( i = 1, i <= N items( tests ), i++,
 Write( char( tests[i] ) || " -> " || 
  char( bankerRound( tests[i] ) ) || "\!N" );
);

Re: Wie man Banker-Runden in JMP macht

Ok, das sah schrecklich aus ... Lassen Sie uns dies für die beiden Formeloptionen versuchen:

 

 

bankerRound = Function({inputValue},
    {inputValue,fDiff,cDiff,modX,bankRound},
    fDiff = inputValue - floor(inputValue);
    cDiff = ceiling(inputValue) - inputValue;
    modX = Modulo(round(inputValue,0),2);
    if(cDiff == fDiff & modX == 0,
        bankRound = Ceiling(inputValue)
    ,
        cDiff == fDiff & modX != 0,
        bankRound = Floor(inputValue);
    ,
        bankRound = Round(inputValue,0);
    );
    Return(bankRound)
);
 
inputValue = Empty(); // place column name here
fDiff = inputValue - floor(inputValue);
cDiff = ceiling(inputValue) - inputValue;
modX = Modulo(round(inputValue,0),2);
if(cDiff == fDiff & modX == 0,
    bankRound = Ceiling(inputValue)
,
    cDiff == fDiff & modX != 0,
    bankRound = Floor(inputValue);
,
    bankRound = Round(inputValue,0);
);