54622A
10 !54622, freq response & THD chracteristics
20 !2017-02-16
30 OPTION BASE 1
40 INTEGER I,Count,Millivolt
50 DIM Filename$[20],Dhms$[8]
60 Time$=TIME$(TIMEDATE)
70 Date$=DATE$(TIMEDATE)
80 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
90 Filename$=Dhms$&".txt"
100 CREATE Filename$,1
110 ASSIGN @File TO Filename$;FORMAT ON
120 ASSIGN @Osc TO 707
130 ASSIGN @Fg TO 710
140 ! OUTPUT @Osc;"*RST"
150 ! OUTPUT @Fg;"*RST"
160 CLEAR SCREEN
170 DIM Id$[125]
180 OUTPUT @Osc;"*IDN?"
190 ENTER @Osc;Id$
200 PRINT Id$
210 OUTPUT @Fg;"*IDN?"
220 ENTER @Fg;Id$
230 PRINT Id$
240 ! set up gernerator
250 OUTPUT @Fg;"FUNC:SHAP SIN" !
260 OUTPUT @Fg;"OUTP:LOAD INF" ! or 50
270 OUTPUT @Fg;"VOLT:OFFS 0"
280 OUTPUT @Fg;"VOLT:UNIT VRMS"
290 ! set up osciiloscope
300 OUTPUT @Osc;":ACQ:COUN 1"
310 OUTPUT @Osc;":ACQ:TYPE AVER"
320 OUTPUT @Osc;":CHAN1:COUPling AC"
330 OUTPUT @Osc;":CHAN2:COUPling AC"
340 OUTPUT @Osc;":CHAN1:PROBe 1" !atten 1:1
350 OUTPUT @Osc;":CHAN2:PROBe 1" !atten 10:1
360 OUTPUT @Osc;":CHAN1:OFFS 0V"
370 OUTPUT @Osc;":CHAN2:OFFS 0V"
380 OUTPUT @Osc;":TRIG:MODE EDGE"
390 OUTPUT @Osc;":TRIG:NREJect ON"
400 OUTPUT @Osc;":TRIG:EDGE:SOUR CHAN1"
410 OUTPUT @Osc;":TRIG:EDGE:LEV 0"
420 OUTPUT @Osc;":TRIG:EDGE:REJect HF"
430 OUTPUT @Osc;":TRIG:EDGE:SLOPe POS"
440 OUTPUT @File;"No,Freq[Hz],Vin[V],Gain,THD[%]"
450 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
460 ! total harmonic distortion
470 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
480 Count=0
490 Harmonic=5 !from 1 to 5
500 ! set up osciiloscope FFT
510 OUTPUT @Osc;":FUNC:SOUR CHAN2"
520 OUTPUT @Osc;":FUNC:OPER FFT"
530 OUTPUT @Osc;":FUNC:OFFS -20"
540 OUTPUT @Osc;":FUNC:SCAL 50"
550 Freq_step=1 !per octave
560 Freq=100
570 LOOP
580 EXIT IF Freq>10000 !100Hz~200,000Hz
590 Period=1/Freq
600 OUTPUT @Osc;":TIMEBASE:SCALE ";Period/2
610 OUTPUT @Fg;"FREQ ";Freq
620 Scale1=.03 !function generator min Vrms
630 Scale2=Scale1/10
640 FOR Millivolt=50 TO 1500 STEP 50 !mv min=35.36 이보다 작으면 계측기에서 삐
650 Count=Count+1
660 Volt=Millivolt/1000.
670 OUTPUT @Fg;"VOLT ";Volt
680 OUTPUT @Osc;":CHAN1:SCALe ";Scale1
690 OUTPUT @Osc;":CHAN2:SCALe ";Scale2
700 LOOP ! autoscale
710 OUTPUT @Osc;":DIGITIZE CHAN1,CHAN2,MATH"
720 OUTPUT @Osc;":MEAS:VRMS? CHAN1"
730 ENTER @Osc;Vrms1
740 IF Vrms1>100 THEN Scale1=Scale1*2
750 OUTPUT @Osc;":MEAS:VRMS? CHAN2"
760 ENTER @Osc;Vrms2
770 IF Vrms2>100 THEN Scale2=Scale2*2
780 OUTPUT @Osc;":CHAN1:SCALe ";Scale1
790 OUTPUT @Osc;":CHAN2:SCALe ";Scale2
800 EXIT IF Vrms1<100 AND Vrms2<100
810 END LOOP
820 Sum=0
830 FOR I=1 TO Harmonic
840 Fft_span=Freq*2
850 Fft_cent=Freq*(2*I-1)
860 OUTPUT @Osc;":FUNC:CENT ";Fft_cent
870 OUTPUT @Osc;":FUNC:SPAN ";Fft_span
880 OUTPUT @Osc;":MEAS:VMAX? MATH"
890 ENTER @Osc;Dbv
900 PRINT Dbv;
910 IF I=1 THEN
920 Pri=10^(Dbv/20)
930 ELSE
940 Sum=Sum+(10^(Dbv/20))^2
950 END IF
960 NEXT I
970 Thd=SQRT(Sum/Pri)*100
980 Gain=Vrms2/Vrms1
990 PRINT Count;" F=";Freq;" THD=";INT(Thd*1000)/1000;" V1=";Vrms1;" Gain=";Gain
1000 OUTPUT @File;Count,Freq,Vrms1,Gain,Thd
1010 NEXT Millivolt
1020 Freq=Freq*10^(1/Freq_step) !xx-steps per octave
1030 END LOOP
1040 OUTPUT @Osc;":RUN"
1050 OUTPUT @Fg;"VOLT 0.1"
1060 FOR I=1 TO 5
1070 OUTPUT @Fg;"SYST:BEEP"
1080 WAIT .2
1090 NEXT I
1100 END