Table of Contents
Advertisement
6.3 Example of Harmonic Measurement Data Output
'
' Read out the harmonic numerical list data (I1(Total) to I1(100))
CMD$ = "NUMERIC:LIST:VALUE?"
CALL IBWRT(PZ%, CMD$)
RES$ = SPACE$(1200)
CALL IBRD(PZ%, RES$)
C$ = LEFT$(RES$, IBCNT%)
' Extract items that are separated by commas (,) from the received numerical data
B% = INSTR(C$, ",") ' Total
TOTAL$ = LEFT$(C$, (B% - 1))
C$ = MID$(C$, (B% + 1))
FOR I% = 0 TO 100
NEXT I%
'
' Display the numerical data
PRINT "Freq[Hz]", PLL$
PRINT "Ithd [%]", THD$
PRINT "Total[A]", TOTAL$
PRINT "dc
FOR I% = 1 TO 100 STEP 2
NEXT I%
PRINT
'
V% = 0: CALL IBSRE(BD%, V%)
'
END
Output example
Freq[Hz]
Ithd [%]
Total[A]
dc
Or. 1
Or. 3
Or. 5
Or. 7
Or. 9
:
:
Or. 99
6-6
' 0(dc) to 100
L% = LEN(C$)
B% = INSTR(C$, ",")
IF B% = 0 THEN B% = L% + 1
D$(I%) = LEFT$(C$, (B% - 1))
C$ = MID$(C$, (B% + 1))
' PLL source frequency
' Total harmonic distorion
' Total rms value
[A]", D$(0)
' DC component
PRINT "Or." + STR$(I%), D$(I%),
PRINT "Or." + STR$(I% + 1), D$(I% + 1) ' Even order compenents
50.251E+00
70.31E+00
1.9485E+00
[A]
1.3834E+00
0.0772E+00
0.0821E+00
0.0742E+00
0.0726E+00
0.0892E+00
:
:
0.0601E+00
' All 102 data
' Odd order components
' Clear remote mode
Or. 2
1.0735E+00
Or. 4
0.1141E+00
Or. 6
0.4238E+00
Or. 8
0.1510E+00
Or. 10
0.3400E+00
:
:
:
:
Or. 100
0.0131E+0
IM 253710-11E
Advertisement
Table of Contents
