2011年5月24日火曜日

YesLanguage_ストキャ逆算

YesLanguage_ストキャ逆算を以前つくってみたものである、一応機能はする、使い道であるが、感覚でオシレーターもつけてみた、オシレーターは適当に10倍にしてある、まあストキャが使えている人は必要ないが、転換を株価で知りたかったので、つくった感じですw。

良ければ、自己責任ですがご賞味あれw。

デイトレで逆算値を元に逆指値をおいて、エントリーしてみても良いと思う、225先物でデイトレしていたが値幅なく、使いこなせなかったw、チマチマしたものは苦手みたいで、値動きの大きなソフトバンクとかサイバーエージェントいわゆるデイトレ銘柄だったら良さそうと思う。

全文;で終わるので、改行しているところはつないで下さいw。
ボトム転換トップ転換は指標設定_チャート表示で点グラフにしてください、点の大きさ(線の太さは)自分で決めてくださいw。

Input : Period(12), Period1(5), Period2(5), Bought_too_much(0), Sold_too_much(0);
Var : value1(0), value2(0), value3(0), value4(0), value5(0), value6(0), value7(0), value8(0), value9(0);
value1 = lowest(L,Period);
value2 = highest(H,Period);
value3 = StochasticsK(Period,Period1)[0];
value4 = StochasticsD(Period,Period1,Period2)[0];
value5 = (C-value1)[0];
value6 = (value2-value1)[0];
Value7 = StochasticsK(Period,Period1)[4]+StochasticsK(Period,Period1)[3]+StochasticsK(Period,Period1)[2]+StochasticsK(Period,Period1)[1];
Value8 = (value2-value1)[4]+(value2-value1)[3]+(value2-value1)[2]+(value2-value1)[1]+(value2-value1)[0];
Value9 = (C-value1)[4]+(C-value1)[3]+(C-value1)[2]+(C-value1)[1]-value1[0];
Value10 = Value3*10-value4*10;
Plot1(-(Value7/400*Value8-Value9)+C[0], "逆算");
PlotBaseLine1(Sold_too_much, "基準線1");
PlotBaseLine2(Bought_too_much, "基準線2");

if Value10 > 0 then
 plot2(Value10, "stkOscillator", RED);
else
 Plot2(Value10, "stkOscillator", BLUE);
If CrossDown(Value10[1], Value10[0]) Then
Plot6(Value10[0], "ボトム転換", CYAN);
If Crossup(Value10[1], Value10[0]) Then
Plot7(Value10[0], "トップ転換", BLACK);

プログラムここまで。
Value10 = Value3*10-value4*10;の10を違う数値にするとオシレーターの倍率変わりますInputの変数にしとけば良かったですw、ご自分でお願いしますw。

リンクとか広告見てくれて一向に構わないよ。 m(..)m

0 件のコメント: