心淡定从容
发表于 2010-6-28 21:09
看来这个公式不错
费艳红
发表于 2010-6-28 21:10
即可很快很快就会
村上种树先生
发表于 2010-6-28 21:38
DDDDDDDDDDDDDDDDDDDDD
王前敬
发表于 2010-6-28 23:09
来学习,谢谢楼主
林万亿
发表于 2010-6-29 00:38
不能粘贴,要我们抄下个一个字母慢慢输吗,那个盘中选股和选股公式都要写进去吗
非常影音
发表于 2010-6-29 02:00
来学习,谢谢楼主
文文
发表于 2010-6-29 17:27
看看是什么好东西
雨云山峰
发表于 2010-6-29 20:41
dddddd,已交学分
路过
发表于 2010-6-29 20:46
学习学习哈
股道瘦马
发表于 2010-6-29 21:34
来学习,谢谢楼主
顺天而动
发表于 2010-6-29 23:34
:handshake
潇湘水云
发表于 2010-6-29 23:43
是什么好东西
旺旺旺
发表于 2010-6-30 00:37
有这么神奇吗?
旺旺旺
发表于 2010-6-30 00:52
既然不是用在通达信上面就直接说啊,真是浪费大家时间和学分,真是可恶!!!!!!!!!!!
旺旺旺
发表于 2010-6-30 00:55
用在大智慧上面的,请大家参考,不像有些人故意要学分,故弄玄虚
{动态买卖}
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;{注意:你们下载的没有修改过的这一行源码是:散户卖盘:VAR4 * IF(DATE < 1091212,1,100000000),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