- 1、本文档共69页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
FORTRAN数值方法及其在物理学中应用精选
数值方法及其在物理学中应用 一、FORTRAN语言的三点说明 1. 常数与变量的说明 2. 语句书写的格式 FORTRAN77扩展名为: *.f或*.for FORTRAN90无严格限制(以.f90为后缀) 二、FORTRAN基本语句 1、可执行语句 (2)流程控制语句 ⑥call s(d1,d2,…,dn) ②算数条件语句: if(e) k1, k2, k3 (e0) (e=0) (e0) 算数条件语句的计算编程 cha1-1.f: read(*,40) X 40 format(F8.2) if(x)10,20,30 10 Y=-1.57079 goto 100 20 Y=0 goto 100 30 Y=1.57079 goto 100 100 write(*,50)x,Y 50 format(1X,2HX=,F10.6,4H, Y=F10.6) end ③逻辑条件语句 cha1-3.f: read(*,20)x,y,z 20 format(3F10.4) big=x if(y.gt.big)big=y if(z.gt.big)big=z write(*,*)’big=’,big end 例4:编程求解0.0, 0.1, 0.2, 0.3的平方根 do 10 i=0, 0.3, 0.1 2. 非执行语句 (3)data语句(数据初值语句) data v1/d1/,v2/d2/,…vn/dn/ 或 data v1,v2,…,vn/d1,d2,…,dn/ 函数子程序 function举例: integer fac,p,r write(*,*)n=,r=? read(*,*)n,r p=fac(n)/fac(n-r) write(*,*)n,r,p end ? integer function fac(n) fac=1 if(n.le.1) goto 77 do 10 k=2,n 10 fac=fac*k 77??? return end integer p,r write(*,*)n=,r=? read(*,*)n,r call fac(n,m) m1=m call fac(n-r,m) m2=m p=m1/m2 write(*,*)n,r,p end ? subroutine fac(i,m) m=1 if(i.le.1) goto 77 do 10 k=2,i 10 m=m*k 77 return end open(1,file=’N!.dat’) write(*,*)’input N=?’ read(*,*)N M=1 I=2 5??? M=M*I I=I+1 if(I.gt.N) goto 10 goto 5 10 write(1,*) M end 三、源程序语句排列顺序 四、FORTRAN常用内部函数(库函数) 错误 正确 a(-b) a*-b a*(-b) (ab)3 a*b**3 (a*b)**3 sin
您可能关注的文档
- C语言课程设计-学生成绩管理系统设计精选.docx
- C语言课程设计-成绩管理系统精选.docx
- C语言课程设计-校园导游咨询系统精选.docx
- C语言课程设计-班级成绩管理系统精选.docx
- C语言课程设计-用于医院门诊候诊的队列管理程序精选.docx
- C语言课程设计-结账系统精选.docx
- C语言课程设计-职工信息管理系统设计精选.docx
- c语言课程设计报告-商品销售统计程序精选.docx
- C语言课程设计课程设计-选课系统设计精选.docx
- C语言高级语言程序设计(一)PPT教学课件-第一章 C语言基础(一)精选.ppt
- 2024年河南省普通高中招生考试英语讲评教学设计.docx
- 《庖丁解牛》教学设计 2023—2024学年统编版高中语文必修下册.docx
- 2024-2025学年科技与德育教学设计的发展趋势研究.docx
- 四年级上1.6声音的高与低 教学设计.docx
- 8.1 基本几何图形 第1课时 棱柱、棱锥、棱台 电子教案.docx
- 第三章 光和眼睛 专题训练 4.透镜的作图 教学设计 2024-2025学年沪粤版物理八年级上册.docx
- 高一上学期体育与健康 排球—侧面下手发球 教案 人教.docx
- Unit 1 Makingfriends Part A(教学设计)-2024-2025学年人教PEP版(2024)英语三年级上册.docx
- 五年级下册体育说课教学设计-5.7.1基本跳步 |人教版 21张.docx
- 暑期创优衔接作业 第14天2023-2024学年八年级下册数学暑假作业教学设计(人教版).docx
文档评论(0)