40:
if flg1;wrt 705,"SMX";plt IP,Y,1
41:
"LOOPBI":if flg2;prt "Pos:",IP,"Error:",Y;spc
42:
Y}E[Q,P]
43:
E[A,P)+Y}E[A,P]
44:
E[B,P]+YY}E[B,P]
45:
if (I(P+N)<=T)*(I(P+N)>=0);P+N}P;gto "LOOP"
46:
"NEWRUN":Q+1}0
47:
if Q>R;gto "CALC"
48:
fxd 0;spc ;prt "RUN#",Q;spc 2
49:
if flg4=0;dsp "Begin Run#",Q,"Send Machine to 0";0}P
50:
if flql;pclr;plt IP,0,1
51:
if flg4;dsp "Reverse Direction..Begin Run#",Q;-N}N
52:
fxd 6;beep;wait 4000;beep .
53:
if flg4;gto "LOOPBI"
54:
gto "LOOP"
55:
"CALC":for P=0 to int(T/I)
56:
if R>1;\abs((E[B,P]-E[A,P]*E[A,P]/R)/(R-1))}E[B,P]
57:
E[A,P]/R}E[A,P]
58:
next P
59:
0}F;ent "Store on which File#? [0=No]",F;if F=0;gto
"LOADPLOT"
60:
trk 1;rcf F,V,DS,I$,I,T,E,R,E[*];trk 0
61:
"LOADPLOT":ldf 9,0,1
62:
"AXES":pclr;pen# 4
63:
scl -T/10,12T/10,-2.5E,2.1E
64:
fxd 2;xax -2E,I,0,T,max(1,int(T/5I))
65:
xax 0,I,0,T
66:
fxd S;yax 0,E/5,-2E,2E,5
67:
pen* 3;plt T/2,1.9E,1
68:
if flg7;lbl "ANGULAR ERROR
y
rs. POSITION";cplt ;jmp 2
69:
lbl "LINEAR ERROR vrs. POSITION";cplt
70:
lbl "Date: ",DX;cplt
71:
lbl "Machine ID Code: ",I$
72:
pent! 1;plt 0,0,1
73:
ret
74:
end
*8802
58
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 ...