24/04/18 21:43:31.50 64Io791z.net
>>291 補足
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= (* 小数表示された実数の小数第 n 位を四捨五入する *)
In[2]:= around[m_,n_:1] := (
a=m*10^(n-1);
x=a-Floor[a];
y=Floor[a] + Boole[x >= 0.5];
N[y/10^(n-1)]
)
In[3]:= around[0.12345,3]
Out[3]= 0.12
In[4]:= (* 四捨五入して小数第 n 位まで表示する *)
In[5]:= around[m_,n_:1] := (
a=m*10^n;
x=a-Floor[a];
y=Floor[a] + Boole[x >= 0.5];
N[y/10^n]
)
In[6]:= around[0.12345,3]
Out[6]= 0.123
In[7]:=