负数求三次方根的NaN问题，多谢啦！

小智

不说多的 直接上源代码

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program ex110

02	implicit none

03	DIMENSION U(2),UI1(3),UI2(6),UI3(6)

04	REAL(8) Nv, chi, lambda0, detF0,vcho,vcmo,vcpo,fa,fb,Ka,Kb,vNa

05	REAL(8) U ,UI1, UI2 ,UI3,aa, bb, cc ,dd, ee, deltaa, deltab,deltac

06	REAL(8) BI1,BI2,AJ

07	REAL(8) delta,vch,GAJ, DGAJDAJ, DDGAJDDAJ, DDDGAJDDDAJ

08	REAL(8) DGAJDvch ,DDGAJDDvch, DDDGAJDDDvch

09	REAL(8) DDGAJDAJDvch, DDDGAJDAJDDvch, DDDGAJDDAJDvch

10	REAL(8) DvchDAJ, DDvchDDAJ, DDDvchDDDAJ

11	REAL(8) D1GAJDAJ, D2GAJDAJ, D3GAJDAJ,TEMP

12

BI1=10.0

13

AJ=1.0

14

TEMP=2.0

15	Nv = 0.001

16

chi = 0.1

17	lambda0 = 3.39

18	detF0 = lambda0**3.0

19	vNa=0.0602

20	vcpo=vNa*(10.0**(-3.0))

21	vcho=vNa*(10.0**(-TEMP))

22	vcmo=vcpo+vcho

23	Ka=10.0**(-4.3)

24	Kb=10.0**(-10.0)

25

fa=0.05

26

fb=0.0

27	!。。。。。。中间省略部分无关代码

28

29

30	aa=AJ*detF0*(vcho+vcpo)

31

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

33	&vcpo)*vNa

34

35	cc=-(AJ*detF0*vcho**2*vcmo)-fa*Ka*vcho*vNa+fb*Ka*vcho*vNa+

36	&AJ*detF0*Ka*Kb*(vcho+vcpo)*vNa**2

37	dd=-(AJ*detF0*Ka*vcho**2*vcmo*vNa)-AJ*detF0*Kb*vcho**2*vcmo*v

38	&Na-fa*Ka*Kb*vcho*vNa**2

39

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

41

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

43

44	deltab=2*cc**3-9*bb*cc*dd+27*aa*dd**2-72*aa*cc*ee

45	deltac=(deltab+Sqrt(abs(-4.0*deltaa**3.0+deltab**2.0)))

46	&**(1.0/3.0)

47

48	delta=(2**(1/3)*deltaa)/(3*aa*deltac)+deltac/(3*2**(1/3)*aa)

49	!。。。。。。。。。。。以下省略部分无关代码。。。。。。。。。

现在我的问题是，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，实在不知道是为什么 求大神指点 多谢~

PS：打印出来的deltac就是此图中第七行第二个数据，如果没有开立方根的话能运行出结果，开了立方根之后死活是NaN。。。。。T_T

楚香饭

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

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

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

[Fortran] 纯文本查看 复制代码

查看代码

打印?

1	Program www_fcode_cn

2	Implicit None

3	real(8) :: d = -1.63899782385934d-24 , s

4	s = sign(1.0d0,d)*abs(d)**(1.0d0/3.0d0)

5	write(*,*) s , d , s*s*s

6	End Program www_fcode_cn

小智

楚香饭 发表于 2015-9-30 07:35
由于浮点数有误差。所以 1.0/3.0 并不能精确的表示 1/3，例如可能是 0.333333334，极大可能是一个偶数分之 ...

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

糖盒love玲珑

楚兄 这个例子好 可以作为新手认识浮点数误差的一个很好案例! 受教了.

pasuka

楚香饭 发表于 2015-9-30 07:35
由于浮点数有误差。所以 1.0/3.0 并不能精确的表示 1/3，例如可能是 0.333333334，极大可能是一个偶数分之 ...

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

wutong-sky

楚香饭 发表于 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为正

wutong-sky

楚香饭 发表于 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，怎么改？谢谢

vvt

请参考楼上的案例，依葫芦画瓢。

wutong-sky

vvt 发表于 2016-3-18 22:44
请参考楼上的案例，依葫芦画瓢。

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

vvt

float invalid operation 是 运行时错误

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

比如

[Fortran] 纯文本查看 复制代码

查看代码

打印?

1

integer n

2	write(*,*) "有100个苹果分给小朋友，"

3	write(*,*) "请输入小朋友的个数"

4	read(*,*) n

5	write(*,*) "每个小朋友获得" , 100/n , "个苹果"

6

end

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

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

如果你不熟悉 debug 单步调试，可以看这里的视频教程：http://v.fcode.cn/video-debugger.html