https://www.togotech.co.kr/index.php?action=history&feed=atom&title=3586C-01.txt
3586C-01.txt - 편집 역사
2026-04-26T17:45:19Z
이 문서의 편집 역사
MediaWiki 1.31.1
https://www.togotech.co.kr/index.php?title=3586C-01.txt&diff=66372&oldid=prev
Togotech: 새 문서: HP 3586C Selective Level Meter <pre> 10 !2023/04/25 기본 리딩 20 CLEAR SCREEN 30 OPTION BASE 1 40 INTEGER I 50 DIM Data$[20],Header$[1] 60 GOSUB Fileop...
2023-04-25T03:36:42Z
<p>새 문서: <a href="/index.php/HP_3586C_Selective_Level_Meter" title="HP 3586C Selective Level Meter" data-bs-title="HP_3586C_Selective_Level_Meter">HP 3586C Selective Level Meter</a> <pre> 10 !2023/04/25 기본 리딩 20 CLEAR SCREEN 30 OPTION BASE 1 40 INTEGER I 50 DIM Data$[20],Header$[1] 60 GOSUB Fileop...</p>
<p><b>새 문서</b></p><div>[[HP 3586C Selective Level Meter]]<br />
<pre><br />
10 !2023/04/25 기본 리딩<br />
20 CLEAR SCREEN<br />
30 OPTION BASE 1<br />
40 INTEGER I<br />
50 DIM Data$[20],Header$[1]<br />
60 GOSUB Fileopen<br />
70 ASSIGN @Slm TO 724<br />
80 OUTPUT @File;"No.,Time[s],Freq[Hz],Level[dBm]"<br />
90 T0=TIMEDATE<br />
100 ! GOSUB Measure0 ! spectrum analyzer<br />
110 GOSUB Measure1! wideband, =power meter<br />
120 STOP<br />
130 Measure0: !spectrum analyzer<br />
140 No=0<br />
150 FOR Freq=200 TO 2000 STEP 1<br />
160 No=No+1<br />
170 OUTPUT @Slm;"FR ";Freq;"Hz"<br />
180 TRIGGER @Slm<br />
190 GOSUB Reading<br />
200 T=DROUND((TIMEDATE-T0)*1.00000001,3)<br />
210 PRINT "No=";No;", T=";T;"s, Freq=";Freq;"Hz";", Level=";Level;"dBm"<br />
220 OUTPUT @File;No,T,Freq,Level<br />
230 NEXT Freq<br />
240 RETURN<br />
250 Measure1: !wideband, power meter<br />
260 ASSIGN @Fg TO 710 !HP33120<br />
270 No=0<br />
280 Freq_start=200<br />
290 Freq_stop=1.5E+7<br />
300 Nop=201<br />
310 LOOP<br />
320 No=No+1<br />
330 K=(Freq_stop/Freq_start)^(1/(Nop-1))<br />
340 Freq=Freq_start*K^(No-1)<br />
350 Freq=DROUND(Freq,4) !유효자리 4<br />
360 EXIT IF Freq>Freq_stop<br />
370 OUTPUT @Fg;"FREQ";Freq<br />
380 TRIGGER @Slm<br />
390 GOSUB Reading<br />
400 T=DROUND((TIMEDATE-T0)*1.00000001,3)<br />
410 PRINT "No=";No;", T=";T;"s, Freq=";Freq;"Hz";", Level=";Level;"dBm"<br />
420 OUTPUT @File;No,T,Freq,Level<br />
430 END LOOP <br />
440 RETURN<br />
450 Reading: !<br />
460 ENTER @Slm;Data$<br />
470 Header$=Data$[1;1]<br />
480 SELECT Header$<br />
490 CASE "O"<br />
500 Level=+999<br />
510 CASE "N"<br />
520 Level=VAL(Data$[2;10])<br />
530 CASE "U"<br />
540 Level=-999<br />
550 CASE ELSE <br />
560 PRINT "unknown header. stop"<br />
570 STOP<br />
580 END SELECT <br />
590 RETURN<br />
600 Fileopen: !<br />
610 DIM Filename$[20],Dhms$[8]<br />
620 Time$=TIME$(TIMEDATE)<br />
630 Date$=DATE$(TIMEDATE)<br />
640 Dhms$=Date$[1;2]&Time$[1;2]&Time$[4;2]&Time$[7;2]<br />
650 Filename$=Dhms$&".txt"<br />
660 CREATE Filename$,1<br />
670 ASSIGN @File TO Filename$;FORMAT ON<br />
680 RETURN<br />
690 END<br />
</pre></div>
Togotech