Program 8/2 (Linear/Angular STAT-PAY)
1:
"START":ldp 8
2:
"************************************************************
*******":
3:
"** Program EIGHT/2 *** Linear/Angular STAT-PAY. POST TEST PLOT
***":
4:
"************************************************************
*******":
5:
"POSTPLOT":dsp "Post Measurement Documentation"
6:
spc 5;prt "Post Measurement"," Documentation";spc 3
7:
if flg5;ent "File# of data to be plotted ?",F
8:
if flg5;trk 1;ldf F,V,D$,I$,I,T,E,R,E[*];trk 0
9:
6}S;if V;sfg 7;2}S
10:
R+1}A;P+2}B
11:
1}Z;ent "Sorted Printout? [Yes=1 No=0]",Z;if Z=0;gto
"STATPLOT"
12:
spc 5;prt " Statistical"," Error Analysis"
13:
spc ;prt D$;spc ;prt "Machine ID Code:",I$;spc 4
14:
for P=0 to int(T/1)
15:
prt "****************";spc
16:
prt "COMMAND POSITION",IP;spc
17:
if flg7;prt "
ANGULAR";jmp 2
18:
prt " LINEAR"
19:
prt "RUN#
ERROR"
20:
for 0=1 to R
21:
if flg7;fmt f3.0,f13.1;wrt 16,0,E[O,P];jmp 2
22:
fmt f3.0,f13.6;wrt 16,0,E[Q,P]
23:
next Q
24:
spc ;fxd S;prt "AVG:",E[A,Pl
25:
if flg7;gto "ANGLIST"
26:
fmt 2x,b,":",f12.6;wrt 16,9,E[B,P]
27:
spc ;fmt "+3",b,":",f12.6;wrt 16,9,E[A,P]+3E[B,P)
28:
fmt "-3",b,":",f12.6;wrt 16,9,E[A,P]-3E[B,P];spc 3
29:
gto "CUNT"
30:
"ANGLIST":fmt 2x,b,":",f12.2;wrt 16,9,E[B,P]
31:
spc ;fmt "+3",b,":",f12.2;wrt 16,9,E[A,P]+3E[B,P]
32:
fmt "-3",b,":",f12.2;wrt 16,9,E[A,P]-3E[B,P];spc 3
33:
"CONT":next P
34:
spc 3
35:
"STATPLOT":1}Z;ent "Statistical Plot? [Yes=1 No=0]",Z; if
Z=0;gto "END"
36:
if flg1;gto "MEAN"
37:
ent "To rescale plot, enter NEW error",E
38:
"PLOT":gsb "AXES"
39:
pclr;fmt ;wrt 705,"SMX"
40:
for P=0 to int(T/I)
59
Содержание 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 ...