2013-10-23

どうでもいいはなし

etc

かなり長〜い間、さくらインターネットでレンタルサーバーを借りていました。が、今年になってうっかり更新するのを忘れて解約になっちゃいました。

外部の WWW サーバーとか使わないし、まあいいか、と思ってたけどよく考えたら、Subversion のリポジトリも置いといたのだった。今、スクリプト修正してチェックインしようとして出来なくて気がついた��(ﾟДﾟ)ｶﾞｰﾝ

全部趣味プログラムのコードとはいえ、そこそこの量＆期間のコードが置いてあったんだったっけ・・・なんて悔やみつつ、失ってしまったドメインである rocky.sakura.ne.jp をふと見にいきました。

板橋区にある障害者施設のホームページになっていました。へー・・・まぁこれはこれでよかったかも。rocky という名のサブドメインにふさわしいな、なんてね。

つか Subversion のリポジトリどこにつくろう・・・Git で作りなおしてもいいけど、GitHub はプライベート利用は有料だしなぁ、なんて思いながら検索したら無料でプライベートリポジトリ作れるとこあった。
http://codebreak.com/
あとで使ってみる。

2013-10-13

LANケーブルを自作してみた

network

サーバー機がうるさいので隣の部屋に移したいのだけど、LANケーブルのプラグが通るほど大きい壁穴が開いていない。そこで、ケーブルだけ通してから後付でプラグをつけようと思いたち、いまさらながらLANケーブルの自作にチャレンジしてみました。今回買ったのはこれです。

変換名人 LANケーブル作成セット CAT5用圧着工具/皮むき工具/テスター/RJ45プラグ/ケーブル入 LANSET/1

出版社/メーカー: 変換名人
メディア: Personal Computers
購入: 2人クリック: 5回
この商品を含むブログ (5件) を見る

レビュー

無事に届いたLANケーブル自作セット↓テスターに使う9V電池は別途購入する必要があるので揃えておきましょう。

ケーブルをちょん切り、コードをほぐします。以下のようにコードを並べて先をニッパーで揃えます。

薄橙色

橙色

薄緑

青

水色

緑

薄茶色

茶色

プラグを圧着ペンチで付ける。

テスターで、1から8まで通電できればオーケーです。できあがり！！

NG集

・・・なんて簡単にできればよいのですけど、実際は3時間くらい悪戦苦闘しました。残骸↓

付属のケーブルはすぐに出来たのだけど、既存のケーブルを利用しようとすると、線が太いのか何度も失敗、挫折しました。明日にでも別のケーブルで試してみる。でもプラグだけは、高価でも別途ロードバー付きプラグ購入した方が良いと思いました。

SANWA SUPPLY ADT-6RJ-10 カテゴリ6RJ-45コネクタ

出版社/メーカー: サンワサプライ
発売日: 2004/03/21
メディア: Personal Computers
購入: 1人クリック: 8回
この商品を含むブログを見る

2013-10-10

VBA から ruby のコードを実行したい

ruby vba

色々と調べて、結局、実運用には難しそう・・・と思っているのだけど、却下したアイデアでも、思考の流れを残しておかないと、数年後には忘れて同じことをやりはじめそうな悪寒がするので、そうならないように日記に書いておきます。

やりたいこと

秒間で更新される Excel Worksheet 上の数値を使って ruby で計算したい。Win32ole は使わない方向で。あ、VBA から ruby スクリプトを呼ぶだけなら Shell 関数でできます。

方針

Worksheet が更新されるタイミングで、socket 通信をして ruby にデータを流し込む。VBA からの socket 通信は、winsock.dll を使いたくないので、ruby製のクライアントを呼び出す。できるだけお手軽に。

準備

こちらから↓ ActiveRuby をダウンロード＆インストールします。ActiveRuby にする理由は、ScriptControl を使いたいから。
http://www.artonx.org/data/asr/

Excel のオプション - 参照設定で、ScriptControl 1.0 にチェックを入れます。

スクリプト

tcpserver.rb

require 'socket'
require 'thread'

svr = TCPServer.open(123456)
puts "server is running..."

while true
  Thread.start(svr.accept) do |s|
    puts s.gets
    s.close 
  end
end

tcpclient.rb

require 'socket'

def client(s)
  sock = TCPSocket.open('localhost', 123456)
  sock.puts(s)
  sock.close
