E.-G. 9000(# "RECTIFICACIONES" 0'"CORRECTO ? ":0:="N"Ŧ="n":VUELTA  "FACTORIAL" FAC=1 S=1VALOR  FAC=FAC*S S  "POTENCIAS" &POT=0VALOR=1:35# T=1POT-1 VALOR=VALOR*VALOR !T # ("INPUT LINEAL" )O:"CONTINUACION ?":0:="S"Ŧ="s"J=1N:A(J)=C(J):J:46. +.:"ORDEN DE A?";:N:N:"ORDEN DE B?";:M:M ,"POLINOMIOS?":0:="S"Ŧ="s"A(N+1):B(N+1):C(M+N+1):'"INTRODUCE LOS COEFICIENTES DE MENOR A MAYOR GRADO":0::N=N+1:46. -A(N):B(N):C(N):R(N) .]:"VAS A EMPLEAR LA MATRIZ A PARA EL SIGUIENTE POLINOMIO ?":0:="N"Ŧ="n"546 / J=1N 0"A(";J;").- ";:A(J):A(J):J 2VUELTA=47/:2 6[:"VAS A USAR LA MATRIZ B PARA EL SIGUIENTE POLINOMIO ?":0:="N"Ŧ="n"59; 7 J=1N 8"B(";J;").- ";:B(J):B(J):J 9VUELTA=557:2 ; <"CONTINUAR" @ J=1N B A(J)=C(J) DJ F 44, H N"RESULTADOS-LINEALES" O PS=1VALOR R"C(";S;").- ";C(S) T S:0 X Y"DIBUJAR" Z \(ESC=10 /(A(1)+A(2)) ]K0,80P:255,0:120x,0:0,175 `AJ=025010 *ESC:J,0:0,3:J aAJ=017010 *ESC:0,J:3,0:J bo2:120x,80P:A(1)*ESC,A(2)*ESC:120x,80P:B(1)*ESC,B(2)*ESC c<0:120x,80P:C(1)*ESC,C(2)*ESC d f"INPUT-MATRICES" g["FILAS DE A ? ";:NFA:NFA:"COLUMNAS DE A ? ";:NCA:NCA:A(NFA,NCA):C(6,6) iJ=1NFA jI=1NCA l%"A(";J;",";I;").-";:A(J,I):A(J,I) nI:J pVUELTA=105i:2 sJ:"FILAS DE B ? ";:NFB:NFB:'"COLUMNAS DE B ? ";:NCB:NCB:B(NFB,NCB) uJ=1NFB:I=1NCB w%"B(";J;",";I;").-";:B(J,I):B(J,I) yI:J {VUELTA=117u:2 } "CONTINUAR MATRICES" A(6,6) &J=16:I=16 A(J,I)=C(J,I) I:J  "RESULTADO MATRICES" &J=16:I=16 "C(";J;",";I;").- ";C(J,I), I:J  "EJES CARTESIANOS" 8"LOS VALORES DE Y DEBEN DE SER SIMETRICOS",:0: $"VALOR MINIMO DE X ";:MINX:MINX $"VALOR MAXIMO DE X ";:MAXX:MAXX $"VALOR MINIMO DE Y ";:MINY:MINY $"VALOR MAXIMO DE Y ";:MAXY:MAXY VUELTA=166:2 %:ESCLX=255/((MINX)+(MAXX)) #ESCLY=175/((MINY)+(MAXY)) H0,80P:255,0:0,80P:0,3 LX=0 J=MINXMAXX $LX*ESCLX,80P:0,3 J=0LX*ESCLX,0:0,175:LY=0:I=0MAXY:LX*ESCLX,80P+(LY*ESCLY):3,0:LY=LY+1:I:LY=0:I=0̽(MINY)-1:LX*ESCLX,80P-(LY*ESCLY):3,0:LY=LY+1:I LX=LX+1 J  "RAIZ REAL" HAY=1:B(1)=-X1 B(2)=1:B=1 2408h "J=1N-CONTAR:A(J)=C(J):J %CONTAR=CONTAR+1:R(CONTAR)=X1  "STOP RAICES REALES" &HAY=1HAY=0:4000 N-CONTAR=0250 N-CONTAR=2240 XJ=(N-CONTAR)/2:J-J0MINX=MINX-10 :MAXX=MAXX+10 :4000 5000 250 %"ECUACION DE SEGUNDO GRADO" R(CONTAR+1)=-A(2)/2:I(CONTAR+1)=(((A(2)*A(2))-(4*A(3)*A(1)))/2) KR(CONTAR+2)=R(CONTAR+1):I(CONTAR+2)=-I(CONTAR+1) "CONTAR=CONTAR+2:250 "RESULTADOS RAICES" J=1N '"R(";J;").- ";R(J); I(J)>0"+" I(J)=0:262 I(J) J "PANTALLA-2" :"11).-SUMAR COMPLEJOS " '"12).-RESTAR COMPLEJOS" '"13).-MULTIPLICAR COMPLEJOS" '"14).-DIVIDE COMPLEJOS" #'"15).-BINOMIO COMPLEJO (a+bi)^n" $'"16).-VALOR DE P(s) PARA UN (jw)" '"17).-PARA Z=(a+bi)=>P(z)" '"18).-MOSTRAR RESULTADOS" '"19).-DIBUJAR COMPLEJOS" '"20).-AVANZAR" '"ELECCION ?"  =ELECCION:ELECCION=ELECCION*100d:ELECCION:9000(# L"SUMAR COMPLEJOS" N 40( Q&J=12:C(J)=A(J)+B(J):J TVALOR=2:78N V 0: "RESTAR COMPLEJOS"  40( &J=12:C(J)=A(J)-B(J):J VALOR=2:78N  "MULTIPLICAR COMPLEJOS"  40( <C(1)=(A(1)*B(1))-(A(2)*B(2)) <C(2)=(A(1)*B(2))+(A(2)*B(1)) VALOR=2:78N  x"DIVIDIR COMPLEJOS" y 40( zB(2)=-B(2) {<C(1)=(A(1)*B(1))-(A(2)*B(2)) |<C(2)=(A(1)*B(2))+(A(2)*B(1)) }5MOD=(B(1)*B(1))+(B(2)*B(2)) ~ C(1)=01408 C(1)=C(1)/MOD  C(2)=01410 C(2)=C(2)/MOD B(2)=-B(2) VALOR=2:78N  "BINOMIO DE NEWTON"  40( :"POTENCIA?";:M:M  VALOR=M  10 FACM=FAC:NC=1  J=0M  VALOR=J  10 FACN=FAC:COEF=FACM/FACN #POT=J:VALOR=A(2):25 C1=VALOR:VALOR=M-J:10 FACMN=FAC:COEF=COEF/FACMN %POT=M-J:VALOR=A(1):25  C2=VALOR COEF=COEF*C1*C2 4NC=1C(1)=C(1)+COEF:1544 4NC=2C(2)=C(2)+COEF:1544 4NC=3C(1)=C(1)-COEF:1544 @NC=4C(2)=C(2)-COEF:NC=1:1546  NC=NC+1  J:VALOR=2:78N   @"VALOR DE P(x)PARA X=Jw" BY"INTRODUCE LOS COEFICIENTES DE MENOR A MAYOR GRADO Y SOLO EN A(I)":0::40( D3"VALOR DE w- ";:W:W:VUELTA=1604D:2 FM=1:C(N) HJ=1N:VALOR=W JPOT=J-1:25 L-M=1C(1)=C(1)+A(J)*VALOR N-M=2C(2)=C(2)+A(J)*VALOR P-M=3C(1)=C(1)-A(J)*VALOR RDM=4C(2)=C(2)-A(J)*VALOR:M=1:1622V T M=M+1 VJ X 78N Z "P(z)PARA Z=(a+bj)" ."ORDEN DE P(Z).- ";:Z:Z:Z=Z+1:Z(Z) .K=1Z:''"Z(";K;").- ";:Z(K):Z(K):K VUELTA=1702:2 '"VALOR COMPLEJO.- "; 5K=12:" A(";K;").- ";:A(K):A(K);:K VUELTA=1706:2: K=1Z:M=K-1  1506 +L=12:C(L)=C(L)+C(L)*Z(K):L K  78N  "RESULTADOS"  78N l"DIBUJAR" n 88X "PANTALLA-3" :"21).-SUMAR POLINOMIOS" '"22).-RESTAR POLINOMIOS"  '"23).-MULTIPLICAR POLINOMIOS" '"24).-DIVIDIR POLINOMIOS" '"25).-POLINOMIO POR ESCALAR"  '"26).-RAICES DE UN POLINOMIO" '"28).-MOSTRAR RESULTADOS"  '"29).-VALOR DE P(x) PARA x=n" '"30).-AVANZAR" '"ELECCION?" =ELECCION:ELECCION=ELECCION*100d:ELECCION:9000(# 4"SUMAR POLINOMIOS" 6 40( 8 J=1N:C(J)=A(J)+B(J):J 9 VALOR=N : 78N: "RESTAR POLINOMIOS"  40(  J=1N:C(J)=A(J)-B(J):J VALOR=N:78N   "MULTIPLICACION POLINOMIOS  40( K=0  I=1N J=1M+1 C(J+K)=C(J+K)+A(I)*B(J) J K=K+1 I #VALOR=2*N-1:78N  `"DIVIDIR POLINOMIOS" b 40( hI=NM+1-1:C=I jC(I)=A(I)/B(M+1) l3J=M+11-1:A(C)=A(C)-C(I)*B(J) nC=C-1:J:I oVALOR=N-M:78N p2"EL RESTO ESTA EN A(I),QUIERES VERLO ?":0 r="N"Ŧ="n"2422v tJ=1N-M:A(J);" ";:J v "ESCALAR POR POLINOMIOS" 40( "ESCALAR? ";:VALOR:VALOR VUELTA=2504 :2 (J=111 :A(J)=A(J)*VALOR:J  ("RAICES DE UN POLINOMIO" *9"ORDEN DEL POLINOMIO ? ";:N:N=N+1:N:46 . ,%'"MINIMO VALOR DE X? ";:MINX:MINX .%'"MAXIMO VALOR DE X? ";:MAXX:MAXX 0'"INCREMENTO? ";:INC:INC 2'"ERROR? ":ERR:ERR 3VUELTA=2602* :2 49I(N-1):R(N-1):HAY=0:CONTAR=0 6IN=INC:X1=MINX 8VALOR=X1:2905Y :V1=C1 :5V1=0200:X1=X1+IN:IN=INC:26168 < X2=X1+IN >X2>MAXX220 @VALOR=X2:2905Y :V2=C1 B<V2=0X1=X2:200:X1=X2+IN:IN=INC:26168 D)V1*V2>0X1=X2:V1=V2:2620< F ER=X1-X2 H$ER>ERRIN=IN/10 :2620< JX1=(X1+X2)/2:200 LX1=X2+IN:IN=INC NX1>MAXX220 P 26168 "MOSTRAR RESULTADOS" 78N  T"VALOR DE P(x) PARA X=n" V>:"QUE VALOR? ";:VALOR:VALOR:VUELTA=2902V :2: X C1=1 ZJ=N1-1 \C1=C1*VALOR+A(J) ^J ` "PANTALLA 4" :"31).-SUMAR MATRICES" '"32).-RESTAR MATRICES" '"33).-MULTIPLICAR MATRICES" '"34).-INVERSION" $'"35).-DETERMINANTE DE UNA MATRIZ" #'"35.4).-ECUACION CARACTERISTICA" '"35.7).-VALORES PROPIOS" '"35.8).-VECTORES PROPIOS" '"36).-CONTINUAR" '"37).-MOSTRAR RESULTADOS" '"38).-SISTEMA DE ECUACIONES" '"90).-AVANZAR" '"ELECCION ?" 1ELECCION:ELECCION=ELECCION*100d:ELECCION "SUMAR MATRICES"  103g &J=16:I=16 "C(J,I)=A(J,I)+B(J,I) $I:J & "RESTAR MATRICES" 103g &J=16:I=16 C(J,I)=A(J,I)-B(J,I) I:J  "MULTIPLICAR MATRICES" 103g 9J=16:I=16:K=16 C(J,I)=C(J,I)+A(J,K)*B(K,I) K:I:J  H"INVERSION DE MATRICES" J 103g L&J=16:C(J,J)=1:J N J=16:I=J6 PA(I,J)03416X RI T$"MATRIZ SINGULAR,NO TIENE INVERSA" V 3448x XK=16:X=A(J,K) ZA(J,K)=A(I,K):A(I,K)=X \XC=C(J,K):C(J,K)=C(I,K) ^C(I,K)=XC:K `Y=1/A(J,J) b$K=16:A(J,K)=A(J,K)*Y dC(J,K)=C(J,K)*Y:K fI=16 hI=J3444t j Y=-A(I,J) lK=16 nA(I,K)=A(I,K)+A(J,K)*Y pC(I,K)=C(I,K)+C(J,K)*Y rK tI vJ x "DETERMINANTE" 103g Z=0 J=16:I=J6 A(I,J)03516 I=JZ=Z+1 I %:"DETERMINANTE =0(MATRIZ SINSULAR"  ,K=16:X=A(J,K):A(J,K)=A(I,K) A(I,K)=X:K !B(J,J)=A(J,J):Y=1/A(J,J) 'K=16:A(J,K)=Y*A(J,K):K $I=16:I=J3530 Y=-A(I,J) .K=16:A(I,K)=A(I,K)+Y*A(J,K):K I:J C(1)=1 4I=16:C(1)=C(1)*B(I,I):I $C(1)=(-1)*C(1)^Z  #(#"PANTALLAS DE PRESENTACION-1" #) #+"1).-COMPLEJOS" #.'"2).-POLINIMIOS" #1'"3).-MATRICES" #4'"4).-LUGAR DE LAS RAICES" #7'"5).-BODE MODULAR" #:'"6).-BODE ARGUMENTAL" #='"7).-NYQUYST" #E'''"ELECCION ?" #F4ELECCION:ELECCION=ELECCION*1000::ELECCION lecciouelt/nm7     E.-G. 9000(# "RECTIFICACIONES" 0'"CORRECTO ? ":0:="N"Ŧ="n":VUELTA  "FACTORIAL" FAC=1 S=1VALOR  FAC=FAC*S S  "POTENCIAS" &POT=0VALOR=1:35# T=1POT-1 VALOR=VALOR*VALOR !T # ("INPUT LINEAL" )O:"CONTINUACION ?":0:="S"Ŧ="s"J=1N:A(J)=C(J):J:46. +.:"ORDEN DE A?";:N:N:"ORDEN DE B?";:M:M ,"POLINOMIOS?":0:="S"Ŧ="s"A(N+1):B(N+1):C(M+N+1):'"INTRODUCE LOS COEFICIENTES DE MENOR A MAYOR GRADO":0::N=N+1:46. -A(N):B(N):C(N):R(N) .]:"VAS A EMPLEAR LA MATRIZ A PARA EL SIGUIENTE POLINOMIO ?":0:="N"Ŧ="n"546 / J=1N 0"A(";J;").- ";:A(J):A(J):J 2VUELTA=47/:2 6[:"VAS A USAR LA MATRIZ B PARA EL SIGUIENTE POLINOMIO ?":0:="N"Ŧ="n"59; 7 J=1N 8"B(";J;").- ";:B(J):B(J):J 9VUELTA=557:2 ; <"CONTINUAR" @ J=1N B A(J)=C(J) DJ F 44, H N"RESULTADOS-LINEALES" O PS=1VALOR R"C(";S;").- ";C(S) T S:0 X Y"DIBUJAR" Z \(ESC=10 /(A(1)+A(2)) ]K0,80P:255,0:120x,0:0,175 `AJ=025010 *ESC:J,0:0,3:J aAJ=017010 *ESC:0,J:3,0:J bo2:120x,80P:A(1)*ESC,A(2)*ESC:120x,80P:B(1)*ESC,B(2)*ESC c<0:120x,80P:C(1)*ESC,C(2)*ESC d f"INPUT-MATRICES" g["FILAS DE A ? ";:NFA:NFA:"COLUMNAS DE A ? ";:NCA:NCA:A(NFA,NCA):C(6,6) iJ=1NFA jI=1NCA l%"A(";J;",";I;").-";:A(J,I):A(J,I) nI:J pVUELTA=105i:2 sJ:"FILAS DE B ? ";:NFB:NFB:'"COLUMNAS DE B ? ";:NCB:NCB:B(NFB,NCB) uJ=1NFB:I=1NCB w%"B(";J;",";I;").-";:B(J,I):B(J,I) yI:J {VUELTA=117u:2 } "CONTINUAR MATRICES" A(6,6) &J=16:I=16 A(J,I)=C(J,I) I:J  "RESULTADO MATRICES" &J=16:I=16 "C(";J;",";I;").- ";C(J,I), I:J  "EJES CARTESIANOS" 8"LOS VALORES DE Y DEBEN DE SER SIMETRICOS",:0: $"VALOR MINIMO DE X ";:MINX:MINX $"VALOR MAXIMO DE X ";:MAXX:MAXX $"VALOR MINIMO DE Y ";:MINY:MINY $"VALOR MAXIMO DE Y ";:MAXY:MAXY VUELTA=166:2 %:ESCLX=255/((MINX)+(MAXX)) #ESCLY=175/((MINY)+(MAXY)) H0,80P:255,0:0,80P:0,3 LX=0 J=MINXMAXX $LX*ESCLX,80P:0,3 J=0LX*ESCLX,0:0,175:LY=0:I=0MAXY:LX*ESCLX,80P+(LY*ESCLY):3,0:LY=LY+1:I:LY=0:I=0̽(MINY)-1:LX*ESCLX,80P-(LY*ESCLY):3,0:LY=LY+1:I LX=LX+1 J  "RAIZ REAL" HAY=1:B(1)=-X1 B(2)=1:B=1 2408h "J=1N-CONTAR:A(J)=C(J):J %CONTAR=CONTAR+1:R(CONTAR)=X1  "STOP RAICES REALES" &HAY=1HAY=0:4000 N-CONTAR=0250 N-CONTAR=2240 XJ=(N-CONTAR)/2:J-J0MINX=MINX-10 :MAXX=MAXX+10 :4000 5000 250 %"ECUACION DE SEGUNDO GRADO" R(CONTAR+1)=-A(2)/2:I(CONTAR+1)=(((A(2)*A(2))-(4*A(3)*A(1)))/2) KR(CONTAR+2)=R(CONTAR+1):I(CONTAR+2)=-I(CONTAR+1) "CONTAR=CONTAR+2:250 "RESULTADOS RAICES" J=1N '"R(";J;").- ";R(J); I(J)>0"+" I(J)=0:262 I(J) J "PANTALLA-2" :"11).-SUMAR COMPLEJOS " '"12).-RESTAR COMPLEJOS" '"13).-MULTIPLICAR COMPLEJOS" '"14).-DIVIDE COMPLEJOS" #'"15).-BINOMIO COMPLEJO (a+bi)^n" $'"16).-VALOR DE P(s) PARA UN (jw)" '"17).-PARA Z=(a+bi)=>P(z)" '"18).-MOSTRAR RESULTADOS" '"19).-DIBUJAR COMPLEJOS" '"20).-AVANZAR" '"ELECCION ?"  =ELECCION:ELECCION=ELECCION*100d:ELECCION:9000(# L"SUMAR COMPLEJOS" N 40( Q&J=12:C(J)=A(J)+B(J):J TVALOR=2:78N V 0: "RESTAR COMPLEJOS"  40( &J=12:C(J)=A(J)-B(J):J VALOR=2:78N  "MULTIPLICAR COMPLEJOS"  40( <C(1)=(A(1)*B(1))-(A(2)*B(2)) <C(2)=(A(1)*B(2))+(A(2)*B(1)) VALOR=2:78N  x"DIVIDIR COMPLEJOS" y 40( zB(2)=-B(2) {<C(1)=(A(1)*B(1))-(A(2)*B(2)) |<C(2)=(A(1)*B(2))+(A(2)*B(1)) }5MOD=(B(1)*B(1))+(B(2)*B(2)) ~ C(1)=01408 C(1)=C(1)/MOD  C(2)=01410 C(2)=C(2)/MOD B(2)=-B(2) VALOR=2:78N  "BINOMIO DE NEWTON"  40( :"POTENCIA?";:M:M  VALOR=M  10 FACM=FAC:NC=1  J=0M  VALOR=J  10 FACN=FAC:COEF=FACM/FACN #POT=J:VALOR=A(2):25 C1=VALOR:VALOR=M-J:10 FACMN=FAC:COEF=COEF/FACMN %POT=M-J:VALOR=A(1):25  C2=VALOR COEF=COEF*C1*C2 4NC=1C(1)=C(1)+COEF:1544 4NC=2C(2)=C(2)+COEF:1544 4NC=3C(1)=C(1)-COEF:1544 @NC=4C(2)=C(2)-COEF:NC=1:1546  NC=NC+1  J:VALOR=2:78N   @"VALOR DE P(x)PARA X=Jw" BY"INTRODUCE LOS COEFICIENTES DE MENOR A MAYOR GRADO Y SOLO EN A(I)":0::40( D3"VALOR DE w- ";:W:W:VUELTA=1604D:2 FM=1:C(N) HJ=1N:VALOR=W JPOT=J-1:25 L-M=1C(1)=C(1)+A(J)*VALOR N-M=2C(2)=C(2)+A(J)*VALOR P-M=3C(1)=C(1)-A(J)*VALOR RDM=4C(2)=C(2)-A(J)*VALOR:M=1:1622V T M=M+1 VJ X 78N Z "P(z)PARA Z=(a+bj)" ."ORDEN DE P(Z).- ";:Z:Z:Z=Z+1:Z(Z) .K=1Z:''"Z(";K;").- ";:Z(K):Z(K):K VUELTA=1702:2 '"VALOR COMPLEJO.- "; 5K=12:" A(";K;").- ";:A(K):A(K);:K VUELTA=1706:2: K=1Z:M=K-1  1506 +L=12:C(L)=C(L)+C(L)*Z(K):L K  78N  "RESULTADOS"  78N l"DIBUJAR" n 88X "PANTALLA-3" :"21).-SUMAR POLINOMIOS" '"22).-RESTAR POLINOMIOS"  '"23).-MULTIPLICAR POLINOMIOS" '"24).-DIVIDIR POLINOMIOS" '"25).-POLINOMIO POR ESCALAR"  '"26).-RAICES DE UN POLINOMIO" '"28).-MOSTRAR RESULTADOS"  '"29).-VALOR DE P(x) PARA x=n" '"30).-AVANZAR" '"ELECCION?" =ELECCION:ELECCION=ELECCION*100d:ELECCION:9000(# 4"SUMAR POLINOMIOS" 6 40( 8 J=1N:C(J)=A(J)+B(J):J 9 VALOR=N : 78N: "RESTAR POLINOMIOS"  40(  J=1N:C(J)=A(J)-B(J):J VALOR=N:78N   "MULTIPLICACION POLINOMIOS  40( K=0  I=1N J=1M+1 C(J+K)=C(J+K)+A(I)*B(J) J K=K+1 I #VALOR=2*N-1:78N  `"DIVIDIR POLINOMIOS" b 40( hI=NM+1-1:C=I jC(I)=A(I)/B(M+1) l3J=M+11-1:A(C)=A(C)-C(I)*B(J) nC=C-1:J:I oVALOR=N-M:78N p2"EL RESTO ESTA EN A(I),QUIERES VERLO ?":0 r="N"Ŧ="n"2422v tJ=1N-M:A(J);" ";:J v "ESCALAR POR POLINOMIOS" 40( "ESCALAR? ";:VALOR:VALOR VUELTA=2504 :2 (J=111 :A(J)=A(J)*VALOR:J  ("RAICES DE UN POLINOMIO" *9"ORDEN DEL POLINOMIO ? ";:N:N=N+1:N:46 . ,%'"MINIMO VALOR DE X? ";:MINX:MINX .%'"MAXIMO VALOR DE X? ";:MAXX:MAXX 0'"INCREMENTO? ";:INC:INC 2'"ERROR? ":ERR:ERR 3VUELTA=2602* :2 49I(N-1):R(N-1):HAY=0:CONTAR=0 6IN=INC:X1=MINX 8VALOR=X1:2905Y :V1=C1 :5V1=0200:X1=X1+IN:IN=INC:26168 < X2=X1+IN >X2>MAXX220 @VALOR=X2:2905Y :V2=C1 B<V2=0X1=X2:200:X1=X2+IN:IN=INC:26168 D)V1*V2>0X1=X2:V1=V2:2620< F ER=X1-X2 H$ER>ERRIN=IN/10 :2620< JX1=(X1+X2)/2:200 LX1=X2+IN:IN=INC NX1>MAXX220 P 26168 "MOSTRAR RESULTADOS" 78N  T"VALOR DE P(x) PARA X=n" V>:"QUE VALOR? ";:VALOR:VALOR:VUELTA=2902V :2: X C1=1 ZJ=N1-1 \C1=C1*VALOR+A(J) ^J ` "PANTALLA 4" :"31).-SUMAR MATRICES" '"32).-RESTAR MATRICES" '"33).-MULTIPLICAR MATRICES" '"34).-INVERSION" $'"35).-DETERMINANTE DE UNA MATRIZ" #'"35.4).-ECUACION CARACTERISTICA" '"35.7).-VALORES PROPIOS" '"35.8).-VECTORES PROPIOS" '"36).-CONTINUAR" '"37).-MOSTRAR RESULTADOS" '"38).-SISTEMA DE ECUACIONES" '"90).-AVANZAR" '"ELECCION ?" 1ELECCION:ELECCION=ELECCION*100d:ELECCION "SUMAR MATRICES"  103g &J=16:I=16 "C(J,I)=A(J,I)+B(J,I) $I:J & "RESTAR MATRICES" 103g &J=16:I=16 C(J,I)=A(J,I)-B(J,I) I:J  "MULTIPLICAR MATRICES" 103g 9J=16:I=16:K=16 C(J,I)=C(J,I)+A(J,K)*B(K,I) K:I:J  H"INVERSION DE MATRICES" J 103g L&J=16:C(J,J)=1:J N J=16:I=J6 PA(I,J)03416X RI T$"MATRIZ SINGULAR,NO TIENE INVERSA" V 3448x XK=16:X=A(J,K) ZA(J,K)=A(I,K):A(I,K)=X \XC=C(J,K):C(J,K)=C(I,K) ^C(I,K)=XC:K `Y=1/A(J,J) b$K=16:A(J,K)=A(J,K)*Y dC(J,K)=C(J,K)*Y:K fI=16 hI=J3444t j Y=-A(I,J) lK=16 nA(I,K)=A(I,K)+A(J,K)*Y pC(I,K)=C(I,K)+C(J,K)*Y rK tI vJ x "DETERMINANTE" 103g Z=0 J=16:I=J6 A(I,J)03516 I=JZ=Z+1 I %:"DETERMINANTE =0(MATRIZ SINSULAR"  ,K=16:X=A(J,K):A(J,K)=A(I,K) A(I,K)=X:K !B(J,J)=A(J,J):Y=1/A(J,J) 'K=16:A(J,K)=Y*A(J,K):K $I=16:I=J3530 Y=-A(I,J) .K=16:A(I,K)=A(I,K)+Y*A(J,K):K I:J C(1)=1 4I=16:C(1)=C(1)*B(I,I):I $C(1)=(-1)*C(1)^Z  #(#"PANTALLAS DE PRESENTACION-1" #) #+"1).-COMPLEJOS" #.'"2).-POLINIMIOS" #1'"3).-MATRICES" #4'"4).-LUGAR DE LAS RAICES" #7'"5).-BODE MODULAR" #:'"6).-BODE ARGUMENTAL" #='"7).-NYQUYST" #E'''"ELECCION ?" #F4ELECCION:ELECCION=ELECCION*1000::ELECCION lecciouelt/nm7