ZXTape! 2u MATRICES Y SISTEMAS LINEALESABC SOFTS. PEREZ & R. GALLO1984SPANISH EDUCATIVENONE ORIGINAL TAPECAR 03matr D64000:((23613=\)+256*(23614>\)),0:((23613=\)+256*(23614>\)+1),0:0:0:0::i=16:.1}L,i:i:"":0;0;10 ,0;:""  tv @ 8800<<<<<<<<<<88DD00<<<<<<<<<<DD(((x<<<<<<>>D<?????<<<<D>DD<?????<<<<|8|8|08|<<<????<\:dir,0:dir+1,0 +10 ,0;0;0;:"" "1":ڰ"1":ٰ"1": Fcoj="0":cero="0":cambio="1":pot="0":f="1":c="1":a(f,c):f1="1":c1="1":b(f1,c1):f2="1":c2="1":c(f2,c2):f3="1":c3="1":d(f3,c3):control="2":h$=".":visu="0":j$="===============================":error="0":f1="0":c1="0":z$="pulsa una opcion":"23606","112":"23607","251":"23609","20" :ڰ"1":"1":ٰ"7": :::::ܰ"1":x$=" este programa puede realizar todas las operaciones relati- vas al calculo matricial y -- permite conservar una matriz cualquiera para posteriores - operaciones.":i="1"̱x$:x$(i);:i x$=" asi mismo resuelve sistemas lineales, utilizando un algo- ritmo que no precisa divisio- nes al triangularizar las ma- trices, evitando errores de - truncamiento.":::i="1"̱x$:x$(i);:i:ܰ"0":"8400" kult="0":ܰ"1":a$=""::ٰ"4":p$="* menu *":xs="3":ys="3":xx="0":yy="20":cs="8":"9000":ٰ"7" p$="1- calculo ":xs="2":ys="1":yy="90":cs="8":"9000":p$=" matricial":yy="100":"9000":p$="2- resolucion de":yy="125":"9000":p$=" sist lineales":yy="135":"9000"  "6100"  "6102" w$="1"cal="0":"100" !w$="2"cal="1":"4900" ""31" dqult="0":error="0":contador="1"::ٰ"4":p$=" opciones ":xs="2":ys="2":cs="8":yy="8":"9000":ٰ"7" npab="0":ٰ"3";"5","3";"1.- ";"7","3";"2.- ";"9","3";"3.- ";"11","3";"4.- ";"13","3";"5.- ";"15","3";"6.- ";"17","3";"7.- ";"19","3";"8.- ";ٰ"7";"5","7";"suma de matrices";"7","7";"resta de matrices";"9","7";"producto de matrices";"11","7";"potencia de una matriz";"13","7";"traspuesta de una matriz";"17","7";"rango de una matriz";"19","7";"valor del determinante";"15","7";"inversa de una matriz" w "6100" x"6102":a$=w$ a$<"49"ůa$>"56""120" a$<"4"contador="2" E"6000":"19","6";"5.- ";ٰ"3";"19","10";"retorno a opciones" "6100" "6102":b$=w$ b$<"49"ůb$>"53""137" Q("100"b$="5")+("200"b$="1")+("300"b$="2")+("400"b$="3")+("500"b$="4") (p$="primera matriz":pab="1":"7500" "6100" "6102":c$=w$ (c$="2"matriz="1":ult="1":"1000" c$"1""207" posx="20":posy="21":dato="1"::"21","0";"numero de filas ":"7900":f=v$:"21","0";"numero de columnas ":"7900":c=v$:a$="4""21","0";"a que exponente ?":"7900":pot=v$ -"8900":f*c>memo"8905":"3150":"135" ;a(f,c):a$="4"a$="6"a$="8""3120":error="1""135" a$="8"a(f,c+"1"):"215" a$="7""8200" :"12","9";"coeficientes" 5ult="1":dato="0":posx="11":i="1"f:j="1"c ?"21","0";"a(";(i);",";(j);")= ":"7900":a(i,j)=v$:j:i contador="1""135" *error="0":p$="segunda matriz":"7500" "6100" "6102":c$=w$ c$="2"matriz="2":"1000" c$"1""226" :dato="1":posx="20":"21","0";"numero de filas ":"7900":f1=v$:"21","0";"numero de columnas ":"7900":c1=v$:"3000":error="1""135" /"8900":f1*c1>memo"8905":"3150":"135" (:b(f1,c1):"12","9";"coeficientes" -dato="0":posx="11":i="1"f1:j="1"c1 G"21","0";"b(";(i);",";(j);")= ":"7900":b(i,j)=v$:j:i:"135" ,pab="0""135" -:ٰ"4":p$="visualizar":yy="60":"9000":ٰ"7":ٰ"6";"13","9";"1.- matriz a";"15","9";"2.- matriz b";"17","9";"3.- ambas":"6100" ."6102":f$=w$ /f$"1"f$"2"f$"3""302" @f$="2""333" B t=f:r=c C "7200" Gvisu="1"visu="0":"135" Hcontador="1""135" Ivisu="0"f$"3""135" Mcontador="1""135" Nvisu="1":t=f1:r=c1:"323" q:ٰ"4":p$="correccion":yy="60":"9000":ٰ"7":ٰ"6";"14","10";"1.- matriz a";"17","10";"2.- matriz b"  "6100" "6102":f$=w$ f$"1"f$"2""402" )ult="0"(f$="2"contadorɰ"2")"135" :dato="1":posx="23":"21","0";"correccion en fila? ":"7900":d$=v$:"21","0";"correccion en columna?":"7900":e$=v$:dato="0":posx="20":"21","0";"valor correcto? ":"7900":g$=v$ G(d$>ff$="1")(e$>cf$="1")(d$>f1f$="2")(e$>c1f$="2")"415"  f$="1"a(d$,e$)=g$:"430" b(d$,e$)=g$ /:"21","0";"hay mas correcciones (s/n)? " ="s""400" ="n""135" "431" error="1"ult="0""135"  "7000" ٰ"7":("600"a$="1")+("605"a$="2")+("610"a$="3")+("615"a$="4")+("620"a$="5")+("625"a$="6")+("630"a$="7")+("635"a$="8")  "7100":"7207":t=f2:r=c2  Bi="1"t:j="1"r:i$=c(i,j):i$=(((i$*"10000"))/"10000")  a$="1"a$="2"a$="5""527"  "7800" o="1"̱i$:h$=i$(o)"530" o `#control;linea,"5";"c(";i;",";j;")";linea,"20"-o;i$:linea=linea+"1":linea<"19""535"  control="2""8400":"7207" fj:i:"8400":control="2"::"20","0";"quieres almacenar alguna matriz (s/n)? ":="n""550" Z"s""23618","535"-"256"*("535"/"256"):"23619",("535"/"256"):"23620","6" ':"21","0";"que matriz (a/b/c)? " "a"Ʀ"b"Ʀ"c""539" Tf$=:f3=f*(f$="a")+f1*(f$="b")+f2*(f$="c"):c3=c*(f$="a")+c1*(f$="b")+c2*(f$="c") }f$="a"f1="1":c1="1":b(f1,c1):f2="1":c2="1":c(f2,c2):d(f3,c3):i="1"f3:j="1"c3:d(i,j)=a(i,j):j:i:"550" yf$="b"f="1":c="1":f2="1":c2="1":a(f,c):c(f2,c2):d(f3,c3):i="1"f3:j="1"c3:d(i,j)=b(i,j):j:i:"550"  if="1":c="1":f1="1":c1="1":a(f,c):b(f1,c1):d(f3,c3):i="1"f3:j="1"c3:d(i,j)=c(i,j):j:i &:p$="pulsa":xs="2":ys="2":cs="8":yy="56":"9000":p$="m- para menu ":ys="1":yy="96":"9000":"560":p$="s- para salir ":yy="160":"9000" 'f$=:f$="""551" (f$="m""11" )f$="o""100" *f$="s""0" +"551" 07cal="0"p$="o- para opciones":yy="128":"9000": 1 XJf2=f:c2=c:c(f2,c2):i="1"f2:j="1"c2:c(i,j)=a(i,j)+b(i,j):j:i: ]Jf2=f:c2=c:c(f2,c2):i="1"f2:j="1"c2:c(i,j)=a(i,j)-b(i,j):j:i: bf2=f:c2=c1:c(f2,c2) cHi="1"f2:j="1"c2:m="1"c:c(i,j)=c(i,j)+a(i,m)*b(m,j):m:j:i: gWf2=f:c2=c:c(f2,c2):c1=c:f1=f:b(f1,c1):i="1"f2:j="1"f2:b(i,j)=a(i,j):j:i iMn="1"pot:"611":n=pot-"1"i="1"f1:j="1"c1:a(i,j)=b(i,j):j:i: j8i="1"f2:j="1"c2:a(i,j)=c(i,j):j:i:c(f2,c2):n lCf2=c:c2=f:c(f2,c2):i="1"f2:j="1"c2:c(i,j)=a(j,i):j:i: qaf1=f:c1=c:f2=f:c2=c:b(f1,c1):c(f2,c2):i="1"f:j="1"c:b(i,j)=a(i,j):i=jc(i,j)="1" rj:i:"800" vn=(ffc)+(cc>f) waa("1","1")="0""8000":cero="1""8300":("631"n>"1")+("632"n="1")+("633"n="0") x="5009":coj=(llcoj)+(cojl"0""631" yl=coj:coj="0":"7100":w$="1":p$="rango:":yy="80":xx="80":xs="1":ys="2":"9001":p$=l:xx="130":"9001":"640" z#"3";"rango ",l:"640" {!n=f:a("1","1")="0""8000" |&cero="1"e="0":cero="0":"638" }"5009":"7100" ~pw$="1":p$="determinante:":yy="80":xx="50":xs="1":ys="2":"9001":p$=e:xx="160":"9001":"640" #"3";"determinante ";e "8400":"550" R k="1"f Sp=b(k,k):pɰ"0""855" TGw=k+"1"f:b(w,k)="0"w:v$="NO INVERTIBLE":3150N :135 UGq=1f:b(k,q)=b(k,q)+b(w,q):c(k,q)=c(k,q)+c(w,q):q:851S W/j="1"f:b(k,j)=b(k,j)/p:c(k,j)=c(k,j)/p:j \i="1"f:i=k920 a q=b(i,k) f"j="1"f:b(i,j)=b(i,j)-b(k,j)*q kc(i,j)=c(i,j)-c(k,j)*q pj i:k: $contadorɰ"1"matriz="2""1100" Kf=f3:c=c3:error="0":a$="4"a$="6"a$="8""3120":error="1""135" a(f,c) a$="7""8200" )i="1"f:j="1"c:a(i,j)=d(i,j):j:i U:a$="4"posx="20":dato="1":"21","0";"a que exponente ?":"7900":pot=v$ /("135"contador="1")+("224"contador="2") L7error="0":f1=f3:c1=c3:"3000":error="1""135" V=b(f1,c1):i="1"f1:j="1"c1:b(i,j)=d(i,j):j:i:"135" a$="1"a$="2""3100" a$="3""3110" a$="5" "3120" 2ff1cc1v$="matrices no compatibles":"3150" ! "3125" &-cf1v$="matrices no compatibles":"3150" + "3125" 0'fcv$="matriz no cuadrada":"3150" 5error="0": N:p$=" no hay ":xs="3":ys="6":xx="0":yy="25":cs="8":"9000":p$="solucion":xx="0":yy="80":"9000":"18","15"-(v$/"2");v$:"8400" Perror="1": $ "6000":"6100" % "6102" &-f$=w$:f$"1"f$"2"f$"3"f$"4""4901" 'Lf$=w$:("4904"f$="1")+("5390"f$="3")+("5004"f$="4")+("5490"f$="2") (cult="1"::dato="1":posx="20":posy="21":"21","0";"numero de variables ":"7900":n=v$ )5"8900":n*(n+"2")>memo"8905":"3150":"4900" *b(n):a(n,n+"1") -+dato="0":posx="21":i="1"n:j="1"n .L"21","0";"coeficiente (";(i);" ";;(j);") = ":"7900":a(i,j)=v$:j:i 0#:dato="0":posx="20":i="1"n 1G"21","0";"term. indpte (1,";(i);")= ":"7900":a(i,n+"1")=v$:i 3 "4900" ult="0""4900" a("1","1")="0""8000" Mcero="1"v$="sist. no compatible o indeterm.":"3150":cero="0":"550" "5008":"550" :"7000":ٰ"7" s="0":c="1" hi=c+"1"n:j=c+"1"n+"1":a(i,j)=a(i,j)*a(c,c)-a(c,j)*a(i,c):j:i:j=c:i=c+"1"n:a(i,j)="0":i ;c=n("5100"cal="1")+("5200"a$="7")+("5200"a$="8")  "5015" c=c+"1":"5010"  a(c+"1",c+"1")ɰ"0""5013" c+"1"=n"5050" h="1"  s=s+"1" "a(c+h+"1",c+"1")ɰ"0""5060" !h=h+"1":h>n-(c+"1")"5050"  "5018" ;cal="1"v$="sist. no compatible o indeterm.":"3150": cal="0"a$="8"e="0":  "5013" jj=c+"1"n+"1":a=a(c+"1",j):a(c+"1",j)=a(s+"2",j):a(s+"2",j)=a:j:cambio =cambio*"-1":"5013" +a="0":b(n)=a(n,n+"1")/a(n,n):b=n-"1" b="0""5150" Xj=b+"1"n:a=a+a(b,j)*b(j):j:b(b)=(a(b,n+"1")-a)/a(b,b):a="0":b=b-"1":"5101"  "7100" #:control="3""5170" ( "5190" 2Ki="1"n:#control;i+"4","0";"solucion ";i; "=";:i$=b(i):"5180":i 4 "8400": <o="1"̱i$:h$=i$(o)"5182" =o >Ai+"4","20"-o;i$:i+"4"="19"controlɰ"3""8400":"5190" A F,:"1","11";"resultados";"2","0";j$: P0l="0":d="1":i="1"n:a(i,i)="0""5202" Q l=l+"1" Rd=d*a(i,i):i S a$="7" e="1" i="1"f-"1" Ha(i,i)<"0"pro="1":j="1"f-i:pro=pro*a(i,i):j:e=e*pro:"5254" e=e*a(i,i)^(n-i) %i:e=d/e:e=e*cambio:cambio="1": ult="0""4900" :ٰ"4":xs="2":ys="1":p$="correccion":yy="60":"9000":ٰ"7":ٰ"6";"14","7";"1.- coeficientes";"17","7";"2.- terminos indeptes."  "6100" 6102 "":w$="1""5400" w$="2""5405"  "5393" :"12","9";"correccion":dato="1":posx="20":"21","0";"en coefte. fila? ":"7900":d$=v$:"21","0";"en coefte. col.?":"7900":e$=v$:dato="0":"21","0";"valor correcto? "; :"7900":g$=v$ (d$>n)(e$>n)"5400" a(d$,e$)=g$:"5410" :"12","9";"correccion":dato="1":posx="21":"21","0";"en termino indte.? (1,":"7900":e$=v$:dato="0":posx="20":"21","0";"valor correcto? ":"7900":g$=v$ e$>n"5405" :a(e$,n+"1")=g$:"5410" "="21","0";"hay mas correcciones (s/n)? ":="s""5390" #="n""4900" $ "5410" rult="0""4900" s:ٰ"4":p$="visualizar":yy="60":"9000":ٰ"7":ٰ"6";"14","7";"1.- coeficientes";"17","7";"2.- terminos indeptes.":"6100" t"6102":w$="1""5500" uw$"2""5492" vJ:"7207":j="1"n:i$=a(j,n+"1"):f$="2":visu="1":i="1":"7700" w j:"8400" ylinea="4":"4900" |/f$="1":t=n:r=n:visu="0":"7200":"4900" p7:ٰ"5":p$="rutina":yy="24":ys="1":"9000":ٰ"7" z"7","6";"1.- ";"10","6";"2.- ";"13","6";"3.- ";"16","6";"4.- ";ٰ"3";"7","10";"entrada de datos";"10","10";"visualizacion datos";"13","10";"correccion de datos";"16","10";"calculo": "21","0";z$ w$=:w$="""6102"  X@ٰ"3"::p$="calculando":xs="3":ys="3":yy="40":"9000": ٰ"6"::۰"1":p$="fin ":xx="4":yy="40":xs="3":ys="3":"9001":p$="calculo":xx="88":"9001":۰"0":ٰ"7":ܰ"1":"15","4";"1.- visualizar resultado";"18","4";"2.- imprimir resultado"  "6100" "6102":f$=w$ f$"1"f$"2""7103" 'control="2"*(f$="1")+"3"*(f$="2"):  s"7207":i="1"t:j="1"r:z="1"*(f$="1"visu="0")+"2"*(f$="2"visu="1"):("7205"z="1")+("7206"z="2") ! "7700" "j:i:"8400": %i$=a(i,j): &i$=b(i,j): 'd:ٰ"7":#control;"0","3";"coeficientes";"0","21";"valores";"1","0";j$:linea="4":ܰ"1": L3:ٰ"4":xs="2":ys="1":yy="60":"9000":ٰ"6" ML"11","6";"1.- matriz nueva";"14","6";"2.- matriz almacenada":ٰ"7": o="1"̱i$:h$=i$(o)"7702" o z="1"*(f$="1"visu="0")+"2"*(f$="2"visu="1"):ܰ"1":linea,"5";("a("z="1")+("b("z="2");i;",";j;")";linea,"26"-o;i$:linea=linea+"1":linea="19""8400":"7207"  xsig="0":i$Ȱ"0""7802" yi$=((i$)):sig="1" zcom=i$-(i$) {%com>"0"com<".0002"i$=((i$)) |+comȰ"0.9997"com<"1"i$=((i$)+"1") }sig="1"i$=(i$*-"1") ~ +p$=" ":vvv="0":mmm="0":posy,posx;p$ v$="":c$=" ":lon="10" posx=posx+p$ posy,posx;" " s="1"̰"5":s l$=  l$="""7940" #(l$="13")(vvv="0")v$=v$+"." 8l$="13"v$=v$+"0":posy,posx-v$;ٰ"1";v$:"7997" v$="0""7990" !l$="12"v$(v$)="."vvv="0" "!l$="12"v$(v$)="-"mmm="0" '-l$="12"v$=v$(̱v$-"1"):posx=posx-"1" ,l$="12""7920" 1v$=lon"7940" 6'l$="46"vvv="0"vvv="1":"7996" 80l$="45"mmm="0"Ʊv$="0"mmm="1":"7996" :l$<"48"ůl$>"57""7920" <3v$=v$+l$:posy,posx;l$;:posx=posx+"1":"7920" =dato="0""7999" >;v$ǰ"0"(v$-(v$))ɰ"0"posx=posx-(v$-"1"):"7900" ?posx=posx-(v$-"1"): @"cambio="1":cero="0":t="2"n Ea(t,"1")ɰ"0""8020" Jt:cero="1": TVz="1"n+"1":val=a("1",z):a("1",z)=a(t,z):a(t,z)=val:z:cambio=cambio*"-1": fca(f,f+"1"): a(c,c+"1"): l?i="1"n-"1":j="2"n:a(i,j-"1")=a(i,j):j:i:n=n-"1": 1ܰ"1":"21","0";"PULSA UNA TECLA PARA SEGUIR" ="""8401"  "*memo="64000"-"7962":memo=memo/"5": ""v$="no hay espacio en memoria": #(xx=("256"-"8"*xs*p$)/"2" #)i="23306":i,xx:i+"1",yy:i+"2",xs:i+"3",ys:i+"4",cs:i=i+"4":w=p$:q="1"w:i+q,p$(q):q:i+w+"1","255":w="64091": mat (D\\(D;:"" :dir+1,0 ;0;0;:"" :dir+1,0 cm Z>![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[^2[: [G: [2 [*[{2[: [G: [2[: [O:[<2[ :[<2[ :[Ë@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(//??0000 0000?? llllll~X~~ F0H0Jr0  00l88l~~ ||8~|`||>BB<DHpHDB@@@@@~BfZBBBBbRJFB