EIGENWERT .SB

FILE INFORMATION

FILENAME(S): EIGENWERT .SB

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-10-20 14:30:27

APPEARS ON: 1 disk(s)

FILE HASH

b376c594f3608abb95fe8e6d0807e36e09e73677907849f78df01ffe16464956

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SCIENTIFIC BASIC	EIGENWERT .SB	PRG	Treasure Chest - Klaus Der Suhler	17	18	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 25 08 0A 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..%.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 00 49 08  14 00 8F 20 2A 20 45 49  |*****.I.... * EI|
00000030: 47 45 4E 57 45 52 54 20  55 4E 44 20 45 49 47 45  |GENWERT UND EIGE|
00000040: 4E 56 45 4B 54 4F 52 20  2A 00 6D 08 1E 00 8F 20  |NVEKTOR *.m.... |
00000050: 2A 20 20 20 20 20 45 49  4E 45 52 20 4E 2A 4E 20  |*     EINER N*N |
00000060: 2D 4D 41 54 52 49 58 20  20 20 20 20 2A 00 91 08  |-MATRIX     *...|
00000070: 28 00 8F 20 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |(.. ************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000090: 2A 00 B5 08 3C 00 8F 20  32 39 2E 37 2E 38 37 20  |*...<.. 29.7.87 |
000000A0: 20 20 20 20 20 20 20 4D  41 52 54 49 4E 20 41 48  |       MARTIN AH|
000000B0: 4C 42 4F 52 4E 00 BB 08  50 00 8F 00 CC 08 64 00  |LBORN...P.....d.|
000000C0: 99 22 93 22 3A 9B 20 31  30 AB 34 30 00 F4 08 69  |.".":. 10.40...i|
000000D0: 00 85 22 DA 45 49 4C 45  4E 2D 2F D3 50 41 4C 54  |..".EILEN-/.PALT|
000000E0: 45 4E 5A 41 48 4C 20 44  45 52 20 CD 41 54 52 49  |ENZAHL DER .ATRI|
000000F0: 58 22 3B 4E 00 0D 09 6E  00 4E B7 4E AB 31 20 20  |X";N...n.N.N.1  |
00000100: 20 20 20 20 3A 8F 20 30  2E 2E 4E 2D 31 00 2B 09  |    :. 0..N-1.+.|
00000110: 78 00 86 20 41 20 28 4E  2C 4E 29 3A 8F 20 45 49  |x.. A (N,N):. EI|
00000120: 4E 47 41 42 45 4D 41 54  52 49 58 00 47 09 82 00  |NGABEMATRIX.G...|
00000130: 86 20 45 56 28 30 2C 4E  29 3A 8F 20 45 49 47 45  |. EV(0,N):. EIGE|
00000140: 4E 56 45 4B 54 4F 52 00  61 09 8C 00 86 20 48 20  |NVEKTOR.a.... H |
00000150: 28 30 2C 4E 29 3A 8F 20  48 49 4C 46 53 46 45 4C  |(0,N):. HILFSFEL|
00000160: 44 00 84 09 96 00 53 B7  35 20 20 20 20 20 20 20  |D.....S.5       |
00000170: 20 3A 8F 20 4B 4F 52 52  45 4B 54 45 20 53 54 45  | :. KORREKTE STE|
00000180: 4C 4C 45 4E 00 A7 09 A0  00 45 50 53 B7 31 30 AE  |LLEN.....EPS.10.|
00000190: AB 53 20 20 3A 8F 20 4D  41 58 2E 20 52 45 4C 2E  |.S  :. MAX. REL.|
000001A0: 20 46 45 48 4C 45 52 00  AD 09 BE 00 3A 00 CD 09  | FEHLER.....:...|
000001B0: C8 00 F9 20 4E 3A 99 22  C5 49 4E 47 41 42 45 20  |... N:.".INGABE |
000001C0: 5A 45 49 4C 45 4E 57 45  49 53 45 3A 22 00 DB 09  |ZEILENWEISE:"...|
000001D0: DC 00 81 20 49 B7 30 20  A4 20 4E 00 E1 09 E1 00  |... I.0 . N.....|
000001E0: 99 00 EF 09 E6 00 81 20  4A B7 30 20 A4 20 4E 00  |....... J.0 . N.|
000001F0: 0F 0A F0 00 99 22 C1 28  22 49 AA 31 22 2C 22 4A  |.....".("I.1","J|
00000200: AA 31 22 29 22 3B 3A 85  20 41 28 4A 2C 49 29 00  |.1")";:. A(J,I).|
00000210: 19 0A 04 01 82 20 4A 2C  49 00 1F 0A 22 01 3A 00  |..... J,I...".:.|
00000220: 43 0A 2C 01 8F 20 53 54  41 52 54 57 45 52 54 20  |C.,.. STARTWERT |
00000230: 46 55 45 52 20 45 56 20  3D 20 28 31 2C 30 2C 30  |FUER EV = (1,0,0|
00000240: 2E 2E 29 00 51 0A 40 01  81 20 49 B7 30 20 A4 20  |..).Q.@.. I.0 . |
00000250: 4E 00 64 0A 4A 01 45 56  28 30 2C 49 29 B7 BC 28  |N.d.J.EV(0,I)..(|
00000260: 49 B7 30 29 00 6C 0A 54  01 82 20 49 00 72 0A 86  |I.0).l.T.. I.r..|
00000270: 01 3A 00 82 0A 90 01 8D  2E 45 49 47 45 4E 57 45  |.:.......EIGENWE|
00000280: 52 54 00 A2 0A 9A 01 F9  20 D5 20 53 AB 31 20 3A  |RT...... . S.1 :|
00000290: 8F 20 53 20 53 54 45 4C  4C 45 4E 20 5A 45 49 47  |. S STELLEN ZEIG|
000002A0: 45 4E 00 C0 0A A4 01 99  22 11 47 52 5C BF 54 45  |EN......".GR\.TE|
000002B0: 52 20 C5 49 47 45 4E 57  45 52 54 3A 22 3B 45 57  |R .IGENWERT:";EW|
000002C0: 00 E4 0A AE 01 99 22 11  44 45 52 20 5A 55 47 45  |......".DER ZUGE|
000002D0: 48 5C 52 49 47 45 20 C5  49 47 45 4E 56 45 4B 54  |H\RIGE .IGENVEKT|
000002E0: 4F 52 3A 22 00 F2 0A B8  01 81 20 49 B7 30 20 A4  |OR:"...... I.0 .|
000002F0: 20 4E 00 0F 0B C2 01 F9  20 4E 20 20 20 20 20 20  | N...... N      |
00000300: 3A 99 22 45 56 28 22 49  AA 31 22 29 3D 22 3B 00  |:."EV("I.1")=";.|
00000310: 25 0B CC 01 F9 20 D5 20  53 AB 31 3A 99 20 45 56  |%.... . S.1:. EV|
00000320: 28 30 2C 49 29 00 2D 0B  D6 01 82 20 49 00 37 0B  |(0,I).-.... I.7.|
00000330: EA 01 F9 20 4E 3A 80 00  3D 0B 4E 02 3A 00 4C 0B  |... N:..=.N.:.L.|
00000340: 58 02 2E 45 49 47 45 4E  57 45 52 54 00 72 0B 5D  |X..EIGENWERT.r.]|
00000350: 02 8F 20 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.. -------------|
00000360: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000370: 2D 2D 00 95 0B 62 02 8F  20 55 4E 54 45 52 50 52  |--...b.. UNTERPR|
00000380: 4F 47 52 41 4D 4D 20 5A  55 52 20 49 54 45 52 41  |OGRAMM ZUR ITERA|
00000390: 54 49 56 45 4E 00 BB 0B  6C 02 8F 20 42 45 52 45  |TIVEN...l.. BERE|
000003A0: 43 48 4E 55 4E 47 20 44  45 53 20 47 52 4F 45 53  |CHNUNG DES GROES|
000003B0: 53 54 45 4E 20 45 49 47  45 4E 2D 00 E1 0B 71 02  |STEN EIGEN-...q.|
000003C0: 8F 20 57 45 52 54 45 53  20 45 57 20 44 45 52 20  |. WERTES EW DER |
000003D0: 4D 41 54 52 49 58 20 41  28 4E 2C 4E 29 20 4D 49  |MATRIX A(N,N) MI|
000003E0: 54 00 04 0C 76 02 8F 20  5A 55 47 45 48 4F 45 52  |T...v.. ZUGEHOER|
000003F0: 49 47 45 4D 20 45 49 47  45 4E 56 45 4B 54 4F 52  |IGEM EIGENVEKTOR|
00000400: 20 45 56 2E 00 1C 0C 80  02 8F 20 41 42 42 52 55  | EV....... ABBRU|
00000410: 43 48 4B 52 49 54 45 52  49 55 4D 3A 00 3D 0C 8A  |CHKRITERIUM:.=..|
00000420: 02 8F 20 52 45 4C 2E 20  41 45 4E 44 45 52 55 4E  |.. REL. AENDERUN|
00000430: 47 20 3C 20 45 50 53 20  20 4F 44 45 52 00 5F 0C  |G < EPS  ODER._.|
00000440: 94 02 8F 20 35 30 20 49  54 45 52 41 54 49 4F 4E  |... 50 ITERATION|
00000450: 45 4E 20 41 55 53 47 45  46 55 45 48 52 54 2E 00  |EN AUSGEFUEHRT..|
00000460: 70 0C 9E 02 8F 20 50 41  52 41 4D 45 54 45 52 3A  |p.... PARAMETER:|
00000470: 00 8E 0C A8 02 8F 20 20  20 4E 2C 41 28 4E 2C 4E  |......   N,A(N,N|
00000480: 29 2C 48 28 30 2C 4E 29  20 20 53 2E 4F 2E 00 B1  |),H(0,N)  S.O...|
00000490: 0C AD 02 8F 20 20 20 45  56 28 30 2C 4E 29 20 20  |....   EV(0,N)  |
000004A0: 20 20 53 54 41 52 54 57  45 52 54 20 46 2E 20 45  |  STARTWERT F. E|
000004B0: 56 00 D0 0C B2 02 8F 20  20 20 45 50 53 20 20 20  |V......   EPS   |
000004C0: 20 20 20 20 20 47 45 4E  41 55 49 47 4B 45 49 54  |     GENAUIGKEIT|
000004D0: 00 F6 0C B7 02 8F 20 2D  2D 2D 2D 2D 2D 2D 2D 2D  |...... ---------|
000004E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000004F0: 2D 2D 2D 2D 2D 2D 00 FE  0C BC 02 45 B7 30 00 1D  |------.....E.0..|
00000500: 0D D0 02 81 20 4B B7 31  20 A4 20 35 30 20 20 3A  |.... K.1 . 50  :|
00000510: 8F 20 49 54 45 52 41 54  49 4F 4E 45 4E 00 41 0D  |. ITERATIONEN.A.|
00000520: DA 02 8F 20 45 56 20 4C  49 4E 4B 53 20 4D 49 54  |... EV LINKS MIT|
00000530: 20 41 20 4D 55 4C 54 49  50 4C 49 5A 49 45 52 45  | A MULTIPLIZIERE|
00000540: 4E 00 57 0D EE 02 FE 20  48 20 20 B7 20 FE 20 41  |N.W.... H  . . A|
00000550: 20 AC 20 FE 20 45 56 00  66 0D F8 02 FE 20 45 56  | . . EV.f.... EV|
00000560: 20 B7 20 FE 20 48 00 6C  0D FD 02 3A 00 8B 0D 16  | . . H.l...:....|
00000570: 03 8F 20 47 52 4F 45 53  53 54 45 53 20 45 4C 45  |.. GROESSTES ELE|
00000580: 4D 45 4E 54 20 53 55 43  48 45 4E 00 9D 0D 20 03  |MENT SUCHEN... .|
00000590: 4D 41 58 20 B7 20 45 56  28 30 2C 30 29 00 AB 0D  |MAX . EV(0,0)...|
000005A0: 2A 03 81 20 49 B7 31 20  A4 20 4E 00 CB 0D 34 03  |*.. I.1 . N...4.|
000005B0: 8B 20 45 56 28 30 2C 49  29 B6 4D 41 58 20 A7 20  |. EV(0,I).MAX . |
000005C0: 4D 41 58 B7 45 56 28 30  2C 49 29 00 D1 0D 3E 03  |MAX.EV(0,I)...>.|
000005D0: 82 00 D7 0D 43 03 3A 00  EE 0D 48 03 8F 20 45 56  |....C.:...H.. EV|
000005E0: 20 4E 4F 52 4D 41 4C 49  53 49 45 52 45 4E 00 06  | NORMALISIEREN..|
000005F0: 0E 52 03 FE 20 45 56 20  B7 20 FE 20 45 56 20 AC  |.R.. EV . . EV .|
00000600: 20 31 AD 4D 41 58 00 0C  0E 7A 03 3A 00 17 0E 84  | 1.MAX...z.:....|
00000610: 03 45 57 B7 4D 41 58 00  30 0E 8E 03 EF 20 BC 28  |.EW.MAX.0.... .(|
00000620: 45 AB 45 57 29 AD BC 20  45 57 20 B8 20 45 50 53  |E.EW).. EW . EPS|
00000630: 00 39 0E 98 03 45 B7 45  57 00 41 0E B6 03 82 20  |.9...E.EW.A.... |
00000640: 4B 00 47 0E CA 03 8E 00  00 00                    |K.G.......      |

