 成交量指標(通達信)
 來源網絡
 {DRAWTEXT_FIX(1,0.0,0.0,0,'白色燭，紅芯長，莊家找底在振蕩，俺也伺機建點倉'),COLORFFFFFF,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.06,0,'黃色燭，紅芯長；莊家進貨強，俺也進貨等起航'),COLORFFFFFF,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.12,0,'粉色燭，紅芯長，莊家高拋低吸操作忙，俺也去逐浪'),COLORFFFFFF,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.18,0,'藍色燭，紅芯短，巨量綠尾長，莊家撤退，俺也清倉'),COLORFFFFFF,LINETHICK1;
DRAWTEXT_FIX(1,0.00,0.24,0,'巨量綠，藍燭長，趨勢破，急離場；等著跌，莫手癢'),COLORFFFFFF,LINETHICK1;};
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);
虛:=IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 && (SETCODE=0
|| SETCODE=1),虛,0,3,-1),COLOR00C0C0;
VAR1:=(VOL /
(((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
買盤:=IF((CLOSE
> OPEN),(VAR1 * (HIGH - LOW)),IF((CLOSE < OPEN),(VAR1 *
((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));
賣盤:=IF((CLOSE
> OPEN),(0 - (VAR1 * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE
< OPEN),(0 - (VAR1 * (HIGH - LOW))),(0 - (VOL /
2))));
買賣差:=(買盤 +
賣盤);
STICKLINE((買賣差
< 0),0,買賣差,3.0,0),COLOR33FF33,NODRAW;
JX1:=BARSSINCE(買盤);
JY1:=IF(((121
> JX1) AND (JX1 > 0)),JX1,120);
JY2:=IF(((4 >
JX1) AND (JX1 > 0)),JX1,3);
VAR30:=MA(VOL,JY2);
神比:=(買盤 /
VAR30);
鬼比:=(賣盤 /
VAR30);
VAR2:=(HIGH -
LOW);
VAR3:=ABS((OPEN -
CLOSE));
VAR4:=(HIGH -
IF((CLOSE > OPEN),CLOSE,OPEN));
VAR5:=(IF((CLOSE
> OPEN),OPEN,CLOSE) - LOW);
VAR6:=((VAR3 /
VAR2) * VOL);
VAR7:=((VAR4 /
VAR2) * VOL);
VAR8:=((VAR5 /
VAR2) * VOL);
VAR9:=IF(((VOL /
CAPITAL) > 0.001),1,EXP(ABS(LOG(((VOL / CAPITAL) *
100)))));
VARA:=(((CLOSE -
MA(CLOSE,5)) / MA(CLOSE,5)) * 100);
VARB:=(((MA(CLOSE,5) > MA(CLOSE,10)) AND
(MA(CLOSE,10) > MA(CLOSE,30))) AND (MA(CLOSE,30) >
MA(CLOSE,60)));
VARC:=((MA(CLOSE,5) < MA(CLOSE,10)) AND
(MA(CLOSE,10) < MA(CLOSE,30)));
VARD:=REF(CLOSE,1);
VARE:=((SMA(MAX((CLOSE - VARD),0),6,1) /
SMA(ABS((CLOSE - VARD)),6,1)) * 100);
DRAWTEXT(((DATE
> 700101) AND
CROSS(84,VARE)),VOL*(1.2),'■賣出'),COLORF2A3A4;
VAR40:=((IF((((VAR6 >= VAR7) AND (VAR6 >=
VAR8)) AND (CLOSE > OPEN)),VAR6,買盤) + 買盤) / 2);
VAR41:=((IF(((VAR7 > VAR6) AND (VAR7 >
VAR8)),VAR7,買盤) + 買盤) / 2);
VAR42:=((IF(((VAR8 > VAR6) AND (VAR8 >
VAR7)),VAR8,買盤) + 買盤) / 2);
VAR50:=((IF((((VAR6 >= VAR7) AND (VAR6 >=
VAR8)) AND (CLOSE < OPEN)),VAR6,賣盤) + 賣盤) / 2);
多頭:STICKLINE((CLOSE >
MA(CLOSE,30)),0,VOL,3.0,1),COLOR0000FF;
空頭:STICKLINE((CLOSE <
MA(CLOSE,30)),0,VOL,3,1),COLOR00FF00;
進:=(VAR8 >
VAR6) AND (VAR8 > VAR7)=1,COLORWHITE,NODRAW;
攻:=(((VAR6 >=
VAR7) AND (VAR6 >= VAR8)) AND (CLOSE >
OPEN))=1,COLORYELLOW,NODRAW;
擊:=((VAR7 >
VAR6) AND (VAR7 > VAR8))=1,COLORMAGENTA,NODRAW;
STICKLINE((VOL
> (MA(VOL,5) * 2.5)),0,VOL,3,0),NODRAW;
STICKLINE(((VAR8
> VAR6) AND (VAR8 >
VAR7)),0,VAR8,3,0),COLORWHITE;
STICKLINE((((VAR6
>= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE >
OPEN)),0,VAR6,3,0),COLORYELLOW;
STICKLINE(((VAR7
> VAR6) AND (VAR7 >
VAR8)),0,VAR7,3,0),COLORMAGENTA;
STICKLINE((((VAR6
>= VAR7) AND (VAR6 >= VAR8)) AND (CLOSE <
OPEN)),0,VAR6,3,0),COLORBLUE;
STICKLINE((買盤
> 0),買盤,0,0,0),COLORRED;
DRAWTEXT(((((((((VAR7 > VAR6) AND (VARA >
2)) AND (VAR9 > VAR8)) AND (CLOSE >
MA(CLOSE,5)))
DRAWTEXT(((((((VAR8 > VAR6) AND (VAR8 >
VAR7)) AND (VARA < (0 - 2))) AND (CLOSE <
MA(CLOSE,
30))) AND (VAR8
< (MA(VOL,5) / 2))) AND (MA(VOL,5) <
MA(VOL,10))),(VOL*(1.5)),'低進●');
DRAWTEXT((((((VAR6 > (MA(VOL,5) * 2)) AND
(VAR6 >= VAR7)) AND (VAR6 >= VAR8)) AND (CLOSE
>
HSL:=DYNAINFO(37);
量:VOL,NODRAW;
均量5日線:=MA(量,5),COLORWHITE;
均量50日線:=MA(量,50),COLORGREEN;
均量135日線:=MA(量,135),COLORYELLOW;
出擊:STICKLINE(CROSS(均量5日線,均量135日線) OR ((均量50日線
> 均量135日線) AND
CROSS(均量5日線,均量50日線)),0,VOL,2,0),COLORYELLOW,NODRAW;
啟動:STICKLINE(均量5日線>REF(均量5日線,1) AND
(CROSS(VOL,均量5日線) AND (REF(VOL,1)?REF(均量135日線,1) OR
REF(VOL,2)?REF(均量135日線,2))),0,VOL,3,0),COLORGREEN,NODRAW;
V1:=CLOSE/REF(CLOSE,3)>=1.1;
V2:=BACKSET(V1,1);
V3:=REF(CLOSE,3)*1.1;
V4:=CROSS(C,V3);
COND:=(CROSS(均量5日線,均量135日線) OR ((均量50日線 >
均量135日線) AND CROSS(均量5日線,均量50日線)))
OR (均量5日線>REF(均量5日線,1) AND
(CROSS(VOL,均量5日線) AND (REF(VOL,1)?REF(均量135日線,1) OR
REF(VOL,2)?REF(均量135日線,2))))
OR (V2 AND COUNT(V2,2)=1)
COLORWHITE,NODRAW;
OK:STICKLINE((COND AND
COUNT(COND,2)=1),VOL,0,5,0),COLORYELLOW,NODRAW;
OK1:STICKLINE((V2
AND COUNT(V2,2)=1),VOL,0,5,0),COLORRED;
AR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主買:IF(CLOSE>OPEN,AR1*(HIGH-LOW),IF(CLOSE?OPEN,AR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT;
主賣:IF(CLOSE>OPEN,AR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE?OPEN,AR1*(HIGH-LOW),VOL/2)),COLOR00FF00,POINTDOT;
STICKLINE(OPEN>CLOSE,0,(VOL)-15,2.5,0),COLORCYAN;
STICKLINE(主賣>0,0,主賣,1,0),COLORBLUE;
STICKLINE(主買>0,0,主買,0,0),COLORRED;
差%:主買/VOL*100,COLORWHITE,NODRAW;
量5日線:=MA(量,5),COLORWHITE;
量25日線:=MA(量,25),COLORYELLOW;
量50日線:=MA(量,50),COLORGREEN;
X1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
X2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公積用資本公積金代替};
X3:=FINANCE(23)/FINANCE(10)*3.3;
X4:=FINANCE(19)/FINANCE(15)*0.6;{缺長期負債或負債總額}
X5:=FINANCE(20)/FINANCE(15)*0.999;
Z值:=X1+X2+X3+X4+X5;
預警:=IF(Z值<1.2,'重警',IF(Z值>=1.2 AND
Z值<2.6,'輕警','無警'));
財務預警:=STRCAT('財務預警: ',STRCAT(預警,STRCAT('-Z值:
',CON2STR(Z值,3))));
優質資產率:=STRCAT('
優質資產率:
',CON2STR((FINANCE(19)-FINANCE(22)-FINANCE(27))/FINANCE(19),2));{理論上越大越好但不同行業有不同標準};
現金負債比:=STRCAT('
現金負債比:
',CON2STR(FINANCE(25)/FINANCE(15),3));{缺長期負債或負債總額，理論上越大越好但不同行業有不同標準};
財務系數:=STRCAT('風險系數:
',STRCAT(STRCAT(財務預警,優質資產率),現金負債比));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,財務系數),COLORWHITE;
市盈率:=STRCAT('市盈率:
',CON2STR(C/FINANCE(33),2));
市銷率:=STRCAT('
市銷率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
市凈率:=STRCAT('
市凈率: ',CON2STR(C/FINANCE(34),2));
凈資收益率:=STRCAT('
凈資收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
毛利率:=STRCAT('
毛利率:
',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
凈利潤率:=STRCAT('
凈利潤率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
主營利潤率:=STRCAT('
主營利潤率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
當前業績:=STRCAT('當前業績:
',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市銷率),市凈率),凈資收益率),毛利率),凈利潤率),主營利潤率));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.09,0,當前業績),COLORYELLOW;
DRAWTEXT_FIX(1,0.75,0,0,'所屬板塊:'),COLORLIGRAY;
DRAWTEXT_FIX(1,0.802,0,0,HYBLOCK),COLORRED;
DRAWTEXT_FIX(1,0.85,0,0,DYBLOCK),COLORRED;
成交額億:AMOUNT/100000000,NODRAW;
總量:VOL,VOLSTICK,COLORRED,NODRAW;
虛量:IF(CURRBARSCOUNT=1,VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
可能因新浪審查問題,公式中的"<"號后面內容缺失.請將紅字語句中的"?"換成"<",在通達信就能過了.
以下為截圖
 |
|
|
