Agilent Technologies E5052A Programmer's Manual page 73

formatted data arrays. The sample program in Example 4-1 uses the ASCII transfer format
while the sample in Example 4-2 uses the binary transfer format.
These sample programs show how to retrieve the formatted data arrays of measured phase
noise.
Example 4-1 Sample: Using ASCII Transfer Format to Retrieve Internal Data Arrays
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
Example 4-2 Sample: Using Binary Transfer Format to Retrieve Internal Data Arrays
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
4
REAL Fdata(1:1601),Freq(1:1601)
DIM Img$[30]
INTEGER Nop,I
ASSIGN @Agte5052 TO 717
OUTPUT @Agte5052;":SENS:PN:SWE:POIN?"
ENTER @Agte5052;Nop
PRINT "Number of Frequency points = ";Nop
REDIM Fdata(1:Nop),Freq(1:Nop)
OUTPUT @Agte5052;":FORM:DATA ASC"
OUTPUT @Agte5052;":CALC:PN1:TRAC1:DATA:FDAT?"
ENTER @Agte5052;Fdata(*)
OUTPUT @Agte5052;":CALC:PN1:DATA:XDAT?"
ENTER @Agte5052;Freq(*)
Img$="MD.4DE,2X,MD.6DE"
PRINT "Frequency
FOR I=1 TO Nop
PRINT USING Img$;Freq(I),Fdata(I)
NEXT I
END
REAL Fdata(1:1601),Freq(1:1601)
DIM Img$[30],Buff$[9]
INTEGER Nop,I
ASSIGN @Agte5052 TO 717
ASSIGN @Binary TO 717;FORMAT OFF
OUTPUT @Agte5052;":SENS:PN:SWE:POIN?"
ENTER @Agte5052;Nop
PRINT "Number of Frequency points = ";Nop
REDIM Fdata(1:Nop),Freq(1:Nop)
OUTPUT @Agte5052;":FORM:DATA REAL64"
OUTPUT @Agte5052;":CALC:PN1:TRAC1:DATA:FDAT?"
ENTER @Agte5052 USING "#,8A";Buff$
ENTER @Binary;Fdata(*)
ENTER @Agte5052 USING "#,1A";Buff$
OUTPUT @Agte5052;":CALC:PN1:DATA:XDAT?"
ENTER @Agte5052 USING "#,8A";Buff$
ENTER @Binary;Freq(*)
ENTER @Agte5052 USING "#,1A";Buff$
Img$="MD.4DE,2X,MD.6DE"
PRINT "Frequency
FOR I=1 TO Nop
PRINT USING Img$;Freq(I),Fdata(I)
NEXT I
END
Reading/Writing Measurement Data
Retrieving Measurement Results
Data"
Data"
73