INFINITY -数学とかプログラミングとか-

統計とプログラムを使って役に立たせたい

TeX用コマンド入力を支援するための辞書をご利用ください。
sanctuary's blogは,適当なことが書いてあります。

今日という日

今日は汗をかきたくなったので、戸越銀座まで自転車🚲で行った。
別段、目的地があったわけではないがたまたま着いた。途中雨が降ったり止んだりとはっきりしない天気だったが、良い運動になった。
東京に住んで初めてこんなに遠くまで自転車で行ったのではないかと思う。
今度は羽田に行きたい。

また、今日は選挙に行かねばならないという強迫観念に駆られ20時10分前に行ってきた。以外と人がいた。ただタクシーがずっと停まっていたのが気になった。


Amazon から注文履歴を取得する(Category別)

Amazon から特定のカテゴリの注文履歴を取得するコードを書きました。
github.com


経緯:自分の本棚にある本が管理(何があるか把握できていない)できなくなっている。
また、同じ本を2冊買ってしまう。

qiita.com

上記を参考(get.rb, csv.rbはそのまま)にしました。

目的: amazonの注文履歴から特定カテゴリ(本、kindle)の注文データを取得

Usage
1. HTMLを取得する。
get.rbで
this_year = 年を指定する(例:2016)
login_form.fields_with(:name => 'email').first.value = "Amazon登録メールアドレス"
login_form.fields_with(:name => 'password').first.value = "Amazonパスワード"
を指定する。

2. 1.で取得したHTMLからCSVを出力する。
amazon_auto.pl 内の

my @years = ('2012', '2013', '2014', '2015', '2016', '2017');

を1.で取得した年を指定する。

$ perl amazon_auto.pl 

で注文データのカテゴリ(books, kindle)の注文データをCSVに出力されます。

csv_category.rb のL.132 で以下のbooksやdigital-textを変更すれば、他のカテゴリも取得できます。(例:dvd)

if hash['type'] == 'books' || hash['type'] == 'digital-text' then

Frobenious norm

A <- matrix( c( 12, 3, 2, 2, 5, 8, 2, 0, 4 ), nrow=3, ncol=3, byrow=TRUE )
norm(A,"F")

frobenius_norm <- function(Mat){
  m <- dim(Mat)[1];
  n <- dim(Mat)[2];
  Sum <- 0; 
  for(i in 1:m){
    for(j in 1:n){
      Sum = Sum + (abs(A[i,j]))^2;
    }
  }
  
  return(sqrt(Sum));
}

frobenius_norm(A) #same norm(A,"F")

さっき夢を見た。
おそらく大学で一人暮らしをし、月曜という設定。
月曜日は、夕方にびっくりして起きるけど、まっいっかーって感じで、講義に行かなくなる。私は、真面目なので大学の時はほとんど休んだことはないが、就活の時は、休んでいた。一度、講義を休むとまっいっかーって感じになったことがあった。
まあそのときは、すでに単位の問題はないので休んでいたが。。

こういう夢は見たくない。

築地、銀座、豊洲

5時に起きて、うろうろした。築地に着いて行ったのは築地本願寺。7時からお経を唱えていたので1時間くらい混ざって聞いていた。築地市場は今日は休みなので、その周辺をウロウロ。そしたら、かちどき橋に着いた。それから、豊洲につき、フジテレビが見えた。豊洲は何もない感じなので、銀座へ。クロックスであるいていたら、敷居の高さを感じた。なかなか10時までにいろいろみれた。

f:id:infinity_th4:20141026100131j:plain]f:id:infinity_th4:20141026100150j:plainf:id:infinity_th4:20141026100213j:plainf:id:infinity_th4:20141026100235j:plainf:id:infinity_th4:20141026100405j:plain