« View all new features in
Mathematica
9
◄
previous
|
next
►
New in
Mathematica
9
›
Units
Get Units from Wolfram|Alpha
Combine
WolframAlpha
and charting functions to compare the performance characteristics of different aircraft.
In[1]:=
X
aircraft = {"Boeing 747", "F-14 Tomcat", "Airbus A380", "Cessna 172"};
In[2]:=
X
aircraftdata = WolframAlpha[#, {{"Performance:AircraftData", 1}, "ComputableData"}] & /@ aircraft;
In[3]:=
X
Grid[{{ BarChart[Cases[aircraftdata, {"cruise speed", {x_, _}} :> x, -1], ChartStyle -> "Rainbow", ChartLabels -> aircraft, AxesLabel -> Automatic, PlotLabel -> "Cruising Speed", ImageSize -> 300], BarChart[ Cases[aircraftdata, {"range with maximum load", {x_, _}} :> x, -1], ChartStyle -> "Rainbow", ChartLabels -> aircraft, AxesLabel -> Automatic, PlotLabel -> "Range With Maximum Load", ImageSize -> 300] }, { BarChart[Cases[aircraftdata, {"maximum weight", {x_, _}} :> x, -1], ChartStyle -> "Rainbow", ChartLabels -> aircraft, AxesLabel -> Automatic, PlotLabel -> "Maximum Weight", ScalingFunctions -> "Log", ImageSize -> 300], BarChart[Cases[aircraftdata, {"operational ceiling", x_} :> x, -1], ChartStyle -> "Rainbow", ChartLabels -> aircraft, AxesLabel -> Automatic, PlotLabel -> "Operational Ceiling", ImageSize -> 300] }}]
Out[3]=