C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
- 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(950,870,'机构买盘'),COLORFF00ff;
- DRAWTEXTREL(950,570,'机构卖盘'),COLORFFFF00;
- DRAWTEXTREL(950,320,'散户买盘'),COLOR0000FF;
- DRAWTEXTREL(950,50,'散户卖盘'),COLOR00FF00;
- IF BARSTATUS=2 THEN BEGIN
- DRAWTEXTREL(1030,870,'' + FLOOR(VAR6) + '%'),COLORFF00FF;
- END
- IF BARSTATUS=2 THEN BEGIN
- LOOP0:=FLOOR(VAR7);
- VAR10:='' + LOOP0;
- VAR11:=VAR10 + '%';
- DRAWTEXTREL(1030,570,VAR11),COLORFFFF00;
- END
- IF BARSTATUS=2 THEN BEGIN
- LOOP1:=FLOOR(VAR8);
- VAR12:='' + LOOP1;
- VAR13:=VAR12 + '%';
- DRAWTEXTREL(1030,320,VAR13),COLOR0000FF;
- END
- IF BARSTATUS=2 THEN BEGIN
- LOOP2:=FLOOR(VAR9);
- VAR14:='' + LOOP2;
- VAR15:=VAR14 + '%';
- DRAWTEXTREL(1030,50,VAR15),COLOR00FF00;
- END;
