tukubai 構成比を求める

雑誌の内容なんかまちがってるぞ

hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ cat data17
001 関東 東京 1000
001 関東 埼玉 800
001 関東 群馬 900
002 関西 京都 1000
002 関西 大阪 1200
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ cat shell17
#!/bin/bash
sm2 1 1 4 4 data17              | 
join1 key=1 - data17            | 
awk '{print $1,$3,$4,$5,100*$5/$2}' |
marume 5.1

echo --- ratio command
#ratio key=1 val=4 data17
ratio key=4 ref=1 data17
ratio ref=1 key=4 data17
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$ ./shell17001 関東 東京 1000 37.0
001 関東 埼玉 800 29.6
001 関東 群馬 900 33.3
002 関西 京都 1000 45.5
002 関西 大阪 1200 54.5
--- ratio command
001 関東 東京 1000 20.4
001 関東 埼玉 800 16.3
001 関東 群馬 900 18.4
002 関西 京都 1000 20.4
002 関西 大阪 1200 24.5
001 関東 東京 1000 37.0
001 関東 埼玉 800 29.6
001 関東 群馬 900 33.3
002 関西 京都 1000 45.5
002 関西 大阪 1200 54.5
hirasawa@server-machine:~/open-usp-tukubai-20130417/sample$