#!/bin/sh

input1=myegg.txt
input2=twitter.txt

xmin=0
xmax=30
nbin=30
ymax=20

BW=0.3

for distance in 2 5 10
do
awk "{if(\$3==${distance}){print \$1}}" ${input1} > tmp1.txt
awk "{if(\$3==${distance}){print \$1}}" ${input2} > tmp2.txt
cat tmp1.txt tmp2.txt > ${distance}.txt
cat ${distance}.txt | gsl-histogram ${xmin} ${xmax} ${nbin} > hist_${distance}.txt
done

basename1=${input1##*/}
filename1=${basename1%.*}

gnuplot <<EOF

set term png
set output "pic_${filename1}_opacity.png"

set title "written by @coffee_pote" noenhanced

set xlabel "number of candy"
set ylabel "histogram"
set xrange [$xmin:$xmax]
set yrange [0:${ymax}]
set xtics ${xmin}, 2, ${xmax}
set mxtics 1.0

set style fill transparent solid 0.5 border lc rgb "black"
set boxwidth 1.0

plot \
"hist_2.txt" u 1:3 w boxes lc rgb "orange-red" title "2km", \
"hist_5.txt" u 1:3 w boxes lc rgb "light-green"title "5km", \
"hist_10.txt" u 1:3 w boxes lc rgb "purple" title "10km"

unset style

set output "pic_${filename1}.png"

set style fill solid border lc rgb "black"
set boxwidth ${BW}
plot \
"hist_2.txt" u 1:3 w boxes lc rgb "orange-red" title "2km", \
"hist_5.txt" u (\$1+${BW}):3 w boxes lc rgb "light-green"title "5km", \
"hist_10.txt" u (\$1+${BW}*2):3 w boxes lc rgb "purple" title "10km"

EOF

0 飴の個数 0
16 エレブー 10
19 ビリリダマ 5
5 コイキング 2
25 イーブイ 10
17 メノクラゲ 5
7 ピカチュウ 2
25 カイロス 10
9 ズバット 2
13 ニドランオス 5
21 ビリリダマ 5
8 キャタピー 2
19 アーボ 5
19 ブーバー 10
5 ゼニガメ 2
17 マダツボミ 5
14 アーボ 5
8 ビードル 2
8 コイキング 2
20 タッツー 5
20 ニドランオス 5
10 ポッポ 2
21 ニドランメス 5
17 メノクラゲ 5
10 ポッポ 2
20 ナゾノクサ 5
8 コラッタ 2
19 ガーディ 5
6 ゼニガメ 2
15 コイキング 2
16 コダック 5
10 ワンリキー 5
8 ポッポ 2
20 イーブイ 10
10 コイキング 2
20 サワムラー 10
16 モンジャラ 5
9 キャタピー 2
28 イーブイ 20
17 スリープ 5
18 ドードー 5
5 キャタピー 2
9 コイキング 2
21 パラス 5
14 ケーシィ 5
18 マンキー 5
10 コイキング 2
5 ヒトカゲ 2
16 マンキー 5
13 シェルダー 5
20 ヒトデマン 5
5 ゼニガメ 2
13 ヒトデマン 5
21 サイホーン 5
6 ヒトカゲ 2
17 ガーディ 5
15 コダック 5
17 サンド 5
8 コラッタ 2
6 コイキング 2
13 ロコン 5
9 コラッタ 2
16 マダツボミ 5
16 ニドランオス 5
11 ドードー 5
10 ビードル 2
8 ビードル 2
26 イーブイ 10
21 マンキー 5
6 ビードル 2
16 シェルダー 5
21 ナゾノクサ 5
10 ヒトカゲ 2
8 ポッポ 2
10 ビードル 2
8 ズバット 2
10 キャタピー 2
8 イシツブテ 2
15 ニドランメス 5
21 サンド 5

10 ロコン 5
15 コンパン 5
21 ニドランメス 5
13 サイホーン 5
23 ポニータ 5
31 カイロス 10
17 ラプラス 10
19 カイロス 10
10 ヒトカゲ 2
12 コイル 5
18 スリープ 5
11 ケーシィ 5
21 マダツボミ 5
29 カビゴン 10
12 ディグダ 5
5 ヒトカゲ 2
7 キャタピー 2
8 コラッタ 2
21 ポニータ 5
5 ズバット 2
21 ニドランオス 5
10 ニャース 5
18 コンパン 5
21 ナゾノクサ 5
10 トサキント 5
10 ニドランオス 5
12 ニドランメス 5
19 ガーディ 5
19 カラカラ 5
10 ヒトデマン 5
15 スリープ 5
12 サンド 5
10 ナゾノクサ 5
10 ナゾノクサ 5
14 ナゾノクサ 5
16 ナゾノクサ 5
5 オニスズメ 2
19 カイロス 10
17 ラプラス 10
15 ナゾノクサ 5
13 コダック 5
21 シェルダー 5
18 カブト 10
17 ラプラス 10
29 ルージュラ 10
17 ヤドン 5
18 クラブ 5
17 カラカラ 5
14 マンキー 5
10 ワンリキー 5
18 アーボ 5
10 アーボ 5
15 ニョロモ 5
16 ニョロモ 5
10 ヤドン 5
9 フシギダネ 2
10 フシギダネ 2
21 ポニータ 5
31 カイロス 10
13 サイホーン 5
10 ロコン 5
15 コンパン 5
21 ニドランメス 5
22 イーブイ 10
21 ヒトデマン 5
21 コダック 5
21 パラス 5
10 ロコン 5
15 コンパン 5
21 ニドランメス 5
13 サイホーン 5
10 ニドランメス 5