> ()L  ();V `  p d ();:v n o HO3 HO3 p VE VE q ();"=";(VE );(HO ); s xHO( Z):VE( [) yVEVE z HO HOHO:VEVE7 {VEVE( b): VE VE VE= |I IN$:b : IN$"" h w ();: RV(): FR(): ,SR$(SR) -Q7(SR$): Q7 . (SR$,)" " 0 /SR$(SR$,Q7): - 0 (SR$,)" " ( 1SR$(SR$,Q7): -@ 6Q4SR: CN <` 8SR(SR): ,: J <Q5(SR):SR(SR):Q8(SR):Q9SRQ8 > Q6 CN:Q9Q9 : Q6 @Q9(Q9):SRQ9: , BQ9$("00000000000000000000"SR$,CN) D Q8 Q9 Q52 FSRQ8: ,: Q5 SR$"-"SR$F HSR$SR$"."Q9$^ J (SR$)CT N LSR$("********************",CT): T NSR$(" "SR$,CT) TSRQ4: ^ SR$;: h: A2:: RESERVEER STRINGRUIMTE: UITLEGd/J:K:Q:I:DU"* Oplossen LINEAIR STELSEL *":f"ORDE ";:NpMN$A(M,N):.KN8:KNϑ"vektor";:LB:"kolom";K;L:JMV::x:HO :n`::"#";J;j::A(J,K)t:J: ~K!IM:A(I,N)I:)D6KNL:IK:Q(A(K,K))Z:JMKo::R(A(JK,K))::QRQR:IKJ:J:IK2 :DD:JN::QA(K,J):A(K,J)A(I,J):A(I,J)Q(:J2:DDA(K,K):D <:IMK F::QA(I,K)A(K,K)/P::A(I,K)Q>Z::JKM\d:::A(I,J)A(I,J)QA(K,J)en::Jmx:ItKDDA(M,M)"determinant= "D:Dϑ"geen oplossing":: :KM:QA(K,N):J :JKQQA(J,N)A(K,J):JJ::A(K,N)Q!K/KM=":QA(K,N)F,:JMm6:JKQQA(J,N)A(K,J):JJ:6@:A(K,N)QA(K,K)JKT:IM:SRI:,:"x";SR$;" = ";A(I,N)I:4:"Wilt u een andere vektor ";>HA$"n"A$"N" &R"Vektor";1\KM:f:IWp:A(I,N)KII:plz:x:HO :n{:"#";K;:A(I,N):: "Wilt u een andere matrix ";  A$"n"A$"N"ρ  :A$A$(A$,) ::dH"* Oplossen van een LINEAIR STELSEL *":v"Als voorbeeld een stelsel van ORDE 3 :"|" ( 2 x1 + 3 x2 - x3 = 5"" ( -3 x1 + x2 + 2 x3 = 5"" ( x1 - x3 = -2""De orde van dit stelsel is 3 omdat er"J"drie vergelijkingen met drie onbekenden"W"zijn."]"In dit stelsels komen vier KOLOMMEN of" "ook wel VECTOREN voor, namelijk de ""kolom getallen voor de variabele x1, de""kolom voor de x2, de kolom voor de x3,"B("en tenslotte de kolom (ofwel de VEKTOR)"j2"getallen rechts van het = teken."s<p|PdZ"Voor het oplossen van dit stelsel:"dn" ( 2 x1 + 3 x2 - x3 = 5"x" ( -3 x1 + x2 + 2 x3 = 5"" ( x1 - x3 = -2"I"moet u mij eerst de orde opgeven en"m"vervolgens de vier kolommen."u:"In dit voorbeeld dus ORDE=3""kolom 1: 2 , -3 , 1""kolom 2: 3 , 1 , 0 ""kolom 3: -1 , 2 , -1""Vektor : 5 , 5 , -2"#N"Daarna bereken ik de juiste waarden"t"voor x1, x2 en x3 en meldt ze."}p:pHO:VE:nz"druk op de spatiebalk voor het vervolg";:IN$" ":''" LINEAIRE STELSELS OPLOSSEN9$'" ==========================?.'`8' DEZE VERSIE NOVEMBER 1982B'" bewerkt voor BASICODE-2L'" door leden van deV'" BASICODE-groep`'j't'"Oorspronkelijke versie uit~'"1980, destijds ingezonden)'"voor de HOBBYSCOOP-wedstrijd/'5'L' DOOR :R'm'" P.J.H. van LIS'" Hereweg 86-2a'" 9725 AH GRONINGEN'" ===================='R'm'" P.J.H. van LIS'" Hereweg 86-2a'" 9725 AH GRONINGEN'" ======