PJ:=(H+L+C)/3;
V1:=IF(H=L,1,H-MAX(O,C));
V2:=IF(H=L,1,MAX(C,O)-PJ);
V3:=IF(H=L,1,MIN(O,C)-L);
V4:=IF(H=L,1,PJ-MIN(C,O));
V5:=vol/IF(H=L,4,H-L);
V6:=(V1*V5)+(V2*V5);
V7:=(V3*V5)+(V4*V5);
WP1:=DYNAINFO(23);
NP1:=DYNAINFO(22);
WP2:=IF(ISLASTBAR,V7*240/FROMOPEN,V7);
NP2:=IF(ISLASTBAR,V6*240/FROMOPEN,V6);
主买:IF(ISLASTBAR AND PERIOD=5,WP1,WP2),COLORRED,NODRAW;
主卖:IF(ISLASTBAR AND PERIOD=5,NP1,NP2),COLORGREEN,NODRAW;
净量:=Abs(主买-主卖);
DRAwrECTREL(0,00,CONST(主买*300/(主买+主卖)),70,RGB(230,65,0));
DRAWRECTREL(0,70,CONST(主卖*300/(主买+主卖)),130,RGB(0,104,0));
主买1:=BUYVOL,COLORLIRED,NODRAW;
主卖1:=-SELLVOL,COLORLIBLUE,NODRAW;
净买:BUYVOL-SELLVOL,COLORMAGENTA,NODRAW;
{FWH58地量买点}
VOLUME:=VOL,VOLSTICK;
IF(crOSS(0.9,1/VOL*1000>0.01 AND "kdj.J"<0),VOLUME*1.1,0),COLORYELLOW,LINETHICK1;{黄三角}
X_1:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1)))));
X_2:=MOD(FROMOPEN,X_1);
X_3:=IF(X_2<0.5,X_1,X_2);
X_4:=IF(CURRBARSCOUNT=1,VOL*X_1/X_3,DRAWNULL);
STICKLINE(CURRBARSCOUNT=1 AND (SETCODE=0 OR SETCODE=1),X_4,0,(-1),(-1)),COLOR00C0C0;
量:VOL,VOLSTICK;
X_5:=IF(CAPITAL=0,AMOUNT/100000000,VOL/CAPITAL*100);
X_6:=EMA(X_5,5);
X_7:=MA(X_5,13);
X_8:=X_5
X_9:=BARSLAST(X_8);
五倍量:=IF(CROSS(COUNT(CROSS(VOL>REF(VOL*5,X_9),0.5),X_9)=1,0.5),VOL,0),NODRAW,COLOR00CCFF;
量比:VOL/REF(MA(VOL,5),1),NODRAW,COLORAAAAAA;
换手:VOL/CAPITAL*100,COLORWHITE;
X_10:=VOL=HHV(VOL,30);
X_11:=BARSLAST(FILTER(CROSS(0.9,X_10),2))+1;
X_12:=REF(VOL,X_11);
STICKLINE(X_11<=30,X_12,X_12,1,0),COLOR00CCFF;
X_13:=VOL=LLV(VOL,20);
X_14:=BARSLAST(FILTER(CROSS(0.9,X_13),2))+1;
X_15:=REF(VOL,X_14);
STICKLINE(X_14<=30,X_15,X_15,4,0),COLORFFAA00;
上涨数:"999999$ADVANCE"+"399001$ADVANCE",COLORRED,NODRAW;
下跌数:"999999$DECLINE"+"399001$DECLINE",COLORLIGREEN,NODRAW;
{四色分析}
VAR92:=(HIGH - LOW);
VAR93:=ABS((OPEN - CLOSE));
VAR94:=(HIGH - IF((CLOSE > OPEN),CLOSE,OPEN));
VAR95:=(IF((CLOSE > OPEN),OPEN,CLOSE) - LOW);
VAR96:=((VAR93 / VAR92) * VOL);
VAR97:=((VAR94 / VAR92) * VOL);
VAR98:=((VAR95 / VAR92) * VOL);
QQ:=VAR96 >= VAR97 AND VAR96 >= VAR98 AND CLOSE < OPEN;
MMM:=CLOSE < EMA(CLOSE,5) AND QQ;
JJJ:=CLOSE >= EMA(CLOSE,5) AND QQ;
JJ:=VAR96 >= VAR97 AND VAR96 >= VAR98 AND CLOSE > OPEN;
XX:=VAR98 > VAR96 AND VAR98 > VAR97;
MM:=VAR97 > VAR96 AND VAR97 > VAR98;
CDP:=REF(H+L+C,1)/3;
PT:=REF(H,1)-REF(L,1);
AH:=CDP+PT;
NH:=CDP*2-REF(L,1);
实量:V,VOLSTICK;
STICKLINE(JJ=1,0,实量*0.5,1,0),COLORYELLOW;
STICKLINE(MM=1,0,实量*0.5,1,0),COLORMAGENTA;
STICKLINE(XX=1,0,实量*0.5,1,0),COLORWHITE;
STICKLINE(JJJ=1,0,实量*0.5,1,0),COLORGREEN;
STICKLINE(MMM=1,0,实量*0.5,1,0),COLORBLUE;
{倍量缩量}
短庄:=V>REF(V,1)*2 && V
STICKLINE(短庄,实量*0.75,实量,1,0),COLORYELLOW;
三倍:=V>=REF(V,1)*3,COLORMAGENTA;
STICKLINE(三倍,实量*0.75,实量,1,0),COLORFF00F5;
缩量:V*2
STICKLINE(缩量,实量*0.75,实量,1,0),COLOR00FF00;
N1:=7;
LC:=REF(CLOSE,1);

 

源码未复制完...下载附件完整源码.