《双棱镜干涉》由会员分享，可在线阅读，更多相关《双棱镜干涉（16页珍藏版）》请在金锄头文库上搜索。
1、双棱镜干涉实验数据处理的C 语言程序这个程序是我将c 语言用在处理大物实验的数据上，心里很激动，言归正传，这个程序是处理双棱镜干涉实验数据的c 语言程序，这个程序经过我反复的修改与验证，不但能准确计算实验结果，而且赋予了它智能化，能判断误差大的实验数据，还能将数据结果存入c 盘下的 txt 新建文件夹中，方便将字体放大查看，或存入手机中查看！好了，多的我就不说了，大家用了就知道了！我上传的文档分为5 个部分：1. 我做实验时所测得的数据2. 我写的实验报告的数据处理部分3. 我在电脑上的运行结果4. 程序源代码5. 数据输出文件1.下面是我做实验时所测得的数据：单位：mmx1x2x3x4x5x
2、6x7x8x9x100.2591.2162.1703.1704.2165.1736.1527.0198.0239.018A1d11d12A2d21d22525.36.2873.6011169.26.8317.0472.下面是我写的实验报告的数据处理部分：（ 1）两次成像透镜移动的距离A（ 2）两虚像间的距离d 的计算：（ 3）光源到屏的距离D 的计算：（ 4）相邻暗或亮条纹间的距离x 的计算：（ 5）波长的计算：（ 6）测量结果：波长 =643.2nm相对误差 :e= 1.6%绝对误差k=10.6nm测量结果 :波长 =(6.4 0.2)e+002nm相对误差e= 1.6%注释： e+002
3、表示 10 的平方3. 下页是我运行的结果：4.下面是程序源代码：#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*
4、wf;新建文件夹 .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(
5、wf,d21,d22表示缩小像的两个位置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%.3
6、t%.3ft%.3ft%.3ft%.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,
7、所输入的 A2,d21,d22 依次是： %.1ft%.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
8、-x4-x5);x=x/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=%.3f
9、mmn,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 两次成像
10、透镜移动的距离 A=%.1fmmn,A); fprintf(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,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
