通达信筹码峰异动主副图 加仓异动、强于大盘提示 源码
通达信筹码峰异动主副图 加仓异动、强于大盘提示 源码
{筹码峰异动图源码如下}
A001:=CLOSE-REF(CLOSE,6);
A002:=MA(A001,6);
A003:=((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9)))*100;
A004:=SMA(A003,3,1);
A005:=SMA(A004,3,1);
A006:=EMA((3*A004-2*A005),2);
A007:=(HIGH+LOW+CLOSE)/3;
A008:=((A007-MA(A007,14))/(0.015*AVEDEV(A007,14)))/2;
A009:=(A008+(EMA(((0-(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))))+100)/100,3)*200-100))/2;
A010:=A009-REF(A009,14);
A011:=A009-REF(A009,26);
A012:=(A009+A010+A011)/3;
KKM:=EMA(A012,4);
A013:=HHV(HIGH,34);
A014:=(2*CLOSE+HIGH+LOW)/4;
A015:=LLV(LOW,34);
A016:=EMA(((A014-A015)/(A013-A015))*100,13);
A017:=EMA(0.667*REF(A016,1)+0.333*A016,2);
KKMD:=A016-A017>1 AND A016< 30 AND A017< 30;
KKML:=A016-A017< 0 AND A016>80 AND A017>80 AND REF(A016-A017,1)>0;
KKMQ:=COUNT(A016-A017>0,2)=2;
KKAL:=(A016-A017)< 0;
生命线:MA(CLOSE,20),COLOR0000FF;
取舍线:MA(CLOSE,10);
DRAWTEXT(FILTER(KKMD,30),L,''),COLOR00FFFF;
DRAWTEXT(FILTER(KKML,30),H,''),COLORFFFF00;
DRAWTEXT(FILTER(KKMQ,30),C,''),COLOR00FF00;
DRAWTEXT(FILTER(KKAL,30),H,'建仓区'),COLORYELLOW;
DRAWTEXT(FILTER(CLOSE/REF(CLOSE,1)>INDEXC/REF(INDEXC,1),30),L*0.95,'该股强于大盘'),COLORFF00FF;
DRAWTEXT(CROSS(MA(CLOSE,5),MA(CLOSE,10)),L*0.92,'加仓了'),COLORYELLOW;
DRAWTEXT(CROSS(MA(CLOSE,10),MA(CLOSE,5)),H*1.08,'异动了'),COLORYELLOW;
DRAWTEXT(FILTER(KKM>EMA(KKM,4) AND KKM>REF(KKM,1),30),L*0.98,'');
DRAWTEXT(FILTER(KKM< EMA(KKM,4) AND KKM< REF(KKM,1),30),H*1.02,'');
DRAWTEXT(FILTER(KKM>EMA(KKM,4) AND KKM< REF(KKM,1),30),H,''),COLORAA8800;
DRAWTEXT(FILTER(KKM< EMA(KKM,4) AND KKM>REF(KKM,1),30),L,'有防御能力') ,COLORAA00AA;
{筹码峰异动副图源码如下}
N:=60;
M:=34;
HGW1:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
HGW2:=(2*CLOSE+HIGH+LOW)/4;
HGW3:=EMA((HGW2-LLV(LOW,M))/(HHV(HIGH,M)-LLV(LOW,M))*100,13);
HGW4:=EMA(0.667*REF(HGW3,1)+0.333*HGW3,2);
HGW5:=SMA(HGW1,20,1);
HGW6:=SMA(HGW5,5,1);
STICKLINE(HGW5-HGW6>0,HGW5,HGW6,4,1),COLORYELLOW;
STICKLINE(HGW5-HGW6< 0,HGW5,HGW6,4,1),COLORLIBLUE;
STICKLINE(HGW3-HGW4>0,HGW3,HGW4,2,0),COLORRED;
STICKLINE(HGW3-HGW4< 0,HGW3,HGW4,2,0),COLORGREEN;
T1:=HGW3-HGW4>0 AND HGW5-HGW6>0 AND HGW4>HGW5;
筹码峰异动:=T1 AND REF(T1,1)=0 AND C>O AND V>REF(V,1);
IF(筹码峰异动,65,0),DOTLINE,COLORRED;
IF(筹码峰异动,60,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,55,0),DOTLINE,COLORRED;
IF(筹码峰异动,50,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,45,0),DOTLINE,COLORRED;
IF(筹码峰异动,40,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,35,0),DOTLINE,COLORRED;
IF(筹码峰异动,30,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,20,0),DOTLINE,COLORRED;
IF(筹码峰异动,15,0),DOTLINE,COLORYELLOW;
IF(筹码峰异动,10,0),DOTLINE,COLORRED;
