Chronology | Current Month | Current Thread | Current Date |
[Year List] [Month List (current year)] | [Date Index] [Thread Index] | [Thread Prev] [Thread Next] | [Date Prev] [Date Next] |
On Sep 9, 2005, at 11:43 PM, Bernard Cleyet wrote:
Ludwik!
pse post the source code.
PROGRAM TESTING
!***********************
randomize
let n=1000 ! how many samples from random distr
let meanx=2.2
let stdev=0.5
let sum=0
print "stdev=";stdev
for i=1 to n
call GET_X(mean,stdev,x) ! "measuring" (get x)
let y=x^4 ! calculating from x
let sum=sum+y
next i
let YY=sum/n ! mean from y
print " YY=";YY
end
SUB GET_X(meanx,stdev,x) ! "measuring one x" from
!********************** ! an imposed Gaussian distr
let sum=0
for i=1 to 12
let sum=sum+rnd
next i
let z=sum-6
let x=z*stdev+meanx
end sub
On Sep 9, 2005, at 11:42 AM, Pamela L. Gay wrote:
Okay I'm game for a simulation. Played with excel for 30 seconds and
for