E5071C
1194
900 ! Installing the corrected data to a file
910 !
920 File$="CORR_DATA"
930 Data_size=Nop*8
940 ON ERROR GOTO Skip_purge
950 PURGE File$
960 Skip_purge: OFF ERROR
970 PRINT "The file installing power correction data: "&File$
980 PRINT
990 CREATE File$,Data_size
1000 ASSIGN @File TO File$;FORMAT ON
1010 FOR I=1 TO Nop
1020 OUTPUT @File USING "3D,3X,MD.4DE";I,Corr_data(I)
1030 NEXT I
1040 ASSIGN @File TO *
1050 !
1060 PRINT "Installing the corrected data to the file is DONE."
1070 !
1080 GOTO Prog_end
1090 !
1100 Prog_stop: !
1110 PRINT "Program Interruption"
1120 !
1130 Prog_end: !
1140 !
1150 END
1160 !
1170 ! Limit Test Function for the Corrected Data
1180 !
1190 DEF FNLim(@Agte507x,INTEGER Nop,REAL Limit,REAL Corr_data(*))
1200 INTEGER I
1210 !
1220 FOR I=1 TO Nop
1230 IF ABS(Corr_data(I))>Limit THEN
1240 OUTPUT @Agte507x;"SOUR1:POW:PORT1:CORR OFF"
1250 PRINT "The corrected data is out of limit!"
1260 PRINT
To Next Page
Loading...
Need help?
General
