1、 双棱镜干涉实验#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,fabs(),sqrt();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;printf(“tttt 双棱镜干涉测波长 n
2、n“);printf(“温馨提示：所测数据的单位必须全化为 mmn“);printf(“请依次输入 x1x2x3x4x5x6x7x8x9x10 的值:n“);scanf(“%f%f%f%f%f%f%f%f%f%f“,printf(“请依次输入 A1，d11,d12n“);scanf(“%f%f%f“,printf(“请依次输入 A2,d21,d22n“);scanf(“%f%f%f“,if(x10.0A=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/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.16printf(“nn 测量结果:n 波长 =(%3.1f%3.1f)e+002nmnn 相对误差 e=%4.1f%sn“,ef,cd,e,“%“);elseprintf(“所测数据误差太大n“);elseprintf(“输入有误n“);
