纏論公式買賣點源代碼分享:
AC5:=REF(C,5)*1.03>HHV(C,5) AND C>MA(C,20) AND??VOL>MA(VOL,20);
AA:=(C-REF(C,1))/REF(C,1)*100;
BB:=AA>3 AND AA<6;
BIAS3:=(CLOSE-MA(CLOSE,30))/MA(CLOSE,30)*100;
CC:=BIAS3>0 AND BIAS3<5;
二買:=BB AND AC5 AND CC;
DRAWTEXT(二買=1,L,'二買'),COLORYELLOW;
STICKLINE(二買,OPEN,CLOSE,8,0),COLORYELLOW;
AC3:=REF(C,1);
DIFF1:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA1:=EMA(DIFF1,9);
MACD1:=2*(DIFF1-DEA1);
AA1:=BARSLAST(REF(CROSS(DIFF1,DEA1),1));
一買:=REF(CLOSE,AA1+1)>CLOSE AND DIFF1>REF(DIFF1,AA1+1) AND CROSS(DIFF1,DEA1) AND LLV(LOW,6)=LLV(LOW,60);
DRAWTEXT(一買=1,L,'一買'),COLORMAGENTA;
STICKLINE(一買,OPEN,CLOSE,8,0),COLORMAGENTA;
Ma5:Ma(C,5);Ma10:ma(C,10);Ma20:ma(C,20); Ma60:ma(C,60);
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;
STICKLINE(kx<0, kxg, kxd, 5, 1), colorblue;
{筆段}
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),colorblue, linethick2;
drawline(段=-1,l,段=1,h,0),colorblue, linethick2;
{筆高低點 周期 力度 提示}
DRAWTEXT(筆= 1, h, ''+h+'/T'+bilast+'/'+(h-REF(l,bilast))), coloryellow, align1, valign2;
DRAWTEXT(筆=-1, l, ''+l+'/T'+bilast+'/'+(l-REF(h,bilast))), colorCyan, align1;
{當下提示 周期}
{DRAWTEXT(BARSTATUS=2 AND bifx=1 AND bilast>4, h*1.008, 'T'+bilast+'/+'+(c-REF(l,bilast))), colorMagenta, align0, valign2;}
{DRAWTEXT(BARSTATUS=2 AND bifx=-1 AND bilast>4, l*0.992,'T'+bilast+'/'+(c-REF(h,bilast))), colorGreen, align0;}
評論前必須登錄!
立即登錄 注冊