HP 54501A - Page 353

370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
640
650
660
670
680
690
700
710
720
730
740
750
760
770
780
790
800
OUTPUT
707
!
OUTPUT
707
OUTPUT
707
•the
waveform
source
OUTPUT
707
OUTPUT
707
OUTPUT
707
ENTER
707;Preamb(*)
OUTPUT 707;":WAVEFORM:PREAMBLE?"
ENTER
707
USING
"-K";Preamb1e$
OUTPUT 707;":WAVEFORM:OATA?"
ENTER
707
USING
"))i,2A,8D";Header$,
Bytes
Length=Bytes/2
i
ALLOCATE INTEGER
Waveform;
1:
Length)
,Wavemax(l:Length)
,Waveniin(l
ENTER
707
USING
"ii',W";Waveform(*)
ENTER
707
USING
"-K,B";End$
i
•The
following
lines
set
the
voltage
and
time
tolerance
limits
!a
percent
of
fu11
scale
!
Vo1tto1=5
Timeto1=5
!
Timetics=INT(512-l•Timeto^/100)
Vo1ttics=INT(2*Preamb(lO)*Vo1ttoVlOO)
MAT
Wavemin=Waveform
MAT
Wavemax=Waveform
FOR
Timecntr=l
TO
Length
PRINT
Timecntr
FOR
Time
pt=(Tiine
cntr-Time
tics)
TO
(Time
cntr+Time
tics)
IF
Timept>0
AND
Timept<=Length
THEN
":OISPLAY:6RATICULE
FRAME"
":SYSTEM:HEADER
OFF"
":WAVEFORM:SOURCE
CHANNELl"
":WAVE
FORM:FORMAT
WORD"
":OIGITIZE
CHANNELl"
":WAVEFORM:PREAMBLE?"
•Turn
headers
off
!Se1ects channel
1
as
'WORD
format
for
data
'transfers
!0utput
waveform preamble
'to
controller
'Output
waveform
preamble
'to
controller
'Output
waveform
record
'to
controller
Length)
HP
54501A
Programming
!5%
of
full scale
voltage
!5%
of
full screen
width
!Copy
the
waveform into
the
!min
template
memory
'Copy the
waveform into
the
!max
template
memory
!This
is
the time
bucket
where
'the
center
of
the
ellipse
!is
located
!This
counter
te11s
you
which
(time
bucket
the
program
is
'currently calculating
!This
loop
increments
along
the
'time
axis
of the
ellipse
Example
Programs
B-13