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


にほんブログ村 株ブログ 株 自動売買へ
にほんブログ村 株ブログ 株 デイトレードへ
にほんブログ村 先物取引ブログ 日経225先物へ

来訪ありがとうございます
←クリックいただくと励みになります
(先物でも詐欺業者見つけたので)
このブログのコメントについて

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

怪しいブログwatch

怪しいブログに動きがありました 詳しくは追って

ミッションは2019/4/7午前0時に発動しました
しばらく少しでも多くの人が詐欺に気づくよう努力してみます
マサユキくんはバーチャルトレーダーです
ドログバさんもバーチャルトレーダーです
かぶさん引っ越しkabuさんになりました
美咲さんもバーチャルトレーダーです
kabuさんもバーチャルトレーダーです
株式市場(システムに改名)という業者が詐欺である証拠

↑グラフ書き換えてきました
  業者名もシステムに変えてきました

個別株に加えてFX・日経先物の業者もありますね 闇深すぎorz

kabuさん引っ越しkabulifeさんになりました

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

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

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