« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Units
Visualize Units Using Gauges
Use
AngularGauge
to visualize educational attainment data for different locations.
In[1]:=
X
EducationGauge[location_String] := With[{edudata = WolframAlpha[ location, {{"ACSEducationEntrainments:ACSData", 1}, "ComputableData"}]}, Panel[Row[{AngularGauge[Last /@ edudata, {0, 100}, GaugeLabels -> "Unit"], SwatchLegend[63, First /@ edudata]}], Style[location <> " educational attainment", "Subsection"]]]
In[2]:=
X
EducationGauge["Chicago, IL"]
Out[2]=
In[3]:=
X
EducationGauge["Champaign, IL"]
Out[3]=
In[4]:=
X
EducationGauge["Denver, CO"]
Out[4]=