10 POKE15,72 20 FORT=0TO29:PRINT:NEXT 30 GOSUB 470 40 PRINT:PRINT:PRINT:PRINT:PRINT 50 CLEAR 60 REM INPUT 70 PRINT:INPUT"GRAD";N 80 DIMA(N) 90 PRINT:INPUT"SAMPLING FREQ.";F 100 F=F*2 110 PRINT:PRINT"ANALOGE KOEFFIZIENTEN" 120 PRINT"=====================" 130 FORI=0TON 140 PRINT:PRINT"A";I;"="; 150 INPUTA(I) 160 NEXT 170 REM Fs 180 FORI=0TON 190 A(I)=A(I)*(F^I) 200 NEXT 210 GOSUB 400 220 Q=INT((N-1)/2) 230 FORI=0TOQ 240 W=A(I):A(I)=A(N-I):A(N-I)=W 250 NEXT 260 FORI=0TON 270 A(I)=A(I)*(-2)^(N-I) 280 NEXT 290 GOSUB 400 300 REM OUTPUT 310 FORT=0TO29:PRINT:NEXT 320 PRINT"DIGITALE KOEFFIZIENTEN" 330 PRINT"======================" 340 FORI=0TON 350 PRINT:PRINT"A";I;"=";A(I) 360 NEXT 370 PRINT:INPUT"NEUE BERECHNUNG";A$ 380 IFLEFT$(A$,1)<>"N"GOTO 40 390 POKE15,0:END 400 REM SYNTHETIC 410 REM DIVISION 420 FORI=0TON-1 430 FORK=N-1TOISTEP-1 440 A(K)=A(K)+A(K+1) 450 NEXT:NEXT 460 RETURN 470 PRINT:PRINT"Dieses Programm trans-" 480 PRINT"formiert die Uebertra-" 490 PRINT"gungsfunktion eines ana" 500 PRINT"logen Filters H(s) in" 510 PRINT"eine Uebertragungsfunk-" 520 PRINT"tion eines digitalen " 530 PRINT"Filters H(z)." 540 PRINT"Dabei werden Zaehler" 550 PRINT"und Nenner separat be-" 560 PRINT"rechnet. Dazu wird das" 570 PRINT"gleiche Programm zwei-" 580 PRINT"mal verwendet." 590 PRINT"Beim ersten mal werden" 600 PRINT"die Koeffizienten des" 610 PRINT"Zaehlerpolynoms einge-" 620 PRINT"geben, dann die des " 630 PRINT"Nennerpolynoms." 640 RETURN POKE 515,0