E5100A
1차 최초
200 MASS STORAGE IS ":,4" !내부 FDD 사용
220 ! MASS STORAGE IS ":,0" !내부 메모리 사용
240 ! COPY "1.txt:,0" to "1.txt:,4" !내부 메모리에 저장되는 1.txt 파일을 FDD로 복사
260 PURGE "1.txt"
280 CREATE "1.txt",1
300 ASSIGN @File TO "1.txt";FORMAT ON
320 ASSIGN @E5100 TO 800 !자체 콘트롤러이므로 반드시 800번 부여
340 ASSIGN @Oven TO 701 !연결된 외부 계측기 주소는 700번대 부여
360 OUTPUT @E5100;"ANAMODE ZTRAN"
380 OUTPUT @E5100;"MEAS AR"
400 OUTPUT @E5100;"FMT MAGZP"
420 OUTPUT @E5100;"SCAY 10"
440 EXECUTE "ANAOCH1"
460 EXECUTE "ANAODATA"
480 EXECUTE "ANARFULL"
500 Count=0
520 Temp_p=0
540 T0=TIMEDATE
560 OUTPUT @File;"No., Time[s], Temp['C], Rr[ohm], Fr[Hz], Ra[ohm], Fa[Hz]"
580 LOOP
600 OUTPUT @Oven;"TEMP?"
620 ENTER @Oven;Temp,Tmp,Tmp,Tmp
640 IF Temp<>Temp_p THEN
660 T=TIMEDATE-T0
680 Count=Count+1
700 EXECUTE "SING"
720 EXECUTE "OUTPCERR?"
740 Rr=READIO(8,0)
760 Fr=READIO(8,1)
780 Ra=READIO(8,2)
800 Fa=READIO(8,3)
820 PRINT Temp,Rr,Fr
840 OUTPUT @File;Count,T,Temp,Rr,Fr,Ra,Fa
860 Temp_p=Temp
880 END IF
900 END LOOP
920 END
2차 개선 2020-02-12, 내부 Flash Disk는 256kB 용량뿐이므로, 저장되는 파일 용량을 줄이기 위해 유효자리수 처리
10 ! MASS STORAGE IS ":,4" !내부 FDD 사용
20 MASS STORAGE IS ":,0" !내부 메모리 사용
30 ! COPY "1.txt:,0" to "1.txt:,4" !내부 메모리에 저장되는 1.txt 파일을 FDD로 복사
40 PURGE "1.txt"
50 CREATE "1.txt",1
60 ASSIGN @File TO "1.txt";FORMAT ON
70 ASSIGN @E5100 TO 800 !자체 콘트롤러이므로 반드시 800번 부여
80 ASSIGN @Oven TO 701 !연결된 외부 계측기 주소는 700번대 부여
90 ! OUTPUT @E5100;"ANAMODE ZTRAN"
100 ! OUTPUT @E5100;"MEAS AR"
110 ! OUTPUT @E5100;"FMT MAGZP"
120 ! OUTPUT @E5100;"SCAY 10"
130 OUTPUT @E5100;"ANAOCH1;ANAODATA;ANARFULL"
140 Count=0
150 Temp_p=0
160 T0=TIMEDATE
170 OUTPUT @File;"No., Time[m], Temp['C], Peak Amp[dB], -3dB Fc[kHz]"
180 LOOP
190 OUTPUT @Oven;"TEMP?"
200 ENTER @Oven;Temp,Tmp,Tmp,Tmp
210 IF Temp<>Temp_p THEN
220 T=TIMEDATE-T0
230 Count=Count+1
240 OUTPUT @E5100;"SING"
250 OUTPUT @E5100;"OUTPFILT? -3" !-3dB BW, Q 등을 측정
260 ENTER @E5100;Loss,Bw,Fc,Q,Df1,Df2
270 T=PROUND(T/60,-3) !시간을 분으로
280 Loss=PROUND(Loss,-3) !이득은 .001dB 단위로
290 Fc=PROUND(Fc,-1)/1000. !중심주파수는 .1Hz 단위로 변경한 후, kHz로
300 PRINT Count,Temp,Loss,Fc !화면 표시
310 OUTPUT @File;Count,T,Temp,Loss,Fc !파일에 기록
320 Temp_p=Temp
330 END IF
340 END LOOP
350 END