..%.... *****************************.I.
... * EIGENWERT UND EIGENVEKTOR *.M.... 
*     EINER N*N -MATRIX     *...(.. ****
*************************...<.. 29.7.87 
       MARTIN AHLBORN...P...L.D..".":. 1
0.40...I.."ZEILEN-/SPALTENZAHL DER MATRI
X";N...N.N.N.1      :. 0..N-1.+.X.. A (N
,N):. EINGABEMATRIX.G.... EV(0,N):. EIGE
NVEKTOR.A.... H (0,N):. HILFSFELD.....S.
5        :. KORREKTE STELLEN... .EPS.10.
.S  :. MAX. REL. FEHLER.....:.M.H.. N:."
EINGABE ZEILENWEISE:"...... I.0 . N.....
....... J.0 . N......"A("I.1","J.1")";:.
 A(J,I)...... J,I...".:.C.,.. STARTWERT 
FUER EV = (1,0,0..).Q.@.. I.0 . N.D.J.EV
(0,I)..(I.0).L.T.. I.R...:.......EIGENWE
RT...... U S.1 :. S STELLEN ZEIGEN......
".GR\.TER EIGENWERT:";EW......".DER ZUGE
H\RIGE EIGENVEKTOR:"...... I.0 . N...B..
 N      :."EV("I.1")=";.%.L.. U S.1:. EV
