YOKOGAWA TA520 User Manual page 88

CMD$ = "SSTART"
CALL IBWRT(TA%, CMD$)
CMD$ = "COMMUNICATE:WAIT 1"
CALL IBWRT(TA%, CMD$)
'
FOR I% = 1 TO 10
WIND$ = MID$(STR$(I%), 2)
CMD$ = "CALCULATION:WINDOW" + WIND$ + ":AVERAGE?"
CALL IBWRT(TA%, CMD$)
AV$ = SPACE$(100)
CALL IBRD(TA%, AV$)
AV$ = LEFT$(AV$, IBCNT%)
CMD$ = "CALCULATION:WINDOW" + WIND$ + ":SDEVIATION?" 'Query the standard deviation
CALL IBWRT(TA%, CMD$)
SD$ = SPACE$(100)
CALL IBRD(TA%, SD$)
SD$ = LEFT$(SD$, IBCNT%)
PRINT "WINDOW" + WIND$, AV$; ",", SD$
NEXT I%
'
V% = 0: CALL IBSRE(BD%, V%)
'
END
Output Example
WINDOW1
WINDOW2
WINDOW3
WINDOW4
WINDOW5
WINDOW6
WINDOW7
WINDOW8
WINDOW9
WINDOW10
IM 704310-12E
1.1519300E-7,
150.69150E-7,
1.8207475E-7,
2.1602550E-7,
2.5323700E-7,
2.9228175E-7,
3.2897925E-7,
3.6557575E-7,
4.019625E-7,
5.125175E-7,
5.3 Example of Statistical Data Output
'Start single measurement
'Wait for the data to become valid
'Repeat for the number of windows
'Query the average value
4.07300E-9
3.88000E-9
4.24150E-9
4.57975E-9
4.53925E-9
4.44050E-9
4.46675E-9
4.48900E-9
4.5175E-9
3.1150E-9
5
5-3