home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / Mathematics / Notebooks / IP_Histogram / example.ma next >
Encoding:
Text File  |  1992-08-17  |  1.6 KB  |  54 lines
  1. <<histogram.m
  2. <<Statistics/NormalDistribution.m
  3.  
  4. pencils=Join[Table[18.81,{i,2}],
  5.              Table[18.83,{i,1}],
  6.              Table[18.84,{i,2}],
  7.              Table[18.85,{i,2}],
  8.              Table[18.86,{i,4}],
  9.              Table[18.87,{i,7}],
  10.              Table[18.88,{i,9}],
  11.              Table[18.89,{i,10}],
  12.              Table[18.90,{i,17}],
  13.              Table[18.91,{i,22}],
  14.              Table[18.92,{i,28}],
  15.              Table[18.93,{i,32}],
  16.              Table[18.94,{i,40}],
  17.              Table[18.95,{i,51}],
  18.              Table[18.96,{i,56}],
  19.              Table[18.97,{i,59}],
  20.              Table[18.98,{i,63}],
  21.              Table[18.99,{i,65}],
  22.              Table[19.00,{i,69}],
  23.              Table[19.01,{i,66}],
  24.              Table[19.02,{i,61}],
  25.              Table[19.03,{i,59}],
  26.              Table[19.04,{i,50}],
  27.              Table[19.05,{i,48}],
  28.              Table[19.06,{i,38}],
  29.              Table[19.07,{i,33}],
  30.              Table[19.08,{i,26}],
  31.              Table[19.09,{i,22}],
  32.              Table[19.10,{i,15}],
  33.              Table[19.11,{i,13}],
  34.              Table[19.12,{i,9}],
  35.              Table[19.13,{i,8}],
  36.              Table[19.14,{i,4}],
  37.              Table[19.15,{i,5}],
  38.              Table[19.16,{i,2}],
  39.              Table[19.17,{i,1}],
  40.              Table[19.18,{i,1}]
  41.              ];
  42.        
  43. PencilBins = Table[{18.795+i,18.805+i},{i,0,.39,.01}];
  44. BinLabels=Table[18.80+i,{i,0,.39,.01}];
  45.  
  46. hist = Histogram[pencils,PencilBins,BinLabels,False]
  47.  
  48. nc[mu_,sigma_,x_] := PDF[NormalDistribution[mu,sigma],x]
  49.  
  50. normalcurve=Plot[nc[19,.06,x],{x,18.79,19.21},
  51. Axes->{True,False},PlotRange->{-.5,7},
  52. Ticks->{{18.8,18.9,19.0,19.1,19.1,19.2},{}}]
  53.  
  54. Show[hist,normalcurve]