Specifications

122 Chapter 8
Statistical Analysis of Measurement Results
Sample Program
Example 8-1 Statistical analysis (stat.bas)
10 DIM Title$(1:7)[20],Para$[9]
20 REAL Point
30 INTEGER Number,Disp_status,Item,I
40 CLEAR SCREEN
50 !
60 ASSIGN @Agt4287a TO 717
70 !
80 OUTPUT @Agt4287a;":CALC:EXAM:POIN?"
90 ENTER @Agt4287a;Point
100 IF Point<1 THEN
110 PRINT "NO DATA!!"
120 GOTO Prog_end
130 END IF
140 !
150 Number=1
160 FOR I=1 TO 4
170 OUTPUT @Agt4287a;":DISP:TEXT1:CALC"&VAL$(I)&"?"
180 ENTER @Agt4287a;Disp_status
190 IF Disp_status=1 THEN
200 OUTPUT @Agt4287a;":CALC:PAR"&VAL$(I)&":FORM?"
210 ENTER @Agt4287a;Para$
220 Title$(Number)="Parameter "&VAL$(I)&" ("&Para$&")"
230 Number=Number+1
240 END IF
250 NEXT I
260 !
270 OUTPUT @Agt4287a;":DISP:TEXT1:CALC11?"
280 ENTER @Agt4287a;Disp_status
290 IF Disp_status=1 THEN
300 Title$(Number)="I Level Monitor"
310 Number=Number+1
320 END IF
330 !
340 OUTPUT @Agt4287a;":DISP:TEXT1:CALC12?"
350 ENTER @Agt4287a;Disp_status
360 IF Disp_status=1 THEN
370 Title$(Number)="V Level Monitor"
380 Number=Number+1
390 END IF
400 !
410 OUTPUT @Agt4287a;":SOUR:LIST:RDC?"
420 ENTER @Agt4287a;Disp_status
430 IF Disp_status=1 THEN
440 Title$(Number)="Rdc Measurement"
450 Number=Number+1
460 END IF
470 Number=Number-1
480 !
490 IF Number=0 THEN
500 PRINT "NO ANALYSIS ITEM!!"
510 GOTO Prog_end
520 END IF
530 !
540 ON ERROR GOTO Item_select
550 Item_select:!
560 PRINT "[Statistical Analysis]"
570 PRINT " Select Analysis Item!"
580 FOR I=1 TO Number
590 PRINT " "&VAL$(I)&": "&Title$(I)
600 NEXT I
610 PRINT ""