如何在 Mathematica 中将有理数转化为实数

Question

我这里有一些问题，我不知道如何以好的方式解决。例如，我想使用 BaseForm[1/3, 3]。但是，除非我输入 BaseForm[1/3.,3]，否则这不会达到我的预期。给定有理数形式的数据，如何将其转换为实数形式？我尝试使用Apply，它不起作用。 （很奇怪，呃？对我来说，Apply 总是可以用来更改标题。）

对于这个具体问题，我可以做类似 BaseForm[1/3*1.,3] 的事情，但是这真的不太好。

感谢您的帮助。

Answer 1

BaseForm 将 10 基数的有理数转换为您想要的任何基数的有理数...因此它可以满足您的期望。

In[1]:= BaseForm[1/3,3]
Out[1]//BaseForm= Subscript[1, 3]/Subscript[10, 3]

正如您所指出的，给它一个实数可以这样做：

In[2]:= BaseForm[1/3.,3]
Out[2]//BaseForm= Subscript[0.1, 3]

最安全的改变方式是定义您自己的 baseForm ，它与 BaseForm 相同，除了当给定有理数时：

baseForm[r_Rational,b_]:=BaseForm[N[r],b]

那么

In[3]:= baseForm[1/3,3]
Out[3]//BaseForm= Subscript[0.1, 3]

---

不太安全的方法（因为你不知道它还会破坏什么）是重新定义 BaseForm

Unprotect[BaseForm];
BaseForm[r_Rational, b_] := BaseForm[N[r], b]
Protect[BaseForm];

然后正常使用。

Answer 2

我可能错过了您请求的微妙之处，但如果您总是想要实数输出，为什么不只使用 N 呢？

BaseForm[N[1/3], 3]

(*  Out=  0.13  *)