Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Practice 4 I
PROGRAM NR IMPLICIT NONE REAL::F,TOL REAL, DIMENSION(1000)::X INTEGER::A,I,M PRINT*,'INPUT A POSITION INTEGER:' READ*,A PRINT*,'INPUT THE VALUE OF M AND TOL:' READ*,M,TOL X(0)=0.1 DO I=1,M,1 X(I+1)=(X(I)/2)+(A/2*X(I)) PRINT*,I,X(I+1) IF(ABS(X(I+1)-X(I))<TOL)THEN PRINT*,'THE SOLUTION IS:',X(I+1) STOP END IF END DO END PROGRAM NR REAL FUNCTION F(X) IMPLICIT NONE REAL::X INTEGER::A F=X**2.0-A END FUNCTION F
run
|
edit
|
history
|
help
0
QE
Random walk by using Monte Carlo method
my_first_code
Q1
New3
my_second_code
Ashish.txt
Question1(b)
gghhhhh
3