10 PRINT"REGRESION LINEAL
20 CLS:INPUT"NUMERO DE PUNTOS CONOCIDOS (Xi,Yi) . .  :";N
30 A#=0:B#=0:C#=0:D#=0:E#=0:F#=0
35 PRINT"COORDENADAS DE LOS PUNTOS . :";
40 FOR P=1 TO N
60 PRINT TAB(33)"X (";P;") =";:INPUT;X#:PRINT TAB(54)"Y (";P;") =";:INPUT Y#
70 A#=A#+X#:B#=B#+Y#:C#=C#+X#*X#:D#=D#+Y#*Y#:F#=F#+X#*Y#
80 NEXT P
90 S#=(N*F#-B#*A#)/(N*C#-A#*A#)
100 R#=(B#-S#*A#)/N
105 'print "a,b,c,f,s,r" a#,b#,c#,f#,s#,r#
110 PRINT
120 PRINT"Y(x) =";R#;"+ (";S#;"* X )"
130 A#=S#*(F#-A#*B#/N)
140 D#=D#-B#*B#/N:F#=A#/D#:B#=D#-A#
150 PRINT"COEFICIENTE DE DETERMINACION      T*T=";F#
160 PRINT"COEFICIENTE DE CORRELACION (66% Yi) T=";SQR(F#)
170 PRINT"ERROR ESTANDARD DE ESTIMACION   Yim-Y=";SQR(b#/(n-2))
180 PRINT"INTERPOLACION (Introducir <0> para finalizar programa)"
190 PRINT TAB(33)"X =";:INPUT;X#
200 IF X#=0 THEN 230
210 PRINT TAB(54)"Y =";R#+S#*X#
220 GOTO 190
230 SYSTEM