N:=18;
P1:=3;
P2:=3;
N1:=42;
{找牛}
Q:=crOSS(SMA(CLOSE,2,1),SMA(LOW,5,1));
Q1:=(SMA(HIGH,21,2)*1.05)*1.05;
Q2:=IF(Q,Q1,SMA(LOW,5,1));
Q3:=CROSS(SMA(CLOSE,2,1),(SMA(HIGH,21,2)*1.05));
Q4:=IF(Q3,(SMA(HIGH,21,2)*1.05)*1.10,(SMA(LOW,21,2)*0.95));
Q5:=Q2>SMA(LOW,5,1) AND CROSS(C,REF(MA(C,13),13/2+1)) AND vol>0;
Q6:=REF(H/O<1.02,1) AND REF(C
{DRAWTEXT(找牛,80,'←-找主升抓牛'),COLORRED;}
STICKLINE(找牛,100,25,1,0),COLORYELLOW;
STICKLINE(找牛,75,10,2,0),COLOR00FF00;
STICKLINE(找牛,40,0,2,0),COLORBLUE;
STICKLINE(找牛,75,15,0.5,0),COLORRED;
STICKLINE(找牛,45,6,1,0),COLOR00FF00;
STICKLINE(找牛,32,0,2,0),COLORBLUE;
{动能无未来}
A:=V*100/CAPITAL;
DIFF0:=(EMA(CLOSE,12)-EMA(CLOSE,26))*100;
DEA0:=EMA(DIFF0,9);
macd0:=2*(DIFF0-DEA0);
动能:(MacD0>REF(MACD0,1)*2.5 AND MACD0>15),COLORFF00FF;
STICKLINE(动能,00,50,1.0,0),COLORMAGENTA;
DRAWTEXT(动能,动能*25,'↖动能'),COLORMAGENTA;
{日周月金叉：J线趟底三天左右，当J线上穿零，就是买入时机}
{N:=18; P1:=3; P2:=3;}
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,P1,1),COLORFFFFFF;
D:SMA(K,P2,1),COLORYELLOW;
J:3*K-2*D,COLORMAGENTA;
{kdj日周月金叉死叉}
周K:="kdJ.K#WEEK"(18,3,3);
周D:="KDJ.D#WEEK"(18,3,3);
周J:="KDJ.J#WEEK"(18,3,3);
月K:="KDJ.K#MONTH"(18,3,3);
月D:="KDJ.D#MONTH"(18,3,3);
月J:="KDJ.J#MONTH"(18,3,3);
月金叉:=CROSS(月K,月D);
周金叉:=CROSS(周K,周D);
日金叉:=FILTER(CROSS(K,D) AND K<20,4);
DRAWTEXT(月金叉,月D-2,'★'),COLOR0022EE;
DRAWTEXT(月金叉,月D-2,'KD月金叉'),COLORYELLOW;
DRAWTEXT(周金叉,周D,'★'),COLOR0022EE;
DRAWTEXT(周金叉,周D,' KD周金叉'),COLORGREEN;
DRAWICON(日金叉,K,1);
DRAWTEXT(日金叉,D-6,'低位金叉'),COLOR00CCCC;
DRAWTEXT(CROSS(周D,周K),周D*1.2,'KD周死叉'),COLOR00DDBB;
DRAWTEXT(CROSS(月D,月K),月D,'KD月死叉'),COLORFFFFFF;
KDB:=BArslAST(REF(CROSS(K,D),1));
KDDB:=REF(CLOSE,KDB+1)>CLOSE AND REF(K,KDB+1)
DRAWTEXT(K底背=1,D*0.98,'底背'),COLORDDDDDD;
KDD:=BARSLAST(REF(CROSS(D,K),1));
K顶背:=REF(CLOSE,KDD+1)
DRAWTEXT(FILTER(K顶背>0,5),D+8,'顶背'),COLORFFAA22;
IF(J<0,J,DRAWNULL),COLORGREEN,LINETHICK2;
IF(K>90,K,DRAWNULL),COLOR0000FF,LINETHICK2;
IF(D>85,D,DRAWNULL),COLORFFFF11,LINETHICK2;
DRAWICON(CROSS(J,1),J,1);
DRAWICON(K>80 AND D>80 AND CROSS(D,K),D,2);
DRAWTEXT(ISLASTBAR,K,' ←K'),COLORWHITE;
DRAWTEXT(ISLASTBAR,D,' ←D'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,J,' ←J'),COLORMAGENTA;
