FOURIER
FILE INFORMATION
FILENAME(S): FOURIER
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-12-01 13:57:54
APPEARS ON: 1 disk(s)
FILE HASH
869d78ad005a1d3a39fdc7c41108bda5c0747e1bef36a618ea2fc57121cb80aa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TECHNIK | FOURIER | PRG | HOL2001, Misc | 23 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 0A 00 8F 20 45 49 4E 45 20 46 55 4E |..$.... EINE FUN| 00000010: 4B 54 49 4F 4E 20 46 28 58 29 20 28 53 54 45 48 |KTION F(X) (STEH| 00000020: 54 20 49 4E 00 49 08 14 00 8F 20 5A 45 49 4C 45 |T IN.I.... ZEILE| 00000030: 4E 20 35 37 30 2D 36 30 30 20 41 4C 53 20 55 4E |N 570-600 ALS UN| 00000040: 54 45 52 50 52 4F 47 2E 29 00 6C 08 1E 00 8F 20 |TERPROG.).l.... | 00000050: 57 49 52 44 20 44 55 52 43 48 20 44 49 45 20 46 |WIRD DURCH DIE F| 00000060: 55 4E 4B 54 49 4F 4E 20 47 28 58 29 00 80 08 28 |UNKTION G(X)...(| 00000070: 00 8F 20 41 50 50 52 4F 58 49 4D 49 45 52 54 3A |.. APPROXIMIERT:| 00000080: 00 86 08 32 00 8F 00 9D 08 3C 00 8F 20 20 20 20 |...2.....<.. | 00000090: 20 20 20 20 20 20 20 20 20 20 4E 2D 31 00 C4 08 | N-1...| 000000A0: 46 00 8F 20 41 28 58 29 3D 41 28 30 29 2F 32 2B |F.. A(X)=A(0)/2+| 000000B0: 53 55 4D 4D 45 28 41 28 49 29 2A 43 4F 53 28 49 |SUMME(A(I)*COS(I| 000000C0: 2A 58 29 2B 00 EB 08 50 00 8F 20 20 20 20 20 20 |*X)+...P.. | 000000D0: 20 20 20 20 20 20 20 20 49 3D 31 20 20 42 28 49 | I=1 B(I| 000000E0: 29 2A 53 49 4E 28 49 2A 58 29 29 00 05 09 64 00 |)*SIN(I*X))...d.| 000000F0: 8F 20 46 4F 55 52 49 45 52 2D 45 4E 54 57 49 43 |. FOURIER-ENTWIC| 00000100: 4B 4C 55 4E 47 00 0B 09 6E 00 3A 00 2F 09 78 00 |KLUNG...n.:./.x.| 00000110: 87 4E 3A 8F 20 41 4E 5A 41 48 4C 20 44 45 52 20 |.N:. ANZAHL DER | 00000120: 53 49 4E 2D 55 2E 43 4F 53 2D 54 45 52 4D 45 00 |SIN-U.COS-TERME.| 00000130: 46 09 82 00 87 20 41 2C 42 20 3A 8F 20 49 4E 54 |F.... A,B :. INT| 00000140: 45 52 56 41 4C 4C 00 56 09 8C 00 86 20 41 28 4E |ERVALL.V.... A(N| 00000150: 29 2C 42 28 4E 29 00 5C 09 96 00 3A 00 6E 09 A0 |),B(N).\...:.n..| 00000160: 00 50 B2 28 42 AB 41 29 AD 28 32 AC 4E 29 00 87 |.P.(B.A).(2.N)..| 00000170: 09 AA 00 51 B2 32 AC FF AD 28 42 AB 41 29 3A 4E |...Q.2...(B.A):N| 00000180: 31 B2 32 AC 4E AB 31 00 98 09 B4 00 42 28 30 29 |1.2.N.1.....B(0)| 00000190: B2 30 20 3A 20 53 B2 30 00 B2 09 BE 00 8F 20 42 |.0 : S.0...... B| 000001A0: 45 52 45 43 48 4E 55 4E 47 20 56 4F 4E 20 41 28 |ERECHNUNG VON A(| 000001B0: 30 29 00 C1 09 C8 00 81 20 49 B2 30 20 A4 20 4E |0)...... I.0 . N| 000001C0: 31 00 CD 09 D2 00 58 B2 41 AA 49 AC 50 00 D7 09 |1.....X.A.I.P...| 000001D0: DC 00 8D 20 35 37 30 00 E1 09 E6 00 53 B2 53 AA |... 570.....S.S.| 000001E0: 46 00 E9 09 F0 00 82 20 49 00 FA 09 FA 00 41 28 |F...... I.....A(| 000001F0: 30 29 B2 53 AD 28 51 AC 4E 29 00 00 0A 04 01 3A |0).S.(Q.N).....:| 00000200: 00 1E 0A 0E 01 8F 20 46 4F 55 52 49 45 52 20 2D |...... FOURIER -| 00000210: 20 4B 4F 45 46 46 49 5A 49 45 4E 54 45 4E 00 2E | KOEFFIZIENTEN..| 00000220: 0A 18 01 81 20 4B B2 31 20 A4 20 4E AB 31 00 40 |.... K.1 . N.1.@| 00000230: 0A 22 01 52 B2 4B AC 51 3A 53 B2 30 3A 54 B2 30 |.".R.K.Q:S.0:T.0| 00000240: 00 4F 0A 2C 01 81 20 49 B2 30 20 A4 20 4E 31 00 |.O.,.. I.0 . N1.| 00000250: 63 0A 36 01 58 B2 41 AA 49 AC 50 20 3A 20 8D 20 |c.6.X.A.I.P : . | 00000260: 35 37 30 00 74 0A 40 01 53 B2 53 AA 46 AC BE 28 |570.t.@.S.S.F..(| 00000270: 52 AC 58 29 00 85 0A 4A 01 54 B2 54 AA 46 AC BF |R.X)...J.T.T.F..| 00000280: 28 52 AC 58 29 00 8D 0A 54 01 82 20 49 00 AB 0A |(R.X)...T.. I...| 00000290: 5E 01 41 28 4B 29 B2 53 AD 28 51 AC 4E 29 3A 42 |^.A(K).S.(Q.N):B| 000002A0: 28 4B 29 B2 54 AD 28 51 AC 4E 29 00 B3 0A 68 01 |(K).T.(Q.N)...h.| 000002B0: 82 20 4B 00 B9 0A 72 01 3A 00 E0 0A 7C 01 99 22 |. K...r.:...|.."| 000002C0: 44 49 45 20 46 4F 55 52 49 45 52 2D 4B 4F 45 46 |DIE FOURIER-KOEF| 000002D0: 46 49 5A 49 45 4E 54 45 4E 20 53 49 4E 44 3A 22 |FIZIENTEN SIND:"| 000002E0: 00 09 0B 81 01 99 3A 99 22 20 49 20 20 20 20 20 |......:." I | 000002F0: 20 41 28 49 29 20 20 20 20 20 20 20 20 20 20 20 | A(I) | 00000300: 20 20 42 28 49 29 22 3A 99 00 19 0B 86 01 81 20 | B(I)":....... | 00000310: 49 B2 30 20 A4 20 4E AB 31 00 2F 0B 90 01 99 20 |I.0 . N.1./.... | 00000320: 49 3B 41 28 49 29 3B A3 32 32 29 42 28 49 29 00 |I;A(I);.22)B(I).| 00000330: 37 0B 9A 01 82 20 49 00 3D 0B A4 01 3A 00 60 0B |7.... I.=...:.`.| 00000340: AE 01 99 22 41 55 53 57 45 52 54 55 4E 47 20 47 |..."AUSWERTUNG G| 00000350: 45 53 55 43 48 54 20 4A 2F 4E 22 3A 85 20 41 24 |ESUCHT J/N":. A$| 00000360: 00 72 0B B8 01 8B 20 41 24 B3 B1 22 4A 22 20 A7 |.r.... A$.."J" .| 00000370: 20 80 00 78 0B C2 01 3A 00 9E 0B CC 01 8F 20 41 | ..x...:...... A| 00000380: 55 53 57 45 52 54 55 4E 47 20 44 45 53 20 46 4F |USWERTUNG DES FO| 00000390: 55 52 49 45 52 2D 50 4F 4C 59 4E 4F 4D 53 00 C8 |URIER-POLYNOMS..| 000003A0: 0B D1 01 99 22 20 20 20 58 20 20 20 20 20 20 20 |...." X | 000003B0: 20 20 20 20 20 20 20 59 20 20 20 20 20 41 42 57 | Y ABW| 000003C0: 45 49 43 48 55 4E 47 22 00 E0 0B D6 01 87 20 48 |EICHUNG"...... H| 000003D0: 20 3A 8F 20 53 43 48 52 49 54 54 57 45 49 54 45 | :. SCHRITTWEITE| 000003E0: 00 EC 0B DB 01 49 B2 30 3A 54 B2 30 00 04 0C E0 |.....I.0:T.0....| 000003F0: 01 81 20 58 B2 41 20 A4 20 42 AA 2E 30 30 30 31 |.. X.A . B..0001| 00000400: 20 A9 20 48 00 11 0C EA 01 59 B2 41 28 30 29 AD | . H.....Y.A(0).| 00000410: 32 00 21 0C F4 01 81 20 4B B2 31 20 A4 20 4E AB |2.!.... K.1 . N.| 00000420: 31 00 41 0C FE 01 59 B2 59 AA 41 28 4B 29 AC BE |1.A...Y.Y.A(K)..| 00000430: 28 58 AC 4B 29 AA 42 28 4B 29 AC BF 28 58 AC 4B |(X.K).B(K)..(X.K| 00000440: 29 00 49 0C 08 02 82 20 4B 00 53 0C 0D 02 8D 20 |).I.... K.S.... | 00000450: 35 37 30 00 60 0C 12 02 99 58 3B 46 3B 46 AB 59 |570.`....X;F;F.Y| 00000460: 00 77 0C 17 02 54 B2 54 AA 28 46 AB 59 29 AE 32 |.w...T.T.(F.Y).2| 00000470: 20 3A 49 B2 49 AA 31 00 7F 0C 1C 02 82 20 58 00 | :I.I.1...... X.| 00000480: 9A 0C 21 02 99 3A 99 22 54 4F 4C 45 52 41 4E 5A |..!..:."TOLERANZ| 00000490: 20 3D 22 3B BA 28 54 AD 49 29 00 A0 0C 26 02 80 | =";.(T.I)...&..| 000004A0: 00 A6 0C 30 02 3A 00 C1 0C 3A 02 8F 20 46 55 4E |...0.:...:.. FUN| 000004B0: 4B 54 49 4F 4E 53 55 4E 54 45 52 50 4F 52 41 4D |KTIONSUNTERPORAM| 000004C0: 4D 00 DA 0C 44 02 8B 20 58 B3 B2 FF AD 32 20 A7 |M...D.. X....2 .| 000004D0: 20 46 B2 58 3A 89 20 36 30 30 00 E5 0C 4E 02 46 | F.X:. 600...N.F| 000004E0: B2 AB 58 AA FF 00 EB 0C 58 02 8E 00 F1 0C 62 02 |..X.....X.....b.| 000004F0: 3A 00 0E 0D 6C 02 83 20 31 35 20 3A 8F 20 41 4E |:...l.. 15 :. AN| 00000500: 5A 41 48 4C 20 44 45 52 20 54 45 52 4D 45 00 43 |ZAHL DER TERME.C| 00000510: 0D 76 02 83 20 2D 31 2E 35 37 30 37 39 36 33 33 |.v.. -1.57079633| 00000520: 2C 34 2E 37 31 32 33 38 38 39 38 3A 20 20 20 20 |,4.71238898: | 00000530: 20 20 20 20 20 20 20 20 8F 20 49 4E 54 45 52 56 | . INTERV| 00000540: 41 4C 4C 00 79 0D 80 02 83 20 2E 31 20 20 20 3A |ALL.y.... .1 :| 00000550: 8F 20 53 43 48 52 49 54 54 57 45 49 54 45 20 46 |. SCHRITTWEITE F| 00000560: 55 45 52 20 20 20 20 20 20 20 20 44 49 45 20 41 |UER DIE A| 00000570: 55 53 57 45 52 54 55 4E 47 00 00 00 |USWERTUNG... |
..$.... EINE FUNKTION F(X) (STEHT IN.I..
.. ZEILEN 570-600 ALS UNTERPROG.).L....
WIRD DURCH DIE FUNKTION G(X)...(.. APPRO
XIMIERT:...2.....<.. N-1.D.
F.. A(X)=A(0)/2+SUMME(A(I)*COS(I*X)+...P
.. I=1 B(I)*SIN(I*X))...D.
. FOURIER-ENTWICKLUNG...N.:./.X..N:. ANZ
AHL DER SIN-U.COS-TERME.F.... A,B :. INT
ERVALL.V.... A(N),B(N).\...:.N. .P.(B.A)
.(2.N).....Q.2...(B.A):N1.2.N.1.....B(0)
.0 : S.0...... BERECHNUNG VON A(0).A.H..
I.0 . N1.M.R.X.A.I.P.W.... 570.....S.S.
F...... I.....A(0).S.(Q.N).....:...... F
OURIER - KOEFFIZIENTEN...... K.1 . N.1.@
.".R.K.Q:S.0:T.0.O.,.. I.0 . N1.C.6.X.A.
I.P : . 570.T.@.S.S.F..(R.X)...J.T.T.F..
(R.X)...T.. I...^.A(K).S.(Q.N):B(K).T.(Q
.N)...H.. K...R.:...|.."DIE FOURIER-KOEF
FIZIENTEN SIND:"......:." I A(I)
B(I)":....... I.0 . N.1./....
I;A(I);.22)B(I).7.... I.=...:.`...."AUSW
ERTUNG GESUCHT J/N":. A$.R.... A$.."J" .
..X.B.:...L.. AUSWERTUNG DES FOURIER-PO
LYNOMS.H.Q.." X Y ABW
EICHUNG"...V.. H :. SCHRITTWEITE.....I.0
:T.0...... X.A . B..0001 . H.....Y.A(0).
2.!.... K.1 . N.1.A...Y.Y.A(K)..(X.K).B(
K)..(X.K).I.... K.S.... 570.`....X;F;F.Y
.W...T.T.(F.Y).2 :I.I.1..... X...!..:."
TOLERANZ =";.(T.I). .&.....0.:.A.:.. FUN
KTIONSUNTERPORAMM.Z.D.. X....2 . F.X:. 6
00...N.F..X.....X.....B.:...L.. 15 :. AN
ZAHL DER TERME.C.V.. -1.57079633,4.71238
898: . INTERVALL.Y.... .1 :
. SCHRITTWEITE FUER DIE AUSWERTUN
G...
> CLICK IMAGE PREVIEW FOR FULL MODAL