知識を広げるデータのフィルタリングと操作データ集合の一部を抽出、リストの変更、棒グラフ、リストのリスト

開発環境

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

data25 = Table[Prime[i]^i, {i, 1, 10}]

{2, 9, 125, 2401, 161051, 4826809, 410338673, 16983563041, 1801152661463, 
 
>   420707233300201}

data25[[3]]

data25[[{1, 3, 4}]];
Total[%]

data25[[{1, 3, 4}]];

Total[%]

p134 = data25[[{1,3,4}]];

Total[p134]

data25[[2;;6]]

{9, 125, 2401, 161051, 4826809}

Table[{i,i^i,i-i^i}, {i, 1, 4}]

{{1, 1, 0}, {2, 4, -2}, {3, 27, -24}, {4, 256, -252}}

data29 = %

{{1, 1, 0}, {2, 4, -2}, {3, 27, -24}, {4, 256, -252}}

data29[[2]]

{2, 4, -2}

data29[[3, 2]]

data33 = data29[[All, 2]]

{1, 4, 27, 256}

data33[[4]] = data33[[4]]^2

data33

{1, 4, 27, 65536}

BarChart[data33]

data33 = data29[[All, 2]]

{1, 4, 27, 256}

data33[[4]] = Sqrt[data33[[4]]]

BarChart[data33]

BarChart[{data33}]