中南大學fortran_程序实验报告.docVIP

班 级： 学 号： 姓 名： 指导教师： 2011年6月17日 目 录 一.课程设计的目的…………………………… 二.需求分析…………………………………… 三.设计概要…………………………………… 四.详细设计…………………………………… 五.调试过程错误分析及不足……………….. 六.实践心得…………………………………… 一．课程设计的目的 当今社会，计算机的应用已经渗透到各个领域，在社会生活中扮演越来越重要的角色。而计算机是在“程序”控制下自动工作的，计算机解决任何实际问题都依赖于解决问题的程序。大多数人认为，程序设计应该是计算机应用人员的一项基本功，同时也应是大学生的一项基本思维方式训练。FORTRAN课程设计的目的，就是要通过实践，学会利用FORTRAN语言编写出适合自己实际需要的程序，让计算机完成自己指定的任务。 二．需求分析： 1．实践目的 数据插值与曲线拟合问题 通过本课程设计，培养程序设计能力以及综合解决实际问题的能力。通过自己分析问题、寻求算法、编写、调试程序的过程，掌握FORTRAN程序设计与调试方法，提高灵活运用所学知识解决问题的能力。 2.此课题包含以下几点： （1）从文件中读入数据。 （2）用数据插值方法计算P=15，25，35，45，55，65，75，85，95时（单位KN）弹簧的变形。 （3）求数据组的拟合曲线。 （4）绘制压力-变形拟合曲线。 三．设计概要 设计框架： 2 .程序的主要功能模块（首先要建立一个纯文本文件A,B来储存需要的数据）： 主程序：读取文件以及用来控制子程序的运行。 子程序qiuni：关于插值法的子程序。 子程序brmul：关于曲线拟合的子程序。 绘图程序：用程序绘制相关函数图形。 四．详细设计： 1 .程序1（前两问） 1》 算法思路：1、读取文件（用直接有格式的读） 2、插值法插值（一元三点法） DIMENSION Y(10) OPEN(10,FILE=X.TXT,FORM=FORMATTED,ACCESS=DIRECT,RECL=10) DO I=1,10 X=10.0*I WRITE(10,100,REC=I)X 100 FORMAT(F5.1) END DO OPEN(20,FILE=Y.TXT,FORM=FORMATTED,ACCESS=DIRECT,RECL=10) WRITE(20,200,REC=1)6.0 WRITE(20,200,REC=2)14.0 WRITE(20,200,REC=3)26.0 WRITE(20,200,REC=4)33.0 WRITE(20,200,REC=5)46.0 WRITE(20,200,REC=6)54.0 WRITE(20,200,REC=7)67.0 WRITE(20,200,REC=8)75.0 WRITE(20,200,REC=9)84.0 WRITE(20,200,REC=10)100.0 OPEN(20,FILE=Y.TXT,FORM=FORMATTED,ACCESS=DIRECT,RECL=10) DO I=1,10 READ(20,200,REC=I)Y(I) END DO X=10 H=10 EPS=1.0 DO T=15,95,10 CALL EEATK(X,H,10,Y,T,EPS,Z) WRITE(*,10) T,Z 10 FORMAT(1X,压力P(KN)=,F5.1,10X,变形(mm)=,F5.1) 200 FORMAT(F6.1) END DO CLOSE(20) END SUBROUTINE EEATK(X1,H,N,Y,T,EPS,Z) DIMENSION Y(N),XM(10),YM(10) M=10 IF (M.GT.N) M=N Z=0.0 IF (M.LE.0) RETURN IF (N.EQ.1) THEN Z=Y(1) RETURN END IF IF (M.EQ.1) M=2 IF (T.LE.X1) THEN K=1 ELSE IF (T.GE.X1+(N-1)*H) THEN K=N ELSE K=1 J=N 10 IF (IABS(K-J).NE.1) THEN L=(K+J)/2 I