双棱镜干涉资料

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

2、0.2591.2162.1703.1704.2165.1736.1527.0198.0239.018Aldlldl2A2 (d21d22525.36.2873.6011169.26.8317.0472下血足我侈的宾验报告的赦倨处理梆今：(1) 两次成像透镜移动的距离AA =A1-A2 =|5253-1169 = 643.9mm(2) 两虚像间的距离d的计算：dl = dll-di= |6.287 -3.601| = 2.686mm dl = 021 -22| = |6.831-7.047| = 0.216mm d =ldlxd2d =j2.686x 0.216 = 0.762wtm(3) 光源

3、到屏的距离D的计算：D_A(4di+4d2)751=2.686 = 1.6394d2 = JO216 = 0.465小 643.9x(1.639 + 0.456)“D = = 1153.71/ww(1.639-0.456)(4) 相邻暗或亮条纹间的距离的计算:25. (x6-xl)+(x7 一 兀2)+(兀 8兀3) +(x9 一 x4) + (xl0-x5) Ax =Ar =0.974mm(5.173-0259)+(6.152-1216)十(7019-2170)+(8023-3170)+(9018-4216)25(s) atg入的针算;九=AXDc 0.762c 八一宀A =x 0.974

4、= 643.2nm1153.646(6)测量结果：波长 X =643. 2nm相对误差：e二1.6%绝对误差k=10. 6nm测量结果：波长入二（64 土02） e+002nm相对误差e= 1. 6%注释:e+002表示10的平方M下页足我运行的猪皋：躇据示：所测数据的单位必须全化勇赛現干它 匚H表示透鏡在光具座上的柏应两个位置 a“2衾示测薇日饒测葷虚蛙源放大橡的位置21,亞2表示缩小像的两/位置_1皿小3 ,4亦卫卫,畑 0表示测微目镜干涉条纹所在位置对应的读数请依次畅人xl,x2,x3,x4,x5.xG.x7.x8.x9.xl0的值十个数N间以空格囘隔，即辅芫第一个 按空梏再输第二个，输

5、完0请按回车，.259 1.216 2.170 3.170 4.216 5173 6152 7.019 023 9.018请依次输入叫山小2,三个数之间以空格间隔，输完=li53.G46nmJF Ax=0. ?74nn夕长入=643.2nn：e= 1.6.!巴对误差k=106nm 测童结果；破长 X =e*002nn相对误差盯仝空；5B： e+002表示10的平方温馨提示:所测数据的单位必须全化为mm变量解释：AhA2表示透镜在光具座上的相应两个位置 d 口 d 12表示测微目镜测量虚光源放大像的位置 d21fd22表示缩小像的两个位置所输入的 xbx2,x3,x4,x5,x6,x7,x&x9

6、,xl0 分别是0.2591.2162.1703.1704.2163.6017.0475.173|6.1527.0198.023所输入的Al,d口dl2依次是:525.36.287所输入的A2,d21,d22依次是:1169.26.831两次成像透镜移动的距离A二643.9mm 放大像两条线的间距dl=2.686mm 缩小像两条线的间距d2=0.216mm 两虚像间的距 离d=0.762mm 根号 dl“.639根号d2=0465光源到屏的距离D-1153.646mm 相邻暗或亮条纹间距从二0.974m m波长入=6432nm 相对误差:的1.6% 绝对误差k=106nm 测量结果：波长入=(

7、6.402)e+002nm 相对误差1.6%注释：e+002表示10的平方下是程序源代码：#include #include double max(double f)double k,g;1=1*10;g=l;l=(int)l;g=g-l;g=g/10;if（g=0.05）f=f； f=f+0.1;return f;void main（）float x 1 ,x2,x3,x4,x5,x6,x7,x 8,x9,x 10;float A1 ,dl 1 ,dl2,A2,d21 ,d22,A,d 1 ,d2;double q,m,n,d,D,x,y,f,e,k,l,h,cd,ab,ef;FILE *w

8、f;wf=fopen（Hc:新建文件夹.txt”, ”w”）;printf（Mtttt双棱镜干涉测波长n ”）;printfC1温馨提示：所测数据的单位必须全化为mmn“）；printf（”变量解释：nAl,A2表示透镜在光具座上的相应两个位置n”）;printf（ndll,dl2表示测微目镜测量虚光源放大像的位置n”）； printf（Hd21,d22表示缩小像的两个位置n“）； fpriMf（wf,”温馨提示：所测数据的单位必须全化为mmn”）；fprintf（wf,”变量解释：nAl,A2表示透镜在光具座上的相应两个位置n”）； fprintf（wf,dll,dl2表示测微目镜测量虚光源

9、放大像的位置n“）； fprintf（wf,d21,d22表示缩小像的两个位置n”）； printf（”xl,x2,x3,x4,x5,x6,x7,x&x9,xl0表示测微目镜干涉条纹所在位置对应 的读数n”）；printf（nn 请依次输入 xl,x2,x3,x4,x5,x6,x7,x8,x9,xl0 的值汁个数Z间以空 格间隔，即输完第一个，按空格再输第二个，输完X10请按回车:n”）； hjk:scanf（”f%f%f%f%f%f%f%f%f%f,&xl,&x2,&x3,&x4,&x5,&x6,&x7,&x8,& x9,&xlO）;fprintf（wf,M 所输入的 xl,x2,x3,x4

10、,x5,x6,x7,x8,x9,xl0 分别 是 %.3At%.3t%.3ft%.3tt%.3tt%.3tt%.3ft%.31At%.3tM%.3fnn,xl,x2,x3,x4,x5,x6, x7,x8, x9,xlO）;printf（”请依次输入Al, dll,dl2,三个数Z间以空格间隔，输完dl2请按回 车）；scanf（,%f%f%f, & A1 ,&d 11，&d 12）;fprintf（wf,H所输入的 Al,dll,dl2 依次是:%.lA1 ,d 11 ,d 12）; printf（”请依次输入A2,d21,d22,三个数Z间以空格间隔输完d22请按回车 n“）；scanf（M

11、%f%f%f, & A2,&d21，&d22）;fprintf（wf,n所输入的 A2,d21,d22 依次是：%.lft%.3ft%.3fn,A2,d21 ,d22）;if(xl0.0&x20.0&x30.0&x40.0&x50.0&x60.0&x70.0&x80. 0&x90.0&x 100.0&A1 0.0&d 11 0.0&d 120.0&A20.0&d21 0.0&d220.0)A=A1-A2;A=fabs(A);dl=dll-dl2;dl=fabs(dl);m=sqrt(dl);d2=d21-d22;d2=fabs(d2);n=sqrt(d2);d=dl*d2;d=sqrt(d);

12、D=A*(m+n)/(m-n);x=(x6+x7+x8+x9+x 10-x 1 -x2-x3-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&yv664.44）/*此处为HeNc激光器所测结果，如果光源不同，此处可进行适量修改勺printf（nn两次成像透镜移动的距离A=%fmmn”,A）;printf（”放大像两条线的间距dl=%.3fmmnH,dl）;printf（”缩小像两条线的间距

13、d2=%.3fmmn”,d2）;printf（”两虚像间的距离 d=%.3fmmn”,d）;printf（n根号 dl=%.3fnu,m）;printf（n根号 d2=%.3fnH,n）;printf（”光 源 到 屏的 距 离 D=%.3fmmn,D）;printf（H相邻暗或亮条纹间 距A x=%.3fmmnn,x）;printf（n波长入=%4.1fnmn相对误差:e=%4.1f%sn绝对误差k=%4.1 fnm”,y,e,”,町;printf（Hnn 测量结果:n 波长 X =（%3.1 f%3.1 f）e+002nmn 相对误差e=%4.1f%sn”,ef,cd,e,”）;print

14、f（”注释：e+002表示10的平方n”）；fprintf（wf,Hn两次成像透镜移动的距离A=%fmmn”,A）;fprintf（wf,n放大像两条线的间距 dl=%.3fmmndl）;fprintf（wf,”缩 小像两 条线的 间 距 d2=%.3fmmnH,d2）;fprintf（wf,两虚像间的距离 d=%.3fmmn,d）;fprintf（wf,H根号 dl=%.3fn,m）;fprintf（wf,u根号 d2=%.3fnM,n）;fprintf（wf,M光源到屏的距离 D=%.3fmmn”,D）;fprintf（wf,H 相邻暗或亮条纹间距 x=%.3fmmnH,x）;fprint

15、f（wf,un 波长 X =%4.1fnmn 相对误差:e=%4.1f%sn 绝对误差 k=%4.1 fnm”,y,e,”,町;fprin（f（wf,”nn 测量结果:n 波长入=（%3.1f%3.1f）c+002nmn 相对误 差 e=%4.1 f%sn,ef,cd,e；,%H）;fprintf（wf,u注释：e+002 表示 10 的平方n“）；fclose（wf）;elseprintf（”所测数据误差太大n“）； elseprintf（“输入有误，请重新输入n”）;goto hjk;5下而是勲膽输出夂件（将针篇猎臬為入tx t艾件屮，便于瘠常体敘共间 读我爲入手机牢旧读，戏為默认瘠赦倨偷

16、出夂件爲入c盘的新建夂件矣彳丿温馨提示：所测数据的单位必须全化为mm变量解释：A1,A2表示透镜在光具座上的相应两个位置dll,dl2表示测微目镜测量虚光源放大像的位置d21,d22表示缩小像的两个位置所输入的 xl,x2,x3,x4,x5,x6,x7,x&x9,xlO 分别是 0.2591.2162.170 3.1704.216 5.173 6.152 7.019 8.023所输入的 Al,dll,dl2 依次是：525.36.287 3.601所输入的 A2,d21,d22 依次是：1169.2 6.831 7.047两次成像透镜移动的距离A=643.9mm放大像两条线的间距dl=2.68

17、6mm缩小像两条线的间距d2=0.216mm两虚像间的距离d=0.762mm根号（11 = 1.639根号 d2=0.465光源到屏的距离D=1153.646mm相邻暗或亮条纹间距 x=0.974mm波长入=643.2nm相对误差:c= 1.6%绝对误差k=10.6nm测量结果：波长 X =(6.40.2)e+002nm相对误差1.6%注释：e+002表示10的平方测波长温餐提示：所测数据的单位必须全化为L_请依茨畅入“小2,碁x4,x5,x7,x8,x9,0的值十个数之间以空格间隔，即输完第一个 ，按空樓再输第二个，输完“0请按回车匕0.259 1.21G 2.170 3.170 4.216

18、 5.173 6.152 7,019 0023 9.018请依次输入Al, dll12,三个数之间以空格间隔，输完皿2请按回车 525 3 6 287 3 601.请钱次輸入畝沁21沁22,三个数之间以空格间隔输完哉2请按回车1169.2 6.831 7.047A=643.89?9G3rrd.1 =2.686000mmd.2 =0.216 000rh d=0.7616?3rii =1153.64614?niR Ax=0 9?4160nin 披长入=6.4e+002nni 相对误着心皿 绝对误差k=10-6nn测童结果：=e*002nm相址误差护士吐、汪釋：e +002表示10的平方即输完第一个耀零as黑曲眾:十个数之间以空格间隔,檢空榕再输第二个，输完“0请按回车：0.259 -1.21G 2.170 3.176 4.216 5.173 6.152 7.319 8.023 9.018请依次输入A dll.dl2,三个数之间以空格间隔，输完赵2请按回车 525.3 6.287 3.601青依次输入朋沁2122 ,三个数之间以空格