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

{灰色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;};

原理解析：
当满足条件O>=C时,在H和L之间画柱状线
当满足条件O>=C时,在C和O之间画柱状线
当满足条件O>=C时,在C和O之间画柱状线
当满足条件O>=C时,在C和O之间画柱状线
当满足条件O>=C时,在C和O之间画柱状线
当满足条件O<=C时,在H和L之间画柱状线
当满足条件C>O时,在C和O之间画柱状线
V2V赋值:V/1日前的V>=1.9 AND C>1日前的C
MA1赋值:EXP收盘价的3日平滑移动平均
MA2赋值:EXP收盘价的5日平滑移动平均
MA3赋值:EXP收盘价的8日平滑移动平均
MA4赋值:EXP收盘价的10日平滑移动平均
MA5赋值:EXP收盘价的12日平滑移动平均
MA6赋值:EXP收盘价的35日平滑移动平均
MA7赋值:EXP收盘价的40日平滑移动平均
MA8赋值:EXP收盘价的45日平滑移动平均
MA9赋值:EXP收盘价的50日平滑移动平均
MA10:=EXP收盘价的60日平滑移动平均
跌赋值:C的120日指数移动平均,LINETHICK1,POINTDOT,画绿色
输出{涨:IF (跌>1日前的跌,跌,0), 线宽为2,CIRCLEDOT,画绿色
}
红赋值:C的120日简单移动平均,LINETHICK1,POINTDOT,画绿色
输出{绿:IF (红>1日前的红,红,0), 线宽为2,CIRCLEDOT,COLORFF0080
}
A24赋值:C的24日指数移动平均
IF(A24>=1日前的A24,A24,DRAWNULL),COLORFF00FF,LINETHICK1
A55赋值:C的55日指数移动平均
IF(A55>=1日前的A55,A55,DRAWNULL),画青色,LINETHICK1
A77赋值:C的77日指数移动平均,DOTLINE
IF(A77>=1日前的A77,A77,DRAWNULL),画红色,LINETHICK1
效果赋值:O<=MIN(MA1,MIN(MA2,MIN(MA3,MIN(MA4,MA5))))AND C>=MAX(MA1,MAX(MA2,MAX(MA3,MAX(MA4,MA5))))
A01赋值:O和C的较小值
B01赋值:O-C的绝对值
A02赋值: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)))))))))
当满足条件共振时,在H和L之间画柱状线
当满足条件共振时,在C和O之间画柱状线
当满足条件共振时,在C和O之间画柱状线
当满足条件共振时,在C和O之间画柱状线
当满足条件共振时,在C和O之间画柱状线
当满足条件共振时,在C和O之间画柱状线
当满足条件效果时,在A01和A01+B01/6之间画柱状线
当满足条件效果时,在A01和A01+B01/6之间画柱状线
当满足条件效果时,在A01和A01+B01/6之间画柱状线
当满足条件效果时,在A01和A01+B01/6之间画柱状线
当满足条件效果时,在A01和A01+B01/6之间画柱状线
主力筹码估算赋值:EMA(收盘价计算的获利盘比例*70,3),NODRAW,LINETHICK0
散户筹码估算赋值:EMA((收盘价*1.1计算的获利盘比例-WINNER(收盘价*0.9))*80,3),NODRAW
散户套牢比率赋值:散户筹码估算/(主力筹码估算+散户筹码估算)*100,NODRAW
主力控盘比率赋值:主力筹码估算/(主力筹码估算+散户筹码估算)*100,NODRAW
当满足条件 到最后交易的周期=1时,在横轴0.85纵轴0.84位置书写文字
当满足条件 到最后交易的周期=1时,在横轴0.92纵轴0.84位置书写文字
当满足条件 到最后交易的周期=1时,在横轴0.90纵轴0.84位置书写数字
当满足条件 到最后交易的周期=1时,在横轴0.85纵轴0.93位置书写文字
当满足条件 到最后交易的周期=1时,在横轴0.92纵轴0.93位置书写文字
当满足条件 到最后交易的周期=1时,在横轴0.90纵轴0.93位置书写数字
{风险系数}
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赋值:1日前的收盘价
WRSI赋值:SMA(收盘价-LC和0较大值,5,1)/SMA(收盘价-LC的绝对值,5,1)*100
获利筹码赋值:CONST(C计算的获利盘比例*100)
SAT赋值:(成交额/C)/(20日内成交额最高值/20日内C最高值)
如果SAT>1返回1否则返回SAT
WR10赋值:(3日内最高价最高值-收盘价)/(3日内最高价最高值-3日内最低价最低值)*100
活跃赋值:(WRSI-WR10)
活跃度比:=IF(活跃>=0,(活跃+100)/2,100-(活跃-100的绝对值/2))
DRAWTEXT_FIX(1,0.992,0.84,1,STRCAT(STRCAT('量能饱和：',CON2STR(量能饱和,2)),'％')),画洋红色
DRAWTEXT_FIX(1,0.992,0.88,1,STRCAT(STRCAT('活跃度比：',CON2STR(活跃度比,2)),'％')),画洋红色
DRAWTEXT_FIX(1,0.992,0.92,1,STRCAT(STRCAT('获利筹码：',CON2STR(获利筹码,2)),'％')),画洋红色
当满足条件1时,在横轴0.82纵轴0.00位置书写文字
DRAWTEXT_FIX( CONST(INDEXC) >SAR(4,2,20),0.85,0.00,1,'∧向上∧'),画红色
DRAWTEXT_FIX( CONST(INDEXC) >SAR(4,2,20),0.85,0.03,1,'∧∧∧∧'),画红色
DRAWTEXT_FIX( CONST(INDEXC) DRAWTEXT_FIX( CONST(INDEXC) 当满足条件 到最后交易的周期=1时,在横轴0.60纵轴0.93位置书写文字
当满足条件 到最后交易的周期=1时,在横轴0.80纵轴0.93位置书写文字
DRAWNUMBER_FIX( 到最后交易的周期=1,0.90,0.93,0,FINANCE(37)),,画洋红色
当满足条件 到最后交易的周期=1时,在横轴0.70纵轴0.93位置书写数字
}