双棱镜干涉

《双棱镜干涉》由会员分享，可在线阅读，更多相关《双棱镜干涉（16页珍藏版）》请在装配图网上搜索。

1、 双棱镜干涉实验数据处理的C语言程序这个程序是我将c语言用在处理大物实验的数据上，心里很激动，言归正传，这个程序是处理双棱镜干涉实验数据的c语言程序，这个程序经过我反复的修改与验证，不但能准确计算实验结果，而且赋予了它智能化，能判断误差大的实验数据，还能将数据结果存入c盘下的txt新建文件夹中，方便将字体放大查看，或存入手机中查看！好了，多的我就不说了，大家用了就知道了！我上传的文档分为5个部分：1. 我做实验时所测得的数据2. 我写的实验报告的数据处理部分3. 我在电脑上的运行结果4. 程序源代码5. 数据输出文件1.下面是我做实验时所测得的数据：单位：mmx1x2x3x4x5x6x7x8x

2、9x100.2591.2162.1703.1704.2165.1736.1527.0198.0239.018A1d11d12A2d21d22525.36.2873.6011169.26.8317.047 2.下面是我写的实验报告的数据处理部分：（1）两次成像透镜移动的距离A（2）两虚像间的距离d的计算：（3）光源到屏的距离D的计算：（4）相邻暗或亮条纹间的距离x的计算：（5）波长的计算：（6）测量结果：波长=643.2nm相对误差:e= 1.6%绝对误差k=10.6nm测量结果:波长=(6.40.2)e+002nm相对误差e= 1.6%注释：e+002表示10的平方3.下页是我运行的结果：4.

3、下面是程序源代码：#include #include double max(double f) double k,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=0.05)f=f;elsef=f+0.1;return f;void main() float x1,x2,x3,x4,x5,x6,x7,x8,x9,x10; float A1,d11,d12,A2,d21,d22,A,d1,d2; double q,m,n,d,D,x,y,f,e,k,l,h,cd,ab,ef;FILE *wf;wf=fopen(c:新建文件

4、夹.txt, w); printf(tttt双棱镜干涉测波长n); printf(温馨提示：所测数据的单位必须全化为mmn);printf(变量解释：nA1,A2表示透镜在光具座上的相应两个位置n); printf(d11,d12表示测微目镜测量虚光源放大像的位置n);printf(d21,d22表示缩小像的两个位置n);fprintf(wf,温馨提示：所测数据的单位必须全化为mmn);fprintf(wf,变量解释：nA1,A2表示透镜在光具座上的相应两个位置n); fprintf(wf,d11,d12表示测微目镜测量虚光源放大像的位置n);fprintf(wf,d21,d22表示缩小像的两

5、个位置n); printf(x1,x2,x3,x4,x5,x6,x7,x8,x9,x10表示测微目镜干涉条纹所在位置对应的读数n); printf(n请依次输入x1,x2,x3,x4,x5,x6,x7,x8,x9,x10的值,十个数之间以空格间隔，即输完第一个，按空格再输第二个，输完x10请按回车:n); hjk:scanf(%f%f%f%f%f%f%f%f%f%f,&x1,&x2,&x3,&x4,&x5,&x6,&x7,&x8,&x9,&x10); fprintf(wf,所输入的x1,x2,x3,x4,x5,x6,x7,x8,x9,x10分别是%.3ft%.3t%.3ft%.3ft%.3ft

6、%.3ft%.3ft%.3ft%.3ft%.3fn,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10);printf(请依次输入A1，d11,d12，三个数之间以空格间隔，输完d12请按回车n); scanf(%f%f%f,&A1,&d11,&d12); fprintf(wf,所输入的A1,d11,d12依次是：%.1ft%.3ft%.3fn,A1,d11,d12); printf(请依次输入A2,d21,d22，三个数之间以空格间隔输完d22请按回车n); scanf(%f%f%f,&A2,&d21,&d22);fprintf(wf,所输入的A2,d21,d22依次是：%.1ft

7、%.3ft%.3fn,A2,d21,d22); if(x10.0&x20.0&x30.0&x40.0&x50.0&x60.0&x70.0&x80.0&x90.0&x100.0&A10.0&d110.0&d120.0&A20.0&d210.0&d220.0) A=A1-A2; A=fabs(A); d1=d11-d12; d1=fabs(d1); m=sqrt(d1); d2=d21-d22; d2=fabs(d2); n=sqrt(d2); d=d1*d2; d=sqrt(d); D=A*(m+n)/(m-n); x=(x6+x7+x8+x9+x10-x1-x2-x3-x4-x5); x=x/

