APPLICATIONSDIVERS ★ Equations ★

Two-value simultaneous linear equations (Amstrad Computer User)Applications Divers
★ Ce texte vous est présenté dans sa version originale ★ 
 ★ This text is presented to you in its original version ★ 
 ★ Este texto se presenta en su versión original ★ 
 ★ Dieser Text wird in seiner Originalfassung präsentiert ★ 
Here's something that's definitely for the more mathematically orientated of us, offering a solution to any 2-value simultaneous linear equation. It goes along the lines of: find two numbers
such that twice the first plus three times the second is equal to 12, and three times the first plus five times the second equals 19. e.g.: 2x + 3y = 12 3x + 5y = 19 The solution is, of course, x=3 and y=2. Good luck and see how you fare.

1 'Two-value simultaneous linear equations
2 'by Damon Schultz
3 MODE 1:CALL &BB4E:CALL &BC02:WINDOW#0,1,40,3,25:WINDOW#1,1,40,1,2:DIM matrix(2,1):SYMBOL AFTER 240:SYMBOL 240,0,0,0,&40,&C0,&40,&40,&E0:SYMBOL 241,0,0,0,&C0,&20,&40,&80,&E0
4 PRINT" Two value simultaneous linear equations";:PRINT#1,CHR$(13)CHR$(22)CHR$(1)STRING$(39,"_")CHR$(22)CHR$(0):PRINT:PRINT"These are of form :":PRINT
5 FOR a=240 TO 241:LOCATE 10,VPOS(#0):PRINT"a"CHR$(a)"x+b"CHR$(a)"y=c"CHR$(a)" ("RIGHT$(STR$(a-239),1)")":PRINT:NEXT
6 PRINT:FOR a=240 TO 241:FOR b=97 TO 99:LOCATE 1,VPOS(#0):PRINT"Enter value for : "CHR$(b)CHR$(a);:INPUT;" ",matrix(b-97,a-240):LOCATE 22,VPOS(#0):PRINT SPACE$(10);:NEXT b:NEXT a
7 CLS#0:PRINT:FOR a=0 TO 1:LOCATE 10,VPOS(#0):PRINT matrix(0,a)CHR$(8)"x+ "matrix(1,a)CHR$(8)"Y= "matrix(2,a)CHR$(8)" ("RIGHT$(STR$(a+1),1)")":PRINT:NEXT
8 PRINT:det=matrix(0,0)*matrix(1,1)-matrix(1,0)*matrix(0,1):IF det=0 THEN PRINT" These equations cannot be solved simultaneously.":PRINT:END
9 x=(matrix(1,1)*matrix(2,0)-matrix(1,0)*matrix(2,1))/det:y=(matrix(0,0)*matrix(2,1)-matrix(0,1)*matrix(2,0))/det
10 PRINT" x ="x;:LOCATE 25,VPOS(#0):PRINT"y ="y:PRINT:PRINT:PRINT"Press any key to restart, or to end":i$="":WHILE i$="":i$=UPPER$(INKEY$):WEND:IF i$="E" THEN END ELSE RUN

★ PUBLISHER: Amstrad Computer User
★ ANNÉE: ???
★ AUTHOR: Damon Schultz

CPCrulez[Content Management System] v8.7-desktop
Page créée en 057 millisecondes et consultée 537 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.