_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

MATHEMATIK 006

FILE INFORMATION

FILENAME(S): MATHEMATIK 006

FILE TYPE(S): PRG

FILE SIZE: 2.7K

FIRST SEEN: 2025-10-20 14:31:29

APPEARS ON: 1 disk(s)

FILE HASH

acf3735a85b6ce747720b70a8316f45d1085751b3c7000abae1cd31b53267ef9

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PD LERN MATHEMATIK 006 PRG Treasure Chest - Klaus Der Suhler 16 16 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 27 08 00 00 97 35  33 32 38 30 2C 36 3A 97  |..'....53280,6:.|
00000010: 35 33 32 38 31 2C 31 3A  99 C7 28 31 34 37 29 3B  |53281,1:..(147);|
00000020: C7 28 31 34 32 29 3B 00  45 08 01 00 99 22 92 90  |.(142);.E...."..|
00000030: 20 23 23 23 23 23 23 23  23 23 23 23 23 23 23 23  | ###############|
00000040: 23 23 23 23 23 00 61 08  02 00 99 22 20 23 20 20  |#####.a...." #  |
00000050: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000060: 23 00 7D 08 03 00 99 22  20 23 20 4D 41 54 48 45  |#.}...." # MATHE|
00000070: 4D 41 54 49 4B 20 20 30  30 36 20 20 23 00 99 08  |MATIK  006  #...|
00000080: 04 00 99 22 20 23 20 20  20 20 20 20 20 20 20 20  |..." #          |
00000090: 20 20 20 20 20 20 20 20  23 00 B5 08 05 00 99 22  |        #......"|
000000A0: 20 23 20 44 49 45 53 45  53 20 50 52 4F 47 52 41  | # DIESES PROGRA|
000000B0: 4D 4D 20 20 23 00 D1 08  06 00 99 22 20 23 20 20  |MM  #......" #  |
000000C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000D0: 23 00 ED 08 07 00 99 22  20 23 20 44 49 45 20 31  |#......" # DIE 1|
000000E0: 2E 20 41 42 4C 45 49 54  55 4E 47 20 23 00 09 09  |. ABLEITUNG #...|
000000F0: 08 00 99 22 20 23 20 20  20 20 20 20 20 20 20 20  |..." #          |
00000100: 20 20 20 20 20 20 20 20  23 00 25 09 09 00 99 22  |        #.%...."|
00000110: 20 23 20 45 49 4E 45 52  20 46 55 4E 4B 54 49 4F  | # EINER FUNKTIO|
00000120: 4E 20 20 20 23 00 41 09  0A 00 99 22 20 23 20 20  |N   #.A...." #  |
00000130: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000140: 23 00 5D 09 0B 00 99 22  20 23 20 20 20 20 20 20  |#.]...." #      |
00000150: 20 20 20 20 20 20 20 20  20 20 20 20 23 00 79 09  |            #.y.|
00000160: 0C 00 99 22 20 23 20 20  20 20 20 20 20 20 20 20  |..." #          |
00000170: 20 20 20 20 20 20 20 20  23 00 95 09 0D 00 99 22  |        #......"|
00000180: 20 23 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | #              |
00000190: 20 20 20 20 23 00 B1 09  0E 00 99 22 20 23 20 20  |    #......" #  |
000001A0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001B0: 23 00 CD 09 0F 00 99 22  20 23 20 20 20 20 20 20  |#......" #      |
000001C0: 20 20 20 20 20 20 20 20  20 20 20 20 23 00 E9 09  |            #...|
000001D0: 10 00 99 22 20 23 20 20  20 20 20 20 20 20 20 20  |..." #          |
000001E0: 20 20 20 20 20 20 20 20  23 00 05 0A 11 00 99 22  |        #......"|
000001F0: 20 23 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | #              |
00000200: 20 20 20 20 23 00 21 0A  12 00 99 22 20 23 20 20  |    #.!...." #  |
00000210: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000220: 23 00 3D 0A 13 00 99 22  20 23 20 20 50 55 42 4C  |#.=...." #  PUBL|
00000230: 49 43 20 20 44 4F 4D 41  49 4E 20 20 23 00 59 0A  |IC  DOMAIN  #.Y.|
00000240: 14 00 99 22 20 23 20 20  20 20 20 20 20 20 20 20  |..." #          |
00000250: 20 20 20 20 20 20 20 20  23 00 75 0A 17 00 99 22  |        #.u...."|
00000260: 20 23 23 23 23 23 23 23  23 23 23 23 23 23 23 23  | ###############|
00000270: 23 23 23 23 23 00 8C 0A  64 00 92 20 31 39 38 2C  |#####...d.. 198,|
00000280: 31 3A 97 31 39 38 2C 30  3A 99 22 93 00 AB 0A 82  |1:.198,0:.".....|
00000290: 00 99 22 46 55 4E 4B 54  49 4F 4E 20 45 49 4E 2D  |.."FUNKTION EIN-|
000002A0: 22 3A 99 22 47 45 42 45  4E 20 21 00 BC 0A 96 00  |":."GEBEN !.....|
000002B0: 85 22 46 28 58 29 3D 22  3B 46 46 24 00 D1 0A A0  |."F(X)=";FF$....|
000002C0: 00 46 46 24 B2 22 1F 33  36 30 59 3D 22 AA 46 46  |.FF$.".360Y=".FF|
000002D0: 24 00 DF 0A AA 00 99 22  93 11 11 22 46 46 24 00  |$......"..."FF$.|
000002E0: 07 0B B4 00 99 22 47 CF  31 39 30 13 22 3B 3A 97  |....."G.190.";:.|
000002F0: 36 33 31 2C 31 33 3A 97  36 33 32 2C 31 33 3A 97  |631,13:.632,13:.|
00000300: 31 39 38 2C 32 3A 80 00  21 0B BE 00 99 22 93 11  |198,2:..!...."..|
00000310: 11 57 45 52 54 20 56 4F  4E 20 58 20 3D 22 3A 85  |.WERT VON X =":.|
00000320: 58 00 48 0B C8 00 4B B2  58 3A 5A B2 28 58 AC 28  |X.H...K.X:Z.(X.(|
00000330: 31 45 AB 34 29 29 AD 32  3A 57 B2 58 AA 5A 3A 56  |1E.4)).2:W.X.Z:V|
00000340: B2 58 AB 5A 3A 58 B2 57  00 52 0B D2 00 8D 20 33  |.X.Z:X.W.R.... 3|
00000350: 36 30 00 5E 0B DC 00 41  B2 59 3A 58 B2 56 00 68  |60.^...A.Y:X.V.h|
00000360: 0B E6 00 8D 20 33 36 30  00 74 0B F0 00 42 B2 59  |.... 360.t...B.Y|
00000370: 3A 58 B2 4B 00 7E 0B FA  00 8D 20 33 36 30 00 A5  |:X.K.~.... 360..|
00000380: 0B 04 01 43 B2 59 3A 46  B2 B5 28 31 30 30 30 30  |...C.Y:F..(10000|
00000390: 30 AC 28 41 AB 42 29 AD  28 32 AC 5A 29 29 AD 31  |0.(A.B).(2.Z)).1|
000003A0: 30 30 30 30 30 00 B6 0B  0E 01 99 22 93 11 11 11  |00000......"....|
000003B0: 46 55 45 52 20 2E 00 E7  0B 36 01 99 22 11 12 28  |FUER ....6.."..(|
000003C0: 41 2A 43 4F 53 28 57 2A  54 29 2B 42 2A 53 49 4E  |A*COS(W*T)+B*SIN|
000003D0: 28 57 2A 54 29 2A 45 58  50 28 2D 47 2A 54 29 20  |(W*T)*EXP(-G*T) |
000003E0: 92 20 53 45 49 4E 2E 00  33 0C 40 01 99 22 11 44  |. SEIN..3.@..".D|
000003F0: 49 45 20 45 49 4E 5A 45  4C 4E 45 4E 20 4B 4F 45  |IE EINZELNEN KOE|
00000400: 46 46 49 2D 22 3A 99 22  5A 49 45 4E 54 45 4E 20  |FFI-":."ZIENTEN |
00000410: 44 45 52 20 46 55 4E 4B  54 49 4F 4E 45 4E 57 45  |DER FUNKTIONENWE|
00000420: 52 44 45 4E 20 57 49 45  20 46 4F 4C 47 54 20 45  |RDEN WIE FOLGT E|
00000430: 49 4E 2D 00 42 0C 4A 01  99 22 47 45 47 45 42 45  |IN-.B.J.."GEGEBE|
00000440: 4E 3A 00 4B 0C 54 01 8D  39 34 30 00 9A 0C 5E 01  |N:.K.T..940...^.|
00000450: 99 22 45 53 20 53 54 45  48 45 4E 20 44 49 45 20  |."ES STEHEN DIE |
00000460: 5A 45 49 4C 45 4E 2D 22  3A 99 22 4E 55 4D 4D 45  |ZEILEN-":."NUMME|
00000470: 52 4E 20 35 30 30 20 2D  20 35 32 30 20 49 4E 2D  |RN 500 - 520 IN-|
00000480: 22 3A 99 22 43 4C 55 53  49 56 45 20 5A 55 52 20  |":."CLUSIVE ZUR |
00000490: 56 45 52 46 55 45 47 55  4E 47 00 CB 0C 68 01 99  |VERFUEGUNG...h..|
000004A0: 22 35 30 30 44 41 54 41  20 43 28 31 29 2C 43 28  |"500DATA C(1),C(|
000004B0: 32 29 2C 43 28 33 29 20  20 20 2C 2E 2E 2E 2C 53  |2),C(3)   ,...,S|
000004C0: 28 31 29 2C 53 28 32 29  2C 2E 2E 00 FC 0C 72 01  |(1),S(2),.....r.|
000004D0: 99 22 35 31 30 44 41 54  41 20 41 28 31 29 2C 41  |."510DATA A(1),A|
000004E0: 28 32 29 2C 41 28 33 29  20 20 20 2C 2E 2E 2E 2C  |(2),A(3)   ,...,|
000004F0: 42 28 31 29 2C 42 28 32  29 2C 2E 2E 00 2D 0D 7C  |B(1),B(2),...-.||
00000500: 01 99 22 35 32 30 44 41  54 41 20 57 28 31 29 2C  |.."520DATA W(1),|
00000510: 57 28 32 29 2C 57 28 33  29 20 20 20 2C 2E 2E 2E  |W(2),W(3)   ,...|
00000520: 2C 47 28 31 29 2C 47 28  32 29 2C 2E 2E 00 64 0D  |,G(1),G(2),...d.|
00000530: 86 01 99 22 11 44 49 45  20 4D 41 58 49 4D 41 4C  |...".DIE MAXIMAL|
00000540: 45 20 41 4E 5A 41 48 4C  22 3A 99 22 5A 55 20 42  |E ANZAHL":."ZU B|
00000550: 45 52 45 43 48 4E 45 4E  44 45 52 20 50 55 4E 4B  |ERECHNENDER PUNK|
00000560: 54 45 22 3B 00 8C 0D 90  01 99 22 4C 49 45 47 54  |TE";......"LIEGT|
00000570: 20 42 45 49 20 35 30 30  20 42 5A 57 2E 22 3A 99  | BEI 500 BZW.":.|
00000580: 22 32 4E 31 2B 34 4E 32  3D 32 30 2E 00 95 0D 9A  |"2N1+4N2=20.....|
00000590: 01 8D 39 34 30 00 DE 0D  A4 01 99 22 44 49 45 20  |..940......"DIE |
000005A0: 42 45 52 45 43 48 4E 55  4E 47 20 56 4F 4E 22 3A  |BERECHNUNG VON":|
000005B0: 99 22 45 5E 2D 58 20 4B  41 4E 4E 20 42 45 49 20  |."E^-X KANN BEI |
000005C0: 47 52 4F 53 53 45 4E 20  58 20 52 45 4C 41 54 49  |GROSSEN X RELATI|
000005D0: 56 20 4C 41 4E 47 45 20  44 41 55 45 52 4E 00 E7  |V LANGE DAUERN..|
000005E0: 0D AE 01 8D 39 34 30 00  F9 0D B8 01 86 44 28 35  |....940......D(5|
000005F0: 30 30 29 2C 58 28 32 30  29 00 14 0E C2 01 83 33  |00),X(20)......3|
00000600: 30 2C 33 2C 31 2C 30 2C  2E 30 30 31 2C 34 2E 35  |0,3,1,0,.001,4.5|
00000610: 36 45 2D 34 00 2A 0E CC  01 87 4E 2C 4E 31 2C 4E  |6E-4.*....N,N1,N|
00000620: 32 2C 54 31 2C 54 32 2C  43 31 00 6B 0E D6 01 8B  |2,T1,T2,C1.k....|
00000630: 4E B2 39 2E 39 39 39 39  45 33 37 A7 99 22 93 41  |N.9.9999E37..".A|
00000640: 43 48 54 55 4E 47 20 21  20 5A 41 48 4C 45 4E 42  |CHTUNG ! ZAHLENB|
00000650: 45 52 45 49 43 48 53 47  52 45 4E 5A 45 20 45 52  |EREICHSGRENZE ER|
00000660: 52 45 49 43 48 54 21 22  3B 3A 90 00 B7 0E E0 01  |REICHT!";:......|
00000670: 99 22 93 45 53 20 45 52  46 4F 4C 47 54 20 44 49  |.".ES ERFOLGT DI|
00000680: 45 20 42 45 52 45 43 48  2D 4E 55 4E 47 20 45 49  |E BERECH-NUNG EI|
00000690: 4E 45 53 20 42 45 52 45  49 54 53 20 20 20 20 45  |NES BEREITS    E|
000006A0: 49 4E 47 45 47 45 42 45  4E 45 4E 20 42 45 49 53  |INGEGEBENEN BEIS|
000006B0: 50 49 45 4C 53 11 11 00  C7 0E EA 01 4D B2 32 AC  |PIELS.......M.2.|
000006C0: 4E 31 AA 34 AC 4E 32 00  05 0F F4 01 83 2D 31 2E  |N1.4.N2......-1.|
000006D0: 37 38 31 38 39 45 2D 32  2C 31 2E 36 36 31 31 39  |78189E-2,1.66119|
000006E0: 45 2D 32 2C 34 2E 35 30  36 36 36 45 2D 33 2C 31  |E-2,4.50666E-3,1|
000006F0: 2E 35 36 36 32 2C 31 36  2E 32 35 36 35 2C 31 33  |.5662,16.2565,13|
00000700: 36 2E 38 38 39 00 0B 0F  FE 01 3A 00 2F 0F 08 02  |6.889.....:./...|
00000710: 83 31 35 2E 34 33 38 2C  2D 2E 33 37 32 32 31 2C  |.15.438,-.37221,|
00000720: 34 39 31 2E 38 33 34 2C  32 30 30 2E 34 37 34 00  |491.834,200.474.|
00000730: 3A 0F 12 02 81 4A B2 31  A4 4D 00 44 0F 1C 02 87  |:....J.1.M.D....|
00000740: 58 28 4A 29 00 4B 0F 26  02 82 4A 00 56 0F 30 02  |X(J).K.&..J.V.0.|
00000750: 81 49 B2 31 A4 4E 00 61  0F 3A 02 44 28 49 29 B2  |.I.1.N.a.:.D(I).|
00000760: 30 00 73 0F 44 02 54 B2  54 31 AA 28 49 AB 31 29  |0.s.D.T.T1.(I.1)|
00000770: AC 54 32 00 84 0F 4E 02  81 4A B2 31 A4 28 4E 31  |.T2...N..J.1.(N1|
00000780: AA 4E 32 29 00 92 0F 58  02 8B 4A B1 4E 31 A7 36  |.N2)...X..J.N1.6|
00000790: 33 30 00 B3 0F 62 02 44  28 49 29 B2 44 28 49 29  |30...b.D(I).D(I)|
000007A0: AA 58 28 4A 29 AC BD 28  AB 58 28 4E 31 AA 4A 29  |.X(J)..(.X(N1.J)|
000007B0: AC 54 29 00 BC 0F 6C 02  89 36 37 30 00 C7 0F 76  |.T)...l..670...v|
000007C0: 02 4C B2 4E 31 AA 4A 00  EE 0F 80 02 59 B2 28 BE  |.L.N1.J.....Y.(.|
000007D0: 28 58 28 32 AC 4E 32 AA  4C 29 AC 54 29 29 AC BD  |(X(2.N2.L).T))..|
000007E0: 28 AB 58 28 33 AC 4E 32  AA 4C 29 AC 54 29 00 15  |(.X(3.N2.L).T)..|
000007F0: 10 8A 02 5A B2 28 BF 28  58 28 32 AC 4E 32 AA 4C  |...Z.(.(X(2.N2.L|
00000800: 29 AC 54 29 29 AC BD 28  AB 58 28 33 AC 4E 32 AA  |).T))..(.X(3.N2.|
00000810: 4C 29 AC 54 29 00 34 10  94 02 44 28 49 29 B2 44  |L).T).4...D(I).D|
00000820: 28 49 29 AA 58 28 4C 29  AC 59 AA 58 28 4E 32 AA  |(I).X(L).Y.X(N2.|
00000830: 4C 29 AC 5A 00 3B 10 9E  02 82 4A 00 5C 10 A8 02  |L).Z.;....J.\...|
00000840: 44 28 49 29 B2 44 28 49  29 AA 43 31 AC 28 BB 28  |D(I).D(I).C1.(.(|
00000850: 31 29 AB 2E 35 29 AC BA  28 31 32 29 00 63 10 B2  |1)..5)..(12).c..|
00000860: 02 82 49 00 7A 10 BC 02  99 22 93 52 41 55 53 43  |..I.z....".RAUSC|
00000870: 48 45 4E 20 20 3D 22 3B  43 31 00 88 10 C6 02 8B  |HEN  =";C1......|
00000880: 4E 31 B2 30 A7 37 37 30  00 A6 10 D0 02 99 22 11  |N1.0.770......".|
00000890: 12 20 43 2A 45 58 50 28  2D 53 2A 54 29 2D 41 55  |. C*EXP(-S*T)-AU|
000008A0: 53 44 52 2E 3A 11 00 B2  10 DA 02 81 4A B2 31 A4  |SDR.:.......J.1.|
000008B0: 4E 31 00 CD 10 E4 02 99  22 43 3D 22 58 28 4A 29  |N1......"C="X(J)|
000008C0: 3A 99 22 53 3D 22 58 28  4E 31 AA 4A 29 00 D6 10  |:."S="X(N1.J)...|
000008D0: EE 02 99 3A 82 4A 00 DF  10 F8 02 8D 39 34 30 00  |...:.J......940.|
000008E0: ED 10 02 03 8B 4E 32 B2  30 A7 38 33 30 00 1A 11  |.....N2.0.830...|
000008F0: 0C 03 99 22 11 12 28 41  2A 43 4F 53 28 57 2A 54  |..."..(A*COS(W*T|
00000900: 29 2B 42 2A 53 49 4E 28  57 2A 54 29 29 2A 45 58  |)+B*SIN(W*T))*EX|
00000910: 50 28 2D 47 2A 54 29 20  3A 11 00 34 11 16 03 81  |P(-G*T) :..4....|
00000920: 4A B2 28 32 AC 4E 31 AA  31 29 A4 28 32 AC 4E 31  |J.(2.N1.1).(2.N1|
00000930: AA 4E 32 29 00 6D 11 20  03 99 22 41 3D 22 58 28  |.N2).m. .."A="X(|
00000940: 4A 29 3A 99 22 42 3D 22  58 28 4E 32 AA 4A 29 3A  |J):."B="X(N2.J):|
00000950: 99 22 57 3D 22 58 28 32  AC 4E 32 AA 4A 29 3A 99  |."W="X(2.N2.J):.|
00000960: 22 47 3D 22 58 28 33 AC  4E 32 AA 4A 29 00 76 11  |"G="X(3.N2.J).v.|
00000970: 2A 03 99 3A 82 4A 00 7F  11 34 03 8D 39 34 30 00  |*..:.J...4..940.|
00000980: A8 11 3E 03 99 22 45 52  53 54 45 52 20 50 55 4E  |..>.."ERSTER PUN|
00000990: 4B 54 20 42 45 49 20 54  31 22 3A 99 22 41 42 53  |KT BEI T1":."ABS|
000009A0: 54 41 4E 44 20 3D 54 32  00 C1 11 48 03 99 22 11  |TAND =T2...H..".|
000009B0: 54 31 3D 22 3B 54 31 3A  99 22 54 32 3D 22 3B 54  |T1=";T1:."T2=";T|
000009C0: 32 00 EC 11 52 03 99 22  11 11 46 55 45 52 20 44  |2...R.."..FUER D|
000009D0: 41 54 45 4E 2D 50 55 4E  4B 54 45 20 45 49 4E 45  |ATEN-PUNKTE EINE|
000009E0: 31 20 45 49 4E 47 45 42  45 4E 20 21 00 FF 11 5C  |1 EINGEBEN !...\|
000009F0: 03 A1 41 24 3A 8B 41 24  B2 22 22 A7 38 36 30 00  |..A$:.A$."".860.|
00000A00: 10 12 66 03 8B 41 24 B3  B1 22 31 22 A7 38 36 30  |..f..A$.."1".860|
00000A10: 00 2D 12 70 03 99 22 93  44 41 54 45 4E 2D 50 55  |.-.p..".DATEN-PU|
00000A20: 4E 4B 54 45 20 42 45 49  20 3A 11 11 11 00 38 12  |NKTE BEI :....8.|
00000A30: 7A 03 81 49 B2 31 A4 4E  00 42 12 84 03 99 44 28  |z..I.1.N.B....D(|
00000A40: 49 29 00 49 12 8E 03 82  49 00 52 12 98 03 89 39  |I).I....I.R....9|
00000A50: 33 30 00 58 12 A2 03 80  00 8A 12 AC 03 99 22 13  |30.X..........".|
00000A60: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000A70: 11 11 11 11 20 45 49 4E  45 20 54 41 53 54 45 20  |.... EINE TASTE |
00000A80: 44 52 55 45 43 4B 45 4E  22 3B 00 9F 12 B6 03 A1  |DRUECKEN";......|
00000A90: 41 57 24 3A 8B 41 57 24  B2 22 22 A7 39 34 30 00  |AW$:.AW$."".940.|
00000AA0: AB 12 C0 03 99 22 93 22  3B 3A 8E 00 00 00 27 00  |.....".";:....'.|
00000AB0: FF FF FF FF FF 7F FF 00  00 FF FF FF FF FF FF FF  |................|
00000AC0: 64 FF FF 00 FF FF 00 FF                           |d.......        |
..'....53280,6:.53281,1:.G(147);G(142);.
E....".. ####################.A...." #  
                #.}...." # MATHEMATIK  0
