Program 7 (Straightness and Squareness)
1:
"****************************************************":
2:
"** Program SEVEN *** Straightness and Squareness ***":
3:
"****************************************************":
4:
prt " Straightness,"," Squareness,"," & Parallelism";spc 2
5:
pclr;0}r10)r2)r1}r0;sfg 3;fxd 1;1}r9
6:
prt "ENTER";prt "CALIBRATION";prt "NUMBER OF ";prt
"Straightness"
7:
1}r9;prt "INTERFEROMETOR";spc 2;ent "Straightness Calibration
Number?",r9
8:
cfg 1;cfg 2;ent "Axis Number?",r10
9:
ent "Number of points on axis?",r1,"Distance between points?",r2
10:
1}Z;ent "Plot?
[Yes=1 No=0]",Z;if Z;sfg 1
11:
0}Z;ent "Data via Laser(0) or Keyboard(1)",Z;if Z=0;sfg 2
12:
-1};11}E;1>rO;fxd 0;prt "AXIS",r10;fxd 1;spc 1;prt "Input Data"
13:
0}Z;if flg2;gto 17
14:
if Z=r1;gto 23
15:
ent "Data?",A;Z+1}Z
16:
A'r9>A;prt A;A+rB}rB;if Y<=0;B+1}B;gto 13
17:
E-1}B;gto 13
18:
if Z=r1;gto 23
19:
red 3,X,Q;if Q>=80;dsr "BEAM is BROKEN !!!";beep;wait 4000;gto
"AGAIN"
20:
(X+sgn(X)(Q*1e8))/r9}X
21:
Z+1>Z
22:
prt X;X+rB}rB;if Y<=0;B+1}B;gto 17
23:
B-1}B;gto 17
24:
1}Z;spc 4;ent "More Data? [Yes=1 No=0]",Z;if Z=0;gto 28
25:
1}Z;ent "Direction?
+1=Same -1=Oppos",Z
26:
if Z<=0;if Y<=0;1}Y;B-1}B;gto 27
27:
11}B;-1}Y
28:
r0+1}r0;gto 12
29:
11}B
30:
rB/r0)rB;B+1}B;if B-11=r1;gto 31
31:
gto 29
32:
gsb "L"
33:
11}E;prt "Straightness"
34:
prt rB;B+1}B;if 8-11=r1;gto 35
35:
gto 33
36:
spc 2;gsb "S'
37:
if flg1;qsb "P"
38:
if flg3;cfg 3;gto 40
39:
gsb "SO"
40:
gto 46
41:
1}Z;ent "Parallelism? [Yes=1
No=0]",Z;if Z=0;gto 42
42:
sfg 4;gto 43
54
Содержание 9825A
Страница 5: ...Figure 1 System configuration 3 ...
Страница 13: ...11 Figure 2 1 Isometric Plot ...
Страница 15: ...Figure 3 1 Numeric data in absolute form 13 ...
Страница 16: ...Figure 3 2 Numeric data in relative form 14 ...
Страница 18: ...Example 16 ...
Страница 20: ...Example 18 ...
Страница 25: ...Figure 6 1 Standard Error Plot 23 ...
Страница 28: ...Squareness sign convention guide 26 ...
Страница 29: ...Squareness 27 ...
Страница 34: ...32 Parallelism 32 ...
Страница 35: ...Figure 7 1 Out of straightness of axis 1 Figure 7 2 Out of straightness of axis 2 33 ...
Страница 36: ...34 Squareness 34 ...
Страница 37: ...Figure 7 3 Out of straightness of axis 1 Figure 7 4 Out of straightness of axis 2 35 ...