計算機科学のブログ

知識を広げる 精選データを使う 分子量、地理、標高、気温、栄養価、沸点、リスト、昇順、Sort、金融、株価、国旗、遺伝子配列、染色体

ハンズ・オン・スタートMathematica® -Wolfram言語™によるプログラミング (C・ヘイスティング(著)、K・ミショー(著)、M・モリソン(著)、ウルフラム・リサーチ(翻訳)、丸善出版)の第2部(知識を広げる)、第21章(精選データを使う)の練習問題1、2、3、4、5、6、7、8、9、10の解答を求めてみる。

molecular weight of hydrochloric acid and nitric acid

Entity["Chemical", "AquaRegia"][EntityProperty["Chemical", "RelativeMolecularMass"]]
99.47

us highest elevation - Canada highest elevation

Entity["Country", "UnitedStates"][EntityProperty["Country", "HighestElevation"]] - Entity["Country", "Canada"][EntityProperty["Country", "HighestElevation"]]
Output

temperature Chicago 1989/2/25 9:00

AirTemperatureData[Entity["City", {"Chicago", "Illinois", "UnitedStates"}], DateObject[{1989, 2, 25, 9, 0}]]
Output

nutritional value of chicken sandwich and soda

Entity["Chemical", "Benzene"][EntityProperty["Chemical", "BoilingPoint"]]
Output
bp = Table[
    Entity["Chemical", chemical][EntityProperty["Chemical", "BoilingPoint"]],
    {chemical, {"Benzene", "Ethanol", "Chloroform", "Diethylamine", "Pentane"}}
];
Sort[bp]
Output
DateListPlot[
    FinancialData["MSFT", {2000, 1, 1}],
    Joined -> True,
    Filling -> Bottom
]
Output
DateListPlot[
    FinancialData["MSFT", {2000, 1, 1}],
    Joined -> False,
    Filling -> Bottom
]
Output
Manipulate[
    DateListPlot[
        FinancialData[ticker, {2000, 1, 1}],
        Joined -> True,
        Filling -> Bottom,
        PlotRange -> {0, 80}
    ],
    {ticker, {"LUV", "DAL", "UAL", "AAL"}}
]
Output
CountryData["Japan", "Flag"]
Output
Short[CountryData["Asia"]]
Output
Manipulate[
    coutrydata["Flag"],
    {countrydata, CountryData["Asia"]}
]
Output
CountryData["Asia"][[1]]["Flag"]
Output
CountryData["Asia"][[RandomInteger[{1, Length[CountryData["Asia"]]}]]]["Flag"]
Output
Column[CountryData["Asia", "Flag"]]
Output
GenomeLookup["GGGTATAGGGTATAGAT"]
{{{Chromosome7, -1}, {17796562, 17796578}}}