?這是益盟操盤手的,幫我改為文華6的。謝謝!
?
Ma5:Ma(C,5);Ma10:ma(C,10);Ma20:ma(C,20);
kx:="chanlun@kxian";
{這個放第一個 要不會出問題滴-_-\\\~~}
kxg:="chanlun@kxg";
kxd:="chanlun@kxd";
kxfx:="chanlun@kxfx";
筆:="chanlun@bi";
筆周期:"chanlun@bilast",linethick0, coloryellow;
bilast:="chanlun@bilast";{筆周期};
段:="chanlun@duan";
段周期:"chanlun@duanlast", linethick0, coloryellow;
duanlast:="chanlun@duanlast"; {段周期};
中樞:="chanlun@zs";
zszg:="chanlun@zszg";
zszd:="chanlun@zszd";
zsgg:="chanlun@zsgg";
zsdd:="chanlun@zsdd";
zszz:="chanlun@zszz";
zsks:="chanlun@zskslast";
zsjs:="chanlun@zsjslast";
bifx:=-REF(筆,bilast);
duanfx:=-REF(段,duanlast);?
kxqj:="chanlun@kxqj";
{畫中樞Begin} {以背景方式畫}
?STICKLINE(zszg>zszd AND duanfx=1, zszg, zszd, 20, 502), colorf00ff0;
STICKLINE(zszg>zszd AND duanfx=-1, zszg, zszd, 20, 502), colore6002d;
{中樞震蕩監視器}
DRAWLINE(zsks=1, zszz, zsjs=1, zszz, 0), coloryellow;
{畫中樞END}?
{頂底分型}
?STICKLINE(kx>0, kxg, kxd, 5, 1), colorwhite, linethick3;
?STICKLINE(kx<0, kxg, kxd, 5, 1), colorblue, linethick3;
?{筆段}
?STICKLINE(筆=1, kxg, kxd, 5, 1), colorgreen, linethick1;
?STICKLINE(筆=-1, kxg, kxd, 5, 1), colorred, linethick1;
?STICKLINE(段=1, kxg, kxd, 5, 0), colore66878, linethick1;
?STICKLINE(段=-1, kxg, kxd, 5, 0), color00cccc, linethick1;
?{畫K線END}
?{畫筆段}
?drawline(筆=1,h,筆=-1,l,0),coloryellow,linethick2;
?drawline(筆=-1,l,筆=1,h,0),coloryellow,linethick2;
?drawline(段=1,h,段=-1,l,0),colorwhite, linethick4;
?drawline(段=-1,l,段=1,h,0),colorwhite, linethick4;?
?
{當下提示 周期}
{DRAWTEXT(BARSTATUS=2 AND bifx=1 AND bilast>4, h*1.008, ''bilast+'+'(c-REF(l,bilast))), colorMagenta, align0, valign2;}
{DRAWTEXT(BARSTATUS=2 AND bifx=-1 AND bilast>4, l*0.992,''bilast+''(c-REF(h,bilast))), colorGreen, align0;}
?
?
?來源:程序化99
?
?來源: www.tumamayizhan.com
?
?