日経平均をドルコスト平均法で運用した場合の損益試算をPerlで行った
こちらのデータを使いました。
www.macrotrends.net
データは日々の日経平均株価なので毎月月初日だけに絞り込むプログラムを作った。
day2month.pl
use warnings; my $month = 13; while (my $line = <>) { if ($line =~ /^\d\d\d\d-(\d\d)-\d\d/ and $month != $1){ $month = $1; print $line; } }
月初日データから運用開始年を引数に渡して、試算するプログラムがこちら。
dollcost.pl
use strict; use warnings; my $start_year = shift; my $contribution = 0; my $unit = 0; my $valuation = 0; while (my $line = <>) { if ($line =~ /^(\d\d\d\d)-(\d\d)-(\d\d),(\d+\.\d+)/ and $1 >= $start_year){ $contribution += 10000; $unit += 10000 / $4 ; my $valuation = $unit * $4; print "$1-$2-$3,$4,$contribution,$valuation\n"; } }
結果がこちらになります。
2000年から、毎月1万円を2021年4月まで買い続けた場合の損益はいかになりました。
ドルコスト侮れない・・
拠出額 256万円
評価額 563万円
利益 +307万円
Perlでビットコイン裁定取引
BitFlyerの口座開設待ち状態です。
PerlでビットコインAPI
モジュールが2つあるのですね。
metacpan.org
metacpan.org
とりあえず、まずは上記の口座開設からしてみよう。
追跡ブランチの正体を探る
猿以下なので、Gitがよくわからないのですが、放っておいても猿以下のままなので
わからないところを少しでもわかるようにして行こう。
追跡ブランチって何か??
git init
vi test.text
git add .
git commit -m "initial"
git checkout -b bbb #ローカルブランチbbbを作成
git branch --set-upstream-to=master #bbbの上流にmasterを設定、bbbが追跡ブランチとなる
上記の一番最後の行を実行すると.git/configに
以下のような記述が追加された
こいつが追跡ブランチ(bbb)の正体でした。
[branch "bbb"]
remote = .
merge = refs/heads/master
「追跡ブランチとはリモートブランチと直接つながりを持つローカルブランチのこと」
なんとなくわかった気がする。
第2種電気工事士筆記問題 暗記方法
接地抵抗
D級接地100Ω D級はダブルとして10の2乗
C級接地10Ω シーはシングルと覚えて10の1乗
分岐回路の過電流遮断器の設置箇所
山頂がはげるのは北緯35度以上。
3m以下
制限なし
分岐点から3m超、8メートル以下にしたい場合
分岐回路の電線の許容電流が幹線の過電流遮断器の定格電流の35%以上とする。
8メートル以上
分岐回路の電線の許容電流が幹線の過電流遮断器の定格電流の55%以上とする。