Publicité
LISTE DU PROGRAMME
1 9 '•
20:
30:
40:
50:
60:
70:
30:
90:
100:
110:
120:
130:
140:
150:
160:
170:
130:
190:
200:
210:
220:
230:
240:
250:
270:
230:
290:
300:
310:
320:
330:
340
350:
360:
370:
R E M * * * + + * * * * * * + * + * *
REM * MATRIX CALC. +
REM :*#*****:*# + # + *++*
" A": CLEAR : CLS :
UAIT 8
INPUT "DEGREES=
t
-';N
H=H-1
DIM A(NjH)
GOSUB 230
F=0
IHPUT "PRIHT DUT DAT
A (Y/H>";0$
IF 0*="H" THEH 140
IF 0$<>
M
Y" THEH 90
G03UB 350
IHPUT "AMEND DATA (Y
/NT 50*
IF (0$="H">*(F=0)
THEH 200
IF (0$="N
M
)*<F=1)
THEH 90
IF Q * < >
¥
Y
W
THEH
CUR3ÛR 0>3: GOTO 140
G03UB 450
GOTO 140
GOSUB 530
CLS
END
L=1
FOR 1=9 TO N
FOR J=0 TO H
AA$ = ''A<" + STR$
+ ",«+ STR*
PRIHT AA$!
CUR30R LEH
INPUT rtd-J)
L=L+l: IF L=4 THEH
LET L=3
CURSOR
HEXT J
HEXT I
RETURH
FOR 1=0 TO H
FOR J=0 TO H
AA$="A('
J
+ STR$ (1 + 1)
+ '••,
v
+ STR$ (J + l) + "> =
400:HEXT I
410:LPRIHT
420:RETURH
430: CLS
440: PRIHT
V
X =
Y="
45y:CURSOR 2.0: INPUT X
460: IF (X<1)+(X>H+1)
THEH 450
470:CURSOR 19^0: INPUT Y
430: IF ( Y < 1 > + < Y > N + 1 >
THEH 470
490:CUR30R
500:AA$ =
1
'A(
v
-t- STR* (X) +
M
? "+ STR$ <Y) +
V
> = ' - '
510:PRINT A A * J A < X - 1 » Y - 1 )
52«: PRIHT AA$
530:CUPSOR LEH (AA$)«2
540:IHPUT A(X-1»Y-1)
550:CLIR30R
560:F=1
570:RETURH
530: FOR M=H TU 1 3TEP -1
590:P=A<M>M>
600: IF P=0 THEH 760
6 10: FOR 1=0 TO M-l
620:Q=A(I«M)/P
630: FOR J=0 TO M
640:A(I« J)=A(I»J)-Q*A<Mi
J)
650:HEXT J
660:HEXT I
670:HEXT M
630:D=A(0.0)
690: FOR 1=1 TO H
700:D=D+A(I. I)
710:HEXT I
720:BEEP 1
730:LPRIHT "d9t= " J D
740:LPRIHT : LPRIHT
750:RETURN
760:BEEP 2: CLS
770: PRIHT "CALCULATE If1P
30
OSSIBLE i !
EHD
985 octets
330:LPRIHT AA$!A(I» J)
390:HEXT J
260
Publicité
