20老黑 发表于 2010-12-24 15:27

《低位密集筹码单峰选股公式》改写成通达信可以用地谢谢

都是在网上找的谁能给改写成通达信的公式










1){选股公式}{筹码集中}A1:=COST(85);A2:=COST(15);A3:=A1-A2;A4:=(A1+A2)/2;单峰密集:A3/A4*100<15,linethick0;B1:=HHV(HIGH,250);B2:=LLV(LOW,250);B3:=B1-B2;低位:A4<(B3*0.4+B2),linethick0;低位单峰密集:单峰密集 AND 低位,colorred;高位:A4>(B3*0.7+B2),linethick0;高位单峰密集:单峰密集 AND 高位,colorgreen;{三位一体选股公式}STICKLINE(OPEN>=CLOSE,VOL,0,9,0),colorAAAAAA;STICKLINE(OPEN>=CLOSE,VOL,0,6,0),colorBBBBBB;STICKLINE(OPEN>=CLOSE,VOL,0,2.4,0),colorCCCCCC;STICKLINE(OPEN>=CLOSE,VOL,0,1.1,0),colorDDDDDD;STICKLINE(CLOSE>OPEN,VOL,0,9,0),color6666CC;STICKLINE(CLOSE>OPEN,VOL,0,6,0),color7777DD;STICKLINE(CLOSE>OPEN,VOL,0,2.4,0),color8888EE;STICKLINE(CLOSE>OPEN,VOL,0,1.1,0),color9999FF;STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0),color1199FF;STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5,0),color1199FF;STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5,0),colorCCCCCC;STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5,0),colorCCCCCC;VAR1:=DYNAINFO(17)*REF(MA(VOL,5),1);VAR2:STICKLINE(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR1,0,4,1);VARC:=(SMA(ABS(LOW-REF(LOW,1)),3,1))/(SMA(MAX(LOW-REF(LOW,1),0),3,1));RSV1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;K1:=SMA(RSV1,3,1);D1:=SMA(K1,3,1);J1:=3*K1-2*D1;RSV:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;K:=SMA(RSV,6,1);D:=SMA(K,3,1);J:=3*K-2*D;LC:=REF(CLOSE,1);XA:=(IF(CROSS(J1,J) AND J<20,-1,0))+(IF(CROSS(J,J1) AND J>80,1,0));TYP:=(HIGH+LOW+CLOSE)/3;CCJ:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14))/2;RSI1:=(SMA(MAX(CLOSE-LC,0),6,1))/(SMA(ABS(CLOSE-LC),6,1))*100;VAR222:=LLV(LOW,36);VAR333:=HHV(HIGH,36);K2:=EMA((CLOSE-VAR222)/(VAR333-VAR222)*100,9);XB:=(IF(CCJ>100 AND K2>50 AND CLOSE>OPEN,0.5,0))+(IF(RSI1>80 AND K2>50 AND CLOSE>OPEN,0.5,0));RSV3:=(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100))*100;K13:=SMA(RSV3,21,1);D13:=SMA(K1,3,1);J13:=3*K13-2*D13;XC:=IF(J13>80 AND RSI1>85,0.5,0);金指 EMA(IF(LOW<=LLV(LOW,30),VARC,0),3))*150,LINETHICK2,colorFF0000;IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR1,VAR2),colorFF0000;警戒线:(IF(XA+XB+XC>0,61.8,0))*150;DRAWTEXT(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VOL,'动态行情VOL');

2.飞狐的单峰密集

sx100:=SUMBARS(100*v/CAPITAL,100);
p100:=ma(c,sx100),LINETHICK1,color0000ff;
ba100:=BACKSET(BARSTATUS=2,sx100);
VERTLINE(ref(ba100,1)=0 and ba100=1),POINTDOT,color0000ff;

sx200:=SUMBARS(100*v/CAPITAL,200);
p200:=ma(c,sx200),LINETHICK1,colorff00ff;
ba200:=BACKSET(BARSTATUS=2,sx200);
VERTLINE(ref(ba200,1)=0 and ba200=1),POINTDOT,colorff00ff;

sx300:=SUMBARS(100*v/CAPITAL,300);
p300:=ma(c,sx300),LINETHICK1,colorff6600;
ba300:=BACKSET(BARSTATUS=2,sx300);
VERTLINE(ref(ba300,1)=0 and ba300=1),POINTDOT,colorff6600;

sx400:=SUMBARS(100*v/CAPITAL,400);
p400:=ma(c,sx400),LINETHICK1,color0099ff;
ba400:=BACKSET(BARSTATUS=2,sx400);
VERTLINE(ref(ba400,1)=0 and ba400=1),POINTDOT,color0099ff;

sx500:=SUMBARS(100*v/CAPITAL,500);
p500:=ma(c,sx500),LINETHICK1,colorgray;
ba500:=BACKSET(BARSTATUS=2,sx500);
VERTLINE(ref(ba500,1)=0 and ba500=1),POINTDOT,colorgray;


a1:=p100;b:=a1;
a2:=p200;b:=a2;
a3:=p300;b:=a3;
a4:=p400;b:=a4;
a5:=p500;b:=a5;
zd:max(max(max(max(a1,a2),a3),a4),a5);
zx:min(min(min(min(a1,a2),a3),a4),a5);
PARTLINE(1,zd),COLORGRAY;
PARTLINE(1,zx)COLORGRAY;
for i=1 to 5 do begin
   if zd=b then
   最大:if(i=1,100,I*100),LINETHICK0,COLORYELLOW;

   if zx=b then
   最小:if(i=1,100,I*100),LINETHICK0,COLORGREEN;

end;
3.一个单峰密集度选股
1)A50:=COST(50),COLORRED,LINETHICK2;

WINNER(C)*100>50 AND CROSS(C,A50);
2)xa:=sma(cost(80),2,1);
xb:=sma(cost(4),3,1);
筹码密集:(xa-xb)/xa*100<25 and COUNT(CLOSE,0)>30;



20老黑 发表于 2010-12-24 15:31

筹码低位密集


input:M(480,250,999),集中度(12,12,30);
hh:=hhv(h,m);
ll:=llv(l,m);
zh:=hh;
zl:=ll;
q:=(zh-zl)/5;
c90%:=(cost(95)-cost(5))/(cost(95)+cost(5))*100;
c90%<=集中度 and c<zh-4*q

20老黑 发表于 2010-12-24 15:35

参数: n


公式如下:

LCS:=COST((100-n)/2);
LCE:=COST(n+(100-n)/2);

SCROK:((LCE-LCS)/(LCE+LCS)*100/2)<10;


{ 直接粘贴到新建的选股公式中就可以了。其中,参数 n 就是筹码分布成本的百分比, 例 n=90 时,就是筹码分布 90%成本集中度小于10的选股公式;      n=80时,就是筹码分布 80%成本集中度小于10的选股公式 。}

20老黑 发表于 2010-12-24 15:45

问题解决了谢谢

chenjiaq 发表于 2010-12-25 16:25

谢谢提供分享

战国寒冰 发表于 2011-2-26 20:41

例 n=90 时,就是筹码分布 90%成本集中度小于10的选股公式;      n=80时,就是筹码分布 80%成本集中度小于10的选股公式

请于小于10是什么意思啊,
谢谢

zzccyy1688 发表于 2015-8-9 00:04

谢谢楼主无私奉献!

hmchen163 发表于 2015-8-9 06:08

非常感谢楼主的分享

yangdixuexi 发表于 2015-8-9 07:35

谢谢赐教。
页: [1]
查看完整版本: 《低位密集筹码单峰选股公式》改写成通达信可以用地谢谢