User's Manual

The following programming converts binary data to dBm.
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
! 859X binary data to real numbers
Sa=718
ASSIGN (OSa,bin TO Sa;FORMAT OFF
INTEGER Trace-a(l:401)
OUTPUT Sa;"AUNITS DBM;"
OUTPUT Sa*"RL?*"
ENTER Sa;Ref-Ik
PRINT Ref-lev
OUTPUT Sa;"TDF B;TRA?;"
ENTER OSa-bin;Trace-a(*)
! now the spectrum analyzer has all the data
! to determine the measured trace data
REAL Trace_a_real(l:401)
MAT Trace-a= Trace-a-(8000) ! Results in below ref
! level
MAT Trace-a-real= Trace,a*(.Ol)! now in hundredths of db
! below ref lev
MAT Trace-a-real= Trace-a-real+(Ref-lev)
FOR I=1 TO 401
PRINT Trace-a-real(I)
NEXT I
END
The following programming converts binary data to volts.
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
! 859X binary data to real numbers (linear)
Sa=718
ASSIGN (QSa-bin TO Sa;FORMAT OFF
INTEGER Trace-a(l:401)
OUTPUT Sa*"AUNITS V*"
OUTPUT SaI"RL?;" '
ENTER Sa;Ref-lev
Ref-lev-factor=Ref_lev/8000
OUTPUT Sa;"TDF B;TRA?;"
ENTER OSa,bin;Trace,a(*)
! now the spectrum analyzer has all the data
! to determine the measured trace data
REAL Trace,a,real(l:401)
MAT Trace-a-real= Trace-a*(Ref,lev,factor)
FOR I=1 TO 401
PRINT Trace-a-real(I)
NEXT I
END
Programming Topics 3-23