Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Rand
REAL X(10000) N=5000 DO I=1,N X(I)=RAND() END DO S=0 DO I=1,N S=S+X(I) S1=S1+X(I)*X(I) END DO S1=S1/N S=S/N D=SQRT(S1-S*S) WRITE(*,*)'MEAN IS',S,D END
run
|
edit
|
history
|
help
0
A_01 QN:3
Practice 4 I
Sum of series
4(ii)
A_02 JACOBIAN NEWTON'S METHOD
A_02 JACOBIAN NEWTON'S ITERATIVE METHOD
euler-cromer
stochastic matrix
euler-cromer
A_04 SIMPSON'S RULE (3(I))