Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
test for linear congruential method
! ck=correlation,mk1=1st moment,mk2=2nd moment real n(100000),m,x(10000000),mk1,mk2,sd,var,ck a=16807 m=(2**63-1) n(0)=2 k=5000 c=10 do i=1,k n(I)=mod(((n(I-1))*a+c),m) x(I)=n(I)/m end do s=0 c=0 l=0 do i=1,k s=s+x(I) c=c+x(i)*x(i) l=l+x(I)*x(i+1) end do mk1=s/k mk2=c/k ck1=l/k var=mk2-mk1*mk1 sd=var**(.5) write(*,*)'1st moment=',mk1 write(*,*)'2nd moment=',mk2 write(*,*)'standard deviation=',sd write(*,*)'1st correlation coefficient=',ck1 end
run
|
edit
|
history
|
help
0
Secant Method
4(iii)
euler-cromer
finitos
Title
রাবেয়া সরকার রিমা 💙💚💛
divisibility rule
Pivot 3
A_01 FALSE_POSITION_METHOD
Practice 2(I)