Program 6 (Standard error plotting)
1:
"****************************************************":
2:
"*** Program SIX *** Standard error plotting ***":
3:
"****************************************************":
4:
"START":fxd 6;cfg
5:
spc 3;prt "Standard Error","
Plotting";spc 2
6:
.01}r1;.005}r2;.001}r4;.0005}r5;.00001}r6
7:
0}Z;ent "English(0) or Metric(1) units ?",Z;if
Z;10r1}r1;10r2}r2;10r6}r6
8:
ent "Maximum machine travel ?",r0
9:
1}Z;ent "Error Plot ? (Yes=1
No=0]",Z;if Z;sfg 1
10:
1}Z;ent "Printout ? (Yes=1 No=0)",Z;if Z;sfg 2
11:
0}Z;ent "Data via Laser(0) or Keyboard(1)",Z;if Z=0;sfg 3
12:
1}Z;ent "NORMAL(1) or X10(10) mode ?",Z;r1/Z}r1;r2/Z}r2;r6/Z}r6
13:
if flg1=0;gto "SKIP"
14:
pclr;pen# 4
15:
scl -r0/10,r0,-5r2/4,r2
16:
fxd abs(log(r2))+2;yax 0,r2/10,-r2,r2,5
17:
fxd abs(log(r2));xax -r2,r0/20,0,r0,4
18:
xax 0,r0/20,0,r0
19:
line 0;pen# 1;plt 0,0,1;wrt 705,"SM*"
20:
fxd 6
21:
"SKIP":-1}Z
22:
"LOOP":if flg3=0;gto "KEYBOARD"
23:
"LASER":dsp "Data via Laser Press PRINT"
24:
red 3,X,Y
25:
if Y>=80;dsp "BEAM has been BROKEN !!!";beep;wait 3000;gto "END"
26:
r6*(X+sgn(X)(Y*1e8))}X
27:
gto "ERROR"
28:
"KEYBOARD":ent "Data ?",X;if flg13;gto "END"
29:
"ERROR":r1*int(X/r1)}Y
30:
X-Y}B;if B>r2;B-r1}B;Y+r1}Y
31:
if flg1;plt Y,B,2;pen
32:
if flg2;prt "Command",Y,"Error",B;spc
33:
gto "LOOP"
34:
"END":pen# ;spc 5;plt r0,r2,1
35:
beep;dsp "Press CONT to restart.";beep;stp
36:
gto "START"
37:
end
*20783
53
Содержание 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 ...