7000 REM KURZBESCHREIBUNG 7010 PRINTCHR$(14):IFPEEK(2)>0THENPOKE646,PEEK(2)-1 7020 PRINTCHR$(147):PRINT" [203]URZBESCHREIBUNG":PRINT:C=0 7030 PRINT:PRINT:PRINT" [193]USGABE AUF [196]RUCKER? J/N" 7040 GETTA$:IFTA$="N"THEN7070 7050 IFTA$<>"J"THEN7040 7055 OPEN4,4,7 7060 PRINT#4,CHR$(17):REM TEXT-MODUS 7065 CMD4:C=1 7070 GOSUB8230 7080 PRINT"[196]EM FRUEHEREN [205]ATHEMATIKER '[198]OURIER'" 7090 PRINT"ZUFOLGE LASSEN SICH BELIEBIGE PERIO-" 7100 PRINT"DISCHE [194]EWEGUNGEN ZERLEGEN IN [199]RUND-" 7110 PRINT"SCHWINGUNGEN DER [211]INUS- UND [195]OSINUS-" 7120 PRINT"FUNKTIONEN UND DEREN HARMONISCHE [207]BER-" 7130 PRINT"WELLEN SOWIE EINEM KONSTANTEN [211]UM-" 7140 PRINT"MANTEN [193](0) GEMAESS FOLGENDEM MATHE-" 7150 PRINT"TISCHEN [218]USAMMENHANG:" 7160 PRINT:PRINT" [198](X)=[193](0) + [193](1)COS(1X) + [193](2)COS(2X)" 7170 PRINT" + ... + [193](N)COS(NX) +" 7180 PRINT" + [194](1)SIN(1X) + [194](2)SIN(2X)" 7190 PRINT" + ... + [194](N)SIN(NX)" 7200 PRINT:PRINT" MIT X = OMEGA * T" 7210 IFC=0THENGOSUB8200:GOSUB8230 7220 PRINT:PRINT"[205]IT DER [213]MKEHRUNG DER [193]NALYSE, DER" 7230 PRINT"[211]YNTHESE, GEWINNT MAN DURCH [213]EBERLAGE-" 7240 PRINT"RUNG DER EINZELNEN [207]BERWELLEN MIT DEN" 7250 PRINT"GEGEBENEN [203]OEFFIZIENTEN DEN ENTSPRE-" 7260 PRINT"CHENDEN [198]UNKTIONSVERLAUF." 7270 PRINT:PRINT"[211]ELBSTVERSTAENDLICH STEIGT DIE [199]ENAUIG-" 7280 PRINT"KEIT SOWOHL DER [193]NALYSE ALS AUCH DER" 7290 PRINT"[211]YNTHESE MIT DER [193]NZAHL DER [197]INGABE-" 7300 PRINT"WERTE AN; MIT IHR ALLERDINGS AUCH DIE" 7310 PRINT"[210]ECHENZEIT." 7320 IFC=0THENGOSUB8200:GOSUB8230 7330 PRINT:PRINT"[196]AS [212]ITELMENUE ERKLAERT SICH SELBST." 7340 PRINT"[196]IE [198]ARBEN LASSEN SICH AUCH DAUERHAFT" 7350 PRINT"IN DEN [218]EILEN 20...40 MIT DEN [218]AHLEN-" 7360 PRINT"W