8、25; y=d*x/D; y=y*1000000; ef=y/100; e=y-632.8; e=fabs(e); e=e/632.8; k=y*e; e=e*100; f=y*e/100; ab=f/100; cd=max(ab);if(y601.16&y664.44) /*此处为He-Ne激光器所测结果，如果光源不同，此处可进行适量修改*/ printf(n两次成像透镜移动的距离A=%.1fmmn,A); printf(放大像两条线的间距d1=%.3fmmn,d1); printf(缩小像两条线的间 距d2=%.3fmmn,d2); printf(两 虚 像 间 的距 离d=%.3fmmn

9、,d); printf(根号d1=%.3fn,m); printf(根号d2=%.3fn,n); printf(光 源 到 屏的 距 离D=%.3fmmn,D); printf(相邻暗或亮条纹间 距x=%.3fmmn,x); printf(n波长=%4.1fnmn相对误差:e=%4.1f%sn绝对误差k=%4.1fnm,y,e,%,k); printf(nn测量结果:n波长=(%3.1f%3.1f)e+002nmn相对误差e=%4.1f%sn,ef,cd,e,%); printf(注释：e+002表示10的平方n); fprintf(wf,n两次成像透镜移动的距离A=%.1fmmn,A); f

10、printf(wf,放 大 像 两 条 线 的 间 距d1=%.3fmmn,d1); fprintf(wf,缩 小 像 两 条 线 的 间 距d2=%.3fmmn,d2); fprintf(wf,两 虚 像 间 的 距 离 d=%.3fmmn,d); fprintf(wf,根号d1=%.3fn,m); fprintf(wf,根号d2=%.3fn,n); fprintf(wf,光 源 到 屏的 距 离D=%.3fmmn,D); fprintf(wf,相邻暗或亮条纹间距x=%.3fmmn,x); fprintf(wf,n波长=%4.1fnmn相对误差:e=%4.1f%sn绝对误差k=%4.1fnm

11、,y,e,%,k); fprintf(wf,nn测量结果:n波长=(%3.1f%3.1f)e+002nmn相对误差e=%4.1f%sn,ef,cd,e,%); fprintf(wf,注释：e+002表示10的平方n); fclose(wf);elseprintf(所测数据误差太大n);elseprintf(输入有误,请重新输入n);goto hjk;5.下面是数据输出文件（将计算结果存入txt文件中，便于将字体放大阅读或存入手机中阅读，程序默认将数据输出文件存入c盘的新建文件夹中）温馨提示：所测数据的单位必须全化为mm变量解释：A1,A2表示透镜在光具座上的相应两个位置d11,d12表示测微目

12、镜测量虚光源放大像的位置d21,d22表示缩小像的两个位置所输入的x1,x2,x3,x4,x5,x6,x7,x8,x9,x10分别是0.259 1.216 2.170 3.1704.2165.1736.1527.0198.023所输入的A1,d11,d12依次是：525.36.2873.601所输入的A2,d21,d22依次是：1169.26.8317.047两次成像透镜移动的距离A=643.9mm放 大 像 两 条 线 的 间 距d1=2.686mm缩 小 像 两 条 线 的 间 距d2=0.216mm两 虚 像 间 的 距 离 d=0.762mm根号d1=1.639根号d2=0.465光 源 到 屏的 距 离D=1153.646mm相邻暗或亮条纹间距x=0.974mm波长=643.2nm相对误差:e= 1.6%绝对误差k=10.6nm测量结果:波长=(6.40.2)e+002nm相对误差e= 1.6%注释：e+002表示10的平方