(0,I).-.V.. I.7.... N:..=.N.:.L.X..EIGEN
WERT.R.].. -----------------------------
--...B.. UNTERPROGRAMM ZUR ITERATIVEN...
L.. BERECHNUNG DES GROESSTEN EIGEN-...Q.
. WERTES EW DER MATRIX A(N,N) MIT...V.. 
ZUGEHOERIGEM EIGENVEKTOR EV....... ABBRU
CHKRITERIUM:.=.... REL. AENDERUNG < EPS 
 ODER._.... 50 ITERATIONEN AUSGEFUEHRT..
P.... PARAMETER:......   N,A(N,N),H(0,N)
  S.O.......   EV(0,N)    STARTWERT F. E
V.P....   EPS        GENAUIGKEIT...... -
------------------------------.....E.0..
.P.. K.1 . 50  :. ITERATIONEN.A.Z.. EV L
INKS MIT A MULTIPLIZIEREN.W.... H  . . A
 . . EV.F.... EV . . H.L...:...... GROES
STES ELEMENT SUCHEN... .MAX . EV(0,0)...
*.. I.1 . N.K.4.. EV(0,I).MAX . MAX.EV(0
,I).Q.>...W.C.:...H.. EV NORMALISIEREN..
.R.. EV . . EV . 1.MAX...Z.:.....EW.MAX.
0.... .(E.EW).. EW . EPS.9...E.EW.A.... 
K.G.J.....

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL