46854_ja-JP

liliconcom

JMPでバンカーラウンドを行う方法

私は最近銀行の四捨五入について尋ねられましたが、JMPの資料には何も見つかりませんでした。私は以下にクイック関数を書きましたが（式のオプションも含めて）、1）JMPに銀行員の四捨五入をするための固定された方法があり、2）他のどんなより良い方法が私に比べて便利かもしれません。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 )
);

再：どのようにJMPの銀行家丸めをするにはそれはよりきれいな解決策のように見えます。残念なことですが、JMPではこれを丸めとして定義することはできません。正直なところ、私は他の種類の丸めがあることを知りませんでした... 標準？丸め:)

ありがとうございます。再：どのようにJMPの銀行家丸めをするには

内蔵されていませんが私と思うこれは同じことを実現します。

 

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" );
);

再：どのようにJMPの銀行家丸めをするには

わかりました、それはひどい…… これを2つの数式オプションに対して試してみましょう。

 

 

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);
);