?
牛熊波段背離選股指標副圖指標原碼
?
?
N:=55;
WL:(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100,LINETHICK2,COLOR0000FF;
WLT:MA(WL,89),COLOR00FFFF,LINETHICK2;
WLT1:=CROSS(WL,WLT);
WLT11:=CROSS(WL,-10);
WLT2:=FILTER(WLT1,8);
SKY:10,POINTDOT,COLORFF0000,LINETHICK1;
SEA:-10,POINTDOT,COLORFF00FF,LINETHICK1;
DRAWICON(WLT2,WLT,23);
DRAWICON(WLT11,SEA,15);
WLT3:=COUNT(WL>10,5)>=3;
WLT33:=CROSS(10,WL);
SEL:=WLT3 AND WLT33;
DRAWICON(SEL,10,19);
STICKLINE(WL>10,WL,10,0.001,0),COLOR00FF00;
STICKLINE(WL<-10,WL,-10,0.001,0),COLORFF00FF;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;
DIF底:=LLV(DIF,120);
最底價:=L=LLV(L,120);
距今:=BARSLAST(最底價);
偏離:=IF((距今=0 AND DIF>DIF底),1,0);
DDD:=EXIST(偏離,20) AND SLOPE(DEA,2)>=0;
HRY:=FILTER(DDD,10);
STICKLINE(HRY,-5,-10,3,0),COLOR00FFFF;
DRAWTEXT(HRY,-5,'M背'),COLOR00FFFF;
{YYY:COUNT(偏離,5);}
DIF頂:=HHV(DIF,120);
最高價:=H=HHV(H,120);
距今高:=BARSLAST(最高價);
偏離高:=IF((距今高=0 AND DIF<DIF頂),1,0);
GGG:=EXIST(偏離高,20) AND SLOPE(DEA,2)<0;
HRY1:=FILTER(GGG,10);
STICKLINE(HRY1,10,5,3,0),COLORFF0000;
DRAWTEXT(HRY1,5,'M背'),COLORFF0000;
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
?
KDJ底背:FILTER(IF(B2>0,-1,0),13),NODRAW;
STICKLINE(KDJ底背,-10,-5,3,0),COLORFF00FF;
DRAWTEXT(KDJ底背,-5,'K背'),COLORFF00FF;
RSI底背:FILTER(IF(B3>0,-1,0),13),NODRAW;
STICKLINE(RSI底背,-10,-5,3,0),COLOR0000FF;
DRAWTEXT(RSI底背,-5,'R背'),COLOR0000FF;
KDJ頂背:FILTER(IF(D2>0,1,0),13),NODRAW;
STICKLINE(KDJ頂背,10,5,3,0),COLORFFFF00;
DRAWTEXT(KDJ頂背,5,'K背'),COLORFFFF00;
RSI頂背:FILTER(IF(D3>0,1,0),13),NODRAW;
STICKLINE(RSI頂背,10,5,3,0),COLOR00FF00;
DRAWTEXT(RSI頂背,5,'R背'),COLOR00FF00;
DRAWTEXT(REF("KDJ.J",1)<0 AND "KDJ.J">0,-4,'短'),COLORRED ;
STICKLINE(REF("KDJ.J",1)<0 AND "KDJ.J">0,-10,-5,3,0),COLOR00FFFF;
AA1:=HHV(H,55);
BB1:=REF(H,13);
TJ1:=AA1=BB1;
XX:=LLV(L,55);
YY:=REF(L,13);
YY1:=REF(L,21);
TJ2:=XX=YY;
TJ3:=XX=YY1;
XG:=TJ1 OR TJ2;
DRAWTEXT(TJ2,-6,'離底13'),COLOR00FF00;
STICKLINE(TJ2 ,-10,-6,2,0),COLOR00FF00;
DRAWTEXT(TJ3,-4,'離底21'),COLOR00FFFF;
STICKLINE(TJ3 ,-10,-4,2,0),COLOR00FFFF;
DRAWTEXT(TJ1,-6,'離高13'),COLOR0000FF;
STICKLINE(TJ1 ,-10,-6,2,0),COLOR0000FF;
LV:=MA(C,24);
HR0:=HHV(HIGH,N);
HRY0:=LLV(LOW,N);
HRY110:=HR0*HRY0;
HRY330:=SQRT(HRY110);
NS1:=C>HRY330 AND HRY330 >=REF(HRY330,1) AND C>LV;
STICKLINE(C>0,-10,-11.5,3,0),COLORFF0000;
STICKLINE(WLT2 OR WL>WLT,-10,-11.5,3,0),COLOR00FFFF;
STICKLINE(NS1,-10,-11.5,3,0),COLOR0000FF;
DRAWTEXT(FILTER(NS1,21),-11,'持股'),COLORFFFFFF;
DRAWTEXT(FILTER(WLT2 OR WL>WLT,13),-11,'買入'),COLOR0000FF;
?
{程序化交易 www.tumamayizhan.com }
{程序化交易 www.tumamayizhan.com }
飛狐公式源碼：
{五里8號}
N:=55;
WL:(C-MA(C,6))/MA(C,6)*100,LINETHICK2,COLOR0000FF;
WLT:MA(WL,89),COLOR00FFFF,LINETHICK2;
WLT1:=CROSS(WL,WLT);
WLT11:=CROSS(WL,-10);
WLT2:=FILTER(WLT1,8);
SKY:10,POINTDOT,COLORFF0000,LINETHICK1;
SEA:-10,POINTDOT,COLORFF00FF,LINETHICK1;
DRAWICON(WLT2,WLT,1);
DRAWICON(WLT11,SEA,3);
WLT3:=COUNT(WL>10,5)>=3;
WLT33:=CROSS(10,WL);
SEL:=WLT3 AND WLT33;
DRAWICON(SEL,10,5);
STICKLINE(WL>10,WL,10,0.001,0),COLOR00FF00;
STICKLINE(WL<-10,WL,-10,0.001,0),COLORFF00FF;
DIF:=EMA(C,12)-EMA(C,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;
DIF底:=LLV(DIF,120);
最底價:=LLV(LOW,120);
距今:=BARSLAST(最底價);
偏離:=IF((距今=0 AND DIF>DIF底),1,0);
DDD:=EXIST(偏離,20) AND SLOPE(DEA,2)>=0;
HRY:=FILTER(DDD,10);
STICKLINE(HRY,-5,-10,3,0),COLOR00FFFF;
DRAWTEXT(HRY,-5,'M背'),COLOR00FFFF;
{YYY:COUNT(偏離,5);}
DIF頂:=HHV(DIF,120);
H1:=HHV(HIGH,120);
距今高:=BARSLAST(h1);
偏離高:=IF((距今高=0 AND DIF<DIF頂),1,0);
GGG:=EXIST(偏離高,20) AND SLOPE(DEA,2)<0;
HRY1:=FILTER(GGG,10);
STICKLINE(HRY1,10,5,3,0),COLORFF0000;
DRAWTEXT(HRY1,5,'M背'),COLORFF0000;
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(CLOSE,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(CLOSE,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D2:=REF(CLOSE,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(CLOSE,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
KDJ底背:FILTER(IF(B2>0,-1,0),13),linethick0;
STICKLINE(KDJ底背,-10,-5,3,0),COLORFF00FF;
DRAWTEXT(KDJ底背,-5,'K背'),COLORFF00FF;
RSI底背:FILTER(IF(B3>0,-1,0),13),linethick0;
STICKLINE(RSI底背,-10,-5,3,0),COLOR0000FF;
DRAWTEXT(RSI底背,-5,'R背'),COLOR0000FF;
KDJ頂背:FILTER(IF(D2>0,1,0),13),linethick0;
STICKLINE(KDJ頂背,10,5,3,0),COLORFFFF00;
DRAWTEXT(KDJ頂背,5,'K背'),COLORFFFF00;
RSI頂背:FILTER(IF(D3>0,1,0),13),linethick0;
STICKLINE(RSI頂背,10,5,3,0),COLOR00FF00;
DRAWTEXT(RSI頂背,5,'R背'),COLOR00FF00;
DRAWTEXT(REF("KDJ
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?
打印本文
關閉窗口