HP 9825A, Operating Note And Program Listings

Page: 59 / 63

Program 8/1 (Linear/Angular Statistical)
1: “****************************************************":
2: "** Program EIGHT/1 *** Linear/Angular Statistical analysis
package ***":
3: "***************************************************":
4: "START":dim G,H,V,D$[25],I$[25],I,T,E,R,E[7+2}G,0:(49}H)];cfg
5: spc 3;prt " Incremental","Error Analysis";spc 2
6: "START2":
7: 0}Z;ent "Measurement[0] or Post Plot[1] ?",Z;if Z;sfg 5;gto
"LOADPLOT"
8: "MEASURE":1e-5}M
9: 0}V;ent "Linear[0] or Angular11] Error ?",V;if V;sfg 7
10: 6}S;if flg7;2}S
11: enp "Date:",D$;spc
12: enp "Machine ID Code:",1$;spc 3
13: 1}Z;ent "Plot on fly? [Yes=1 No=0]",Z;if Z;sfg 1
14: 1}Z;ent "Print on fly? [Yes=1 No=0]",Z;if Z;sfg 2
15: "INFO":ent "Increment of travel ?",I
16: ent "Total machine travel ?",T
17: ent "Maximum expected error ?",E
18: ent "Number of Runs ?",R;R+1}A;R+2}B
19: if (B<=G)*(int(T/I)<=H);gto "OK"
20: "TOOBIG":beep;dsp "WARNING: ARRAY SIZE EXCEEDED !";wait
4000;fxd 0
21: beep;dsp "Max: ",G-2," Runs and",H," Pts./run";wait 5000;fxd
S;gto "INFO"
22: "OK":1}Z;ent "Uni[1] or Bi[2] directional ?",Z;if Z=2;sfg 4
23: if flg1;gsb "AXES"
24: 0}Z;sfg 3
25: ent "Data via Laser[0] or Keyboard[1]",Z;if Z;cfg 3;gto "INPUT"
26: if flg7;beep;dsp "LASER MUST BE IN ENGLISH UNITS !";wait 3000;jmp
2
27: 0}Z;ent "English[0] or Metric[1] ?",Z;if Z;l0M}M
28: 1}W;ent "NORMAL[1] or X10[10] mode ?",W;M/W}M
29: "INPUT":0}P;1}Q}N
30: "LOOP":fxd S;dsp "Position:",IP," Data?"
31: if flg3=0;gto "KEY"
32: "LASER":red 3,X,Y
33: if Y>=80;dsp "BEAM has been BROKEN!!! ReRUN";stp ;gto "START2"
34: if flg7;X/W}X}E[Q,P];gto "ERROR"
35: M(X+sgn(X)(Y*1e8))}X
36: gto "ERROR"
37: 35: "KEY":ent "",X;if flg13;dsp "Laser entry...";sfg 3; wait
4000; gto "LOOP"
38: "ERROR":if flg7;X}Y;jmp 2
39: X-IP}Y
57