SU/CAR-ST-APi-cells

悪を告発し危険な目に遭い撤退中のブログ

自作DSLで株シストレ
Esgrsdnl

ある詐欺グループとの戦い
危険ですので撤退します
Sort Uniq / C Awk R Sed Tcl/Tk
Shell Unix (percentile) Compile Assembly Run
Stock Trading APi cells
ローマは一日にしてならず R,C

53歳限界プログラマの憂鬱
mix of AB

気持ちが戻らないので撤退します。。。

このブログのコメントについて

2019/4~
運用資金250万
カラクリあり

株価データの入手について

にほんブログ村 株ブログ 株 自動売買へ

2018年から某所からの株価データ入手が不可能になります

まあ、他に株価データ入手できるところは見つけているので、そっちを来年以降は利用するつもりなんですが、同じcsvファイルではあるものの多少フォーマットが違います

そこで

#!/bin/bash
if [ -e ./henkan/D$1$2$3.csv  ]; then
	cat ./henkan/D$1$2$3.csv | awk -f ./awk/henkanD2new.awk > ./henkan/stocks_20$1-$2-$3.csv
else
	echo cannot find ./henkan/D$1$2$3.csv 
fi

こんなシェルスクリプト書いて凌ぐことにしました まあ、本体のawkスクリプト

#!/bin/awk
BEGIN { 
	FS=","
	#print "henkanD2new"
	print "コード,銘柄名,市場,始値,高値,安値,終値,出来高,売買代金,henkanD2new"
 }
# 1,2行目を無視
NR>2 {
	printf("%s-T,",$2)
	printf("dummy,")
	printf("dummy,")
	if ($4==0) {printf(",")}
	else {printf("%s,",$4)}
	if ($5==0) {printf(",")}
	else {printf("%s,",$5)}
	if ($6==0) {printf(",")}
	else {printf("%s,",$6)}
	if ($7==0) {printf(",")}
	else {printf("%s,",$7)}
	printf("%s,",$8)
	printf("%d\n",($4+$7)*$8/2) #売買代金=(始値+終値)*出来高/2で代用
}

END {}

こんな感じです

 別にシェルスクリプトawkでなくていいですが、何らかのプログラミングができるといろいろ便利なので、習得をおすすめします

最終的には有償データに移行するとは思いますが、データフォーマットはまた異なるので、こうしたスキルはシストレには欠かせません

 

f:id:sucar:20150414192227p:plain

CとRでス・パ・カー・エス・ティー
高級アセンブラC言語と統計分析R言語を
駆使して生まれたその名は、ス・パ・カー・エス・ティー!

f:id:sucar:20150414193802p:plain