通达信彩色立体成交量指标公式源码

立体成交量不知道是哪位前辈的东东，我表示感谢了。我在指标里加了量解盘、量能饱和度、获利比例、和当前安全度。
 获利比例找90:3的票，也就是获利在90%以上，换手率不超过3%，是庄家获利没走的票。十日换手率大于80的是强势票。
 安全度、量解盘做为参考。

{彩色立体成交量}
成交量:VOL,VOLSTICK;
预计量:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),COLORFFFF00;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买盘:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT ;
卖盘:-IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLORGREEN,POINTDOT;
净买:(买盘-卖盘),COLORRED,NODRAW;
换手率:HSL,NODRAW;
累计10日换手:SUM(换手率,10),NODRAW;
五日:MA(VOL,5),COLORWHITE,LINETHICK1;
十日:MA(VOL,10),COLORFFFF00,LINETHICK1;
四十五日:MA(VOL,45),COLORRED,LINETHICK2;
获利比例:WINNER(C)*100,COLORGREEN;
{量能}
N1:=80;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能:IF(SAT>1,1,SAT)*100, COLORMAGENTA,NODRAW;
{安全度}
VAR21:=LLV(LOW,33);
VAR31:=HHV(HIGH,21);
VAR41:=EMA((CLOSE-VAR21)/(VAR31-VAR21)*100,20)*0.998;
当前安全度:100-EMA(0.667*REF(VAR41,1)+0.333*VAR41,1),LINETHICK1,COLOREA6EB4;

STICKLINE(VOL>0,VOL,0,3,0),COLOR006600;
STICKLINE(VOL>0,VOL,0,2,0),COLOR009900;
STICKLINE(VOL>0,VOL,0,1.1,0),COLOR00CC00;
STICKLINE(VOL>0,VOL,0,0.4,0),COLOR00FF00;
STICKLINE(买盘>0,0,买盘,3,0),COLOR000066;
STICKLINE(买盘>0,0,买盘,2,0),COLOR000099;
STICKLINE(买盘>0,0,买盘,1.1,0),COLOR0000CC;
STICKLINE(买盘>0,0,买盘,0.4,0),COLOR0000FF;

{
五日均买:MA(买盘,5),COLORWHITE,LINETHICK1;
十日均卖:MA(卖盘,5),COLORGREEN,LINETHICK1;
};
FJ1:=1;
FJ2:=2;
FJ3:=3;
FJ4:=5;
FJ5:=8;
FJ6:=15;
FJ7:=25;
STICKLINE(C>0,FJ1,0,5,0 ),COLOR9F5F9F;
STICKLINE(C>0,FJ1,FJ2,5,0 ),COLOR545454;
STICKLINE(C>0,FJ2,FJ3,5,0 ),COLORD8BFD8;
STICKLINE(C>0,FJ3,FJ4,5,0 ),COLORLIRED;
STICKLINE(C>0,FJ4,FJ5,5,0 ),COLOR4F2F4F;
STICKLINE(C>0,FJ5,FJ6,5,0 ),COLORBC8F8F;
STICKLINE(C>0,FJ6,FJ7,5,0 ),COLOR4F4F2F;
HS:=DYNAINFO(37)*100,LINETHICK2,COLORYELLOW;
DRAWTEXT(HS<FJ1 AND ISLASTBAR,VOL,'-----地量，小心变盘'),COLORYELLOW;
DRAWTEXT(HS<FJ2 AND HS>=FJ1 AND ISLASTBAR,VOL,'-----低靡，无人问津不参与'),COLORMAGENTA;
DRAWTEXT(HS<FJ3 AND HS>=FJ2 AND ISLASTBAR,VOL,'-----温和，价量齐升可跟进'),COLORYELLOW;
DRAWTEXT(HS<FJ4 AND HS>=FJ3 AND ISLASTBAR,VOL,'-----活跃，可关注'),COLORRED;
DRAWTEXT(HS<FJ5 AND HS>=FJ4 AND ISLASTBAR,VOL,'-----带量，带量上攻可跟进'),COLORGREEN;
DRAWTEXT(HS<FJ6 AND HS>=FJ5 AND ISLASTBAR,VOL,'-----放量，低位则进高位出'),COLORMAGENTA;
DRAWTEXT(HS<FJ7 AND HS>=FJ6 AND ISLASTBAR,VOL,'-----巨量，如在高位请小心'),COLORGREEN;
DRAWTEXT(HS<100 AND HS>=FJ7 AND ISLASTBAR,VOL,'-----怪异，如在高位请小心'),COLORYELLOW;

中点:=REFDATE(HHV(V,200)/2,DATE);
DRAWTEXT(CURRBARSCOUNT=82,中点*1.45,'量能饱和'),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=N1,中点*1.9,中点*1.5,100,1),COLOR00DDDD;
STICKLINE(CURRBARSCOUNT=N1,中点*1.88,中点*1.52,量能,0),COLOR0033FF;
STICKLINE(CURRBARSCOUNT=N1,中点*1.82,中点*1.58,量能,0),COLOR0077FF;
STICKLINE(CURRBARSCOUNT=N1,中点*1.76,中点*1.64,量能,0),COLOR0099FF;
STICKLINE(CURRBARSCOUNT=N1,中点*1.7,中点*1.7,量能,0),COLOR00DDFF;