| 查看: 654 | 回复: 4 | |||
[求助]
毕业论文遇到棘手问题，求前辈们指点! 已有1人参与
|
|
程序如下，连接的时候出现如图片所示的错误，请各位前辈赐教！ program NLEQUAT real x0,x1,XEBC,FEBC,XR,FR,F0,F1 INTEGER IPARA,ICDIS ITMAX=50 XEBC=1.0E-6 FEBC=1.0E-8 ICDIS=1 PRINT*,"enter IPARA x0 x1" read 10,IPARA,x0,x1 10 format(I1,2f10.0) IF(IPARA.EQ.1) THEN READ 20,ICDIS,ITMAX,XEBC,FEBC 20 FORMAT(2I2,2F10.0) ENDIF F0=FUN(X0) F1=FUN(X1) IF ((F0*F1).GE.0.) STOP 'ERROR IN ROOT REGEON(X0,X1)' CALL DHRT WRITE(*,70)ITER,XR,FR 70 FORMAT(//"NUMBER OF ITERATION:",I15/"EQUATION ROOT",E15.4/"FUNCTION VALUE F(x)=",E15.4) END SUBROUTINE DHRT ITER=0 20 ITER=ITER+1 XR=(X0+X1)/2 FR=FUN(XR) IF(ICDIS.EQ.1) THEN WRITE(*,30)ITER,X0,X1,XR,FR 30 FORMAT(1X,I6,3F12.6,F15.6) ENDIF IF(ABS(FR).LT.FEBC)RETURN IF(FR*F0.LT.0.)THEN X1=XR F1=FR ELSE X0=XR F0=FR ENDIF IF (ITER.GT.ITMAX)RETURN IF(ABC(X0-X1).GT.XEBC) GOTO 20 RETURN END FUNCTION FUN(X) REAL FUN FUN=EXP(-X/4.)*(2.-X)-1.0 RETURN END  构建结果.jpg |
回复此楼» 猜你喜欢
286求调剂
已经有9人回复
-
一志愿南昌大学324求调剂
已经有6人回复
-
0703化学/290求调剂/本科经历丰富/工科也可
已经有10人回复
-
291求调剂
已经有5人回复
-
308求调剂
已经有7人回复
-
085404求调剂，总分309，本科经历较为丰富
已经有4人回复
-
压国家一区线，求导师收留，有恩必谢！
已经有3人回复
-
一志愿中南大学化学0703总分337求调剂
已经有4人回复
-
083000学硕274求调剂
已经有6人回复
-
304求调剂
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 小妹遇见一个很棘手的问题
已经有17人回复
- 求前辈指点计算数学方向！！！！！！！！！！
已经有5人回复
- materials letters审稿意见中不明白地方求解答
已经有7人回复
- 第一次投稿遇到了这样的情况求各位好心人指教
已经有52人回复
- 毕业论文最后数据处理
已经有3人回复
- 求前辈解读审稿意见
已经有5人回复
- 求地理专业的前辈指导，选择专业问题
已经有30人回复
- PLOS ONE 投稿原始数据公开的问题，急求前辈指点
已经有4人回复
- SCI投稿过程总结
已经有124人回复
- 请教各位前辈：硕士毕业论文查重的相关问题？
已经有13人回复
- 求助！关于angew chem的supporting information和作者格式问题，求各位大神指点啊！
已经有5人回复
- 第一次写英文论文遇到的问题？
已经有8人回复
- 求助关于中文科学通报投稿的问题，急
已经有19人回复
- 求助：熟悉BBRC的前辈们！！！
已经有8人回复
- 求前辈们指点下缩醛反应的问题
已经有23人回复
- Adv. Mater 投稿求助
已经有5人回复
- 读博？工作？有点迷茫了，请计算机的各位前辈们来指点迷津
已经有10人回复
- SCI文章审稿人意见回来，却不知如何答复，请各位前辈指点
已经有7人回复
2楼2015-05-04 16:28:49
jiangxingge
金虫 (正式写手)
- 应助: 15 (小学生)
- 金币: 2498.6
- 红花: 5
- 帖子: 322
- 在线: 55.4小时
- 虫号: 3205681
- 注册: 2014-05-14
- 性别: GG
- 专业: 石油、天然气地质学
3楼2015-05-05 08:54:40
4楼2015-05-06 22:34:41
5楼2015-05-06 22:36:07
