DG60KE0 온도특성
10 !2020/07/11 5071C
20 !1960MHz
30 DIM Id$[46],Dmm_model$[10]
40 INTEGER I
50 Mega=1.E+6
60 GOSUB Fileopen
70 ASSIGN @Na TO 717
80 Temp_model$="SU-222" !!!!!!!!!!!!!
90 SELECT Temp_model$
100 CASE "SU-222"
110 ASSIGN @Su TO 701
120 CASE "3458DMM"
130 ASSIGN @Dmm TO 722
140 CASE "3478DMM"
150 ASSIGN @Dmm TO 727
160 END SELECT
170 OUTPUT @File;"No.,Time[m],Temp['C],Peak[dB],peak-3dB Fc[MHz],peak-3dB BW[MHz],0-10dB L[MHz],0-4dB L[MHz],0-4dB R[MHz],0-25dB R[MHz]"
180 OUTPUT @Na;"*IDN?"
190 ENTER @Na;Id$
200 CLEAR SCREEN
210 DISP Id$
220 GOSUB Na_set
230 GOSUB Measure1
240 STOP
250 Measure1: !
260 I=0
270 T0=TIMEDATE
280 LOOP
290 T=(TIMEDATE-T0)/60.
300 GOSUB Temperature
310 IF Temp0<>Temp THEN !직전온도와 같지 않으면
320 I=I+1
330 GOSUB Frequency
340 PRINT I;"T=";Temp;"'C, Peak=";PROUND(Peak,-2);"dB, Fc=";PROUND(Fc,-1);" F1=";PROUND(F2,-1);" F2=";PROUND(F3,-1)
350 OUTPUT @File;I,T,Temp,Peak,Fc,Bw,F1,F2,F3,F4
360 END IF
370 Temp0=Temp
380 END LOOP
390 RETURN
400 Fileopen: !
410 DIM Filename$[20],Dhms$[8]
420 Time$=TIME$(TIMEDATE)
430 Date$=DATE$(TIMEDATE)
440 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
450 Filename$=Dhms$&".txt"
460 CREATE Filename$,1
470 ASSIGN @File TO Filename$;FORMAT ON
480 RETURN
490 Temperature: !
500 SELECT Temp_model$
510 CASE "SU-222"
520 OUTPUT @Su;"TEMP?"
530 WAIT .3
540 ENTER @Su;Temp,Tmp,Tmp,Tmp
550 CASE "3458DMM"
560 OUTPUT @Dmm;"FUNC OHMF AUTO, .0001"
570 OUTPUT @Dmm;"MATH CRTD85"
580 OUTPUT @Dmm;"TRIG SGL"
590 ENTER @Dmm;Temp
600 CASE "3478DMM"
610 Tcr=.00385
620 ENTER @Dmm;R
630 Temp=(R-100)/Tcr/100
640 END SELECT
650 RETURN
660 Na_set: !
670 OUTPUT 717;":CALC1:MARK1 ON"
680 OUTPUT 717;":CALC1:MARK2 ON"
690 OUTPUT 717;":CALC1:MARK3 ON"
700 OUTPUT 717;":CALC1:MARK4 ON"
710 OUTPUT 717;":CALC1:MARK5 ON"
720 OUTPUT 717;":CALC1:MARK1:FUNC:TRAC ON"
730 OUTPUT 717;":CALC1:MARK1:BWID:THR -3"
740 OUTPUT 717;":CALC1:MARK:BWID ON"
750 OUTPUT @Na;"TRIG:SOUR BUS"
760 RETURN
770 Frequency: !
780 OUTPUT @Na;"TRIG:SING"
790 OUTPUT @Na;"*OPC?"
800 ENTER @Na;Tmp
810 !피크이득, peak-3dB 중심주파수, peak-3dB 대역폭
820 OUTPUT 717;":CALC1:MARK2:FUNC:TYPE MAX"
830 OUTPUT 717;":CALC1:MARK2:FUNC:EXEC"
840 OUTPUT 717;":CALC1:MARK3:FUNC:TYPE MAX"
850 OUTPUT 717;":CALC1:MARK3:FUNC:EXEC"
860 OUTPUT 717;":CALC1:MARK4:FUNC:TYPE MAX"
870 OUTPUT 717;":CALC1:MARK4:FUNC:EXEC"
880 OUTPUT 717;":CALC1:MARK5:FUNC:TYPE MAX"
890 OUTPUT 717;":CALC1:MARK5:FUNC:EXEC"
900 !!!
910 OUTPUT 717;":CALC1:MARK1:ACT"
920 OUTPUT 717;":CALC1:MARK1:FUNC:TYPE MAX"
930 OUTPUT 717;":CALC1:MARK1:FUNC:EXEC"
940 OUTPUT @Na;"CALC1:MARK1:BWID:DATA?"
950 ENTER @Na;Bw,Fc,Q,Peak
960 Peak=Peak
970 Fc=Fc/Mega
980 Bw=Bw/Mega
990 ! 왼쪽 0-10dB 타겟
1000 OUTPUT 717;":CALC1:MARK2:ACT"
1010 OUTPUT 717;":CALC1:MARK2:FUNC:TARG -10"
1020 OUTPUT 717;":CALC1:MARK2:FUNC:TYPE LTARget"
1030 OUTPUT 717;":CALC1:MARK2:FUNC:EXEC"
1040 OUTPUT @Na;"CALC1:MARK2:X?"
1050 ENTER @Na;F1
1060 F1=F1/Mega
1070 ! 왼쪽 0-4dB 타겟
1080 OUTPUT 717;":CALC1:MARK3:ACT"
1090 OUTPUT 717;":CALC1:MARK3:FUNC:TARG -4"
1100 OUTPUT 717;":CALC1:MARK3:FUNC:TYPE LTARget"
1110 OUTPUT 717;":CALC1:MARK3:FUNC:EXEC"
1120 OUTPUT @Na;"CALC1:MARK3:X?"
1130 ENTER @Na;F2
1140 F2=F2/Mega
1150 ! 오른쪽 0-4dB 타겟
1160 OUTPUT 717;":CALC1:MARK4:ACT"
1170 OUTPUT 717;":CALC1:MARK4:FUNC:TARG -4"
1180 OUTPUT 717;":CALC1:MARK4:FUNC:TYPE RTARget"
1190 OUTPUT 717;":CALC1:MARK4:FUNC:EXEC"
1200 OUTPUT @Na;"CALC1:MARK4:X?"
1210 ENTER @Na;F3
1220 F3=F3/Mega
1230 ! 오른쪽 0-25dB 타겟
1240 OUTPUT 717;":CALC1:MARK5:ACT"
1250 OUTPUT 717;":CALC1:MARK5:FUNC:TARG -25"
1260 OUTPUT 717;":CALC1:MARK5:FUNC:TYPE RTARget"
1270 OUTPUT 717;":CALC1:MARK5:FUNC:EXEC"
1280 OUTPUT @Na;"CALC1:MARK5:X?"
1290 ENTER @Na;F4
1300 F4=F4/Mega
1320 RETURN
1330 END