Agilent Technologies E5071C User's Guide Page 114

  • Download
  • Add to my manuals
  • Print
  • Page
    / 551
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 113
114 Chapter 7
Reading/Writing Measurement Data
Retrieving Measurement Results
Example 7-2 Using the Binary Transfer Format to Retrieve Internal Data Arrays (read_bin.htb)
10 REAL Fdata(1:1601,1:2),Freq(1:1601)
20 DIM Buff$[9],Img$[30]
30 INTEGER Nop,I
40 !
50 ASSIGN @Agte507x TO 717
60 ASSIGN @Binary TO 717;FORMAT OFF
70 !
80 OUTPUT @Agte507x;":CALC1:PAR1:SEL"
90 OUTPUT @Agte507x;":INIT1:CONT OFF"
100 OUTPUT @Agte507x;":ABOR"
110 OUTPUT @Agte507x;":SENS1:SWE:POIN?"
120 ENTER @Agte507x;Nop
130 REDIM Fdata(1:Nop,1:2),Freq(1:Nop)
140 !
150 ! Reading out in binary transfer format
160 !
170 OUTPUT @Agte507x;":FORM:DATA REAL"
180 !
190 OUTPUT @Agte507x;":CALC1:DATA:FDAT?"
200 ENTER @Agte507x USING "#,8A";Buff$
210 ENTER @Binary;Fdata(*)
220 ENTER @Agte507x USING "#,1A";Buff$
230 OUTPUT @Agte507x;":SENS1:FREQ:DATA?"
240 ENTER @Agte507x USING "#,8A";Buff$
250 ENTER @Binary;Freq(*)
260 ENTER @Agte507x USING "#,1A";Buff$
270 !
280 ! Displaying
290 !
300 OUTPUT @Agte507x;":CALC1:FORM?"
310 ENTER @Agte507x;Fmt$
320 SELECT Fmt$
330 CASE "MLOG","PHAS","GDEL","MLIN","SWR","REAL","IMAG","UPH"
340 Img$="MD.4DE,2X,MD.6DE"
350 PRINT " Frequency Data"
360 FOR I=1 TO Nop
370 PRINT USING Img$;Freq(I),Fdata(I,1)
380 NEXT I
390 CASE ELSE
400 Img$="MD.4DE,2X,MD.6DE,2X,MD.6DE"
410 PRINT " Frequency Data1 Data2"
420 FOR I=1 TO Nop
430 PRINT USING Img$;Freq(I),Fdata(I,1),Fdata(I,2)
440 NEXT I
450 END SELECT
460 !
470 END
Page view 113
1 2 ... 109 110 111 112 113 114 115 116 117 118 119 ... 550 551

Comments to this Manuals

Vikiehs 04 Jan 2024 | 14:20:06

urenrjrjkvnm