Specifications

Chapter 8 123
Statistical Analysis of Measurement Results
Sample Program
8. Statistical Analysis on
Measurement Results
620 PRINT "Input 1 to "&VAL$(Number)
630 INPUT "Number? ",Inp_char$
640 Item=IVAL(Inp_char$,10)
650 IF Item<1 OR Item>Number THEN Item_select
660 OFF ERROR
670 !
680 CLEAR SCREEN
690 PRINT "Analysis Item: "&Title$(Item)
700 CALL Stat_ana(@Agt4287a,Item)
710 !
720 Prog_end: END
730 !=============================================
740 ! Statistical Analysis Function
750 !=============================================
760 SUB Stat_ana(@Agt4287a,INTEGER Item)
770 DIM Img1$[100],Img2$[100]
780 REAL Res(1:32,1:10)
790 INTEGER List_stat,Nop,I
800 !
810 OUTPUT @Agt4287a;":SOUR:LIST:STAT?"
820 ENTER @Agt4287a;List_stat
830 IF List_stat=1 THEN
840 OUTPUT @Agt4287a;":SOUR:LIST:SIZE?"
850 ENTER @Agt4287a;Nop
860 ELSE
870 Nop=1
880 END IF
890 !
900 FOR I=1 TO Nop
910 OUTPUT @Agt4287a;":CALC:EXAM:GET? ";Item;",";I
920 ENTER @Agt4287a;Res(I,1),Res(I,2),Res(I,3),Res(I,4),Res(I,5),
Res(I,6),Res(I,7),Res(I,8),Res(I,9),Res(I,10)
930 NEXT I
940 !
950 IF Nop>1 THEN
960 Img1$="3D,2X,MD.4DE,X,MD.4DE,X,MD.4DE,X,MD.4DE,X,MD.4DE"
970 Img2$="3D,2X,10D,2X,10D,2X,10D,2X,10D,2X,10D"
980 PRINT " ----------- Statistical Value for Normal Data ------
------"
990 PRINT "Point Mean Sigma 3*Sigma/Mean Min. Ma
x."
1000 FOR I=1 TO Nop
1010 PRINT USING
Img1$;I,Res(I,1),Res(I,2),Res(I,3),Res(I,4),Res(I,5)
1020 NEXT I
1030 PRINT ""
1040 PRINT " ------------------- Occurrence Count --------------
-------"
1050 PRINT "Point Normal Rdc Fail Overload Abnormal
All"
1060 FOR I=1 TO Nop
1070 PRINT USING Img2$;I,Res(I,6),Res(I,7),Res(I,8),Res(I,9),
Res(I,10)
1080 NEXT I
1090 ELSE
1100 OUTPUT @Agt4287a;":SOUR:LIST:POIN?"
1110 ENTER @Agt4287a;Meas_point
1120 PRINT "[ Point No.";Meas_point;"]"
1130 PRINT "Statistical Value for Normal Measurement Data"
1140 PRINT " Mean :";Res(1,1)
1150 PRINT " Sigma :";Res(1,2)
1160 PRINT " 3*Sigma/Mean:";Res(1,3)
1170 PRINT " Minimum :";Res(1,4)
1180 PRINT " Maximum :";Res(1,5)