HP 54501A - Page 354

810
Vo1t_pt=Vo1t_tics*SQR(l-((Time_pt-Time_cntr)/Time_tics)"
Vo
1
t_niax=Wavefonn
(T i
me_cnt
r)
+Vo
1
t_pt
Vo1t_min=Wavefonn(Time_cnti-)-Vo1t_pt
IF
Waveniax(Time_pt)<VoTt_max
THEN
Wavemax(T
ime_pt)=Vo1tjnax
END
IF
IF
Waveinin(Time_pt)>Vo1t_min
THEN
WavemintTiii^ptl^Vo'ltjnin
END
IF
END
IF
NEXT
Time_pt
NEXT
T1me_cntr
OUTPUT
707;":WAVEFORM:SOURCE
WMEMORY2"
OUTPUT
707
USING
"(t,K";":
WAVEFORM:
PREAMBLE
";Preamb1e$
OUTPUT
707
USING
")?,K";":WAVEFORM:DATA
if'800001024"
820
830
840
850
860
870
880
890
900
910
920
930
940
950
960
970
980
990
OUTPUT
707
USING
"W";Wavemin(*)
1000
OUTPUT
707;":VIEW
WMEMORY2"
1010
OUTPUT 707;":WAVEFORM:SOURCE
WMEMORY1"
1020
1030
OUTPUT
707
USING
")»,K";":WAVEFORM:PREAMBLE
";Preamb1e$
1040
1050
OUTPUT
707
USING
"it.
K";":
WAVEFORM:
DATA
C800001024"
1060
1070
OUTPUT
707
USING
"W";Wavemax(*)
1080
OUTPUT
707;":VIEW
WMEMORY1"
1090
Funct_range=Range_va1ue*2
1100
Range$=Va1$(Funct_range)
!Selects
Wmemory
2
!as
source
'Send
waveform
'preamble
to
Wmeinory
2
•Send
waveform
!record to
Wmemory
2
'Selects
Winemory
1
!as
source
'Send
waveform
'preamble
to
Wmemory
1
'Send
waveform
'record
to
Wmemory
1
1110
OUTPUT
707
1120
OUTPUT
707
1130
OUTPUT
707
1140
OUTPUT
707
1150
OUTPUT
707
1160
OUTPUT
707
1170
OUTPUT
707
1180
OUTPUT
707
1190
OUTPUT
707
1200
OUTPUT
707
1210
WAIT
1
1220
OUTPUT
707
1230
OUTPUT
707
1240
WAIT
1
FUNCTION!:SUBSTRACT
WMEMORY1,CHANNELl"
FUNCTION1:RANGE
";Range$
FUNCTION2:SUBTRACT
CHANNELl,WMEMORY2"
FUNCTION2:RANGE
";Range$
VIEW
FUNCTIONI"
VIEW
FUNCTION2"
RUN"
MEASURE:STATISTICS
ON"
MEASURE:DESTINATION
OFF"
MEASURE:SOURCE FUNCTION!"
MEASURE:VMIN"
MEASURE:SOURCE
FUNCTION2"
!Set
up
function
1
'Set
up
function
2
!Turn
statistics
on
Example
Programs
B-14
HP
54501A
Programming