【原】大智慧活筹指标公式程序源码及编程思路破译

编程思路破译

输出主力持仓:100*(收盘价-34日内最低价的最低值)/(34日内最高价的最高值-34日内最低价的最低值)的3日指数移动平均,COLORFF00FF,线宽为1

CN1赋值:5日内成交量(手)的最高值

CN2赋值:收阴线

CN02赋值:收阳线

CN03赋值:平盘

CN04赋值:((成交量(手)的5日累和/CN1))

CN05赋值:如果CN04>0.3,返回1,否则返回0

CN06赋值:如果CN2ANDCN05,返回成交量(手),否则返回0

CN07赋值:如果CN02ANDCN05,返回成交量(手),否则返回0

CN08赋值:如果CN03ANDCN05,返回成交量(手),否则返回0

输出累积流入:CN07的9日累和/10000,画黄色,线宽为0

输出累积流出:CN06的9日累和/10000,画蓝色,线宽为0

输出净流入:(累积流入-累积流出),COLORFFFFFF,线宽为0

输出净流入角度:(净流入/1日前的净流入-1)*100的反正切*57.3,线宽为0

当满足条件累积流入时,在0和累积流入位置之间画柱状线,宽度为8,1不为0则画空心柱.,画黄色

当满足条件累积流出时,在0和累积流出位置之间画柱状线,宽度为8,1不为0则画空心柱.,画蓝色

VAR2赋值:35日内最低价的最低值

VAR3赋值:21日内最高价的最高值

VAR4赋值:(收盘价-VAR2)/(VAR3-VAR2)*100的20日指数移动平均*0.998

输出短线通道:20,画绿色

输出短线顶部:85,COLORFF00FF

输出强弱分界:70,COLOR00FFFF

DRAWTEXTREL(10,10,'临界悬浮- 点评：注意买不亏'),COLOR555555

当满足条件收盘价>0的100日过滤时,在15位置书写文字,画白色

输出短线:0.667*1日前的VAR4+0.333*VAR4的1日指数移动平均

当满足条件短线>=1日前的短线时,在短线+0.5和短线-1位置之间画柱状线,宽度为6,0不为0则画空心柱.,画红色,线宽为2

当满足条件短线<1日前的短线时,在短线+0.5和短线-1位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR00FF00

当满足条件短线通道>短线时,在短线通道和短线位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLOR00FFFF,线宽为3

当满足条件短线上穿短线通道时,在短线+1位置书写文字,COLORFF00FF

程序源码

{资金大盘}

主力持仓:EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3),COLORFF00FF,LINETHICK1;

CN1:=HHV(V,5);{5日最高量}

CN2:=O>C;

CN02:=C>O;

CN03:=C=O;

CN04:=((SUM(V,5)/CN1));

CN05:=IF(CN04>0.3,1,0);{大资金}

CN06:=IF(CN2 AND CN05,V,0);{大资金流出}

CN07:=IF(CN02 AND CN05,V,0);{大资金流入}

CN08:=IF(CN03 AND CN05,V,0);{不明流向大资金}

累积流入:SUM(CN07,9)/10000,COLORYELLOW,LINETHICK0;

累积流出:SUM(CN06,9)/10000,COLORBLUE,LINETHICK0;

净流入:(累积流入-累积流出),COLORFFFFFF,LINETHICK0;

净流入角度:ATAN((净流入/REF(净流入,1)-1)*100)*57.3,LINETHICK0;

STICKLINE(累积流入,0 ,累积流入 ,8 ,1 ),COLORYELLOW;

STICKLINE(累积流出,0 ,累积流出 ,8 ,1 ),COLORBLUE;

VAR2:=LLV(LOW,35);

VAR3:=HHV(HIGH,21);

VAR4:=EMA((CLOSE-VAR2)/(VAR3-VAR2)*100,20)*0.998;

短线通道:20,COLORGREEN;

短线顶部:85,COLORFF00FF;

强弱分界:70,COLOR00FFFF;

DRAWTEXTREL(

10,10,'临界悬浮- 点评：注意买不亏'

),COLOR555555;

DRAWTEXT(FILTER(CLOSE>0,100),15,'安全区'),COLORWHITE;

短线:EMA(0.667*REF(VAR4,1)+0.333*VAR4,1);

STICKLINE(短线>=REF(短线,1),短线+0.5,短线-1,6,0),COLORRED,LINETHICK2;

STICKLINE(短线<REF(短线,1),短线+0.5,短线-1,6,0),COLOR00FF00;

STICKLINE(短线通道>短线,短线通道,短线,7,0),COLOR00FFFF,

LINETHICK3;

DRAWTEXT(CROSS(短线,短线通道) ,短线+1,'买不亏'),COLORFF00FF;