06  #......" #                  #......"
 # DIESES PROGRAMM  #.Q...." #          
        #......" # DIE 1. ABLEITUNG #...
..." #                  #.%...." # EINER
 FUNKTION   #.A...." #                  
#.]...." #                  #.Y...." #  
                #......" #              
    #......" #                  #.M...."
 #                  #......" #          
        #......" #                  #.!.
..." #                  #.=...." #  PUBL
IC  DOMAIN  #.Y...." #                  
#.U...." ####################...D.. 198,
1:.198,0:."......."FUNKTION EIN-":."GEBE
N !......"F(X)=";FF$.Q. .FF$.".360Y=".FF
$......"..."FF$......"GO190.";:.631,13:.
632,13:.198,2:..!...."...WERT VON X =":.
X.H.H.K.X:Z.(X.(1E.4)).2:W.X.Z:V.X.Z:X.W
.R.R.. 360.^...A.Y:X.V.H.... 360.T...B.Y
:X.K.~.... 360.....C.Y:F..(100000.(A.B).
(2.Z)).100000......"....FUER ....6.."..(
A*COS(W*T)+B*SIN(W*T)*EXP(-G*T) . SEIN..
3.@..".DIE EINZELNEN KOEFFI-":."ZIENTEN 
DER FUNKTIONENWERDEN WIE FOLGT EIN-.B.J.
."GEGEBEN:.K.T..940...^.."ES STEHEN DIE 
ZEILEN-":."NUMMERN 500 - 520 IN-":."CLUS
IVE ZUR VERFUEGUNG.K.H.."500DATA C(1),C(
2),C(3)   ,...,S(1),S(2),.....R.."510DAT
A A(1),A(2),A(3)   ,...,B(1),B(2),...-.|
.."520DATA W(1),W(2),W(3)   ,...,G(1),G(
2),...D....".DIE MAXIMALE ANZAHL":."ZU B
ERECHNENDER PUNKTE";......"LIEGT BEI 500
 BZW.":."2N1+4N2=20.......940......"DIE 
