ZXTape! 2i POLINOMIOSABC SOFT C. CASTILLA1984SPANISH EDUCATIVENONE ORIGINAL TAPESPECTRUM 48K - CAR01Polinomios. .)0 "":23783\ >B![b7V[ CARATULA @E|<@>B<<BB@bBfB@BB@RBZB<|B@JBBB@B@FBBBB@<~>B<<|||<<<<|<|<BH|xD x8xD<<B<@  ~<<~><??|?@ 8D8<8<<x8 <@ 8<888D| 1#|||?@99999999::::::::::::::::9999999999999999:;;;;;;;;;;;;;;:9999999999999999:;>>>>>>>>>>>>;:9999999999999999:;>8888888888>;:9999999999999999:;>>>>>>>>>>>>;:9999999999999999:;;;;;;;;;;;;;;:9999999999999999::::::::::::::::9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999:::::::::::999999999999999999999:::9:::::::999999999999999999999:999999999:999999999999999999999:999999999:999999999999999999999:999999999:999999999999999999999:999999999:999999999999999999999:999999999:999999999999999999999:::::::::::999999999999999999999:::::::::::9999999999999999999999999999999999999999999999999999dB!\"O\!\"W\#"S\j{1~"K\6#"Y\6 #6#"a\"c\"e\!|"=\##"\6>#"{\>!\7V*Y\Z6#6 5Fel{ di=23760\:di  5490r  0 :j=0 p$=" ":lon=8 Nk=0:a=1:b=1:q=17:w=1:x=1:y=1  l=.1}L *:20,1;"Grado polinomio N=" qposy=20:posx=19:2110>:n=r$:20,19;n;" ":n>12 n<0nɺn20  uu=3 >A(N+1):B(N+1):x(4):c(2,n+2) ("jjj=0:i=1n+1 -q18,2;"a(";i;")=":posy=18:posx=8:2110>:a(i)=r$:18,8;" " 2a(i)100045- 8 b(i)=a(i) 9 2350. :,i:18,2;" ":5072 ?n=-15,8;"0":18,2;" ":20,0;"*****POLINOMIO TRIVIAL*****":21,7;"PULSE TECLA":9998'::20 A a(n+1)072H Fn=n-1:63? H 5072 Pq=2q=175480h:21,2;"Funcion=":posy=21:posx=10 :2110>:kk=r$:kkɺkkkk<078N RVkk>n:4,2;"FUNCION NULA":21,8;"PULSE TECLA":9998' Uk=kk e0::1:21,5;"SELECCIONE":0:0,9 ;"FUNCION ELEGIDA ";kk i=09 :i+1,2;i:i:i=10 19:i+1,1;i:i:1:2,4;"Valor polinomio y derivadas":3,4;"Calculo una raiz impar P/D ":4,4;"Acotacion de raices P/Der ":6,4;"Raices fraccionarias P/Der " :7,4;"Raices reales P/Der ":5,4;"Raices enteras P/Der " 08,4;"Maximos y minimos P/Der " 115,4;"Integral definida polinomio" 116,4;"Area encerrada eje x P/Der " 117,4;"Volumen al girar func P/Der" 118,4;"Eleccion P/Der a estudiar " 119,4;"Cambiar polinomio inicial " 01,4;"Formulas polin. y derivadas" b10 ,4;"Crecimiento y decrec P/Der ":11 ,4;"Concavidad y convex P/Der " 112 ,4;"Trazado de polinom y deriv " 114,4;"Integracion indef polinomio" 120,4;"Desarrollo Mac-Laurin P/Der" La13 ,4;"Rectas tang y normal P/Der ":9 ,4;"Puntos de inflexion P/Der " Ve0:9800H&:posy=21:posx=17:2110>:q=r$::k=kk:q=01850: ~q=1m$="VALORES POLINOMIO Y DERIVADAS":2:6:0,2;m$:0:7:9080x#:x300,10 ,2;"D";k;"Y(";x;")=";y;" ":k=010 ,2;" " q=25530::2:6:0,9 ;"UNA RAIZ IMPAR":0:7:9500%:y<10 ^(-4)k1:3040 :2:6:0,8;"MAXIMOS Y MINIMOS":7:0:7000X /q=7n-kk1j=2:7140 %q=17:jjj=0:80P "q=185490r:20 s=120:s wq=10 :5580::2:6:0,5;"CONCAVIDAD Y CONVEXIDAD":7:0:6280 @gq=11 :5600:2:6:0,12 ;"TRAZADO":0:7:7210* r]q=15:1:6:0,2;"AREA ENCERRADA FUNC Y EJE X": 5000 &q=13 :5670&:7500L 3q=8:5370:n-kk>26000p s=120:s Bq=8n-kk2:2,2;"NO HAY P. INFLEXION" s=120:s wq=12 :5750v:6:2:0,5;"RECTAS TANGENTE Y NORMAL":7:0:7600 {q=14:5700D:2:6:5:0,9 ;"INTEGRAL DEFINIDA":0:7:7820 :oq=02:6:1,0;"EXPRESIONES POLINOM Y DERIVADAS":0:7:5075 ?s=120:s Dq=195810:2:6:0,0;"DESARROLLO DE MAC-LAURIN";" (der ";kk;")":0:7::5300 Nq=205::5,5;"Calculo de M!":8,5;"M=":posy=8:posx=8:2110>:k=r$:k0k=kk=kk+k:5275:k-kk<34"8,5;k-kk;"!";"=";hh;" " Ss=120:s Xfq=20(k<0kɺk):5,2;"LA FUNCION FACTORIAL HA DE TENER ARGUMENTO NATURAL" lvq=9 :2:6:0,3;"CRECIMIENTO Y DECRECIMIENTO":0:7:3:6150 h0:4:7:21,7;"***PULSE UNA TECLA***":9998':0::753 521,8;"**PULSE UNA TECLA**":9998'  753 >)vvv=0:mmm=0:posy,posx;p$ Hr$="" Mc$="" Oposx=posx+p$ Rposy,posx;" "; Ts=1100d:s V23659k\,0 W568:l$= \l$=""2135W a)(l$=13 )(vvv=0)r$=r$+"." fRl$=13 r$=r$+"0":posy,posx;" ":r$>0di:23659k\,2: k(r$)=02181 p-(l$=12 )(r$((r$))=".")vvv=0 s-(l$=12 )(r$((r$))="-")mmm=0 u:(l$=12 )r$=r$(̱(r$)-1):posx=posx-1 zl$=12 2130R r$=lon2135W 7(l$=46.)(vvv=0)vvv=1:2190 G(l$=45-)(mmm=0)((r$)=0)mmm=1:2190 +(l$<480)(l$>579)2130R 9r$=r$+l$:posy,posx;l$;:posx=posx+1:2130R .(5,3;"Y(x)=";:jjj=0 ` v=1i a(v)=02560 v1a(v)>0"+"; "v>2a(v);"*x^";v-1; v=1a(1); v=2a(2);"*x"; v: 9v=1n+1:a(v)0aa=a(v):v=n+1 v: %21,8;"DEFINA ABCISA": v=1n+1:a(v)ɺa(v):5,5;a(v);" No es entero":8,3;"Esta opcion solo para coefi cientes enteros":2:6:0,8;"RAICES FRACCIONARIAS":21,9 ;"PULSE UNA TECLA":0:7:9998':750 v: 94:2:v=021:v,0;"":v,31;"":v:v=031:21,v;"":v:125},85U,65A:1:125},85U,546:3:125},85U,42*:5:125},85U,30:0:1:11 ,13 ;"ESPERE":0 J6:2:v=219:v,2;"*":v,29;"*":v -q220,11 ;"FUNCION ";kk 1q=220,10 ;"*** F ";k;" ***" 8v=417:v,4;"*":v,27;"*":v 0:7: 7:2,3;"Area encerrada por la funcion y el eje de las x entre dos ab- cisas a indicar es la integral del valor absoluto de la funcion entre dos abcisas y el resulta do tomado en valor absoluto AREA0" _kk>n21,9 ;"PULSE TECLA":9998'::5,3;"AREA NULA,FUNCION=0": 9 ,1;"Extremo inferior=":posy=9 :posx=18:2110>:a=r$:12 ,1;"Extremo inferior=";a:9 ,9 ;"superior ":posx=18:2110>:b=r$::2:6:0,10 ;"AREA ENCERRADA":0:7 @a>20Žb>20:2,2;"VALOR EXCESIVO": Sa=b14,5;"AREA=0":8,1;"Ambos extremos iguales a ";a: -a>b4,4;"CAMBIAR DATOS a>b":  3040 =ll=(b-a)/100d:ll>.1}Lll=ll/2:5025 c=0:d=0 Mx=ab-llll:9120#:c=c+y:x+llbx=x+ll:9120#:d=d+y:x=x-ll ac>10 ^30d>10 ^30:5,0;"Demasiado elevado ,variar datos": x ((c-d)/c)<.1}Lll<10 ^(-2):10 ,5;"Extr inf=";a:12 ,5;"Extr sup=";b:14,5;"Area aprox=";ll*(c+d)/2: 0((c-d)/c).1}Lll=ll/5:5027 Nq=17v=1n+2:g=12:c(g,v)=99.11F8Q:g:v  Ӆk=kk:kk>n3,3;"Derivada de orden ";kk;" =0 ";kk;"> grado del polinomio":6,3;"D";kk;"Y(x)=0": akk03,2;"Derivada ";kk;" del polinomio ":5,2;"D";kk;"Y(x)="; Fkk=03,10 ;"Polinomio":5,2;"Y(x)="; Ji=k+1n+1:f=1:w=1k:f=f*(i-w):w:a(i)=b(i)*f a(i)>0"+"; a(i)=05120 a(i); Ci-k-10"*x";:i-k-1>1"^";i-k-1; i 9800H&: P2,2;"Volumen encerrado al girar la funcion elegida alrededor del eje x entre dos abcisas a defi nir":ll=.1}L T8,2;"Es la integral definida a los extremos del cuadrado de la fun cion multiplicado por PI.Sin em bargo el programa lo calcula por adicion de areas elementa les por lo que se sugiere emple ar la opcion 14 introduciendo el correspondiente polinomio" VYkk>n21,10 ;"PULSE TECLA":9998'::3,3;"VOLUMEN NULO": Z19,0;"Extremo inferior":posy=19:posx=18:2110>:a=r$:17,0;"Extremo superior":posy=17:posx=18:2110>:b=r$: \ba>10 Žb>10 :2,2;"Valores excesivos ABS(Extremos)10": _Wa=b:8,5;"Volumen=0":5,1;"Ambos extremos iguales a ";a: dw2:6:0,2;"VOLUMEN APROX GIRO POLINOMIO":0:7:3040 :c=0:d=0 h1a>b:4,4;"CAMBIAR DATOS a>b": nOx=ab-llll:9120#:c=c+y*y:x+llbx=x+ll:9120#:d=d+y*y:x=x-ll s^c>10 ^30d>10 ^30:2,5;"Valor excesivo cambiar datos": xx c0((c-d)/c)<.1}Lll10 ^(-2)c=d:4,4;"Volumen aprox=";*(c+d)*ll/2:8,4;"Extr inf=";a:10 ,4;"Extr sup=";b: 2((c-d)/c).1}L:ll=ll/10 :5220d ck-kk>33!:4,2;k-kk;"! No es posible con el":6,2;"ZX SPECTRUM": hh=1:k-kk=0 h=1k-kk:hh=hh*h:h:  x=0 k=kk &3,3;"Y(x)=";:kk>n"0" ;k=kkn:5280:9120#:hh=y/hh:hh>0"+"; hh0hh; 6knkkkhh0"*x";:k-kk>1;"^";k-kk; k: S2:2:6:0,6;"MAXIMOS Y MINIMOS":0:7 2,2;"Los maximos y minimos han de tener la primera derivada nula":5,2;"Si la segunda derivada es <0 en ese punto hay un maximo":8,2;"Si la segunda derivada es >0 en ese punto hay un minimo" l11 ,2;"Si la segunda derivada es =0, hay que derivar,si en ese pun to la deriv0,es de inflexion":15,2;"Si la tercera es =0, hay que derivar otra vez,si la cuarta 0 hay maximo o minimo segun y asi sucesivamente":21,10 ;"PULSE UNA TECLA":1:17,30;"*":5,0;"*":0:9998': g7:2:6:0,7;"PUNTOS DE INFLEXION":0:7:2,2;"Los puntos de inflexion han de cumplir segunda derivada=0":5,2;"Si la tercera derivada en ese punto es 0,es P. inflexion":8,2;"Si la tercera derivada en ese punto es=0,y en ese punto la cu arta es 0,no es P. inflexion" 13 ,2;"Si la cuarta es =0 se deriva otra vez y el estudio es igual que para la tercera":17,13 ;"Y=-1+3*x-3*x^2+x^3":18,1;"en x=1 hay un P. inflexion":19,1;"D2Y(1)=0 D3Y(1)=6 (0)":2:6:21,7;"PULSE UNA TECLA":4:17,2;"EJEMPLO":0:7:1:5,0;"*":15,21;"*":0 9998':: 1:2:6:0,2;"CRECIMIENTO Y DECRECIMIENTO":1,10 ;"HACIA x>0":21,7;"PULSE UNA TECLA":1:13 ,2;"EJEMPLO":7:0 n3,2;"La funcion a estudiar es cre- ciente en ese punto si la pri mera derivada es positiva" "7,2;"La funcion a estudiar es de- creciente en un punto si la primera derivada es negativa en ese punto" ,13 ,10 ;"Y=x^2-14*x+48":15,1;"En x=8 D1Y(8)=2 >0 Crec en x=8":17,1;"En x=3 D1Y(3)=-8 <0 Dec en x=3":9998': hq=2q=17:1:2:6:0,2;"ESCOGER FUNCION A ESTUDIAR":0:7:3,2;"0 POLINOMIO":v=16:3+2*v,2;v;" DERIVADA ";v;" DEL POLINOMIO":v:19,2;"Y asi sucesivamente" m r:2:6:10 ,2;"EJEMPLO:":0,2;"INTRODUCCION DEL POLINOMIO":21,15;"PULSE UNA TECLA":0:7:10 ,12 ;"Y(x)=1+5*x^2-3*x^4":2,2;"Primero se introduce el grado del polinomio" s11 ,5;"N=":v=610 :2*v+1,5;"a(";v-5;")=":v:1:11 ,7;"4":13 ,10 ;"1":15,10 ;"0":17,10 ;"5":19,10 ;"0":21,10 ;"-3":0 t4,2;"Deben introducirse unicamente los coeficientes comenzando por el termino independiente.":7,2;"Cuando no exista un coeficien te se introducira 0" w9998': |2:6:2:0,9 ;"RAICES ENTERAS":21,9 ;"PULSE UNA TECLA":0:7:2,2;"Las raices enteras de un po linomio de coeficientes ente ros dividen exactamente al ter mino independiente,si a(1)0" 7,2;"Si los coeficientes son frac cionarios,las raices enteras de este polinomio son las de este polinomio multiplicado por 10 o por 100 etc" 13 ,2;"Si a(1)=0 una raiz es x=0 sa cando factor comun x,al resto puede aplicarse el razonamien to anterior": }2:6:0,5;"CALCULO RAIZ IMPAR":21,8;"PULSE UNA TECLA":12 ,4;"EJEMPLO":0:7:2,2;"Si una funcion es continua en un intervalo cerrado,y en los extremos admite dos valores de signo contrario, entonces exis te al menos una raiz de exponen te impar, puede haber mas o in cluso de orden par (BOLZANO)" P14,2;"Y=-1+3*x+3*x^2+1*x^3 tiene una raiz de orden impar (3)" 18,3;"Y(0)=-1 Y(2)=1 00 en un punto si su segunda derivada es >0 si negativa,es convexa" ր12 ,12 ;"Y(x)=2-3*x^5":14,5;"D2Y(1)<0 Convexa en x=1":16,5;"D2Y(-1)>0 Concava en x=-1" 9998':  2:6:0,2;"TRAZADO DE FUNCION ELEGIDA":21,7;"PULSE UNA TECLA":0:7:3,2;"En este apartado hay que ele gir los extremos del grafico a voluntad,sin embargo se sugie ren en la primera grafica unos" 7,2;"a modo de sugerencia inicial, despues de visto el grafico se podra ajustar en la proxima grafica los limites para estu diar la zona de su interes con el detalle deseado" 9998':: :2:6:0,7;"RAICES FRACCIONARIAS":21,9 ;"PULSE UNA TECLA":16,6;"RAICES ENTERAS":0:7:7,2;"Las raices fraccionarias son de la forma p/r donde p divide exactamente al termino indepen diente y r al de mayor grado, por supuesto si los coeficien tes son enteros y con a(1)0 en caso contrario ver:" 9998':: @2:6:0,5;"ACOTACION DE RAICES":21,9 ;"PULSE UNA TECLA":0:7:2,2;"La acotacion por el metodo de NEWTON establece que el menor valor entero positivo L tal que la funcion y todas sus deriva das son0 en x=L,entonces L es cota de las raices positivas"  10 ,2;"La cota inferior de las raices negativas se obtiene sustituyen do en el polinomio x por -x,y se aplica el mismo razonamiento" Q16,2;"Todo lo anterior suponiendo el coeficiente de mayor grado>0" 9998': &2:6:0,0;"INTEGRACION INDEFINIDA POLINOMIO":21,8;"PULSE UNA TECLA":14,2;"EJEMPLO":0:7:4,2;"Teniendo en cuenta que la in tegral de una suma es la suma de integrales,y por otro lado la integral de un monomio es otro tal que el coeficiente se divide por el exponente mas uno,y el exponente aumenta una unidad:" +`16,2;"Integral[6*x^5-90*x^8]dx=C+x^6-10*x^9. C es la constante de integracion" ?9998': D2:6:0,2;"INTEGRACION DEFINIDA POLINOMIO":21,9 ;"PULSE UNA TECLA":11 ,2;"EJEMPLO":0:7 N2,2;"La integral definida de un po linomio es el resultado de sus tituir en la expresion obteni da del apartado anterior (inte gracion indefinida),los extre mos superior e inferior;y res tar los resultados" X14,2;"Integral[2*x]dx=4^2-3^2":16,2;"Extremo sup=4 Extremo inf=3":18,2;"Integral[2*x]dx=C+x^2" b9998':: v2:6:0,5;"RECTAS TANGENTE Y NORMAL":21,9 ;"PULSE UNA TECLA":10 ,1;"RECTA TANGENTE":14,1;"RECTA NORMAL":0:7 r2,2;"Para expresar estas rectas basta conocer abcisa,ordenada y pendiente en el punto de tangencia" K6,2;"Suponiendo abcisa x=a ordenada y=c y pendiente m (m0)" G12 ,2;"Y-c=m*(x-a)":16,2;"Y-c=(-1/m)*(x-a)" 318,2;"Si m=0 R.tg Y=c R.normal x=a" 9998':: g2:6:0,3;"DESARROLLO de MAC-LAURIN":21,9 ;"PULSE UNA TECLA":0:7:2,2;"El desarrollo de Mac-Laurin representa la funcion como su ma de los valores en x=0 de: Y(0)+D1Y(0)/1!*x+D2Y(0)/2!*x^2+ D3Y(0)/3!*x^3+...+DNY(0)/N!*x^N el termino complementario es en este caso 0 (POLINOMIOS)" 9998'::  p 3040 u2:6:0,7;"PUNTOS DE INFLEXION":0:7:9890&:kk=kk+2:k=kk:8490*!:k=kk+1:85004! z3j=2:a=12:b=1n+2  x=c(a,b) 1k=kk:9120#:yy=y:k=k+1:9120# Jj=2020,5;"PULSE UNA TECLA":9998':j=2: yy<10 ^(-5)ƽy>10 ^(-4)j=2:2:6:0,7;"PUNTOS DE INFLEXION":21,10 ;"ESPERE":0:7 xyy<10 ^(-5)ƽy>10 ^(-4)9590v%:j,3;"x=";x:j,18;"P. inflexion":j=j+1 k10 ^(-4)k/2ɺk/29590v%:j,5;"x=";x:j,15;"P. inflexion":j=j+1 Hyy<10 ^(-5)ƽy10 ^(-4)k0":0:7:8,1;"Defina abcisa x=":posy=8:posx=18:2110>:x=r$::k=kk+1:9120# Xy>10 ^(-4)7,2;"La funcion ";kk;" es creciente en x=";x $Zy<-10 ^(-4)9 ,2;"La funcion ";kk;" es decreciente en x=";x .y10 ^(-4)kk300 no es valido": \y>10 ^(-4)8,2;"La funcion ";kk;" es concava hacia x>0 en x=";x \y<-10 ^(-4)8,2;"La funcion ";kk;" es convexsa hacia x>0 en x=";x py<10 ^(-4)8,2;"D2Y(";x;")=";y;" se sugiere estudiar grafico y puntos de inflexion"  X;kk=kk+1:k=kk:8490*!:k=kk+1:85004! ]j=2::2:6:0,9 ;"MAXIMOS Y MINIMOS":21,11 ;"ESPERE":0:7:a=12:b=1n+2 b*k=kk-1:x=c(a,b):9120#:yy=y rGj1821,10 ;"PULSE TECLA":9998':j=3: Bx=x-l/502:9120#:c=y:x=x+l/25:9120#:d=y Tc>yyd>yym$="MINIMO":j=j+1:9590v%:j,3;"x=";x:j,15;m$ Tcyyd>yym$="MINIMO":j=j+1:9590v%:j,3;"x=";x-.03{u\:j,15;m$ ^cn2,2;"La funcion coincide con eje ordenadas D";kk;"Y(x)=0": ,jjj=jjj+1:jjj=13040 :9890&::6,2;"SE SUGIERE EN LA GRAFICA 1:":8,2;"x min =";x(1)-.1}L;" x max =";x(4)+.2~L:x=x(4)+.3:9120#:10 ,2;"y min =";-(y*((nɺn)+(n=n)/2))-n /0jjj=110 ,18;"y max=";y+n 42:6:12 ,0;"Definir los extremos del grafico":14,2;"Minima abcisa=":posy=14:posx=17:2110>:a=r$:16,2;"Maxima abcisa=":posy=16:posx=17:2110>:b=r$:18,2;"Minima ordenada=":posy=18:posx=17:2110>:c=r$:20,2;"Maxima ordenada=":posy=20:posx=17:2110>:d=r$: 6&0:7:a>bx=a:a=b:b=x 8c>dy=c:c=d:d=y 9)k=00,2;"POLINOMIO" c=da=b72204 H*bb=220/(a-b):cc=160/(c-d) Jd<0c>010 ,2:220,0:v=010 :10 +22*v,0:0,4:v Kd>0c<04*(kk4)+5*(kk=4):10 ,-cc*c+10 :220,0:v=010 :10 +v*22,-cc*c+8:0,4:v La>0b<02,10 :0,160:v=010 :0,10 +16*v:4,0:v Ma<0b>0-bb*a+10 ,10 :0,160:v=010 :8-bb*a,10 +16*v:4,0:v Ok>55 PC1,16;a;"cbb*(x-a)+10 ,cc*(y-c)+10 :k00,13 ;" DEL POLINOMIO" g7k=0yc0,13 ;" " hJy>dy0"+"; V&a(1)0a(1);"*x"; `)i=2n+1:a(i)>0"+"; j(a(i)0n<25a(i);"*x^";i; ti:9800H&: k=kk:6:8,3;"ABCISA X=":posy=8:posx=13 :2110>:x=r$:x300,:9120#:c=y:k=k+1:9120#:d=y:3,4;"RECTA TANGENTE" 9x>300,:2,2;"X>300 No es valido": Kd.001wn5,4;"Y=";c;" ":7640 .d>.001wn5,4;"Y=";d;"*x";  c>d*x"+"; c-d*x W10 ,4;"RECTA NORMAL":d<.001wn12 ,4;"x=";x:7680 8d>.001wn12 ,4;"Y=";-1/d;"*x"; c+x/d>0"+"; c+x/d !18,4;"(x=";x;")": FBk=kk:9890&:j=1:x=x(1)x(4):9120# Jy<10 ^(-4)j=1:2:6:0,9 ;"RAICES ENTERAS":21,9 ;"ESPERE":0:7 Ly<10 ^(-4)j+2,5;"X=";x:c(1,j)=x:j=j+1:j1821,8;"PULSE TECLA":9998':j=3: Px Z7j=1:5,5;"No hay raices enteras" d7:1: 14,2;"Extremo inferior=":posy=14:posx=19:2110>:a=r$:17,2;"Extremo superior=":posy=17:posx=19:2110>:b=r$ Ha>300,Žb>300,:2,2;"Valor >300 no valido": 9650%:x=b:9120#:x(2)=b*y:x=a:9120#:x(3)=a*y:5,1;"INTEGRAL DEF[ Y(x)dx]=";x(2)-x(3):9800H&: @3010 :3040 J 2730 L$j=1:r=2̽a(n+1) T p=-aa̽aa ^x=p/r:9120# `jy10 ^(-5)j=1:0,4;"RAICES FRACCIONARIAS":21,15;"ESPERE" cy10 ^(-5)xɺxj<18j=j+1:j,0;"X=";x:j,14;p;"/";r:j=1821,12 ;"PULSE UNA TECLA":9998':j=1: ep:r hAj=1:5,0;"NO EXISTEN RAICES FRACCIONARIAS" r !*u=uu !/ 9890& !4j=0:kn !6h=x(1)x(4)+ll !9x=h !>9120#:c=y !H,x=x+l:9120#:c*y>08530R! !M/y*c0d=y:b=x:x=x-l:a=x:9502% !OT9120#:y<10 ^(-5)j300 No es valido":21,10 ;"PULSE TECLA":9998':: # y=0 #i=k+1n+1 # f=1 # w=1k # f=f*(i-w) $w $t=(i-k-1) $Hy=y+f*a(i)*(1-2*(t/2ɺ(t/2))*(x<0))*x^t $"i $' 9390$ $, f=1 $6 w=1k $@f=f*(k+1-w) $Jw $Ty=a(k+1)*f $^ 9390$ $ y=0 $ $ 9080x# %5480h:posy=21:posx=10 :2110>:k=r$::0,7;"UNA RAIZ IMPAR F";k:2,2;"Extremo inferior=":posy=2:posx=19:2110>:a=r$:5,2;"Extremo superior=":posy=5:posx=19:2110>:b=r$:s=1200:s::0,11 ;"RAIZ IMPAR":3040 :x=a:9120#:c=y:x=b:9120#:c*y>0k0d=y:x=a:a=b:b=x:x=a:9120#:c=y %0x=(a+b)/2:9120# %: y=0 %?(a-b)<10 ^(-9 ) %Dy>0b=x:d=y %Ny<0a=x:c=y %b y=0 %g 95200% %v1x=x*((x*10 ^uu+.5)/10 ^uu): % c=4 % x=1 %k=kk % 9120# %4(a(n+1))*y<0x=x+1:9613% %+k=k+1:k>n+1:x(c)=x:k=kk: % 9615% %'v=1n+1:a(v)=a(v)/v:v: &H%v=1n+1:a(v)=b(v):v: &Rdv=1n+1:a(v)=b(v)*((v/2ɺ(v/2))-(v/2=(v/2))):v:c=1: &z(9800H&:9611%:x(4)=x: &59800H&:9810R&:9612%:x(1)=-x: &&9850z&:9860&:9800H&: 'B23659k\,0:568:""di:23659k\,2: ' 9998' H