通达信主力资金介入幅图指标源码

游资筹码:=C;
{游资筹码赋值:收盘价;}

潜龙突破:=O;
{潜龙突破赋值:开盘价;}

擒妖筹码:=H;
{擒妖筹码赋值:最高价;}

金额:AMOUNT/10000000,NODRAW;
{输出金额:成交额(元)/10000000,不画该线;}

潜龙筹码1:=AMOUNT/((擒妖筹码-LOW)*2-ABS(游资筹码-潜龙突破));
{潜龙筹码1赋值:成交额(元)/((擒妖筹码-最低价)*2-游资筹码-潜龙突破的绝对值);}

流入亿:IF(游资筹码>潜龙突破,潜龙筹码1*(擒妖筹码-LOW),IF(游资筹码< 潜龙突破,潜龙筹码1*((擒妖筹码-潜龙突破)+(游资筹码-LOW)),AMOUNT/2))/100000000,COLORRED,NODRAW;
{输出流入亿:如果游资筹码>潜龙突破,返回潜龙筹码1*(擒妖筹码-最低价),否则返回如果游资筹码<潜龙突破,返回潜龙筹码1*((擒妖筹码-潜龙突破)+(游资筹码-最低价)),否则返回成交额(元)/2/100000000,画红色,不画该线;}

流出亿:IF(游资筹码>潜龙突破,0-潜龙筹码1*((擒妖筹码-游资筹码)+(潜龙突破-LOW)),IF(游资筹码< 潜龙突破,0-潜龙筹码1*(擒妖筹码-LOW),0-AMOUNT/2))/100000000,COLOR00FF00,NODRAW;
{输出流出亿:如果游资筹码>潜龙突破,返回0-潜龙筹码1*((擒妖筹码-游资筹码)+(潜龙突破-最低价)),否则返回如果游资筹码<潜龙突破,返回0-潜龙筹码1*(擒妖筹码-最低价),否则返回0-成交额(元)/2/100000000,颜色:00FF00,不画该线;}

差:=(流入亿+流出亿),NODRAW;
{差赋值:(流入亿+流出亿),不画该线;}

强:=EMA((游资筹码-REF(游资筹码,1))/游资筹码*10,2);
{强赋值:(游资筹码-1日前的游资筹码)/游资筹码*10的2日指数移动平均;}

主力:=EMA(差,1),COLORFF00FF,LINETHICK5;
{主力赋值:差的1日指数移动平均,颜色:FF00FF,线宽为5;}

差A:=3*EMA(EMA(EMA(EMA(强,2),2),2),2),NODRAW;
{差A赋值:3*强的2日指数移动平均的2日指数移动平均的2日指数移动平均的2日指数移动平均,不画该线;}

大单净流入:3*EMA(EMA(EMA(EMA(差A,1),2),2),2), COLORRED,NODRAW;
{输出大单净流入:3*差A的1日指数移动平均的2日指数移动平均的2日指数移动平均的2日指数移动平均, 画红色,不画该线;}

STICKLINE(大单净流入< 0,0,大单净流入,4,0),COLORFF6600;
{当满足条件大单净流入<0时,在0和大单净流入位置之间画柱状线,宽度为4,0不为0则画空心柱.,颜色:FF6600;}

STICKLINE(大单净流入< 0,0,大单净流入,3,0),COLORFF9900;
{当满足条件大单净流入<0时,在0和大单净流入位置之间画柱状线,宽度为3,0不为0则画空心柱.,颜色:FF9900;}

STICKLINE(大单净流入< 0,0,大单净流入,1.5,0),COLORFFCC00;
{当满足条件大单净流入<0时,在0和大单净流入位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,颜色:FFCC00;}

STICKLINE(大单净流入< 0,0,大单净流入,0.5,0),COLORCYAN;
{当满足条件大单净流入<0时,在0和大单净流入位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画青色;}

