Hi! I need to solve this exercise :
m = 2^35
t1 = {3141592653, 2718281829}
i = 3
While[i <= 1000, t1 = Join[t1, {Mod[t1[[i - 1]] + t1[[i - 2]], m]}];
i++]
t1 = t1/m
<< Statistics`DataManipulation`
BC1 = BinCounts[t1, {0, 1, 0.1}]
X21 = 0.001*\:f870((BC1[[z]]^2)/0.1) - 1000
<< Graphics`Graphics`
BarChart[BC1]
<< Statistics`HypothesisTests`
NormalPValue[t1] // N
MeanTest[t1, 0.5, FullReport -> True]
with using "MeanTest" function and I need to make uniform distribution for this graphic and function.
Attachments:
