![Agilent Technologies 4288A Скачать руководство пользователя страница 114](http://html.mh-extra.com/html/agilent-technologies/4288a/4288a_programming-manual_2867878114.webp)
112
Chapter 9
Measurement Applications (Sample Programs)
Measurement with Auto-sorting System
2070
Bm=2*PI*Freq(I)*Para1
2080
Gm=Bm*Para2
2090
Zm=1/SQRT(Gm*Gm+Bm*Bm)
2100
PRINT "Cpref=";Cpref,"Dref=";Dref,"|Zref| =";Zref
2110
PRINT "Cp
=";Para1,"D
=";Para2,"|Z|
=";Zm
2120
IF ABS((Zm-Zref)/Zref)>=Limit THEN Err_flag=1
2130
END SELECT
2140
IF Err_flag<>0 THEN
2150
PRINT "Out of limit!!"
2160
GOTO Compen_meas
2170
END IF
2180
NEXT I
2190
PRINT Standard$&" Data Measurement Complete"
2200
OUTPUT @Agt4288a;":SOUR:FREQ ";Curr_freq
2210
RETURN 0
2220
ELSE
2230
PRINT "Program Interruption"
2240
OUTPUT @Agt4288a;":SOUR:FREQ ";Curr_freq
2250
RETURN -1
2260
END IF
2270 FNEND
2280
!=============================================
2290
! Data Input Function
2300
!=============================================
2310 SUB Inp_data(Mes$,Inp_val)
2320
DIM Inp_char$[30]
2330
ON ERROR GOTO Inp_start
2340 Inp_start:!
2350
PRINT "Input "&Mes$
2360
INPUT "Value?",Inp_char$
2370
Inp_val=VAL(UPC$(Inp_char$))
2380
PRINT "Input Value: ";Inp_val
2390
INPUT "OK? [Y/N]",Inp_char$
2400
IF UPC$(Inp_char$)<>"Y" THEN Inp_start
2410
OFF ERROR
2420 SUBEND
Содержание 4288A
Страница 18: ...16 Chapter1 Making Effective Use of This Manual How To Use This Manual ...
Страница 102: ...100 Chapter8 Avoiding Mistakes Related to Work and Daily Checks Daily Checks executing the self test ...
Страница 212: ...210 AppendixA Manual Changes Manual Changes ...
Страница 248: ...246 AppendixB Information for Replacing 4278A with 4288A Comparison of Interfaces ...
Страница 258: ...256 AppendixC Status Reporting System Using the Status Reporting System ...
Страница 282: ...280 AppendixG 4268A vs 4288A GPIB Command Correspondence Table 4268A vs 4288A GPIB Command Correspondence Table ...
Страница 288: ...286 Index Index ...