Conceitos Gerais - 13/8/2013 - Vito R. Vanin

Exemplo da metalização - Figura 1.2

Histogram[ Ceiling[RandomVariate[UniformDistribution[{0,15}],28] ],15 ]

Variando o número de átomos evaporados, n

Manipulate[Histogram[Ceiling[RandomVariate[UniformDistribution[{0,15}],n] ],15 ],{{n,28},2,1000,1}]

Média e desvio-padrão do centro de massa dos átomos evaporados

Manipulate[Module[{u},u=Ceiling[RandomVariate[UniformDistribution[{0,15}],n] ];
Print["média=",Round[Mean[u],0.1],"  desvio-padrão= ",Round[StandardDeviation[u],0.1] , " com n= ",n];
Histogram[u,15 ] ],{{n,28},2,1000,1}]

A média como estatística que estima a grandeza

Manipulate[Module[{exemplo,u},exemplo=RandomVariate[NormalDistribution[20,3],n];u=Table[ Mean[RandomVariate[NormalDistribution[20,3],n] ],{repeticao}];
GraphicsRow[{Histogram[exemplo],Histogram[u] }]],{{n,20},2,1000,1},{{repeticao,10},2,10000,1}]

A média do conjunto de dados sem os extremos para estimar a grandeza

Manipulate[Module[{exemplo,u},exemplo=RandomVariate[NormalDistribution[20,3],n];u=Table[ Mean[Rest[Most[Sort[RandomVariate[NormalDistribution[20,3],n] ]]]],{repeticao}];
GraphicsRow[{Histogram[exemplo],Histogram[u] }]],{{n,20},2,1000,1},{{repeticao,10},2,10000,1}]

A média dos extremos para estimar a grandeza

Manipulate[Module[{exemplo,u},exemplo=RandomVariate[NormalDistribution[20,3],n];u=Table[ Mean[Sort[RandomVariate[NormalDistribution[20,3],n] ][[{1,-1}]]],{repeticao}];
GraphicsRow[{Histogram[exemplo],Histogram[u] }]],{{n,20},2,1000,1},{{repeticao,10},2,10000,1}]