Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Regression
!gfortran, gcc version 7.4. PROGRAM LINEAR_REGRESSION IMPLICIT NONE INTEGER,PARAMETER::N=20 REAL,DIMENSION(N)::X,Y INTEGER::I REAL::S1,S2,S3,S4,A,B WRITE(*,*)"*REGRESSION EQUATION OF CORONA UPDATE OF GRENADA IN THE & FORM Y=B+MX,WHERE B IS INTERCEPT AND M IS SLOPE*" DATA X/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20/!NUMBBER OF WEEKS DATA Y/1,3,5,7,8,9,11,12,14,18,20,22,23,23,25,26,28,30,32,35/ !NUMBER OF PEOPLE INFECTED DO I=1,N S1=S1+X(I) S2=S2+X(I)**2 S3=S3+Y(I) S4=S4+X(I)*Y(I) END DO B=((N*S4)-(S1*S3))/((N*S2)-(S1**2)) A=(S3-(S1*B))/N WRITE(*,6)A,B 6 FORMAT(2X,"Y=",F9.7,"+",F9.7,1X,"X") END PROGRAM LINEAR_REGRESSION
run
|
edit
|
history
|
help
0
A_01 QN:1(I) BISECTION METHOD
A_01 BISECTION METHOD
Vi ss. F
DO WHILE DO
prime list 2
Find HM
222
Ghhhb
A_01 FALSE_POSITION_METHOD
LU gauss