达闻西 发表于 2010-6-17 18:42

看看看看.......

潜心 发表于 2010-6-17 23:26

短柱短柱短柱短柱

如来 发表于 2010-6-17 23:42

回复 1# 珊瑚虫


    VAR0:=VOL/CLOSE/2;
VAR1:=SUM(IF(VAR0>100 AND CLOSE>REF(CLOSE,1),VAR0,0),0);
VAR2:=SUM(IF(VAR0>100 AND CLOSE<REF(CLOSE,1),VAR0,0),0);
VAR3:=SUM(IF(VAR0<100 AND CLOSE>REF(CLOSE,1),VAR0,0),0);
VAR4:=SUM(IF(VAR0<100 AND CLOSE<REF(CLOSE,1),VAR0,0),0);
VAR5:=VAR1+VAR2+VAR3+VAR4;
VAR6:=IF(BARSTATUS=2,100*VAR1/VAR5,0);
VAR7:=IF(BARSTATUS=2,100*VAR2/VAR5,0);
VAR8:=IF(BARSTATUS=2,100*VAR3/VAR5,0);
VAR9:=IF(BARSTATUS=2,100*VAR4/VAR5,0);
机构买盘:VAR1,LINETHICK3,COLORFF55FF;
机构卖盘:VAR2,LINETHICK3,COLORFFFF55;
散户买盘:VAR3,COLOR5555FF;
散户卖盘:VAR4,COLOR55FF55;
DRAWTEXTREL(1003,870,'机构买盘'),LINETHICK2,COLORFF55FF;
DRAWTEXTREL(1003,570,'机构卖盘'),LINETHICK2,COLORFFFF55;
DRAWTEXTREL(1003,320,'散户买盘'),LINETHICK2,COLOR5555FF;
DRAWTEXTREL(1003,50,'散户卖盘'),LINETHICK2,COLOR55FF55;
IF BARSTATUS=2 THEN BEGIN
DRAWTEXTREL(1020,750,''+FLOOR(VAR6)+'%'),LINETHICK2,COLORFF55FF;
END
IF BARSTATUS=2 THEN BEGIN
LOOP0:=FLOOR(VAR7);
VAR10:=''+LOOP0;
VAR11:=VAR10 + '%';
DRAWTEXTREL(1020,460,VAR11),LINETHICK2,COLORFFFF55;
END
IF BARSTATUS=2 THEN BEGIN
LOOP1:=FLOOR(VAR8);
VAR12:=''+LOOP1;
VAR13:=VAR12+'%';
DRAWTEXTREL(1020,200,VAR13),LINETHICK2,COLOR5555FF;
END
IF BARSTATUS=2 THEN BEGIN
LOOP2:=FLOOR(VAR9);
VAR14:=''+LOOP2;
VAR15:=VAR14+'%';
DRAWTEXTREL(1020,-50,VAR15),LINETHICK2,COLOR55FF55;
END

商誓 发表于 2010-6-18 08:28

;P ;P ;P ;P

勇鑫红 发表于 2010-6-18 08:42

顶一下。{:3_50:}

来喝汤 发表于 2010-6-18 09:22

学习,谢谢热心分享!

笑傲股市中 发表于 2010-6-18 14:51

谢谢谢谢想谢谢

离群 发表于 2010-6-19 07:46

好好学习,天天向上!

小乌鸦 发表于 2010-6-19 09:09

先学习学习

小乌鸦 发表于 2010-6-19 09:12

学习了,谢谢楼主分享

shi11 发表于 2010-6-19 10:38

好好学习,天天向上!

赵龙峰 发表于 2010-6-19 14:50

学习学习!!!

赵龙峰 发表于 2010-6-19 15:43

学习学习!!!!

赤道 发表于 2010-6-19 15:52

谢谢分享!!!!!!!!

网蛋蛋 发表于 2010-6-19 15:53

学习了~~~~~~~~~
页: 69 70 71 72 73 74 75 76 77 78 [79] 80 81 82 83 84 85 86 87 88
查看完整版本: 长阴短柱精选(附图)