大智慧量价变化指标公式源码编程思路破译

编程思路破译

MA5赋值:收盘价的5日指数移动平均

输出价角度:(MA5/1日前的MA5-1)*100的反正切*180/3.1416,线宽为0

输出EMA5:价角度的10日加权移动平均,COLOR0598FF,DOTLINE

PARTLINE(EMA5,EMA5>1日前的EMA5,自定色),COLOR00FFFF,线宽为2,LAYER0

当满足条件DISPSTATUS=2时,在EMA5位置书写文字,COLOR0000FF,线宽为1,ALIGN0

MV5赋值:成交量(手)的5日指数移动平均

输出量角度:(MV5/1日前的MV5-1)*100的反正切*180/3.1416,线宽为0

输出EMV5:量角度的10日加权移动平均,COLOR00FF00,DOTLINE

PARTLINE(EMV5,EMV5>1日前的EMV5,自定色),COLOR0099FF,线宽为2,LAYER0

当满足条件DISPSTATUS=2时,在EMV5位置书写文字,COLOR00FF00,线宽为1,ALIGN0

输出成本角度:(成本均线(5)/1日前的成本均线(5)-1)*100的反正切*180/3.1416,线宽为0

输出CY5:成本角度的10日加权移动平均,COLOR00FFFF,DOTLINE

PARTLINE(CY5,CY5>1日前的CY5,自定色),COLOR00FF00,线宽为4,LAYER0

OBV赋值:如果收盘价>1日前的收盘价,返回成交量(手),否则返回如果收盘价<1日前的收盘价,返回-成交量(手),否则返回0的历史累和

MB3赋值:OBV的3日简单移动平均

MB5赋值:OBV的5日简单移动平均

NB1赋值:上次MB3上穿MB5距今天数

NB2赋值:上次MB5上穿MB3距今天数

N赋值:如果NB1<NB2,返回NB1+1,否则返回0-NB2-1

当满足条件N>0时,在0-50和0-50+N*2位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR0000FF

当满足条件N<0时,在0-50和0-50+N*2位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLORFFFF00

程序源码

{1.价角度}

MA5:=EMA(C,5);

价角度:ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416,LINETHICK0;

EMA5:WMA(价角度,10),COLOR0598FF,DOTLINE;

PARTLINE(EMA5,EMA5>REF(EMA5,1),RGB(255,0,0)),COLOR00FFFF,LINETHICK2,LAYER0;

DRAWTEXT(DISPSTATUS=2,EMA5,'价:'+NUMTOSTRN(价角度,1)+'度'),COLOR0000FF,LINETHICK1,ALIGN0;

{2.量角度}

MV5:=EMA(V,5);

量角度:ATAN((MV5/REF(MV5,1)-1)*100)*180/3.1416,LINETHICK0;

EMV5:WMA(量角度,10),COLOR00FF00,DOTLINE;

PARTLINE(EMV5,EMV5>REF(EMV5,1),RGB(255,255,0)),COLOR0099FF,LINETHICK2,LAYER0;

DRAWTEXT(DISPSTATUS=2,EMV5,'量:'+NUMTOSTRN(量角度,1)+'度'),COLOR00FF00,LINETHICK1,ALIGN0;

{3.成本角度}

成本角度:ATAN((CYC(5)/REF(CYC(5),1)-1)*100)*180/3.1416,LINETHICK0;

CY5:WMA(成本角度,10),COLOR00FFFF,DOTLINE;

PARTLINE(CY5,CY5>REF(CY5,1),RGB(0,255,0)),COLOR00FF00,LINETHICK4,LAYER0;

{3天-5天OBV强弱}

OBV:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);

MB3:=MA(OBV,3);

MB5:=MA(OBV,5);

NB1:=BARSLAST(CROSS(MB3,MB5));

NB2:=BARSLAST(CROSS(MB5,MB3));

N:=IF(NB1<NB2,NB1+1,0-NB2-1);

STICKLINE(N>0,0-50,0-50+N*2,6,0),COLOR0000FF;

STICKLINE(N<0,0-50,0-50+N*2,6,0),COLORFFFF00;