Question

用Mathematica语言编写程序

产生100个0到1之间的随机数，计算这100个数的均值，并把这些数字和0.5比较，找出小于0.5，等于0.5，大于0.5的个数

Answer 1

RandonReal这个命令可以用来产生赝随机数，Mean命令可以做平均，
－－－－－－－－－－－－－－－－－
RandomReal[1, 100]
列出100个0到1之间的随机数
－－－－－－－－－－－－－－－－－
Mean[%]
算出平均值
－－－－－－－－－－－－－－－－－
找出小于0.5用下面命令
Do[If[s[[i]] < 0.5, j = j + 1, j = j], {i, 1, 100}]
然后看j的值就ok了
我用的是Mathematica7.0

Answer 2

"随机数"
arr = RandomReal[1, 100]
"平均值"
Mean[arr]
"小于0.5的数"
arrmin = Select[arr, # < .5 &]
"小于0.5的个数"
Length[arrmin]
"等于0.5的数"
arrequ = Select[arr, # == .5 &]
"等于0.5的个数"
Length[arrequ]
"大于0.5的数"
arrmax = Select[arr, # > .5 &]
"大于0.5的个数"
Length[arrmax]
(*不需要显示那些大量的数据时只需输入:*)
"平均值"
Mean[arr = RandomReal[1, 100]]
"小于0.5的个数"
Length[arrmin = Select[arr, # < .5 &]]
"等于0.5的个数"
Length[arrequ = Select[arr, # == .5 &]]
"大于0.5的个数"
Length[arrmax = Select[arr, # > .5 &]]