求东方财富指标

寂寞の高手

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

谢谢。。。

寂寞の高手

注册册 发表于 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;

注册册

1. TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
   
2. MTIME:=MOD(FROMOPEN,TOTAL);
   
3. CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
   
4. VVOL:IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
   
5. STICKLINE(CURRBARSCOUNT=1,VVOL,0,-1,-1),COLOR00C0C0;
   
6. VOLUME:VOL,VOLSTICK;
   
7. {MAVOL1:MA(VOLUME,M1);
   
8. MAVOL2:MA(VOLUME,M2);}
   
9. TJ:=C<O;
   
10. TJ1:=C>REF(C,1) AND TJ;
    
11. TJ2:=AMOUNT/V/100>REF(C,1) AND O>REF(C,1) AND NOT(TJ1) AND TJ;
    
12. STICKLINE(TJ1,VOL,0,-1,0),COLORMAGENTA;
    
13. STICKLINE(TJ2,VOL,0,-1,0),COLORLIRED;
    
14. 
    
15. T:=DYNAINFO(8)>0;
    
16. VO:VOL=LLV(VOL,100) AND T;
    
17. 
    
18. BLZ:=VOL>REF(V,1)*1.9 AND C>REF(C,1);
    
19. BLZ1:=VOL<REF(LLV(VOL,13),1);
    
20. BLZ2:=VOL<REF(LLV(VOL,55),1);
    
21. STICKLINE(BLZ,0,V,2.0,0),COLORYELLOW;
    
22. 倍量柱:BLZ,COLORYELLOW;
    
23. HJZ:=(3*C+H+L+O)/6;
    
24. 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;
    
25. HJZ3:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>HJZ2 AND C>O;

复制代码

寂寞の高手

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;

翠堤春晓

学习学习谢谢分享。

ilyxml

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

绿野寻牛

同求楼主的信息！

盐湖一族

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

初巽

谢谢分享！

Yinjia

谢谢楼主分享

快乐的小豆丁

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

注册册

把原码贴上来，试试

寂寞の高手

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

修改好了吗？

接力小阳

{:soso_e160:}

接力小阳

{:soso_e183:}