迈克尔逊干涉仪.doc

这个程序是我将c语言用在处理大物实验的数据上,此程序是处理迈克尔逊干涉实验数据的c语言程序,这个程序经过我反复的修改与验证,不但能准确计算实验结果,而且赋予了它智能化,能判断误差大的实验数据,还能将数据结果存入c盘下的txt新建文件夹中,方便将字体放大查看,或存入手机中查看!好了,多的我就不说了,大家用了就知道了!我上传的文档分为5个部分::单位::(1)冒出Δd1的计算:(2)缩进Δd2的计算:(3)Δd的计算(4)波长λ的计算(5)相对误差的计算E=|λ测量-λ标准|/λ标准(6)绝对误差的计算Δλ=Eλ测量(7)测量结果:λ=λ±Δλ=(±)×102nmE=%::#include<>#include<>doublemax(doublef){ doublek,l,g; k=f; l=(int)f; l=k-l; l=l*10; g=l; l=(int)l; g=g-l; g=g/10; if(g>=) f=f; else f=f+; returnf;}main(){floatd0,d1,d2,d3,d4,d5;floatd10,d11,d12,d13,d14,d15;doublem,h,j,e,f,x,n,cd,ab,ef,gh,q,p1,p2,m2;FILE*wf;printf("\t\t\t迈克尔逊干涉测波长的C语言程序\n");printf("温馨提示:所输数据单位必须为:mm\n");printf("请依次输入冒出的d0,d1,d2,d3,d4,d5五个数以空格间隔,即输完第一个数,按空格再输第二个数,输完d5请按回车\n");qw:scanf("%f%f%f%f%f%f",&d0,&d1,&d2,&d3,&d4,&d5);wf=fopen("c:\\","w"); fprintf(wf,"\t\t\t迈克尔逊干涉测波长的C语言程序\n");fprintf(wf,"温馨提示:所输数据单位必须为:mm\n");fprintf(wf,"所输入的d0,d1,d2,d3,d4,d5依次为:\t%.5f\t%.5f\t%.5f\t%.5f\t%.5f\t%.5f\n",d0,d1,d2,d3,d4,d5);if(d0>0&&d1>0&&d2>0&&d3>0&&d4>0&&d5>0) { ab=d0+d1+d2;cd=d3+d4+d5; m=cd-ab; m=m/9; p1=m; if(m<0) { printf("\n冒出与缩进输反了,系统已经进行智能化处理,下面输缩进,也要输成冒出的数据\n");fprintf(wf,"\n冒出与缩进输反了,系统已经进行智能化处理,下面输缩进,也要输成冒出的数据\n");} m=fabs(m); printf("请依次输入缩进的d10,d11,d12,d13,d14,d15五个数以空格间隔,即输完第一个数,按空格再输第二个数,输完d5请按回车\n");er:scanf("%f%f%f%f%f%f",&d10,&d11,&d12,&d13,&d14,&d15); if(d10>0&&d11>0&&d12>0&&d13>0&&d14>0&&d15>0) { gh=d10+d11+d12;ef=d15+d14+d13; n=gh-ef; n=n/9; p2=n; if(n<0){ printf("冒出与缩进输反了,系统已经进行智能化处理,不会影响测量结果\n"); fprintf(wf,"冒出与缩进输反了,系统已经进行智能化处理,不会影响测量结果\n"); } n=fabs(n); h=(m+n)/2; j=2*h/50; j=j*10000;m2=j*100; e=j-; q=e*100; f=fabs(e); f=f/; f=f*100; if(j>&&j<) { if(p1>0&&p2>0) { printf("\n冒出:Δd1=%fmm\n缩进:Δd2=%fmm\nΔd=%fmm\n",m,n,h);printf("波长λ=%\n相对误差:e=%%s\n绝对误差k=%\n",m2,f,"%",q);printf("