vb.net - ATN 从 QBasic 到 VB.Net

Question

我目前正在将程序从 QBasic 翻译为 VB.Net，我有这行代码:

RSA = 270 + 180 / PI * (ATN(ABS(X(Z, 2) / X(Z, 1))))

我翻译成

RSA = 270 + 180 / PI * (Math.Atan(Math.Abs(arrayX(z - 1, 2 - 1) / arrayX(z - 1, 1 - 1))))

对于 VB.Net 但结果不同。以下是一些信息:

PI = 3.141592654

为了我的测试
我使用“6.8929106501697825”作为我的 X(Z, 2) 值
我使用“-5.08864764726704”作为我的 X(Z, 1) 值

QBasic 的结果是:323.9964
VB.Net 的结果是:323.5636369944437

我做错了什么吗？

谢谢

Answer 1

我怀疑您遇到了 QBasic 的老式 16 位限制。

很久以前，当恐龙在地球上行走时，人们在 QBasic 中使用单精度 float 学，他们知道该变量只能存储 7 位有效数字。

因此，如果您的 QBasic 数据类型是单数，那么无论您认为输入了什么，在 QBasic 中它们实际上都是:

PI = 3.141592
X(Z, 2) = 6.892910
X(Z, 1) = -5.088647