end

とりあえずのテストとして、Excel の Worksheet にボタンを貼り付けて、こんな感じに↓。

Private Sub CommandButton1_Click()
    Dim script As New ScriptControl
    
    script.Language = "RubyScript"
       
    fn = FreeFile
    Open "(pathto)\tcpclient.rb" For Input Access Read As fn
    script.AddCode StrConv(InputB(LOF(fn), fn), vbUnicode)
   
    script.Run("client", "testdata")    
End Sub

問題点

遅いのひとこと。うーんどうしたものか。

2013-09-14

スタティスティカル・アービトラージ

ruby

エクセルマクロが使えるという Surface Pro のキャンペーン中っぽいので日記書いてみた。キャンペーン↓

Windows/Office武勇伝＜Surface Proが当たる！開発者グループOPENキャンペーン＞

キャンペーン終わり

さて・・・随分前に Kindle Paperwhite で買った続マーケットの魔術師↓

続マーケットの魔術師 (ウィザードブックシリーズ)

作者: ジャック・D・シュワッガー,長尾慎太郎,山口雅裕
出版社/メーカー: パンローリング
発売日: 2012/12/08
メディア: ハードカバー
この商品を含むブログ (3件) を見る

やっとエドワード・ソープの章まで読み終わりました。エドワード・ソープとは数学者としてブラックジャックに確率論を持ち込んだ、現代の金融工学の祖ともいえる人物です。ちなみに以前日記で「ラスベガスをぶっつぶせ」という映画を紹介しましたが、そのモデルになった人で株式投資の世界でも有名です。

さて、上述の本では、昔、ソープが株式投資で使っていた手法、スタティスティカル・アービトラージについて紹介されています。スタティスティカル・アービトラージとは、直近四半期で、最も下落した株の買いと最も上昇した株の空売りをほぼ一致させる、オプション取引でいうところのデルタヘッジを行うことです。

とても単純な手法なんですけど「スタティスティカル・アービトラージ」でグーグル先生に問い合わせると、まともな情報がまったく出てこないので、「スタティスティカル・アービトラージ」でググった時、このエントリーが一番上にでてくるよう日記を書いた次第でございます。しばらくしたら「スタティスティカル・アービトラージ」でググりますのでよろしくお願いいたします。大事なことなので3回言いました。あ、あとついでに Surface Pro も当ててください。

スタティスティカル・アービトラージを検証するためちょろっと書いたコードをおまけで貼り付けておきます。一人で研Qしていて公開するつもりのないコードなので汚いですがご了承願います。スクリプトを動かすには、前回の日記で書いた営業日計算のコードを'eigyoubi.rb'として保存し、適当な銘柄のコード(ここでは日経225)を '225.txt' として用意しておきます。

require "jpstock"
require './lib/eigyoubi.rb'

h = {}
e = Date.today
s = Date.today.business_days_before(25)

codes = open("225.txt","r").read.split("\n")
codes.each do |code|
  prices = JpStock.historical_prices(:code => code.to_i, :start_date => s, :end_date => e)
  down = (prices[0].close.to_f / prices.map {|price| price.close}.max - 1) * 100
  up   = (prices[0].close.to_f / prices.map {|price| price.close}.min - 1) * 100
  h[code] = [down, up]
end

cmin = h.min_by{|k,v| v[0]}
cmax = h.max_by{|k,v| v[1]}

puts "下落率トップ #{cmin[0]}, 下落率 #{cmin[1][0]} 期間(#{s}~#{e})"
puts "上昇率トップ #{cmax[0]}, 上昇率 #{cmax[1][1]} 期間(#{s}~#{e})"

四半期だと長すぎるので、とりあえず一ヶ月で計算したところ

下落率トップ 9501, 下落率 -20.307692307692303 期間(2013-08-12~2013-09-15)
上昇率トップ 1801, 上昇率 33.509234828496034 期間(2013-08-12~2013-09-15)

お漏らし電力を買って、オリンピック銘柄を売れ、とのご神託が出ました。。。

投資は自己責任です。ここに掲載しているデータは、その正確性を保証するものではありません。ここに掲載しているデータを参考にして発生した、いかなる損害・損失にも当方は責任を負いません。投資は自己判断でお願いします。

2013-09-10

X営業日前の日付を求める ruby スクリプト

ruby