BERECHNUNG VON":."E^-X KANN BEI GROSSEN 
X RELATIV LANGE DAUERN......940......D(5
00),X(20)...B..30,3,1,0,.001,4.56E-4.*.L
..N,N1,N2,T1,T2,C1.K.V..N.9.9999E37..".A
CHTUNG ! ZAHLENBEREICHSGRENZE ERREICHT!"
;:.......".ES ERFOLGT DIE BERECH-NUNG EI
NES BEREITS    EINGEGEBENEN BEISPIELS...
G...M.2.N1.4.N2......-1.78189E-2,1.66119
E-2,4.50666E-3,1.5662,16.2565,136.889...
..:./....15.438,-.37221,491.834,200.474.
:....J.1.M.D....X(J).K.&..J.V.0..I.1.N.A
.:.D(I).0.S.D.T.T1.(I.1).T2...N..J.1.(N1
.N2)...X..J.N1.630...B.D(I).D(I).X(J)..(
.X(N1.J).T)...L..670.G.V.L.N1.J.....Y.(.
(X(2.N2.L).T))..(.X(3.N2.L).T).....Z.(.(
X(2.N2.L).T))..(.X(3.N2.L).T).4...D(I).D
(I).X(L).Y.X(N2.L).Z.;....J.\...D(I).D(I
).C1.(.(1)..5)..(12).C....I.Z....".RAUSC
HEN  =";C1...F..N1.0.770...P..".. C*EXP(
-S*T)-AUSDR.:....Z..J.1.N1.M...."C="X(J)
:."S="X(N1.J).V....:.J......940......N2.
0.830......"..(A*COS(W*T)+B*SIN(W*T))*EX
P(-G*T) :..4....J.(2.N1.1).(2.N1.N2).M. 
.."A="X(J):."B="X(N2.J):."W="X(2.N2.J):.
"G="X(3.N2.J).V.*..:.J..4..940...>.."ER
STER PUNKT BEI T1":."ABSTAND =T2.A.H..".
T1=";T1:."T2=";T2...R.."..FUER DATEN-PUN
KTE EINE1 EINGEBEN !...\..A$:.A$."".860.
..F..A$.."1".860.-.P..".DATEN-PUNKTE BEI
 :....8.Z..I.1.N.B....D(I).I....I.R....9
30.X.........."..................... EIN
E TASTE DRUECKEN";......AW$:.AW$."".940.
.....".";:....'................D.......
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL