大智慧量价增减指标公式程序源码编程思路破译及风险提示
编程思路破译
输出INPUT:K(3,0,50)
DRAWGBKLAST(日期>900101,STRIP(自定色,自定色,0))
0,COLORFF9900
JV赋值:(成交量(手)-1日前的成交量(手))/1日前的成交量(手)*100
JVH赋值:JV的K日累和的K日指数移动平均
PARTLINE(JVH,(JVH>1日前的JVH)-1,自定色,1,自定色 ),线宽为2,LAYER4
当满足条件数据位置状态=2时,在0位置书写文字,ALIGN0,COLOR00FFFF,线宽为2,LAYER0
X赋值:上次DISPSTATUS=1距今天数+1
AHX赋值:HHVALL(X日内JVH的最高值)
VERTLINE(JVH=AHX,4),COLOR00FFFF,LAYER0
当满足条件JV>0时,在JV和0位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR000055,LAYER7
当满足条件JV>0时,在JV和0位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR000077,LAYER7
当满足条件JV>0时,在JV和0位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR000099,LAYER7
当满足条件JV>0时,在JV和0位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR0000CC,LAYER7
当满足条件JV>0时,在JV和0位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR0000FF,LAYER7
当满足条件JV<0时,在JV和0位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLOR005500,LAYER7
当满足条件JV<0时,在JV和0位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR007700,LAYER7
当满足条件JV<0时,在JV和0位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR009900,LAYER7
当满足条件JV<0时,在JV和0位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR00CC00,LAYER7
HS赋值:成交量(手)/当前流通股本(手)*100
当满足条件JVANDHS>2时,在-10位置书写文字,ALIGN1,COLOR00FFFF,线宽为1,LAYER5
如果数据位置状态=2ANDC<200ANDHS,返回?,否则返回? THENDRAWTEXTABS(450,5, '■可视'+NUMTOSTRN(X,0)+'天累计换手 ' +NUMTOSTRN(HS的X日累和,1)+'%, 平均换手 ' +NUMTOSTRN(HS的X日累和/X,1)+'%: ' ),COLOR00FFFF,线宽为3
DRAWRECTABS(3,0 ,315 ,150 , 自定色),COLOR00FFFF,线宽为2,LAYER0
W1赋值:如果(成交量(手)-1日前的成交量(手))>0ANDABS(收盘价-1日前的收盘价)/1日前的收盘价*100<0.1,返回1,否则返回0
如果数据位置状态=2ANDC<200ANDW1,返回?,否则返回? THENDRAWTEXTABS(0,5,' ◢'+W1+'◣ '),COLOR0000FF,线宽为2,LAYER0
输出DRAWTEXTABS(0,5,' 【加仓】:-- 1.量增价平,转阳信号。'),COLOR0000FF,线宽为2,LAYER0
W2赋值:如果(成交量(手)-1日前的成交量(手))>0AND(收盘价-1日前的收盘价)>0,返回2,否则返回0
如果数据位置状态=2ANDC<200ANDW2,返回?,否则返回? THENDRAWTEXTABS(0,22,' ◢'+W2+'◣ '),COLOR0055FF,线宽为2,LAYER0
输出DRAWTEXTABS(0,22,' 【买入】:-- 2.量增价升,买入信号。'),COLOR0055FF,线宽为2,LAYER0
W3赋值:如果成交量(手)-1日前的成交量(手)的绝对值/1日前的成交量(手)*100<0.1AND(收盘价-1日前的收盘价)>0,返回3,否则返回0
如果数据位置状态=2ANDC<200ANDW3,返回?,否则返回? THENDRAWTEXTABS(0,39,' ◢'+W3+'◣ '),COLOR0077FF,线宽为2
输出DRAWTEXTABS(0,39,' 【加仓】:-- 3.量平价升,持续买入。'),COLOR0077FF,线宽为2,LAYER0
W4赋值:如果(成交量(手)-1日前的成交量(手))<0AND(收盘价-1日前的收盘价)>0,返回4,否则返回0
如果数据位置状态=2ANDC<200ANDW4,返回?,否则返回? THENDRAWTEXTABS(0,56,' ◢'+W4+'◣ '),COLOR0099FF,线宽为2
输出DRAWTEXTABS(0,56,' 【持有】:-- 4.量减价升,继续持有。'),COLOR0099FF,线宽为2,LAYER0
W5赋值:如果(成交量(手)-1日前的成交量(手))<0ANDABS(收盘价-1日前的收盘价)/1日前的收盘价*100<0.1,返回5,否则返回0
如果数据位置状态=2ANDC<200ANDW5,返回?,否则返回? THENDRAWTEXTABS(0,76,' ◢'+W5+'◣ '),COLOR00FF00,线宽为2,LAYER0
输出DRAWTEXTABS(0,76,' 【警戒】:-- 5.量减价平,警戒信号。'),COLOR00FF00,线宽为2,LAYER0
W6赋值:如果(成交量(手)-1日前的成交量(手))<0AND(收盘价-1日前的收盘价)<0,返回6,否则返回0
如果数据位置状态=2ANDC<200ANDW6,返回?,否则返回? THENDRAWTEXTABS(0,93,' ◢'+W6+'◣ '),COLORFFDD00,线宽为2,LAYER0
输出DRAWTEXTABS(0,93,' 【卖出】:-- 6.量减价跌,卖出信号。'),COLORFFDD00,线宽为2,LAYER0
W7赋值:如果成交量(手)-1日前的成交量(手)的绝对值/1日前的成交量(手)*100<0.1AND(收盘价-1日前的收盘价)>0,返回7,否则返回0
如果数据位置状态=2ANDC<200ANDW7,返回?,否则返回? THENDRAWTEXTABS(0,110,' ◢'+W7+'◣ '),COLORFFCC00,线宽为2,LAYER0
输出DRAWTEXTABS(0,110,' 【卖出】:-- 7.量平价跌,继续卖出。'),COLORFFCC00,线宽为2,LAYER0
W8赋值:如果(成交量(手)-1日前的成交量(手))>0AND(收盘价-1日前的收盘价)<0,返回8,否则返回0
如果数据位置状态=2ANDC<200ANDW8,返回?,否则返回? THENDRAWTEXTABS(0,127,' ◢'+W8+'◣ '),COLORFF9900,线宽为2,LAYER0
输出DRAWTEXTABS(0,127,' 【观望】:-- 8.量增价跌,弃卖观望。'),COLORFF9900,线宽为2,LAYER0
程序源码
INPUT:K(3,0,50);
DRAWGBKLAST(DATE>900101,STRIP(RGB(40,0,40),RGB(0,0,0),0));0,COLORFF9900;
JV:=(V-REF(V,1))/REF(V,1)*100;
JVH:=EMA(SUM(JV,K),K);
PARTLINE(JVH,(JVH>REF(JVH,1))-1,RGB(0,255,0),1,RGB(255,0,0) ),LINETHICK2,LAYER4;
DRAWTEXT(BARSTATUS=2,0,' 换手:'),ALIGN0,COLOR00FFFF,LINETHICK2,LAYER0;
X:=BARSLAST(DISPSTATUS=1)+1;
AHX:=HHVALL(HHV(JVH,X));
VERTLINE(JVH=AHX,4),COLOR00FFFF,LAYER0;
STICKLINE(JV>0,JV,0,5,0),COLOR000055,LAYER7;
STICKLINE(JV>0,JV,0,4,0),COLOR000077,LAYER7;
STICKLINE(JV>0,JV,0,3,0),COLOR000099,LAYER7;
STICKLINE(JV>0,JV,0,2,0),COLOR0000CC,LAYER7;
STICKLINE(JV>0,JV,0,1,0),COLOR0000FF,LAYER7;
STICKLINE(JV<0,JV,0,5,0),COLOR005500,LAYER7;
STICKLINE(JV<0,JV,0,4,0),COLOR007700,LAYER7;
STICKLINE(JV<0,JV,0,3,0),COLOR009900,LAYER7;
STICKLINE(JV<0,JV,0,2,0),COLOR00CC00,LAYER7;
HS:=VOL/CAPITAL*100;
DRAWTEXT(JV AND HS>2 ,-10,''+NUMTOSTRN(HS,0)+'' ),ALIGN1,COLOR00FFFF,LINETHICK1,LAYER5;
IF (BARSTATUS=2 AND C<200 AND HS) THEN
DRAWTEXTABS(450,5, '■可视'+NUMTOSTRN(X,0)+'天累计换手 ' +NUMTOSTRN(SUM(HS,X),1)+'%, 平均换手 ' +NUMTOSTRN(SUM(HS,X)/X,1)+'%: ' ),COLOR00FFFF,LINETHICK3;
DRAWRECTABS(3,0 ,315 ,150 , RGB(0,0,80)),COLOR00FFFF,LINETHICK2,LAYER0;
W1:=IF((V-REF(V,1))>0 AND ABS(C-REF(C,1))/REF(C,1)*100<0.1,1,0);
IF (BARSTATUS=2 AND C<200 AND W1) THEN
DRAWTEXTABS(0,5,' ◢'+W1+'◣ '),COLOR0000FF,LINETHICK2,LAYER0;
DRAWTEXTABS(0,5,' 【加仓】:-- 1.量增价平,转阳信号。'),COLOR0000FF,LINETHICK2,LAYER0;
W2:=IF((V-REF(V,1))>0 AND (C-REF(C,1))>0,2,0);
IF (BARSTATUS=2 AND C<200 AND W2) THEN
DRAWTEXTABS(0,22,' ◢'+W2+'◣ '),COLOR0055FF,LINETHICK2,LAYER0;
DRAWTEXTABS(0,22,' 【买入】:-- 2.量增价升,买入信号。'),COLOR0055FF,LINETHICK2,LAYER0;
W3:=IF(ABS(V-REF(V,1))/REF(V,1)*100<0.1 AND (C-REF(C,1))>0,3,0);
IF (BARSTATUS=2 AND C<200 AND W3) THEN
DRAWTEXTABS(0,39,' ◢'+W3+'◣ '),COLOR0077FF,LINETHICK2;
DRAWTEXTABS(0,39,' 【加仓】:-- 3.量平价升,持续买入。'),COLOR0077FF,LINETHICK2,LAYER0;
W4:=IF((V-REF(V,1))<0 AND (C-REF(C,1))>0,4,0);
IF (BARSTATUS=2 AND C<200 AND W4) THEN
DRAWTEXTABS(0,56,' ◢'+W4+'◣ '),COLOR0099FF,LINETHICK2;
DRAWTEXTABS(0,56,' 【持有】:-- 4.量减价升,继续持有。'),COLOR0099FF,LINETHICK2,LAYER0;
W5:=IF((V-REF(V,1))<0 AND ABS(C-REF(C,1))/REF(C,1)*100<0.1,5,0);
IF (BARSTATUS=2 AND C<200 AND W5) THEN
DRAWTEXTABS(0,76,' ◢'+W5+'◣ '),COLOR00FF00,LINETHICK2,LAYER0;
DRAWTEXTABS(0,76,' 【警戒】:-- 5.量减价平,警戒信号。'),COLOR00FF00,LINETHICK2,LAYER0;
W6:=IF((V-REF(V,1))<0 AND (C-REF(C,1))<0,6,0);
IF (BARSTATUS=2 AND C<200 AND W6) THEN
DRAWTEXTABS(0,93,' ◢'+W6+'◣ '),COLORFFDD00,LINETHICK2,LAYER0;
DRAWTEXTABS(0,93,' 【卖出】:-- 6.量减价跌,卖出信号。'),COLORFFDD00,LINETHICK2,LAYER0;
W7:=IF(ABS(V-REF(V,1))/REF(V,1)*100<0.1 AND (C-REF(C,1))>0,7,0);
IF (BARSTATUS=2 AND C<200 AND W7) THEN
DRAWTEXTABS(0,110,' ◢'+W7+'◣ '),COLORFFCC00,LINETHICK2,LAYER0;
DRAWTEXTABS(0,110,' 【卖出】:-- 7.量平价跌,继续卖出。'),COLORFFCC00,LINETHICK2,LAYER0;
W8:=IF((V-REF(V,1))>0 AND (C-REF(C,1))<0,8,0);
IF (BARSTATUS=2 AND C<200 AND W8) THEN
DRAWTEXTABS(0,127,' ◢'+W8+'◣ '),COLORFF9900,LINETHICK2,LAYER0;
DRAWTEXTABS(0,127,' 【观望】:-- 8.量增价跌,弃卖观望。'),COLORFF9900,LINETHICK2,LAYER0;
风险提示
该公式包含未来函数:CAPITAL
0条评论