Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_04 TRAPEZOIDAL RULE (3(I))
PROGRAM TRAPEZOIDAL_RULE IMPLICIT NONE REAL :: F,DX,A,B,X,S,C INTEGER :: I,N PRINT*,'INPUT THE VALUE OF LOWER AND UPPER LIMIT RESPECTIVELY:' READ*,A,B PRINT*,' INPUT THE VALUE OF N:' READ*,N DX=(B-A)/N S=0 DO I=0,N X=A+I*DX PRINT *,X IF (X==A .OR. X==B) THEN C=1 ELSE C=2 END IF S=S+(DX/2.0)*C*F(X) END DO PRINT *, S END PROGRAM TRAPEZOIDAL_RULE REAL FUNCTION F(X) IMPLICIT NONE REAL :: X F=(X**2)*EXP(X) END FUNCTION F
run
|
edit
|
history
|
help
0
testcompiler.f90
SIUM(3.5)
Title
নাজমুন নাহার
s
1
LU gauss
Shooting method
Dynamical Memory Allocation fortran
A_04 SIMPSON'S ONE THIRD(3(I))