10 REM ********************************
11 REM *                              *
12 REM * DEMO-PROGRAMM ZUR WIRKUNGS-  *
13 REM * WEISE DER BASIC-ERWEITERUNG  *
14 REM *     - MATRIXEXPRESS -        *
15 REM *                              *
16 REM * DR.U.CHRIST           1986   *
17 REM *                              *
18 REM ********************************
19 REM
20 IFA=0THENA=1:LOAD"MATRIXASS V3",8,1
22 POKE49162,96:SYS49152:POKE49162,32
24 REM
50 READ N : REM ANZAHL DER ZEILEN UND SPALTEN
52 N=N-1  : REM BEI N=3 ENTHAELT MATRIX 9 ELEMENTE
54 DIM AB(N,N),CD(N,N),EF(N,N),D
56 READK
58 GOTO1000
98 :
100 REM SEITE 0
102 REM -------
104 PRINTCHR$(147)
110 POKE50928,96:SYS50884:POKE50928,169
120 RETURN
198 ;
200 REM SEITE 1
202 REM -------
204 T1$="IM BEISPIEL EINGESETZTE MATRIZEN:"
210 GOSUB100
212 POKE211,0:POKE214,3:SYS58640
214 PRINTT1$:PRINT
218 PRINT" MATRIX (AB) ":PRINT
222 FORI=0TON:PRINTAB(I,0),AB(I,1),AB(I,2):NEXTI
224 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
226 POKE211,0:POKE214,11:SYS58640
228 PRINT" MATRIX (CD) ":PRINT
230 FORI=0TON:PRINTCD(I,0),CD(I,1),CD(I,2):NEXTI
232 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
234 POKE211,0:POKE214,17:SYS58640
236 PRINT" MATRIX (EF) ":PRINT
238 FORI=0TON:PRINTEF(I,0),EF(I,1),EF(I,2):NEXTI
240 T3$=" BITTE EINE TASTE DRUECKEN "
241 ST$=CHR$(18):Z=Z+1:IFZ=20THENZ=0:IFZ<5THENST$=CHR$(146)
242 POKE211,5:POKE214,23:SYS58640
243 PRINTST$T3$
244 GETA$:IFA$=""THEN241
250 RETURN
252 :
300 REM SEITE 2
302 REM -------
304 GOSUB100
310 POKE51148,96:SYS50884:POKE51148,32
312 POKE211,0:POKE214,22:SYS58640
314 PRINT"  BITTE WAEHLEN SIE EINEN BEFEHL AUS "
322 FORI=1TO7:POKE211,34:POKE214,5+2*I:SYS58640
324 PRINTCHR$(18)I
326 NEXTI
330 GETA$:IFA$=""THEN330
332 A=ASC(A$):IFA<49ORA>55THEN330
340 RETURN
342 :
400 REM SEITE 3
402 REM -------
410 T1$=" LOESUNG VON :"+T5$
412 GOSUB210:READX:READX:GOTO1000
430 RETURN
996 :
998 REM -------------------------------
1000 REM HAUPTPROGRAMM
1002 REM -------------
1004 FORI=0TON:FORJ=0TON:READAB(I,J):NEXTJ:NEXTI
1006 FORI=0TON:FORJ=0TON:READCD(I,J):EF(I,J)=0:NEXTJ:NEXTI
1010 RESTORE
1012 GOSUB200
1014 GOSUB300
1020 ONA-48GOTO1030,1040,1050,1060,1080,1090,1100
1026 :
1028 REM ******* EQUIVALENZ ***********
1030 @EQU,AB,CD
1031 T5$="  (CD)=(AB)  "
1032 GOSUB400
1036 :
1038 REM ******** ADDITION ************
1040 @ADD,AB,CD,EF
1041 T5$="  (EF)=(AB)+(CD) "
1042 GOSUB400
1046 :
1048 REM ******* SUBTRAKTION***********
1050 @SUB,AB,CD,EF
1051 T5$="  (EF)=(AB)-(CD) "
1052 GOSUB400
1056 :
1058 REM ***** PRODUKT MIT SKALAR *****
1060 GOSUB100
1062 PRINT:PRINT:PRINT"FUER DIE MULTIPLIKATION WURDE FOLGENDE"
1064 PRINT"KONSTANTE GEWAEHLT"
1066 PRINT:PRINT:PRINT"       K =",K
1067 GOSUB240
1070 @SKP,AB,K
1071 T5$="  (AB)=K*(AB) "
1072 GOSUB400
1076 :
1078 REM ****** MULTIPLIKATION ********
1080 @MUL,AB,CD,EF
1081 T5$="  (EF)=(AB)*(CD) "
1082 GOSUB400
1086 :
1088 REM ******* DETERMINANTE *********
1090 @DET,AB,D
1092 GOSUB100
1094 PRINT:PRINT:PRINT"DER WERT DER DETERMINANTE IST"
1095 PRINT:PRINT"      D=",D
1096 T5$=" DETERMINANTENRECHNUNG "
1097 GOSUB240:GOSUB400
1098 :
1099 REM *** ADJUNGIERTE U. INVERSE ***
1100 @INV,AB,CD,EF
1101 T5$="(EF)=INV(AB),(CD)=ADJ(AB)"
1102 GOSUB400
1200 END
1996 :
1998 :----------------------------------
2000 DATA 3    : REM ANZAHL DER ZEILEN UND SPALTEN
2002 :
2004 DATA 3.41 : REM KONSTANTE
2006 :
2008 REM ELEMENTE DER MATRIX (AB)
2010 DATA 1, 2, 2
2012 DATA 3, 1, 0
2014 DATA 1, 1, 1
2016 :
2020 REM ELEMENTE DER MATRIX (CD)
2022 DATA 1, 2, 3
2024 DATA 2,-1, 4
2026 DATA 0,-1, 1