Fortran Coder

查看: 17411|回复: 10

[通用算法] 负数求三次方根的NaN问题,多谢啦!

[复制链接]

2

帖子

1

主题

0

精华

新人

精神病

F 币
13 元
贡献
6 点
发表于 2015-9-30 01:42:06 | 显示全部楼层 |阅读模式
不说多的 直接上源代码
[Fortran] 纯文本查看 复制代码
program ex110
implicit none
DIMENSION U(2),UI1(3),UI2(6),UI3(6) 
REAL(8) Nv, chi, lambda0, detF0,vcho,vcmo,vcpo,fa,fb,Ka,Kb,vNa
REAL(8) U ,UI1, UI2 ,UI3,aa, bb, cc ,dd, ee, deltaa, deltab,deltac
REAL(8) BI1,BI2,AJ
REAL(8) delta,vch,GAJ, DGAJDAJ, DDGAJDDAJ, DDDGAJDDDAJ 
REAL(8) DGAJDvch ,DDGAJDDvch, DDDGAJDDDvch 
REAL(8) DDGAJDAJDvch, DDDGAJDAJDDvch, DDDGAJDDAJDvch
REAL(8) DvchDAJ, DDvchDDAJ, DDDvchDDDAJ
REAL(8) D1GAJDAJ, D2GAJDAJ, D3GAJDAJ,TEMP
BI1=10.0
AJ=1.0
TEMP=2.0
Nv = 0.001
chi = 0.1
lambda0 = 3.39
detF0 = lambda0**3.0
vNa=0.0602
vcpo=vNa*(10.0**(-3.0))
vcho=vNa*(10.0**(-TEMP))
vcmo=vcpo+vcho
Ka=10.0**(-4.3)
Kb=10.0**(-10.0)
fa=0.05
fb=0.0
!。。。。。。中间省略部分无关代码


aa=AJ*detF0*(vcho+vcpo)

bb=fb*vcho+AJ*detF0*Ka*(vcho+vcpo)*vNa+ AJ*detF0*Kb*(vcho + 
&vcpo)*vNa

cc=-(AJ*detF0*vcho**2*vcmo)-fa*Ka*vcho*vNa+fb*Ka*vcho*vNa+ 
&AJ*detF0*Ka*Kb*(vcho+vcpo)*vNa**2
dd=-(AJ*detF0*Ka*vcho**2*vcmo*vNa)-AJ*detF0*Kb*vcho**2*vcmo*v
&Na-fa*Ka*Kb*vcho*vNa**2

ee=AJ*detF0*Ka*Kb*vcho**2*vcmo*vNa**2

deltaa=cc**2-3*bb*dd+12*aa*ee

deltab=2*cc**3-9*bb*cc*dd+27*aa*dd**2-72*aa*cc*ee
deltac=(deltab+Sqrt(abs(-4.0*deltaa**3.0+deltab**2.0)))
&**(1.0/3.0)

delta=(2**(1/3)*deltaa)/(3*aa*deltac)+deltac/(3*2**(1/3)*aa)
!。。。。。。。。。。。以下省略部分无关代码。。。。。。。。。
现在我的问题是,deltac=(deltab+Sqrt(abs(-4.0*deltaa**3.0+deltab**2.0)))
&**(1.0/3.0)这一句中,如果只有(deltab+Sqrt(abs(-4.0*deltaa**3.0+deltab**2.0)))的话能运行出结果来
但是如果我想将这个deltac开立方根,变成deltac=(deltab+Sqrt(abs(-4.0*deltaa**3.0+deltab**2.0)))**(1.0/3.0)之后
运行结果死活就是NaN,实在不知道是为什么 求大神指点 多谢~
运行结果.jpg
PS:打印出来的deltac就是此图中第七行第二个数据,如果没有开立方根的话能运行出结果,开了立方根之后死活是NaN。。。。。T_T

709

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
596 元
贡献
305 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

发表于 2015-9-30 07:35:17 | 显示全部楼层
本帖最后由 楚香饭 于 2015-9-30 07:36 编辑

由于浮点数有误差。所以 1.0/3.0 并不能精确的表示 1/3,例如可能是 0.333333334,极大可能是一个偶数分之一。
你知道,负数开偶次方会是 NaN 对吧?

