Program 3 (Surface Plate Numeric plot)
1:
"************************************************************
******":
2:
"*** Program THREE *** Surface Plate Numeric plot ***":
3:
"************************************************************
******":
4:
"START":cfq ;fxd 0;pclr
5:
dsp " Surface Plate Numeric plot";wait 2000
6:
ent "Which data file# ?",F
7:
if flg13;beep;dsp "Enter File* to be plotted!!";wait 1000;jmp -1
8:
trk 1;ldf F,rO;trk 0
9:
r9/J;r10}K;r19)L;r20)M
10:
0}Z;ent "POSITIVE(0) or RELATIVE(1) data?",Z
11:
if Z;sfg 1;r1/2/r3}r4;jmp 2
12:
0}r3;r1}r4
13:
scl -10,110,-10,110
14:
0}G;ent "GRIDS: None(0) Line(1)
Dash(2)•",G
15:
dsp "Date:",J,K,L," Plate#",M
16:
pen# Wine
17:
xax -10,0;yax 110,0;yax -10,0;xax 110,0
18:
pen# 2;fxd 3;wrt 705,"SL",tan(20);fxd 0
19:
plt 50,110,1;cplt -21,-1
20:
lbl "Date:",J,"/",K,"/",L," Plate #",M
21:
if G=0;gto "PRINT"
22:
if G=1;line ;jmp 2
23:
line G,2
24:
pen# 3
25:
pen;pit 0,0;pit 100,0;plt 100,100;plt 0,100;plt 0,0;plt
100,100,-1
26:
pit 0,100;plt 100,0,-1;plt 100,50;plt 0,50,-1;plt.50,0;plt
50,100,-1
27:
"PRINT":pen# 4
28:
1}X;gsb "A"
29:
0}X;100}Y;100/C}Z;A-1}A
30:
plt X,Y,1;lbl rA-r3;X+Z}X;Y-Z}Y;jmp (A+1}A)>L+1
31:
2}X;gsb "A"
32:
100}X}Y;100/C}Z;A-1/8
33:
plt X,Y,1;lbl rA-r3;X-Z}X;Y-Z}Y;jmp (A+1}A)>B+1
34:
3}X;gsb "A"
35:
100/C}Z;(100}Y)-Z}X
36:
plt X,Y,1;lbl rA-r3;X-Z}X;jmp (A+1}A)>B
37:
4}X;gsb "A"
38:
100/C};(100}X)-Z}Y
39:
plt X,Y,1;lbl rA-r3;Y-Z}Y;jmp (A+1}A)>B
40:
5}X;gsb "A"
41:
0}Y:100-(100/C}Z)}X
48
Содержание 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 ...