ある銘柄の株価の移動平均を求めたい場合、期間を指定して株価データを取得することが多いです。この時、たとえば、25日分の株価データが欲しいなんて思った場合、単純に25日前の日付を求めるのではなく、営業日ベースで日付の計算をする必要があります。

この営業日の計算、なんか何度も同じことやってる気がするので、忘れないようにダイアリーにメモをしておきます。

準備

祝日判定ライブラリの holiday_japan をインストールします。株価情報を弄りたい人は JpStock もインストールしましょう。

gem install holiday_japan
gem install jpstock

X営業日前の日付の計算

こんな感じで↓

require "holiday_japan"

class Date
  def business_days_before(i)
    date = self
    i.times.each do |j|
      date -= 1
      date -= 1 while (date.wday <= 0 || date.wday >= 6) or (date.national_holiday?) 
    end
    date
  end
end

東京電力の25日間の終値の平均

↑のコードを使ってこんな感じで↓

# -*- coding: utf-8 -*-
require "jpstock"
prices = JpStock.historical_prices(:code => "9501", :start_date => Date.today.business_days_before(24), :end_date => Date.today)
average = prices.inject(0) {|sum, price| sum + price.close} / prices.size.to_f

puts "東京電力の#{Date.today.business_days_before(24)}から#{Date.today}(#{prices.size}営業日間)の終値の平均 = #{average}"
# => 東京電力の2013-08-07から2013-09-10(25営業日間)の終値の平均 = 560.96

2013-08-19

キーボードタイピングソフト犬打

その昔、「激打」という「北斗の拳」を題材にしたパソコン用のキーボードタイピングソフトがありました。指定された文章を入力すると敵がヒデブで死ぬという、当時は斬新なタイピングソフトで大流行し、仲間内でも流行りました。

〜〜〜今から15年ほど前のお話です。

当時、激打を皆でひとしきり遊んだ後「この程度のゲームなら自分たちで企画して作れるんじゃね？」と友人が言い出したので、「企画してくれればプログラムは書くよ」といったところ、企画書を書いてくれました。ちなみに企画書はこれ↓

犬打〜流れ星銀河〜
企画案
1.基本ベースは”どすこい”をパクる。
2.音声は「ガウ」「キャイーン」「グォウ」「グルゥ」の四つ。
前２つは犬用、後ろの２つは熊用(ラスボスの赤カブト専用）
3.主人公は銀河の飼い主であった人間。
4.主人公が猟銃で何故か犬を撃ちまくるという、UGな設定。
5.おまけでボーナス面に〜瓜打〜かぼちゃワイン＆〜豚打〜ラブリンモンロー〜
を必ず入れる。
1面甲斐虎３兄弟
2面ベン
3面紅桜
4面リキ
5面赤カブト
以上

このブログの読者の皆様には上記の文章は全くもって意味不明だと思いますが、当時わたくしにも意味不明で理解不能でした。みな若かったな。

で、適当に１日で作ったタイピングソフト「犬打」を仲間内で公開したところ、クソゲーすぎる！と友人達に酷評され、わたくしはスネちゃまと化し、この企画はほったらかしになったのでありました。

〜〜〜昔話おわり

で、さて、15年たった今「むかしケンキチさんの作った犬打、適当に作った割には良く出来てたよね」と友人から再評価されたので、気をよくして、ソースコードとバイナリを github で公開します。適当に Exeフォルダを git clone して inuuti.exe を起動すれば動きます。
https://github.com/kenkiti/Inuuti

ちなみに、改めて犬打を自分でやってみて、やっぱクソゲーだわと思った次第であります。

2013-04-11

SONY Bluetooth キーボード SGPWKB1

neta

今まで使ってたバッファローのキーボード

バッファローワイヤレスキーボード［2.4GHz・USB］　Simpring対応　SRKB02WH [SRKB02WH]

にコーヒーこぼしてしまったら壊れたので、やっすいソニーのキーボード買ったんです。

安かったんで思わず２つもポチりました。コレ↓
[rakuten:auc-splus:10003037:detail]

で、いま、このキーボードで日記書いているんですが・・・・

ESCキーがついていないことに気がつきました。ついでにファンクションキーもついてなかった・・・。

vi 使いの方は死亡するのでどうぞ間違って買わないように！

Λάδι Βιώσας

http://profile.hatena.ne.jp/kenkitii/