bell.nb

In[1]:=

In[2]:=

Out[4]=

In[5]:=

Out[5]=

In[6]:=

Out[6]=

In[7]:=

Out[7]=

In[8]:=

Out[8]=

In[9]:=

Out[9]=

In[10]:=

Out[12]=

In[13]:=

Out[13]=

In[14]:=

$1 - (Table[(1/Sqrt[2 * Pi]) * NIntegrate[E^(-(t^2/2)), {t, -Infinity, (Z)}]])$

Out[14]=

In[15]:=

Out[15]=

In[16]:=

$bellPlot[lis_List, {var_, varmin_, varmax_}, opts___] := Module[{mn, sd}, mn = Mean[lis] ; sd = StandardDeviation[lis] ; pts = Map[ {PointSize[.02], Hue[0], Point[{#, 0.02}]} &, lis] ; plt = Plot[PDF[NormalDistribution[mn, sd], var], {var, varmin, varmax}, Epilog -> pts, opts]]$

In[17]:=

[Graphics:HTMLFiles/bell2_24.gif]

Out[17]=

In[18]:=

$Export["c:\\web\\bell.gif", q, ImageResolution -> 138]$

Out[18]=

$c:\\web\\bell.gif$

In[19]:=

$Export["c:\\web\\numbers2.txt", MapThread[StringJoin, {{"Defective parts per million = ", "Closest limit/sigma ratio = ", "Cpk = ", "Bell curve mean = ", "Sigma (standard deviation) = ", "Minimum distance from the mean to a tolerance limit = "}, Map[ToString, {NumberForm[e, 9], NumberForm[u, 9], NumberForm[g, 9], NumberForm[m, 9], NumberForm[s, 9], NumberForm[c, 9]}]}], "List"]$

Out[19]=

$c:\\web\\numbers2.txt$

Converted by Mathematica (October 22, 2002)