Ogive

Author

Eric W. Weisstein
April 29, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Statistics/Ogive.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Ogive.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Data

SeedRandom[1];

data=RandomReal[NormalDistribution[50,15],100];
bins=BinCounts[data,{0,100,10}];

Through[{Max,Min}[data]]

Frequency Polygon

Transpose[{Range[5,95,10],bins}]

cum=Table[Tr[Take[bins,i]],{i,10}];

V5

GraphicsArray[{
ListPlot[Transpose[{Range[5,95,10],bins}],Joined->True,Axes->False,Frame->True,FrameLabel->{"class marks","frequency"},
FrameTicks->{Automatic,Automatic,None,None}],
ListPlot[Transpose[{Range[5,95,10],cum}],Joined->True,Axes->False,Frame->True,FrameLabel->{"class marks","cumulative\n frequency"},
FrameTicks->{Automatic,Automatic,None,None}]
},ImageSize->400]

V6

GraphicsRow[{
ListPlot[Transpose[{Range[5,95,10],bins}],Joined->True,Axes->False,
Frame->True,FrameLabel->{"class marks","frequency"},
FrameTicks->{Automatic,Automatic,None,None},
FrameStyle->{{},{{}},{GrayLevel[1]},{GrayLevel[1]}}],
ListPlot[Transpose[{Range[5,95,10],cum}],Joined->True,Axes->False,
Frame->True,FrameLabel->{"class marks","cumulative frequency"},
FrameTicks->{Automatic,Automatic,None,None},
FrameStyle->{{},{{}},{GrayLevel[1]},{GrayLevel[1]}}]
}]