筹码集中度优化（通达信，原码、公式、选股）

在线人生陸

筹码集中度优化
该指标反映主力增加减少情况，筹码集中度红增，绿减。
通过中线与奔牛线的变色判断未来的走向。红涨，绿跌。

有顶与底的提示，青为顶部区域，底为淡灰色区域。
顶背离与底背离提示。红底背离，绿顶背离。

B点、红箭头、红+，0上红柱为买进。
S点，绿箭头等为卖出。
指标公式：通达信： 11.rar (2.4 KB, 下载次数: 7463)

2010-9-19 16:22 上传

点击文件名下载附件

VAR55:=LLV(LOW,6);
VAR66:=HHV(HIGH,6);
VAR77:=(VAR66-VAR55)/10;
VAR88:=SMA((CLOSE-VAR55)/VAR77,20,1);
VARA:=3*VAR88-2*SMA(VAR88,3,1);
AA:=MA(EMA(WINNER(C),3),3);
筹码集中度:AA-0.5,COLORYELLOW;
DRAWBAND(筹码集中度,RGB(155,50,50),0,RGB(83,135,68));
FILLRGN(DIFF,DEA,DIFf>DEA,RGB(255,105,180),DIFf<DEA,RGB(34,139,33));
STICKLINE(筹码集中度>=0.4,0.4,筹码集中度,4,1),COLORCYAN;
STICKLINE(筹码集中度<=-0.4,-0.4,筹码集中度,4,1),COLORLIGRAY;
中线:EMA(AA-0.5,55),LINETHICK2,COLORLIGRAY;
IF(中线>REF(中线,1),中线,DRAWNULL),LINETHICK2,COLORMAGENTA;
IF(筹码集中度>=REF(筹码集中度,1),筹码集中度,DRAWNULL),COLORRED;
IF(筹码集中度<REF(筹码集中度,1),筹码集中度,DRAWNULL),COLORCYAN;
AB:=EMA(AA-0.5,6);
AC:=CROSS(AA-0.5,AB) AND AB<=-0.3;
AD:=CROSS(AB,AA-0.5) AND AB>=0.35;
DRAWICON(AC,AB,7);
DRAWICON(AD,AB,8);
VAR6:=(2*CLOSE+HIGH+LOW)/4;
VAR7:=LLV(LOW,13);
VAR8:=HHV(HIGH,13);
VAR9:=EMA((VAR6-VAR7)/(VAR8-VAR7)*100,13);
奔牛: (EMA(0.382*REF(VAR9,2)+0.618*VAR9,6)-50)/100,COLORYELLOW,LINETHICK2;
AAA:=EMA(奔牛,3);
DRAWICON(奔牛>=REF(奔牛,1) AND REF(奔牛,1)<=REF(奔牛,2),奔牛*0.95,1);
DRAWICON(奔牛<=REF(奔牛,1) AND REF(奔牛,1)>=REF(奔牛,2),奔牛*1.05,2);
IF(奔牛>REF(奔牛,1),奔牛,DRAWNULL),COLORRED,LINETHICK2;
IF(奔牛<REF(奔牛,1),奔牛,DRAWNULL),COLORCYAN,LINETHICK2;
DRAWICON(CROSS(AA-0.5,中线) AND AA-0.5<0,AB,23);
A1:=BARSLAST(REF(CROSS(奔牛,AAA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND 奔牛>REF(奔牛,A1+1) AND CROSS(奔牛,AAA);
STICKLINE(底背离,0,0.1,3,0),COLORMAGENTA;
DRAWLINE(A1=0,AAA,底背离,AAA,0),COLORRED,LINETHICK4;
A2:=BARSLAST(REF(CROSS(AAA,奔牛),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(奔牛,A2+1)>奔牛 AND CROSS(AAA,奔牛);
DRAWLINE(A2=0,AAA,顶背离,AAA,0),COLORGREEN,LINETHICK4;
有三个选股公式：
1、
AA:=MA(EMA(WINNER(C),3),3);
AB:=EMA(AA-0.5,6);
AC:CROSS(AA-0.5,AB) AND AB<=-0.3;
2、
AA:=MA(EMA(WINNER(C),3),3);
中线:=EMA(AA-0.5,55);
CROSS(AA-0.5,中线) AND AA-0.5<0;
3、
奔牛:= (EMA(0.382*REF(VAR9,2)+0.618*VAR9,6)-50)/100;
AAA:=EMA(奔牛,3);
A1:=BARSLAST(REF(CROSS(奔牛,AAA),1));
底背离:REF(CLOSE,A1+1)>CLOSE AND 奔牛>REF(奔牛,A1+1) AND CROSS(奔牛,AAA);

chjlcn

学习了，谢谢楼主无私分享。祝楼主天天涨停！

故事股市

{:soso_e160:}{:soso_e163:}

故事股市

谢谢老师无私分享，辛苦了

在线人生陸

先自己来一下，让大家都看见。

横财

谢谢楼主分享

金华丰

DRAWBAND(筹码集中度,RGB(155,50,50),0,RGB(83,135,68))
详细信息 : 您在括号前写的不是函数、公式等，

杜飞

当前公式 : 筹码看股 (指标画线公式)  
错误句 :
FILLRGN(DIFF,DEA,DIFF>DEA,RGB(255,105,180),DIFF<DEA,RGB(34,139,33))
详细信息 : 您在括号前写的不是函数、公式等，
且缺少必要的运算符!
错误起始位置 : 200 ; 长度: 8

乐在股中

谢谢楼主分享

晃晃晃

谢谢楼主分享

休闲男士

当前公式 : 筹码集中度优 (指标画线公式)  
错误句 :
FILLRGN(DIFF,DEA,DIFF>DEA,RGB(255,105,180),DIFF<DEA,RGB(34,139,33))
详细信息 : 您在括号前写的不是函数、公式等，
且缺少必要的运算符!
错误起始位置 : 200 ; 长度: 8

在线人生陸

DRAWBAND(筹码集中度,RGB(155,50,50),0,RGB(83,135,68))
详细信息 : 您在括号前写的不是函数、公式等，
金华丰 发表于 2010-9-19 17:23

    用通达信的都有，是红与绿筹码集中度的反映。绿变红色开始转强，红变绿色开始转弱，注意线条的变化。

在线人生陸

当前公式 : 筹码看股 (指标画线公式)  
错误句 :
FILLRGN(DIFF,DEA,DIFF>DEA,RGB(255,105,180),DIFF
杜飞 发表于 2010-9-19 19:38

    FILLRGN(DIFF,DEA,DIFf>DEA,RGB(255,105,180),DIFf<DEA,RGB(34,139,33));
这是大智慧L2的，可用{}处理，变化为：
{FILLRGN(DIFF,DEA,DIFf>DEA,RGB(255,105,180),DIFf<DEA,RGB(34,139,33));}

在线人生陸

当前公式 : 筹码集中度优 (指标画线公式)  
错误句 :
FILLRGN(DIFF,DEA,DIFF>DEA,RGB(255,105,180),DIFF
休闲男士 发表于 2010-9-20 08:20

    同上一个情况。

可修改为：
AA:=MA(EMA(WINNER(C),3),3);
筹码集中度:AA-0.5,COLORYELLOW;
DRAWBAND(筹码集中度,RGB(155,50,50),0,RGB(83,135,68));
STICKLINE(筹码集中度>=0.4,0.4,筹码集中度,4,1),COLORCYAN;
STICKLINE(筹码集中度<=-0.4,-0.4,筹码集中度,4,1),COLORLIGRAY;
中线:EMA(AA-0.5,55),LINETHICK2,COLORLIGRAY;
IF(中线>REF(中线,1),中线,DRAWNULL),LINETHICK2,COLORMAGENTA;
IF(筹码集中度>=REF(筹码集中度,1),筹码集中度,DRAWNULL),COLORRED;
IF(筹码集中度<REF(筹码集中度,1),筹码集中度,DRAWNULL),COLORCYAN;
AB:=EMA(AA-0.5,6);
AC:=CROSS(AA-0.5,AB) AND AB<=-0.3;
AD:=CROSS(AB,AA-0.5) AND AB>=0.35;
DRAWICON(AC,AB,7);
DRAWICON(AD,AB,8);
VAR6:=(2*CLOSE+HIGH+LOW)/4;
VAR7:=LLV(LOW,13);
VAR8:=HHV(HIGH,13);
VAR9:=EMA((VAR6-VAR7)/(VAR8-VAR7)*100,13);
奔牛: (EMA(0.382*REF(VAR9,2)+0.618*VAR9,6)-50)/100,COLORYELLOW,LINETHICK2;
AAA:=EMA(奔牛,3);
DRAWICON(奔牛>=REF(奔牛,1) AND REF(奔牛,1)<=REF(奔牛,2),奔牛*0.95,1);
DRAWICON(奔牛<=REF(奔牛,1) AND REF(奔牛,1)>=REF(奔牛,2),奔牛*1.05,2);
IF(奔牛>REF(奔牛,1),奔牛,DRAWNULL),COLORRED,LINETHICK2;
IF(奔牛<REF(奔牛,1),奔牛,DRAWNULL),COLORCYAN,LINETHICK2;
DRAWICON(CROSS(AA-0.5,中线) AND AA-0.5<0,AB,23);
A1:=BARSLAST(REF(CROSS(奔牛,AAA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND 奔牛>REF(奔牛,A1+1) AND CROSS(奔牛,AAA);
STICKLINE(底背离,0,0.1,3,0),COLORMAGENTA;
DRAWLINE(A1=0,AAA,底背离,AAA,0),COLORRED,LINETHICK4;
A2:=BARSLAST(REF(CROSS(AAA,奔牛),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(奔牛,A2+1)>奔牛 AND CROSS(AAA,奔牛);
DRAWLINE(A2=0,AAA,顶背离,AAA,0),COLORGREEN,LINETHICK4;

在线人生

我也来看看。

黄静

后者好些,谢谢前者抛砖引玉,后者锦上添花

在线人生

后者好些,谢谢前者抛砖引玉,后者锦上添花
黄静 发表于 2010-9-20 23:33

    谢谢了，我在看002110与002057.

神爱凡人

谢谢分享，学习学习，研究研究