寂寞の高手 发表于 2015-3-12 22:30

求东方财富指标

哪位高人能把倍量柱的指标改成地东方财富软件可以使用的呀！
通达信的不兼容东方财富

谢谢。。。

寂寞の高手 发表于 2015-3-14 15:09

注册册 发表于 2015-3-14 11:55
把原码贴上来，试试

黑马量柱 源码：
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
VVOL:IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 && (SETCODE=0 || SETCODE=1),VVOL,0,-1,-1),COLOR00C0C0;
VOLUME:VOL,VOLSTICK;
{MAVOL1:MA(VOLUME,M1);
MAVOL2:MA(VOLUME,M2);}
TJ:=C<O;
TJ1:=C>REF(C,1) AND TJ;
TJ2:=AMOUNT/V/100>REF(C,1) AND O>REF(C,1) AND NOT(TJ1) AND TJ;
STICKLINE(TJ1,VOL,0,-1,0),COLORMAGENTA;
STICKLINE(TJ2,VOL,0,-1,0),COLORLIRED;

T:=DYNAINFO(8)>0;
VO:VOL=LLV(VOL,100) AND T;

BLZ:=VOL>REF(V,1)*1.9 AND C>REF(C,1);
BLZ1:=VOL<REF(LLV(VOL,13),1);
BLZ2:=VOL<REF(LLV(VOL,55),1);
STICKLINE(BLZ,0,V,2.0,0),COLORYELLOW;
倍量柱:BLZ,COLORYELLOW;
HJZ:=(3*C+H+L+O)/6;
HJZ2:=(8*HJZ+7*REF(HJZ,1)+6*REF(HJZ,2)+5*REF(HJZ,3)+4*REF(HJZ,4)+3*REF(HJZ,5)+2*REF(HJZ,6)+REF(HJZ,8))/36;
HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O;

注册册 发表于 2015-3-15 10:31

TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
VVOL:IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1,VVOL,0,-1,-1),COLOR00C0C0;
VOLUME:VOL,VOLSTICK;
{MAVOL1:MA(VOLUME,M1);
MAVOL2:MA(VOLUME,M2);}
TJ:=C<O;
TJ1:=C>REF(C,1) AND TJ;
TJ2:=AMOUNT/V/100>REF(C,1) AND O>REF(C,1) AND NOT(TJ1) AND TJ;
STICKLINE(TJ1,VOL,0,-1,0),COLORMAGENTA;
STICKLINE(TJ2,VOL,0,-1,0),COLORLIRED;

T:=DYNAINFO(8)>0;
VO:VOL=LLV(VOL,100) AND T;

BLZ:=VOL>REF(V,1)*1.9 AND C>REF(C,1);
BLZ1:=VOL<REF(LLV(VOL,13),1);
BLZ2:=VOL<REF(LLV(VOL,55),1);
STICKLINE(BLZ,0,V,2.0,0),COLORYELLOW;
倍量柱:BLZ,COLORYELLOW;
HJZ:=(3*C+H+L+O)/6;
HJZ2:=(8*HJZ+7*REF(HJZ,1)+6*REF(HJZ,2)+5*REF(HJZ,3)+4*REF(HJZ,4)+3*REF(HJZ,5)+2*REF(HJZ,6)+REF(HJZ,8))/36;
HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O;

寂寞の高手 发表于 2015-3-15 11:53

TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
VVOL:IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1,VVOL,0,-1,-1),COLOR00C0C0;
VOLUME:VOL,VOLSTICK;
{MAVOL1:MA(VOLUME,M1);
MAVOL2:MA(VOLUME,M2);}
TJ:=C<O;
TJ1:=C>REF(C,1) AND TJ;
TJ2:=AMOUNT/V/100>REF(C,1) AND O>REF(C,1) AND NOT(TJ1) AND TJ;
STICKLINE(TJ1,VOL,0,-1,0),COLORMAGENTA;
STICKLINE(TJ2,VOL,0,-1,0),COLORLIRED;

T:=DYNAINFO(8)>0;
VO:VOL=LLV(VOL,100) AND T;

BLZ:=VOL>REF(V,1)*1.9 AND C>REF(C,1);
BLZ1:=VOL<REF(LLV(VOL,13),1);
BLZ2:=VOL<REF(LLV(VOL,55),1);
STICKLINE(BLZ,0,V,2.0,0),COLORYELLOW;
倍量柱:BLZ,COLORYELLOW;
HJZ:=(3*C+H+L+O)/6;
HJZ2:=(8*HJZ+7*REF(HJZ,1)+6*REF(HJZ,2)+5*REF(HJZ,3)+4*REF(HJZ,4)+3*REF(HJZ,5)+2*REF(HJZ,6)+REF(HJZ,8))/36;
HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O;

翠堤春晓 发表于 2015-3-12 22:41

学习学习谢谢分享。

ilyxml 发表于 2015-3-12 22:49

同求楼主的信息！论坛里高手给改进下，多谢

绿野寻牛 发表于 2015-3-12 22:51

同求楼主的信息！

盐湖一族 发表于 2015-3-12 23:01

这个真没有，真的不说假话

初巽 发表于 2015-3-12 23:53

谢谢分享！

Yinjia 发表于 2015-3-13 20:03

谢谢楼主分享

快乐的小豆丁 发表于 2015-3-13 21:38

阳胜进,阴胜出;小倍阳,大胆入。牛股三绝:倍量不穿,后市翻番;高量不破,后市必火;跳空不补,后市如虎.

注册册 发表于 2015-3-14 11:55

把原码贴上来，试试

寂寞の高手 发表于 2015-3-15 11:54

注册册 发表于 2015-3-15 10:31


修改好了吗？

接力小阳 发表于 2015-3-15 12:16

{:soso_e160:}

接力小阳 发表于 2015-3-15 12:17

{:soso_e183:}
页: [1] 2
查看完整版本: 求东方财富指标