运行时一直运行不出来

bbbsssmmm · 发表于 2019-9-19 13:43:43

求助
请问我下面的程序，build时并没有问题，但是运行时一直运行不出来（就是我按回车他没有反应）。请问我下面的程序是有什么问题吗

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

01program main
02  implicit none
03  external roots1
04  external roots2
05  integer::x,y
06  real::a,b,c,m,n
07 
08  write(*,*) "please input two positive numbers"
09  read(*,*) x,y
10  a=real(x)
11  b=real(y)
12  call roots2(a,b,c)
13 
14  write(*,*) "the first root:"
15  call roots1(a,c,m)
16 
17  write(*,*) "the second root:"
18  call roots1(c,b,n)
19 
20end program
21 
22subroutine roots1(a,b,c)
23    implicit none
24    real,intent(in)::a,b
25    real::p,q
26    real,intent(out)::c
27 
28    p=a
29    q=b
30    do
31        if(f1(p)*f1(q)<0)then
32            c=(p+q)/2
33            if(abs(f1(c))<0.0000001)then
34                write(*,100) c
35                100 format(F10.4)
36                exit
37            elseif(f1(p)*f1(c)<0)then
38                q=c
39 
40            else
41                p=c
42 
43            end if
44        end if
45    end do
46 
47    contains
48    real function f1(x)
49    implicit none
50    real,intent(in)::x
51    f1=x**3-5*x+3
52    end function
53 
54  end subroutine
55 
56  subroutine roots2(a,b,c)
57 
58    real,intent(in)::a,b
59    real::p,q
60    real,intent(out)::c
61 
62    p=a
63    q=b
64    do
65        if(f2(p)*f2(q)<0)then
66           c=(p+q)/2
67           if(abs(f2(c))<0.0000001)then
68            c=(p+q)/2
69            exit
70           elseif(f2(p)*f2(c)<0)then
71            q=c
72 
73           else
74            p=c
75 
76          end if
77        end if
78 
79    end do
80 
81    contains
82     real function f2(x)
83      implicit none
84      real,intent(in)::x
85      f2=3*x**2-5
86     end function
87 
88  end subroutine

bbbsssmmm · 发表于 2019-9-19 13:44:27

是一个方程求解的问题

li913 · 发表于 2019-9-19 19:37:50

本帖最后由 li913 于 2019-9-19 19:46 编辑

死循环，跳出循环的条件 abs(f2(c))<0.0000001 太苛刻。改为 abs(f2(c))<1.0e-5。用盛金公式直接求得所有根，快多了。

bbbsssmmm · 发表于 2019-9-19 20:15:39

谢谢！

[数值问题] 运行时一直运行不出来