源码
N:=10;
R5:MA(CLOSE,5),PRECIS2,color0099cc,linethick2;
R10:MA(CLOSE,10),PRECIS2,color009900,linethick2;
R20:=MA(CLOSE,20);
R30:MA(CLOSE,30),colorff9933;
R60:MA(CLOSE,60),PRECIS2,linethick1,COLORred;
强弱:ema(cost(60),10),PRECIS2,COLORa9a9a9,DOTLINE,LINETHICK1;
lhnh:=BARSLAST(DISPSTATUS=1)+1;
nnl:=DISPSTATUS=2;
P:=BACKSET(nnl,hhvBARS(h,lhnh)+1);
B:=P>REF(P,1);
P2:=BACKSET(nnl,LLVBARS(L,lhnh)+1);
B2:=P2>REF(P2,1);
高:REF(H,BARSLAST(b)),PRECIS2,COLORRED,LINETHICK1;
DRAWTEXT(nnl,高,'高： ￥'+高),ALIGN2,COLORGREEN;
低:REF(L,BARSLAST(B2)),PRECIS2,COLORGREEN,LINETHICK1;
DRAWTEXT(nnl,低*1.009,'低： ￥'+低),ALIGN2,COLORGREEN;
F6:((高-低)*0.236)+低,PRECIS0,COLORA9A9A9;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and nnl,F6,'0.236：￥'+F6),ALIGN2,COLORGREEN;
F2:((高-低)*0.382)+低,PRECIS0,COLORA9A9A9;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and nnl,F2,'0.382：￥'+F2),ALIGN2,COLORGREEN;
F3:((高-低)*0.5)+低,PRECIS0,COLOR5F9EA0;
DRAWTEXT(nnl,F3,'0.5：￥'+F3),ALIGN2,COLORGREEN;
F4:((高-低)*0.618)+低,PRECIS0,COLORA9A9A9;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2)and nnl,F4,'0.618：￥'+F4),ALIGN2,COLORGREEN;
F5:((高-低)*0.764)+低,PRECIS0,COLORA9A9A9;
DRAWTEXT(BARSLAST(B)>BARSLAST(B2) and nnl,F5,'0.764：￥'+F5),ALIGN2,COLORGREEN;
PDAY1 := BARSLAST(CROSS(R5,R60));{5日均线上穿60日均线}
PDAY2 := BARSLAST(CROSS(R10,R60));{10日均线上穿60日均线，至此形成颈部}
PDAY3 := BARSLAST(HIGH=HHV(HIGH,PDAY2));{形成头部，要下跌}
PDAY4 := BARSLAST(CROSS(R10,R5));{下跌后，5日均线和10日均线死叉}
PDAY5 := BARSLAST(CROSS(R5,R10));{回落不久，5日均线和10日均线形成金叉，形成D部}
A1:= PDAY1>PDAY2 AND PDAY2>PDAY3 AND PDAY3>PDAY4 AND PDAY4>PDAY5 AND PDAY5<5;
A2:= COUNT(CROSS(R10,R5),PDAY2)=1;
AA:=IF(A1 AND A2 AND MA(C,5)>=MA(C,10) AND MA(C,10)>MA(C,60),10,0);
BB:=FILTER( A1 AND A2 AND MA(C,5)>=MA(C,10) AND MA(C,10)>MA(C,60),5);
有戏:=IF(AA AND BB,1,0);
DRAWICON(AA AND BB ,LOW*0.99,1),ALIGN1;
A0:=AMOUNT/VOL/100;
A3:=(EMA(A0,3)>EMA(A0,7) AND EMA(A0,7)>EMA(A0,13) AND EMA(A0,13)>EMA(A0,21));
DRAWTEXT(A3,MA(C,60),'*'),ALIGN1,colorred;
GJ:=(C+H+L+O)/4;
明阻:=L+(GJ-L)+(C-L);
明支:=L+(C-GJ);
阻:REF(明阻 , 1),LINETHICK0,PRECIS2,COLORRED;
支:REF(明支 , 1),LINETHICK0,PRECIS2,COLORFF00FF;
STICKLINE(DISPSTATUS=2
STICKLINE(DISPSTATUS=2
STICKLINE(DISPSTATUS=2
STICKLINE(DISPSTATUS=2
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
ZX:=100*EMA(EMA(MTM,12),12)/EMA(EMA(ABS(MTM),12),12);
CX:=100*EMA(EMA(MTM,26),26)/EMA(EMA(ABS(MTM),26),26);
DXGD:=LLV(DX,2)=LLV(DX,5) AND CROSS(DX,MA(DX,2));
ZXGD:=LLV(ZX,2)=LLV(ZX,5) AND CROSS(ZX,MA(ZX,2)) AND DX>ZX;
短买:=IF(DXGD AND BETWEEN(DX,0,60) AND ZX>0,1,0);
中买:=IF(ZXGD AND BETWEEN(DX,0,50) AND BETWEEN(CX,0,50),1,0);
DTPL:=DX>ZX AND ZX>CX AND CX>0;
QSXS:=DX>REF(DX,1) AND ZX>REF(ZX,1);
TSJC:=CROSS(DX,CX) AND CROSS(ZX,CX);
优选:=IF(CROSS(DTPL,0.8) AND (TSJC OR COUNT(QSXS,3)=3) AND CX<40,1,0);
短卖:=IF(CROSS(ZX,DX),1,0);
中卖:=IF(CROSS(CX,ZX) AND DX
卖:=IF(HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX),1,0);
DRAWTEXT(短买,low*0.99,'△'),COLORe91daf,ALIGN1;
DRAWTEXT(中买,low*0.99,'▲'),COLORe91daf,ALIGN1;
DRAWTEXT(短卖,high*1.02,'▽'),COLORff0000,ALIGN1;
DRAWTEXT(中卖,high*1.02,'▼'),COLORff0000,ALIGN1;
DRAWTEXT(filter(买=1,5),low-0.03,'★'),COLORe91adf,ALIGN1;
DRAWTEXT(filter(卖=1,5),high*1.015,'★'),COLORff0000,ALIGN1;
DRAWICON(优选,low-0.03,7);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K1:=SMA(RSV,3,1);
D1:=SMA(K1,3,1);
J1:=3*K1-2*D1;
BDGD1:=HHV(J1,2)=HHV(J1,8) AND J1>80;
BDDD:=LLV(J1,2)=LLV(J1,8);
J1向下拐头:=IF(CROSS(REF(J1-0.01,1),J1) AND REF(BDGD1,1),1,0);
DRAWTEXT(j1向下拐头 ,high*1.015,'J'),COLORFFFFFF;
J1向上拐头:=IF(CROSS(J1,REF(J1+0.01,1)) AND BDDD AND J1<20,1,0);
DRAWTEXT(j1向上拐头,low*0.993,'J'),COLOR00ffFF;
WR2:=100*(HHV(HIGH,6)-CLOSE)/(HHV(HIGH,6)-LLV(LOW,6));
DDSJ:=BARSLAST((1-C/REF(C,1))*100>=2);
XD:=C
跌6:=COUNT(XD,6)>=5 AND XD AND DF AND DDSJ<=1;
跌9:=WR2>80;
底:=跌6 AND 跌9;
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
A:=REF(C,1);
RSI:=SMA(MAX(C-A,0),6,1)/SMA(ABS(C-A),6,1)*100;
A11:=(C/MA(C,5)-1)*100<-10;
A21:=(C/MA(C,13)-1)*100<-10;
A31:=(C/MA(C,34)-1)*100<-15;
A41:=RSI<18;
A51:=CCI<-120;
A61:=COUNT(ABS(C/REF(C,1)-1)*100>=6,30)>=1;
底部:=A11 AND A21 AND A31 AND A41 AND A51 AND A61;
DRAWTEXT(底部,low*0.99,'底'),COLOR00FF00;
DRAWTEXT(底>0,low-0.03,'D'),COLORFFFFFF,ALIGN1;
BDGD:=C=HHV(C,N);
GDSJ:=BARSLAST(BDGD);
前高1:=IF(GDSJ>0,REF(C,GDSJ),REF(C,GDSJ));
TP1:=CROSS(C,REF(前高1,1));
突破1:=TP1 AND COUNT(TP1,5)=1;
STICKLINE(突破1,(O+C)/2*1.01,(O+C)/2*1.01,15,0),COLOR00ff00;
主筹估算:=EMA(WINNER(c)*70,3);
散筹估算:=EMA((WINNER((c)*1.1)-WINNER((c)*0.9))*70,3);
筹码锁定:=散筹估算-主筹估算 ;
动态底部:=EMA(IF(L<= LLV(l,60),SMA(ABS(L-REF(L,1)),60,1)/SMA(MAX(L-REF(l,1),0),99,1),0)*5,3);
涨:=CROSS(主筹估算,筹码锁定);
强:=CROSS(主筹估算,散筹估算);
STICKLINE(涨,O,C,4,1),COLORYELLOW;
STICKLINE(涨,O,H,0,0),COLORYELLOW;
STICKLINE(涨,L,C,0,0),COLORYELLOW;
STICKLINE(强, O,C,4,1),colormagenta;
STICKLINE(强,O,H,0,0),colormagenta;
STICKLINE(强,L,C,0,0),colormagenta;
STICKLINE(筹码锁定<-50,O,C,4,1),COLORred;
STICKLINE(筹码锁定<-50,O,H,0,0),COLORred;
STICKLINE(筹码锁定<-50,L,C,0,0),COLORred;
买入:=STRFIND(Extrastring('评级'),'买入',1)>0;
增持:=STRFIND(Extrastring('评级'),'增持',1)>0;
持有:=STRFIND(Extrastring('评级'),'持有',1)>0;
DRAWTEXTREL(400,970,'评级:'+Extrastring('评级')),colora9a9a9;
{DRAWTEXTABS(5,360,'板块:'+BKNAME),colora9a9a9;}
流通:=FINANCE2(37)/10000;
市盈率:=DYNAINFO(39);
F:=COST(5 );J:=COST(95 );
M:=COST(15 );X:=COST(85 );
F1:=(J-F)/(F+J)*100;M1:=(X-M)/(X+M)*100;
集中度90:=F1;
集中度70:=M1;
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(C));
收益:=FINANCE2(3);
浮筹比:=(winner(c*1.1)-winner(c*0.9))/winner(hhv(h,0))*100;
DRAWTEXTABS(5,65,'浮筹比:'+浮筹比+'% '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(110,20,'流通:'+流通+' '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(5,80,'市盈率:'+市盈率+' '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(5,5,'集中度90:'+集中度90+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(5,20,'集中度70:'+集中度70+' '),LINETHICK1,ColorYELLOW;
DRAWTEXTABS(5,35,'获利盘:'+获利盘+'% '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(5,50,'套牢盘:'+套牢盘+'% '),LINETHICK1,Colora9a9a9;
DRAWTEXTABS(110,5,'收益:'+收益+'元 '),LINETHICK1,COLORa9a9a9;
