El forero Huzaan responde en primera persona cuando se está hablando de Monedero

apolyon

Madmaxista
Desde
22 Mar 2020
Mensajes
5.823
Reputación
12.307
Jojojo menuda pillada, tranqui camarada son solo obreros de derechas ..lumpen de baja estirpe.. ya sabemos que tu no puedes ser Monedero y menos con esos colores de arcoiris en el perfil..jajajaja
 

Javito68

Madmaxista
Desde
28 Mar 2020
Mensajes
7.795
Reputación
26.168
Ya veo, ¿y sabes que lenguaje es este?:


APLICACION
DIMENSION TIEMPO(1000),PROD(1000)
OPEN(1,FILE='HISTORIA.txt')
I=0
10 READ(1,*,END=80)T,P
I=I+1
TIEMPO(.l.)=T
PROD(I)=P
GO TO 10
80 NDATOS=I
CALL AJULIN(TIEMPO,PROD,NDATOS,A,B)
WRITE(*,90)A,B
90 FORMAT('LA ECUACION ES:Y=',F10.2,'+',F10.2,'X')
20 FORMAT(20F10.0)
END

SUBROUTINE AJULIN(X,Y,N,A,B)
DIMENSION X(1),Y(1)
SUMX=0.
SUMY=0.
SUMX2=0.
SUMY2=0
SUMXY=0
DO 20 I=1,N
SUMX=SUMX+X(.l.)
SUMY=SUMY+Y(.l.)
SUMX2=SUMX2+(X(I)*X(.l.))
SUMY2=SUMY2+Y(I)**2
SUMXY=SUMXY+(X(I)*Y(I))
20 CONTINUE
PROD=SUMX*SUMY
B=(SUMXY-PROD/N)/(SUMX2-SUMX**2/N)
A=(SUMY/N-B*SUMX/N)
RETURN
END
cachopo!!!

un código escrito en FORTRAN, hacia 30 años que no veía uno escrito.