所以,如果要开三次方,比较好的办法,是先取绝对值,开方以后,再把符号乘上去。(sign函数可以返回符号,即1.0或-1.0)

以下代码在三个编译器上测试,均能得到正确结果。

[Fortran] 纯文本查看 复制代码
Program www_fcode_cn
  Implicit None
  real(8) :: d = -1.63899782385934d-24 , s
  s = sign(1.0d0,d)*abs(d)**(1.0d0/3.0d0)
  write(*,*) s , d , s*s*s
End Program www_fcode_cn

2

帖子

1

主题

0

精华

新人

精神病

F 币
13 元
贡献
6 点
 楼主| 发表于 2015-9-30 08:30:05 | 显示全部楼层
楚香饭 发表于 2015-9-30 07:35
由于浮点数有误差。所以 1.0/3.0 并不能精确的表示 1/3,例如可能是 0.333333334,极大可能是一个偶数分之 ...

果然编译成功了 谢谢大神!

15

帖子

2

主题

0

精华

新人

F 币
142 元
贡献
84 点
发表于 2015-12-28 19:18:28 | 显示全部楼层
楚兄 这个例子好 可以作为新手认识浮点数误差的一个很好案例! 受教了.

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

水王勋章元老勋章热心勋章

发表于 2016-1-2 20:14:46 | 显示全部楼层
楚香饭 发表于 2015-9-30 07:35
由于浮点数有误差。所以 1.0/3.0 并不能精确的表示 1/3,例如可能是 0.333333334,极大可能是一个偶数分之 ...

查了一下,C++11的标准里面已经有一个cbrt函数专门开三次方根,不知道Fortran何时跟进

10

帖子

1

主题

0

精华

入门

F 币
65 元
贡献
39 点
发表于 2016-3-18 22:17:05 | 显示全部楼层
楚香饭 发表于 2015-9-30 07:35
由于浮点数有误差。所以 1.0/3.0 并不能精确的表示 1/3,例如可能是 0.333333334,极大可能是一个偶数分之 ...

麻烦问一下师兄,RRL=SQRT(UUAB**2+CH**2*(FF1**2-FF2**2))
                        RRL0=(RRL-UUAB)/(CH*(FF1+FF2))
其中UUAB为正,CH为正

10

帖子

1

主题

0

精华

入门

F 币
65 元
贡献
39 点
发表于 2016-3-18 22:22:53 | 显示全部楼层
楚香饭 发表于 2015-9-30 07:35
由于浮点数有误差。所以 1.0/3.0 并不能精确的表示 1/3,例如可能是 0.333333334,极大可能是一个偶数分之 ...

RRL=SQRT(UUAB**2+CH**2*(FF1**2-FF2**2))
RRL0=(RRL-UUAB)/(CH*(FF1+FF2))
师兄,麻烦问一下,我debug在这两句这出现了float invalid operation,怎么改?谢谢

953

帖子

0

主题

0

精华

大师

F 币
180 元
贡献
73 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
发表于 2016-3-18 22:44:53 | 显示全部楼层
请参考楼上的案例,依葫芦画瓢。

10

帖子

1

主题

0

精华

入门

F 币
65 元
贡献
39 点
发表于 2016-3-19 16:17:29 | 显示全部楼层
vvt 发表于 2016-3-18 22:44
请参考楼上的案例,依葫芦画瓢。

RRL0=(RRL-UUAB)/(CH*(FF1+FF2))
麻烦问一下,这一句怎么改?

953

帖子

0

主题

0

精华

大师

F 币
180 元
贡献
73 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
发表于 2016-3-19 20:11:04 | 显示全部楼层
float invalid operation 是 运行时错误

运行时错误,属于动态问题。往往不仅仅是代码本身错误导致的。而是数据不合适,或算法不严谨导致的。

比如
[Fortran] 纯文本查看 复制代码
integer n
write(*,*) "有100个苹果分给小朋友,"
write(*,*) "请输入小朋友的个数"
read(*,*) n
write(*,*) "每个小朋友获得" , 100/n , "个苹果"
end


这个代码本身是没有错误的,但是当用户输入 0 时,就会出现 float invalid operation

这就是动态错误。建议你通过 debug 单步调试查找这类错误的原因。

如果你不熟悉 debug 单步调试,可以看这里的视频教程:http://v.fcode.cn/video-debugger.html
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-29 05:41

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表