DETERMINANTE .SB
FILE INFORMATION
FILENAME(S): DETERMINANTE .SB
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-10-20 14:30:26
APPEARS ON: 1 disk(s)
FILE HASH
ce6eff5defccb56a5385bce2981baee0624f7da77ce8ee44c31eaa052bb1124e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCIENTIFIC BASIC | DETERMINANTE .SB | PRG | Treasure Chest - Klaus Der Suhler | 19 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 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 00 3B |**************.;|
00000020: 08 14 00 8F 20 2A 20 44 45 54 45 52 4D 49 4E 41 |.... * DETERMINA|
00000030: 4E 54 45 4E 20 55 4E 44 20 20 2A 00 58 08 1E 00 |NTEN UND *.X...|
00000040: 8F 20 2A 20 55 4E 54 45 52 44 45 54 45 52 4D 49 |. * UNTERDETERMI|
00000050: 4E 41 4E 54 45 4E 20 2A 00 75 08 28 00 8F 20 2A |NANTEN *.u.(.. *|
00000060: 20 45 49 4E 45 52 20 4E 2A 4E 2D 4D 41 54 52 49 | EINER N*N-MATRI|
00000070: 58 20 20 20 2A 00 92 08 32 00 8F 20 2A 2A 2A 2A |X *...2.. ****|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 00 AF 08 3C 00 8F 20 33 30 2E 37 2E 38 37 |**...<.. 30.7.87|
000000A0: 20 4D 41 52 54 49 4E 20 41 48 4C 42 4F 52 4E 00 | MARTIN AHLBORN.|
000000B0: B5 08 50 00 3A 00 C6 08 64 00 99 22 93 22 3A 9B |..P.:...d..".":.|
000000C0: 20 31 30 AB 35 30 00 EF 08 C8 00 85 20 22 DA 45 | 10.50...... ".E|
000000D0: 49 4C 45 4E 2D 2F D3 50 41 4C 54 45 4E 5A 41 48 |ILEN-/.PALTENZAH|
000000E0: 4C 20 44 45 52 20 CD 41 54 52 49 58 22 3B 4E 00 |L DER .ATRIX";N.|
000000F0: 0A 09 D2 00 4E B7 4E AB 31 20 20 3A 8F 20 49 4E |....N.N.1 :. IN|
00000100: 44 45 58 20 30 2E 2E 4E 2D 31 00 29 09 E6 00 86 |DEX 0..N-1.)....|
00000110: 20 5A 4C 28 4E 29 20 20 20 3A 8F 20 5A 45 49 4C | ZL(N) :. ZEIL|
00000120: 45 4E 49 4E 44 49 5A 45 53 00 48 09 F0 00 86 20 |ENINDIZES.H.... |
00000130: 41 20 28 4E 2C 4E 29 20 3A 8F 20 45 49 4E 47 41 |A (N,N) :. EINGA|
00000140: 42 45 4D 41 54 52 49 58 00 65 09 FA 00 86 20 41 |BEMATRIX.e.... A|
00000150: 31 28 4E 2C 4E 29 20 3A 8F 20 4B 4F 50 49 45 20 |1(N,N) :. KOPIE |
00000160: 44 41 56 4F 4E 00 6B 09 22 01 3A 00 87 09 2C 01 |DAVON.k.".:...,.|
00000170: 99 22 C5 49 4E 47 41 42 45 20 5A 45 49 4C 45 4E |.".INGABE ZEILEN|
00000180: 57 45 49 53 45 3A 22 00 95 09 36 01 81 20 49 B7 |WEISE:"...6.. I.|
00000190: 30 20 A4 20 4E 00 9B 09 40 01 99 00 A9 09 4A 01 |0 . N...@.....J.|
000001A0: 81 20 4A B7 30 20 A4 20 4E 00 C9 09 54 01 99 22 |. J.0 . N...T.."|
000001B0: C1 28 22 49 AA 31 22 2C 22 4A AA 31 22 29 22 3B |.("I.1","J.1")";|
000001C0: 3A 85 20 41 28 4A 2C 49 29 00 D1 09 5E 01 82 20 |:. A(J,I)...^.. |
000001D0: 4A 00 F2 09 68 01 5A 4C 28 49 29 B7 49 20 3A 8F |J...h.ZL(I).I :.|
000001E0: 20 56 4F 52 42 45 53 45 54 5A 55 4E 47 20 30 2E | VORBESETZUNG 0.|
000001F0: 2E 4E 00 FA 09 72 01 82 20 49 00 15 0A 7C 01 FE |.N...r.. I...|..|
00000200: 20 41 31 20 B7 20 FE 20 41 20 3A 8F 20 4B 4F 50 | A1 . . A :. KOP|
00000210: 49 45 52 45 4E 00 1B 0A 86 01 3A 00 2F 0A 90 01 |IEREN.....:./...|
00000220: 8D 20 2E 44 45 54 45 52 4D 49 4E 41 4E 54 45 00 |. .DETERMINANTE.|
00000230: 4A 0A 9A 01 99 22 11 C4 45 54 45 52 4D 49 4E 41 |J...."..ETERMINA|
00000240: 4E 54 45 3A 20 22 20 44 45 54 00 50 0A EA 01 3A |NTE: " DET.P...:|
00000250: 00 56 0A F4 01 EB 00 81 0A FE 01 99 22 11 D5 4E |.V.........."..N|
00000260: 54 45 52 44 45 54 45 52 4D 49 4E 41 4E 54 45 20 |TERDETERMINANTE |
00000270: 42 45 52 45 43 48 4E 45 4E 3F 20 28 4A 2F 4E 29 |BERECHNEN? (J/N)|
00000280: 22 00 97 0A 08 02 EB 3A A1 20 41 24 3A F2 20 EF |"......:. A$:. .|
00000290: 20 41 24 B8 B6 22 22 00 A9 0A 12 02 8B 20 41 24 | A$..""...... A$|
000002A0: B8 B6 22 4A 22 20 A7 20 80 00 AF 0A 17 02 3A 00 |.."J" . ......:.|
000002B0: BE 0A 1C 02 FE 20 41 20 B7 20 FE 20 41 31 00 E1 |..... A . . A1..|
000002C0: 0A 21 02 85 20 22 11 DA 45 49 4C 45 4E 2D 2C 20 |.!.. "..EILEN-, |
000002D0: D3 50 41 4C 54 45 4E 49 4E 44 45 58 22 3B 49 2C |.PALTENINDEX";I,|
000002E0: 4A 00 F1 0A 26 02 49 B7 49 AB 31 3A 4A B7 4A AB |J...&.I.I.1:J.J.|
000002F0: 31 00 16 0B 2B 02 8F 20 5A 45 49 4C 45 20 49 20 |1...+.. ZEILE I |
00000300: 55 4E 44 20 53 50 41 4C 54 45 20 4A 20 53 54 52 |UND SPALTE J STR|
00000310: 45 49 43 48 45 4E 00 24 0B 30 02 81 20 4B B7 30 |EICHEN.$.0.. K.0|
00000320: 20 A4 20 4E 00 3C 0B 3A 02 41 28 4A 2C 4B 29 B7 | . N.<.:.A(J,K).|
00000330: 30 20 3A 20 41 28 4B 2C 49 29 B7 30 00 56 0B 3F |0 : A(K,I).0.V.?|
00000340: 02 5A 4C 28 4B 29 B7 4B 20 3A 8F 20 4E 45 55 20 |.ZL(K).K :. NEU |
00000350: 4F 52 44 4E 45 4E 00 5C 0B 44 02 82 00 69 0B 4E |ORDNEN.\.D...i.N|
00000360: 02 41 28 4A 2C 49 29 B7 31 00 7C 0B 58 02 8D 2E |.A(J,I).1.|.X...|
00000370: 44 45 54 45 52 4D 49 4E 41 4E 54 45 00 9C 0B 62 |DETERMINANTE...b|
00000380: 02 99 22 11 D5 4E 54 45 52 44 45 54 45 52 4D 49 |.."..NTERDETERMI|
00000390: 4E 41 4E 54 45 3A 20 22 20 44 45 54 00 A2 0B 8A |NANTE: " DET....|
000003A0: 02 F2 00 A8 0B DE 03 3A 00 BA 0B E8 03 2E 44 45 |.......:......DE|
000003B0: 54 45 52 4D 49 4E 41 4E 54 45 00 DF 0B F2 03 8F |TERMINANTE......|
000003C0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
000003D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
000003E0: 01 0C FC 03 8F 22 20 C4 49 45 20 CD 41 54 52 49 |....." .IE .ATRI|
000003F0: 58 20 C1 20 41 55 46 20 C4 52 45 49 45 43 4B 53 |X . AUF .REIECKS|
00000400: 2D 00 26 0C 01 04 8F 22 20 47 45 53 54 41 4C 54 |-.&...." GESTALT|
00000410: 20 42 52 49 4E 47 45 4E 3B 20 4D 49 54 20 D3 50 | BRINGEN; MIT .P|
00000420: 41 4C 54 45 4E 2D 00 4A 0C 06 04 8F 22 20 50 49 |ALTEN-.J...." PI|
00000430: 56 4F 54 53 55 43 48 45 2E 20 C4 49 45 20 C4 45 |VOTSUCHE. .IE .E|
00000440: 54 45 52 4D 49 4E 41 4E 54 45 00 6E 0C 10 04 8F |TERMINANTE.n....|
00000450: 22 20 44 45 54 20 49 53 54 20 44 41 4E 4E 20 44 |" DET IST DANN D|
00000460: 41 53 20 D0 52 4F 44 55 4B 54 20 44 45 52 00 87 |AS .RODUKT DER..|
00000470: 0C 15 04 8F 22 20 C4 49 41 47 4F 4E 41 4C 45 4C |...." .IAGONALEL|
00000480: 45 4D 45 4E 54 45 2E 00 99 0C 1A 04 8F 22 20 D0 |EMENTE......." .|
00000490: 41 52 41 4D 45 54 45 52 3A 00 B3 0C 24 04 8F 22 |ARAMETER:...$.."|
000004A0: 20 20 20 C1 28 4E 2C 4E 29 20 20 20 20 CD 41 54 | .(N,N) .AT|
000004B0: 52 49 58 00 D4 0C 2E 04 8F 22 20 20 20 5A 4C 28 |RIX......" ZL(|
000004C0: 4E 29 20 20 20 20 20 45 4E 54 48 41 45 4C 54 20 |N) ENTHAELT |
000004D0: 30 2E 2E 4E 00 F9 0C 38 04 8F 20 2D 2D 2D 2D 2D |0..N...8.. -----|
000004E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 13 0D 42 04 44 45 |---------...B.DE|
00000500: 54 B7 31 20 3A 8F 20 56 4F 52 42 45 53 45 54 5A |T.1 :. VORBESETZ|
00000510: 55 4E 47 00 19 0D 47 04 3A 00 29 0D 4C 04 81 20 |UNG...G.:.).L.. |
00000520: 4B B7 30 20 A4 20 4E AB 31 00 48 0D 56 04 50 5A |K.0 . N.1.H.V.PZ|
00000530: B7 4B 20 20 20 20 20 20 20 20 20 3A 8F 20 50 49 |.K :. PI|
00000540: 56 4F 54 5A 45 49 4C 45 00 69 0D 60 04 50 B7 41 |VOTZEILE.i.`.P.A|
00000550: 28 4B 2C 5A 4C 28 4B 29 29 20 3A 8F 20 50 49 56 |(K,ZL(K)) :. PIV|
00000560: 4F 54 45 4C 45 4D 45 4E 54 00 92 0D 7E 04 8F 20 |OTELEMENT...~.. |
00000570: 50 3D 20 42 45 54 52 41 47 53 47 52 4F 45 53 53 |P= BETRAGSGROESS|
00000580: 54 45 53 20 53 50 41 4C 54 45 4E 45 4C 45 4D 45 |TES SPALTENELEME|
00000590: 4E 54 00 A2 0D 88 04 81 20 49 B7 4B AA 31 20 A4 |NT...... I.K.1 .|
000005A0: 20 4E 00 CF 0D 92 04 8B 20 BC 20 41 28 4B 2C 5A | N...... . A(K,Z|
000005B0: 4C 28 49 29 29 20 B6 20 BC 20 50 20 A7 20 50 5A |L(I)) . . P . PZ|
000005C0: B7 49 3A 50 B7 41 28 4B 2C 5A 4C 28 49 29 29 00 |.I:P.A(K,ZL(I)).|
000005D0: D7 0D 9C 04 82 20 49 00 E9 0D A6 04 8B 20 50 5A |..... I...... PZ|
000005E0: B7 4B 20 A7 20 31 32 33 30 00 21 0E B0 04 8F 20 |.K . 1230.!.... |
000005F0: 5A 45 49 4C 45 4E 56 45 52 54 41 55 53 43 48 55 |ZEILENVERTAUSCHU|
00000600: 4E 47 20 3D 3E 20 44 45 54 20 57 45 43 48 53 45 |NG => DET WECHSE|
00000610: 4C 54 20 49 48 52 20 56 4F 52 5A 45 49 43 48 45 |LT IHR VORZEICHE|
00000620: 4E 00 3D 0E BA 04 F4 20 5A 4C 28 50 5A 29 2C 5A |N.=.... ZL(PZ),Z|
00000630: 4C 28 4B 29 3A 44 45 54 B7 AB 44 45 54 00 43 0E |L(K):DET..DET.C.|
00000640: C4 04 3A 00 5C 0E CE 04 8B 20 50 B7 30 20 A7 20 |..:.\.... P.0 . |
00000650: 44 45 54 B7 30 3A F0 20 31 35 30 30 00 9C 0E D8 |DET.0:. 1500....|
00000660: 04 8F 20 56 49 45 4C 46 41 43 48 45 53 20 44 45 |.. VIELFACHES DE|
00000670: 52 20 50 49 56 4F 54 5A 45 49 4C 45 20 56 4F 4E |R PIVOTZEILE VON|
00000680: 20 44 45 4E 20 41 4E 44 45 52 45 4E 20 5A 45 49 | DEN ANDEREN ZEI|
00000690: 4C 45 4E 20 41 42 5A 49 45 48 45 4E 00 AC 0E E2 |LEN ABZIEHEN....|
000006A0: 04 81 20 49 B7 4B AA 31 20 A4 20 4E 00 CA 0E EC |.. I.K.1 . N....|
000006B0: 04 4C B7 41 28 4B 2C 5A 4C 28 49 29 29 AD 50 20 |.L.A(K,ZL(I)).P |
000006C0: 20 3A 8F 20 46 41 4B 54 4F 52 00 DA 0E F6 04 81 | :. FAKTOR......|
000006D0: 20 4A B7 4B AA 31 20 A4 20 4E 00 01 0F 00 05 41 | J.K.1 . N.....A|
000006E0: 28 4A 2C 5A 4C 28 49 29 29 B7 41 28 4A 2C 5A 4C |(J,ZL(I)).A(J,ZL|
000006F0: 28 49 29 29 AB 41 28 4A 2C 5A 4C 28 4B 29 29 AC |(I)).A(J,ZL(K)).|
00000700: 4C 00 09 0F 0A 05 82 20 4A 00 11 0F 1E 05 82 20 |L...... J...... |
00000710: 49 00 19 0F 28 05 82 20 4B 00 1F 0F 6E 05 3A 00 |I...(.. K...n.:.|
00000720: 3C 0F 78 05 8F 20 50 52 4F 44 55 4B 54 20 44 45 |<.x.. PRODUKT DE|
00000730: 52 20 44 49 41 47 4F 4E 41 4C 45 4E 00 4A 0F 82 |R DIAGONALEN.J..|
00000740: 05 81 20 4B B7 30 20 A4 20 4E 00 61 0F 8C 05 44 |.. K.0 . N.a...D|
00000750: 45 54 B7 44 45 54 AC 41 28 4B 2C 5A 4C 28 4B 29 |ET.DET.A(K,ZL(K)|
00000760: 29 00 69 0F 96 05 82 20 4B 00 6F 0F DC 05 8E 00 |).i.... K.o.....|
00000770: 00 00 |.. |
....... **********************.;.... * D
ETERMINANTEN UND *.X.... * UNTERDETERMI
NANTEN *.U.(.. * EINER N*N-MATRIX *...
2.. **********************...<.. 30.7.87
MARTIN AHLBORN...P.:.F.D..".":. 10.50..
.H.. "ZEILEN-/SPALTENZAHL DER MATRIX";N.
..R.N.N.1 :. INDEX 0..N-1.).... ZL(N)
:. ZEILENINDIZES.H.... A (N,N) :. EINGA
BEMATRIX.E.... A1(N,N) :. KOPIE DAVON.K.
".:...,.."EINGABE ZEILENWEISE:"...6.. I.
0 . N...@.....J.. J.0 . N.I.T.."A("I.1",
"J.1")";:. A(J,I).Q.^.. J...H.ZL(I).I :.
VORBESETZUNG 0..N...R.. I...|.. A1 . .
A :. KOPIEREN.....:./.... .DETERMINANTE.
J....".DETERMINANTE: " DET.P...:.V......
....".UNTERDETERMINANTE BERECHNEN? (J/N)
"......:. A$:. . A$..""...... A$.."J" .
......:...... A . . A1...!.. ".ZEILEN-,
SPALTENINDEX";I,J...&.I.I.1:J.J.1...+..
ZEILE I UND SPALTE J STREICHEN.$.0.. K.0
. N.<.:.A(J,K).0 : A(K,I).0.V.?.ZL(K).K
:. NEU ORDNEN.\.D...I.N.A(J,I).1.|.X...
DETERMINANTE...B..".UNTERDETERMINANTE: "
DET...........:......DETERMINANTE......
------------------------------......" D
IE MATRIX A AUF DREIECKS-.&...." GESTALT
BRINGEN; MIT SPALTEN-.J...." PIVOTSUCHE
. DIE DETERMINANTE.N...." DET IST DANN D
AS PRODUKT DER......" DIAGONALELEMENTE..
....." PARAMETER:...$.." A(N,N) MAT
RIX.T...." ZL(N) ENTHAELT 0..N...8
.. ------------------------------...B.DE
T.1 :. VORBESETZUNG...G.:.).L.. K.0 . N.
1.H.V.PZ.K :. PIVOTZEILE.I.`.P.A
(K,ZL(K)) :. PIVOTELEMENT...~.. P= BETRA
GSGROESSTES SPALTENELEMENT...... I.K.1 .
N.O.... . A(K,ZL(I)) . . P . PZ.I:P.A(K
,ZL(I)).W.... I...... PZ.K . 1230.!....
ZEILENVERTAUSCHUNG => DET WECHSELT IHR V
ORZEICHEN.=.... ZL(PZ),ZL(K):DET..DET.C.
D.:.\.N.. P.0 . DET.0:. 1500...X.. VIELF
ACHES DER PIVOTZEILE VON DEN ANDEREN ZEI
LEN ABZIEHEN...... I.K.1 . N.J...L.A(K,Z
L(I)).P :. FAKTOR.Z.... J.K.1 . N.....A
(J,ZL(I)).A(J,ZL(I)).A(J,ZL(K)).L......
J...... I...(.. K...N.:.<.X.. PRODUKT DE
R DIAGONALEN.J.... K.0 . N.A...DET.DET.A
(K,ZL(K)).I.... K.O.......
> CLICK IMAGE PREVIEW FOR FULL MODAL