通达信狙击主力筹码主图指标公式源码

{灰色K}
STICKLINE(O>=C,H,L,0,0),COLOR909090;
STICKLINE(O>=C,C,O,3.1,0),COLOR606060;
STICKLINE(O>=C,C,O,3.1,0),COLOR707070;
STICKLINE(O>=C,C,O,1.2,0),COLOR808080;
STICKLINE(O>=C,C,O,0.2,0),COLOR909090;
STICKLINE(O<=C,H,L,0,0),COLOR666B6F;
STICKLINE(C>O,C,O,3.1,1),COLOR666B6F;
V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1);
MA1:=EXPMEMA(CLOSE,3);
MA2:=EXPMEMA(CLOSE,5);
MA3:=EXPMEMA(CLOSE,8);
MA4:=EXPMEMA(CLOSE,10);
MA5:=EXPMEMA(CLOSE,12);
MA6:=EXPMEMA(CLOSE,35);
MA7:=EXPMEMA(CLOSE,40);
MA8:=EXPMEMA(CLOSE,45);
MA9:=EXPMEMA(CLOSE,50);
MA10:=EXPMEMA(CLOSE,60);
跌:=EMA(C,120),LINETHICK1,POINTDOT,COLORGREEN;
{涨:IF (跌>REF(跌,1),跌,0),LINETHICK2,CIRCLEDOT,COLORGREEN;}
红:=MA(C,120),LINETHICK1,POINTDOT,COLORGREEN;
{绿:IF (红>REF(红,1),红,0),LINETHICK2,CIRCLEDOT,COLORFF0080;}
A24:=EMA(C,24);
IF(A24>=REF(A24,1),A24,DRAWNULL),COLORFF00FF,LINETHICK1;
A55:=EMA(C,55);
IF(A55>=REF(A55,1),A55,DRAWNULL),COLORCYAN,LINETHICK1;
A77:=EMA(C,77),DOTLINE;
IF(A77>=REF(A77,1),A77,DRAWNULL),COLORRED,LINETHICK1;
效果:=O<=MIN(MA1,MIN(MA2,MIN(MA3,MIN(MA4,MA5))))AND
C>=MAX(MA1,MAX(MA2,MAX(MA3,MAX(MA4,MA5))));
A01:=MIN(O,C);
B01:=Abs(O-C);
A02:=MAX(O,C);
共振:=O<=MIN(MA1,MIN(MA2,MIN(MA3,MIN(MA4,MIN(MA5,MIN(MA6,MIN(MA7,MIN(MA8,
MIN(MA9,MA10)))))))))AND C>=MAX(MA1,MAX(MA2,MAX(MA3,MAX(MA4,MAX(MA5,
MAX(MA6,MAX(MA7,MAX(MA8,MAX(MA9,MA10)))))))));
STICKLINE(共振,H,L,0,1),COLORYELLOW;
STICKLINE(共振,C,O,3.1,0),COLOR117777;
STICKLINE(共振,C,O,2.6,0),COLOR119999;
STICKLINE(共振,C,O,1.9,0),COLOR11BBBB;
STICKLINE(共振,C,O,1.1,0),COLOR11DDDD;
STICKLINE(共振,C,O,0.3,0),COLOR44FFFF;
STICKLINE(效果,A01,A01+B01/6,3.1,0),COLOR880088;
STICKLINE(效果,A01,A01+B01/6,2.5,0),COLOR990099;
STICKLINE(效果,A01,A01+B01/6,2.0,0),COLORBB00BB;
STICKLINE(效果,A01,A01+B01/6,1.5,0),COLORDD00DD;
STICKLINE(效果,A01,A01+B01/6,0.7,0),COLORFF00FF;
主力筹码估算:=EMA(WINNER(CLOSE)*70,3),NODRAW,LINETHICK0;
散户筹码估算:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3),NODRAW;
散户套牢比率:=散户筹码估算/(主力筹码估算+散户筹码估算)*100,NODRAW;
主力控盘比率:=主力筹码估算/(主力筹码估算+散户筹码估算)*100,NODRAW;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.85,0.84,0,'■ 主力筹码估算：'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.92,0.84,0,' ％'),COLORMAGENTA;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.90,0.84,0,主力筹码估算),COLORMAGENTA;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.85,0.93,0,'■ 主力控盘比率：'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.92,0.93,0,' ％'),COLORMAGENTA;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.90,0.93,0,主力控盘比率),COLORMAGENTA;
{风险系数}
X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替}
X3:=FINANCE(23)/FINANCE(10)*3.3;
X4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
X5:=FINANCE(20)/FINANCE(15)*0.999;
LC:=REF(CLOSE,1);
Wrsi:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;
获利筹码:=CONST(WINNER(C)*100);
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能饱和:=(IF(SAT>1,1,SAT)*100);
wr10:=(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3))*100;
活跃:=(WRSI-WR10);
活跃度比:=IF(活跃>=0,(活跃+100)/2,100-ABS((活跃-100)/2));
DRAWTEXT_FIX(1,0.992,0.84,1,STRCAT(STRCAT('量能饱和：',CON2STR(量能饱和,2)),'％')),COLORMAGENTA;
DRAWTEXT_FIX(1,0.992,0.88,1,STRCAT(STRCAT('活跃度比：',CON2STR(活跃度比,2)),'％')),COLORMAGENTA;
DRAWTEXT_FIX(1,0.992,0.92,1,STRCAT(STRCAT('获利筹码：',CON2STR(获利筹码,2)),'％')),COLORMAGENTA;
{DRAWTEXT_FIX(1,0.82,0.00,1,'大盘趋势：'),COLORRED;
DRAWTEXT_FIX( CONST(INDEXC) >SAR(4,2,20),0.85,0.00,1,'∧向上∧'),COLORRED;
DRAWTEXT_FIX( CONST(INDEXC) >sar(4,2,20),0.85,0.03,1,'∧∧∧∧'),COLORRED;
DRAWTEXT_FIX( CONST(INDEXC) <SAR(4,2,20),0.85,0.00,1,'∨向下∨'),COLORGREEN;
DRAWTEXT_FIX( CONST(INDEXC) <SAR(4,2,20),0.85,0.03,1,'∨∨∨∨'),COLORGREEN;}
{DRAWTEXT_FIX(CURRBARSCOUNT=1,0.60,0.93,0,'数据日期：'),COLORRED;
DRAWTEXT_FIX(CURRBARSCOUNT=1,0.80,0.93,0,' 财报更新第：'),COLORRED;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.90,0.93,0,FINANCE(37)),,COLORMAGENTA;
DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.70,0.93,0,MACHINEDATE+19000000),COLORMAGENTA;};