E5100A
10 !chamber SU-222 + E5100A
20 ! 2016-06-08
30 OPTION BASE 1
40 DIM Filename$[20],Dhms$[8]
50 DIM Msg$[100],R(10)
60 ! INTEGER T1
70 Time$=TIME$(TIMEDATE)
80 Date$=DATE$(TIMEDATE)
90 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]
100 Filename$=Dhms$&".txt"
110 ASSIGN @Su TO 701
120 ASSIGN @Na TO 717
130 OUTPUT @Su;"TEMP?"
140 ENTER @Su;Temp,Tmp,Tmp,Tmp
150 PRINT Temp
160 OUTPUT @Na;"*IDN?"
170 ENTER @Na;A$
180 PRINT A$
190 T0=TIMEDATE
200 CLEAR SCREEN
210 CREATE Filename$,1
220 ASSIGN @File TO Filename$;FORMAT ON
230 OUTPUT @Na;"ANAOCH1;ANARFULL;ANAODATA"
240 Temp0=0
250 OUTPUT @File;"No, Time[m], Temp['C], peak[dB], Bw[MHz], Fc[MHz], Q"
260 Count=0
270 LOOP
280 T1=(TIMEDATE-T0)
290 T1=T1/60
300 OUTPUT @Su;"TEMP?"
310 ENTER @Su;Temp,Tmp,Tmp,Tmp
320 IF Temp0<>Temp THEN
330 Count=Count+1
340 !!!!!!!!!!!!!!!!! 필터
350 OUTPUT @Na;"OUTPFILT? -20"
360 ENTER @Na;Loss,Bw,Fc,Q,Dfl,Dfr
370 Bw=Bw/1.E+6
380 Fc=Fc/1.E+6
390 Dfl=Dfl/1.E+6
400 Dfr=Dfr/1.E+6
410 !!!!!!!!!!!!!!!!! delta marker 띄우고
420 ! OUTPUT @Na;"OUTPMWLF?"
430 ! ENTER @Na;Bw,Fc,Q,Loss,Dfl,Dfr
440 !!!!!!!!!!!!!!!!!!!
450 ! PRINT "Elsped Time=";T1;"s, Temp=";Temp;"'C"
460 PRINT Count,Temp;"'C ",PROUND(Loss,-2),PROUND(Bw,-3),PROUND(Fc,-3),PROUND(Q,-3)
470 OUTPUT @File;Count,T1,Temp,Loss,Bw,Fc,Q
480 END IF
490 Temp0=Temp
500 ! EXIT IF T1>8100 !=135min*60sec/min
510 END LOOP
520 ! OUTPUT @Su;"TEMP,S25"
530 OUTPUT @Su;"POWER,OFF"
540 END