STICKLINE(大单净流入>0,0,大单净流入,4,0),COLOR000099;
{当满足条件大单净流入>0时,在0和大单净流入位置之间画柱状线,宽度为4,0不为0则画空心柱.,颜色:000099;}

STICKLINE(大单净流入>0,0,大单净流入,3,0),COLOR0000CC;
{当满足条件大单净流入>0时,在0和大单净流入位置之间画柱状线,宽度为3,0不为0则画空心柱.,颜色:0000CC;}

STICKLINE(大单净流入>0,0,大单净流入,1.5,0),COLOR0000FF;
{当满足条件大单净流入>0时,在0和大单净流入位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,颜色:0000FF;}

STICKLINE(大单净流入>0,0,大单净流入,0.5,0),COLORWHITE;
{当满足条件大单净流入>0时,在0和大单净流入位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画白色;}

STICKLINE(大单净流入< REF(大单净流入,1)AND 大单净流入>0,0,大单净流入,4,0),COLOR009999;
{当满足条件大单净流入<1日前的大单净流入和大单净流入>0时,在0和大单净流入位置之间画柱状线,宽度为4,0不为0则画空心柱.,颜色:009999;}

STICKLINE(大单净流入< REF(大单净流入,1)AND 大单净流入>0,0,大单净流入,3,0),COLOR00BBBB;
{当满足条件大单净流入<1日前的大单净流入和大单净流入>0时,在0和大单净流入位置之间画柱状线,宽度为3,0不为0则画空心柱.,颜色:00BBBB;}

STICKLINE(大单净流入< REF(大单净流入,1)AND 大单净流入>0,0,大单净流入,2,0),COLOR00DDDD;
{当满足条件大单净流入<1日前的大单净流入和大单净流入>0时,在0和大单净流入位置之间画柱状线,宽度为2,0不为0则画空心柱.,颜色:00DDDD;}

STICKLINE(大单净流入< REF(大单净流入,1)AND 大单净流入>0,0,大单净流入,1,0),COLOR00FFFF;
{当满足条件大单净流入<1日前的大单净流入和大单净流入>0时,在0和大单净流入位置之间画柱状线,宽度为1,0不为0则画空心柱.,颜色:00FFFF;}

STICKLINE(大单净流入>REF(大单净流入,1)AND 大单净流入< 0,0,大单净流入,4,0),COLOR000099;
{当满足条件大单净流入>1日前的大单净流入和大单净流入<0时,在0和大单净流入位置之间画柱状线,宽度为4,0不为0则画空心柱.,颜色:000099;}

STICKLINE(大单净流入>REF(大单净流入,1)AND 大单净流入< 0,0,大单净流入,3,0),COLOR0000BB;
{当满足条件大单净流入>1日前的大单净流入和大单净流入<0时,在0和大单净流入位置之间画柱状线,宽度为3,0不为0则画空心柱.,颜色:0000BB;}

STICKLINE(大单净流入>REF(大单净流入,1)AND 大单净流入< 0,0,大单净流入,1.5,0),COLOR0000DD;
{当满足条件大单净流入>1日前的大单净流入和大单净流入<0时,在0和大单净流入位置之间画柱状线,宽度为1.5,0不为0则画空心柱.,颜色:0000DD;}

STICKLINE(大单净流入>REF(大单净流入,1)AND 大单净流入< 0,0,大单净流入,0.5,0),COLOR0000FF;
{当满足条件大单净流入>1日前的大单净流入和大单净流入<0时,在0和大单净流入位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,颜色:0000FF;}

DRAWTEXT(CROSS(大单净流入,0),0,’★资金介入’),COLOR00FFFF;
{当满足条件大单净流入上穿0时,在0位置书写文字,颜色:00FFFF;}

DRAWICON(CROSS(大单净流入,0),0*1.002,1);
{当满足条件大单净流入上穿0时,在0*1.002位置画1号图标;};