REGRESION F(#FwFPrograma "REGRESION"  * ESTADISTICA * REGRESION LINEAL  3 1984. / J. A. LAJARIN SOFTWARE. Murcia. _______________________ _______________________  'a(t=((t)=((100d/t))/10 Z&6:6::1,30 d`yy=502:xs=2:ys=10 :p$="ESTADISTICA":0:90102#:502:6 e502:.1}L,20::0:5,5;"Esta programacion consta de";7,0;"tres partes independientes, pero";9 ,0;"entrelazadas entre si a criterio";11 ,0;"del usuario.";20,3;1;1;"PULSAR ENTER" fI0:.1}L,20::6;0;5,8;"O P C I O N A":8,3;"Se introducen pares de valo- res EXPERIMENTALES X e Y , paraobtener 6 ECUACIONES y elegir lamas exacta.";12 ,3;"Al final se puede enlazar conla opcion C y obtener los grafi-cos de cada una de estas ecuaci-ones." g1;1;20,3;"PULSAR ENTER":0:.1}L,20::6;0;5,8;"O P C I O N B":8,4;"Igual que la opcion A , perocon la posibilidad de represen- tar graficamente LOS PUNTOS co- rrespondietes a los pares de va-lores introducidos y en el MISMOGRAFICO representar la ecuacion elegida y comprobar si pasa por estos puntos." h1;1;20,3;"PULSAR ENTER":0:.1}L,20::6;0;5,8;"O P C I O N C":8,5;"Conocida una ecuacion cual-quiera, se la representa graficamente.";11 ,5;"Se pueden elegir LIMITES inferior y superior para la X,CEN-TRO de coordenadas en 0 o en el valor menor de X, ESCALAS delos EJES iguales o no.";16,5;"Asi como, para el caso de la funcion de la CIRCUNFERENCIA, grafiar tambien la parte NEGATI-VA de la funcion." ib21,3;0;6;1;1;"PULSAR ENTER":0:.1}L,20 jJ0::yy=0:xs=2:ys=3:p$="OPCIONES":90102# k6:0:4,6;"":6;0;1;8,3;"PULSAR :";12 ,2;"a) Grafico experimental";14,2;"b) Grafico analitico";16,2;"c) Grafico cualquier funcion" l]0:="a"Ŧ="A"a1=1:d=3000 :d2=3520 :.1}L,20:112p mc="b"Ŧ="B"a1=2:d=1160:d1=3540 :d2=3540 :.1}L,20:112p nV="c"Ŧ="C"a1=3:d1=2148d:d2=3520 :.1}L,20:1090B o 108l pQ:yy=502:xs=1:ys=3:p$="NUMERO PARES DE VALORES":90102# s!"Pares = ";a:.1}L,20 xA<221,0;"DEBES INTRODUCIR 2 PARES MINIMO":1.5@,-2:502:21,0;" ":115s ~ x(a):y(a) 1000 n=1a 0b=n-(((n-1)/18)*18)+1 n=18:1000 G"Valor de X =";x(n):.1}L,20:b,2;"X(";n;") = ";x(n) H"valor de Y =";y(n):.1}L,20:b,18;"Y(";n;") = ";y(n) n e#1;1;1;"DATOS CORRECTOS? S/N":0:="n"Ŧ="N"1,0:128 .1}L,20::yy=502:xs=3:ys=5:p$="CALCULANDO":90102#:#1;6;0;1;" Unos segundos de espera":502 d n6::6:0:"Valores de X","Valores de Y":1,0;"","": BV:yy=80P:xs=1:ys=2:p$="INTRODUCIR VALORES":90102#:502 Gi:yy=2:xs=2:ys=3:p$="FUNCIONES":90102#:3,5;"";7,2;"POTENCIAL Introducirla comoserie de factores.";10 ,1;"Ej. x^2=x*x";12 ,2;"RADICACION Introducirla con (x).";15,1;"Ej. (x)";17,0;"Para evitar raices imaginarias." I0"Funcion en X : Y =";m$:.1}L,20: Vb"Limite inferior de X = ";p:.1}L,20:"Limite superior de X = ";q:.1}L,20 Xw"Puntos a representar";a:.1}L,20:a<21,0:;1;"Deben ser al menos 2":1112X Y4r=((q-p)/(a-1)):x(2*a):y(2*a) `:yy=0:xs=2:ys=3:p$="CONDICIONES":90102#:yy=30:xs=2:ys=3:p$="F U N C I O N":90102#:7,5;"" ax2:7:11 ,4;"1) Funcion POSITIVA";14,4;"2) POSITIVA y NEGATIVA":7:0 bF#1;1;1;7;" Pulsar la CONDICION elegida" c4="1"b=1160:.1}L,20:1130j d4="2"b=1150~:.1}L,20:1130j e 1123c j 3550 ox=p-r t$n=1a+1:x=x+r:x(n)=x u(X=0X=.0000000001_[:x(n)=x v y(n)=m$ wn yb ~`n=a+12*a-1:x=x-r:x(n)=x:y(n)=(m$):y(n)=(-1)*y(n):n:a=2*a :yy=0:xs=2:ys=3:p$="CONDICIONES":90102#:yy=30:xs=2:ys=3:p$="G R A F I C A S":90102#:7,1;"" 6;12 ,0;"* Origen Coord. en cero";1;7;1;12 ,27;"SI";12 ,30;"NO";7;0;0 ;="s"Ŧ="S"bb=2080 :.1}L,20:1175 ;="n"Ŧ="N"bb=21004:.1}L,20:1175  1170 12 ,0;" ":6;15,0;"* Escalas ejes IGUALES";1;7;0;15,27;"SI";15,30;"NO";7;0;0 <="s"Ŧ="S"bbb=2110>:.1}L,20:1180 <="n"Ŧ="N"bbb=2115C:.1}L,20:1180  1176  3550 +c=y(1):n=2a:y(n)>cc=y(n) n .cc=y(1):n=2a:y(n)ff=x(n) n .ff=x(1):n=2a:x(n)0cc=0 *ff>0ff=0 4,ccc=165/(c-cc):fff=245/(f-ff) 9bbb >ccc16.5*10 ^(n-1)gg=10 ^n In Mcn=-35:f-ff24.5D*10 ^nf-ff>24.5D*10 ^(n-1)g=10 ^n Nn Pcc0e=0 Qcc<0e=cc*ccc Se<144ee=e Uff0d=0 Wff<0d=ff*fff+s Yd144dd=144 [d<144dd=d \d160kk=0 ^d<160kk=20 `e<144k=0 be144k=21 cd1 dS:0,e:255,0:((176-ee)/8)-3,kk;"X 1div.=";g f;m=0(f-ff)g:s+fff*m,e-1:0,2:m hBd,0:0,175:k,dd/8+1;"Y1div.=";gg j:m=0(c-cc)gg:d-1,ccc*m:2,0:m ud2 z 0  3530 #0::a122182 a1=21;7;1;1;17,6;"Para salir pulsa S":8,6;"FINAL de la Opcion B ,sideseas probar con otra ECUACION,pulsa ";1;" ENTER.":0:="s"Ŧ="S".1}L,20::105i .1}L,20:3463 a1=110 ,5;"FINAL de la Opcion A - C";12 ,0;"Volver a OPCIONES pulsando ENTER":0:105i a1=32210 s:yy=180:xs=1:ys=1:p$="Pulsar ""A""comparar valores":90102#:0:="a"3560 Dyy=15:xs=2:ys=2:p$="CONTINUACION":90102# !1;7;1;4,2;"";7,3;"PULSAR";10 ,5;"a) Empezar en OPCIONES";12 ,5;"b) Modificar FUNCION";14,5;"c) Modificar CONDICIONES";16,5;"d) Valores Grafico";18,5 -="a"Ŧ="A".1}L,20::106j .="b"Ŧ="B".1}L,20::1095G .="c"Ŧ="C".1}L,20::1110V .="d"Ŧ="D".1}L,20::2250  2214 jyy=0:xs=2:ys=3:p$="VALORES GRAFICO":1:7:90102#:7:0 ԅ3,1;"";5,1;"FUNCION Y = ";m$;7,0;"X(1) ..... ";x(1);7,16;"y(1) ..... ";y(1);9 ,0;"x(";a;") ... ";x(a);9 ,16;"y(";a;") ... ";y(a);11 ,0;"X maxima . ";f;11 ,16;"Y maxima . ";c;13 ,0;"X minima . ";ff;13 ,16;"Y minima . ";cc <r$=r+".00000":15,0;"Pares val. ";a;15,16;"Step ..... ";r$(15):l$=fff+".0000":17,0;"F.Eje X .. ";l$(14):k$=ccc+".00000":17,16;"F.Eje Y .. ";k$(15);19,0;"Una div. X=";g;19,16;"Una div. Y=";gg ބ21,5;3;"--------------------":#1;1;1;1;7;"Para Volver al GRAFICO: Pulsar A" 50:="A"Ŧ="a".1}L,20:2130R  105i T!Subrutina valores experimenales s(18):Sumatorios d1=2148d 0Funciones LOG.base 10 y limitcion de decimales l(x )=x/10 'i(x8v)=(x*1000)/1000 +j(x6)=(x*100000CP)/100000CP Calculo de los SUMATORIOS fn=1a:s(1)=s(1)+x(n):s(2)=s(2)+y(n):s(3)=s(3)+x(n)*y(n) &Bs(4)=s(4)+x(n)*x(n):s(5)=s(5)+y(n)*y(n) 0&x(n)=0x(n)=0.000000001c p_@ :&y(n)=0y(n)=0.000000001c p_@ Ds(6)=s(6)+x(n):s(7)=s(7)+y(n):s(8)=s(8)+x(n)*y(n):s(9 )=s(9 )+(x(n))*(x(n)) Nqs(10 )=s(10 )+(y(n))*(y(n)):s(11 )=s(11 )+x(n)*y(n):s(12 )=s(12 )+y(n)*x(n) Xxs(13 )=s(13 )+x(n)*l(y(n)):s(14)=s(14)+l(y(n)):s(15)=s(15)+(l(y(n)))*(l(y(n))) bxs(16)=s(16)+y(n)*l(x(n)):s(17)=s(17)+l(x(n)):s(18)=s(18)+(l(x(n)))*(l(x(n))) gn k!Reserva Coeficientes ecuaciones l'k(12 ):b(12 ):z(12 ) vECUACION LINEAL Sx=s(1):y=s(2):xy=s(3):h=s(4):i=s(5):3500 <k(1)=k:b(1)=b:z(1)=z:a$="b(1)+k(1)*x" EXPONENCIAL N. Ux=s(1):y=s(7):xy=s(11 ):h=s(4):i=s(10 ):3500 Lk(2)=k:b(2)=b:z(2)=z:b$="b(2)*(10^(1/10))^(k(2)*x)" LOGARITMICA N. Tx=s(6):y=s(2):xy=s(12 ):h=s(9 ):i=s(5):3500 =k(3)=k:b(3)=b:z(3)=z:c$="b(3)+k(3)*x" POTENCIAL Tx=s(6):y=s(7):xy=s(8):h=s(9 ):i=s(10 ):3500 =k(4)=k:b(4)=b:z(4)=z:d$="b(4)*x^k(4)"  EXPONENCIAL 10 Vx=s(1):y=s(14):xy=s(13 ):h=s(4):i=s(15):3500 Jk(5)=k:b(5)=10 ^b:z(5)=z:e$="b(5)*10^(k(5)*x)" LOGARITMICA 10 Vx=s(17):y=s(2):xy=s(16):h=s(18):i=s(5):3500 @k(6)=k:b(6)=b:z(6)=z:f$="b(6)+k(6)*l(x)" Limitacion de decimales \n=712 :k(n)=i(k(n-6)):b(n)=i(b(n-6)):z(n)=j(z(n-6)):n HEcuacion RECTA M:yy=104h:xx=25:xs=2:ys=3:p$="Y":9020<#:xx=491:p$="=":9020<#:xx=129:p$="+":9020<#:xx=209:p$="X":9020<# Oyy=40(:xs=2:ys=2:p$="Lineal":90102#:7,9 ;"______________";14,10 ;b(7);14,19;k(7) P0,0;"A = ";b(1);2,0;"B = ";k(1):1;7;1;18,0;"Coeficiente correlac. = ";z(7) R 3510 WE:yy=40(:xs=2:ys=2:p$="Exponencial":90102# Yp7,4;"__________________________";14,10 ;b(8);13 ,22;k(8);" X" \yy=102f:xx=25:xs=2:ys=3:p$="Y":9020<#:xx=491:p$="=":9020<#:xx=155:p$="E":9020<# ]0,0;"A = ";b(2);2,0;"B = ";k(2):1;7;1;18,0;"Coeficiente correlac. = ";z(8) ^ 3510 aG:yy=40(:xs=2:ys=2:p$="Logaritmica N":90102# cn7,1;"______________________________";14,8;b(9 );14,17;k(9 ) fyy=102f:xx=25:xs=2:ys=3:p$="Y":9020<#:xx=40(:p$="=":9020<#:xx=116t:p$="+":9020<#:xx=191:p$="Ln X":9020<# g0,0;"A = ";b(3);2,0;"B = ";k(3):1;7;1;18,0;"Coeficiente correlac. = ";z(9 ) h 3510 kC:yy=40(:xs=2:ys=2:p$="Potencial":90102# mg7,6;"____________________";14,10 ;b(10 );13 ,20;k(10 ) pyy=102f:xx=25:xs=2:ys=3:p$="Y":9020<#:xx=491:p$="=":9020<#:xx=137:p$="X":9020<# q0,0;"A = ";b(4);2,0;"B = ";k(4):1;7;1;18,0;"Coeficiente correlac. = ";z(10 ) r 3510 uH:yy=40(:xs=2:ys=2:p$="Exponencial 10":90102# wv7,1;"______________________________";14,10 ;b(11 );13 ,21;k(11 );" X" zyy=102f:xx=25:xs=2:ys=3:p$="Y":9020<#:xx=491:p$="=":9020<#:xx=129:p$="10":9020<# {0,0;"A = ";b(5);2,0;"B = ";k(5):1;7;1;18,0;"Coeficiente correlac. = ";z(11 ) | 3510 }H:yy=40(:xs=2:ys=2:p$="Logaritmica 10":90102# ~p7,1;"______________________________";14,7;b(12 );14,17;k(12 ) yy=102f:xx=17:xs=2:ys=3:p$="Y":9020<#:xx=32 :p$="=":9020<#:xx=112p:p$="+":9020<#:xx=191:p$="Lg X":9020<# 0,0;"A = ";b(6);2,0;"B = ";k(6):1;7;1;18,0;"Coeficiente correlac. = ";z(12 ) 3510 7Presentacion para enlazar con la LINEA 1100, opcion C :7;1;1;5,6;"FINAL de la OPCION A":10 ,5;"Pulsar ENTER si deseas en- lazar con la opcion C y obtenerlas representaciones graficas deestas ECUACIONES." <16,5;"Pulsar ""r"" para volver a OPCIONES." ="r"105i 0 A:yy=0:xs=3:ys=2:p$="GRAFICOS":90102# Hyy=24:xs=2:ys=3:p$="DE LAS FUNCIONES":90102# *6,6;"" 1;7;0;8,3;"PULSAR :";11 ,8;"1) RECTA";13 ,8;"2) EXPONENCIAL N";15,8;"3) LOGARITMICA N" 1;7;0;17,8;"4) POTENCIAL";19,8;"5) EXPONENCIAL 10";21,8;"6) LOGARITMICA 10" -="1"m$=a$:.1}L,20:1100L -="2"m$=b$:.1}L,20:1100L -="3"m$=c$:.1}L,20:1100L -="4"m$=d$:.1}L,20:1100L -="5"m$=e$:.1}L,20:1100L -="6"m$=f$:.1}L,20:1100L 3469 Ik=(xy-x*y/a)/(h-x*x/a):b=(y-k*x)/a:z=(b*y+k*xy-(y*y/a))/(i-(y*y/a)): e#1;1;1;6;" Pulsar ENTER ":0:.1}L,0: Cm=1a:(x(m)-ff)*fff+s,(y(m)-cc)*ccc+2:m:2170z ʳ(x(1)-ff)*fff+s,((y(1)-cc)*ccc)+2:n=2a:((x(n)-ff)-(x(n-1)-ff))*fff,((y(n)-cc)-(y(n-1)-cc))*ccc:(x(n)-ff)*fff+s,(y(n)-cc)*ccc+2:n: ԧd1=2148d:d2=3545 :a2=a:d(a2):e(a2):a(a2):c(a2):m=1a2:d(m)=x(m):e(m)=y(m):a(m)=(x(m)-ff)*fff+s:c(m)=((y(m)-cc)*ccc)+2:m:3000 ٴm=1a2:a(m),c(m):-2,0:4,0:-2,0:0,-2:0,4:m:#1;1;1;"Pulsar ENTER":0:3520 I:yy=70F:xs=2:ys=2:p$="UNOS SEGUNDOS":90102#: Hyy=0:xs=1:ys=2:p$="ERRORES RELATIVOS":90102# x'''';4;"X";7;" ";9 ;"Y Exp.";15;" ";17;"Y Ecua";23;" ";25;"Error R" #" ______ ______ ______ _______" r(a2)::n=1a2::5+n,1;d(n);5+n,7;" ";5+n,9 ;e(n);5+n,15;" ":x=d(n):5+n,17;m$;5+n,23;" ":r(n)=e(n)-m$:5+n,25;i(r(n)*100d/e(n));5+n,30;" %":n: #(64868d:"":1 #2'xx=(256-8*xs*p$)/2 #<i=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:i+n,p$(n):n:i+w+1,255:w=64869e: '236099\,0 '5"REGRESION"9000(#:"M/C"64869e,300, M/C ,e6.![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[h2[: [G: [2 [*[Å2[: [G: [2[: [O :[<2[ :[<2[ :[Õ@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// P