Program 4 (Large angle error correction)
1:
"*************************************************":
2:
"* Program FOUR *** Large angle error correction *":
3:
**************************************************":
4:
"START":dsp " Large Angle Error Correction"
5:
spc 3;prt " LARGE ANGLE","ERROR CORRECTION";spc 3
6:
wait 2000
7:
cfg ;2.0625}Y;1e-5}M
8:
0}Z;ent "INPUT: 5526(0) or Keyboard(1) ?",Z;if Z;gto "SKIP"
9:
sfg 1;spc 2;prt "LASER MUST BE in INCHES MODE!";spc 3
10:
dsp "LASER MUST BE IN INCHES MODE !!!";beep;wait 3000
11:
0}Z;ent "Laser: NORMAL(0) or X10(1) Mode?",Z
12:
if Z;1e-6}M
13:
"SKIP":0}T;ent "OUTPUT?: Arcsec(0) Deg(1) Rad(2)",T
14:
if T=2;rad;jmp 2
15:
deg
16:
"loop":if flg1=0;gto "KEY"
17:
"LASER":dsp " Enter data from Laser Display."
18:
red 3,X,Y
19:
if Y>=80;beep;dsp " BEAM
is
BROKEN !!!";gto "loop"
20:
X+sgn(X)(Y*1e8)}X
21:
"KEY":ent "ANGLE (arcseconds)?",X;if flg13;gto "exit"
22:
"CORR":X*M}X;asn(X/Y)}C
23:
if T=O;C*3600)C
24:
fxd 1;prt "Arcsecs",X*1e5
25:
if T=2;C*1000}C;fxd 4
26:
if T=1;fxd 5
27:
prt "Correct",C
28:
if T=0;prt " arcseconds";jmp 3
29:
if T=2;prt " milliradians";jmp 2
30:
prt " degrees"
31:
spc 2;gto "loop"
32:
"exit":dsp "Press CONT for more corrections."
33:
stp
34:
gto "START"
35:
end
*2359
50
Summary of Contents for 9825A
Page 5: ...Figure 1 System configuration 3 ...
Page 13: ...11 Figure 2 1 Isometric Plot ...
Page 15: ...Figure 3 1 Numeric data in absolute form 13 ...
Page 16: ...Figure 3 2 Numeric data in relative form 14 ...
Page 18: ...Example 16 ...
Page 20: ...Example 18 ...
Page 25: ...Figure 6 1 Standard Error Plot 23 ...
Page 28: ...Squareness sign convention guide 26 ...
Page 29: ...Squareness 27 ...
Page 34: ...32 Parallelism 32 ...
Page 35: ...Figure 7 1 Out of straightness of axis 1 Figure 7 2 Out of straightness of axis 2 33 ...
Page 36: ...34 Squareness 34 ...
Page 37: ...Figure 7 3 Out of straightness of axis 1 Figure 7 4 Out of straightness of axis 2 35 ...
