仓量饱和
{参数N=21}

{N天仓量增减}
DRAWGBK(CLOSE,COLORRGB(5,2,0),COLORRGB(5,2,0),1);
大买:=EXTDATA(1),PRECISION;
大卖:=EXTDATA(2),PRECISION;
主力仓量:=sum(大买-大卖,0)/FINANCE( 7),COLORGRAY;
//分析家公式网 http://www.fxjgsw.com 整理
三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);
廿天前仓:=ref(主力仓量,20);

三天增减:=sum((主力仓量-三天前仓)*5, 3)/2,LINETHICK0,PRECISION2,COLOR00AAFF;//作图放大
五天增减:=sum((主力仓量-五天前仓)*4, 5)/5,LINETHICK0,PRECISION2,COLORYELLOW;
十天增减:=sum((主力仓量-十天前仓)*3,10)/8,LINETHICK0,PRECISION2,COLORWHITE;

三天增减a:=sum((主力仓量-三天前仓), 3)/2,LINETHICK0,PRECISION2,COLOR00AAFF;
三天回归:FORCAST(三天增减a,3),LINETHICK0,PRECISION2,COLOR888888;
五天增减a:=sum((主力仓量-五天前仓), 5)/5,LINETHICK0,PRECISION2,COLORYELLOW;
五天回归:FORCAST(五天增减a,5),LINETHICK0,PRECISION2,ColorFFAA00;
十天增减a:=sum((主力仓量-十天前仓),10)/8,LINETHICK0,PRECISION2,COLORWHITE;
十天回归:FORCAST(十天增减a,10),LINETHICK0,PRECISION2,COLORCYAN;

STICKLINE(三天增减>=0,三天增减+20,20,6,0),COLORffffff;//三天增减
STICKLINE(三天增减<0 ,三天增减+20,20,6,0),COLOR888888;
partline(三天回归>ref(三天回归,1),ma(三天回归,1)+20),LINETHICK1,COLORffffff;
partline(三天回归<ref(三天回归,1),ma(三天回归,1)+20),LINETHICK1,COLOR888888;
DRAWTEXTEX(C,1,1,700,'三天增减:'),COLOR888888;

STICKLINE(五天增减>=0,五天增减+50,50,6,0),COLORffff;//五天增减
STICKLINE(五天增减<0 ,五天增减+50,50,6,0),ColorFFAA00;
partline(五天回归>ref(五天回归,1),ma(五天回归,1)+50),LINETHICK1,COLORffff;
partline(五天回归<ref(五天回归,1),ma(五天回归,1)+50),LINETHICK1,ColorFFAA00;
DRAWTEXTEX(C,1,1,450,'五天增减:'),ColorFFAA00;

STICKLINE(十天增减>=0,十天增减+80,80,6,0),COLOR0088FF;//十天增减
STICKLINE(十天增减<0 ,十天增减+80,80,6,0),COLORCYAN;
partline(十天回归>ref(十天回归,1),ma(十天回归,1)+80),LINETHICK1,COLOR0088FF;
partline(十天回归<ref(十天回归,1),ma(十天回归,1)+80),LINETHICK1,COLORCYAN;
DRAWTEXTEX(C,1,1,200,'十天增减:'),COLORCYAN;

{-2,COLOR888888;}

{通吃散户又名【量能饱和度】}
input:N(20,1,100);
{时间}
{BB:=BARPOS=SYSPARAM(1);}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=YEAR;
fm:=MONTH;
fd:=DAY;
wd:=WEEKDAY;
p:=SYSPARAM(1);
str1:='                                       '+'今日： '+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1];
drawtext(barpos=sysparam(2),c,str1),ALIGN5,COLORGREEN;
str2:='╭☆╯大均习作╰☆╮';
DRAWTEXT(barpos=p,H,'\n \n \n \n \n' +str2),ALIGN4,COLOR0088FF,PXDN2;
DRAWTEXT(barpos=p,H,'\n \n \n \n \n' +str2),ALIGN4,COLOR0088FF,PXDN1;

SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N))*100);
饱和度:SAT,PRECISION2,COLORYELLOW;
STICKLINE(((CLOSE> 0) AND BARpos=sysparam(1)),0,101,10,1),COLORWHITE;
STICKLINE(((SAT <= 5) AND BARpos=sysparam(1)),1,(SAT),8,0),COLORWHITE;
STICKLINE((((SAT > 5) AND (SAT <= 20)) AND BARpos=sysparam(1)),1,(SAT),8,0),COLORGREEN;
STICKLINE((((SAT >20) AND (SAT <= 40)) AND BARpos=sysparam(1)),1,(SAT),8,0),COLORMAGENTA;
STICKLINE(((SAT  >40) AND BARpos=sysparam(1)),1,(SAT),8,0),COLORRED;

DRAWTEXT(SAT AND BARPOS=SYSPARAM(1),111,'量能饱和度:   '),ALIGN2,COLOR0088FF;
DRAWNUMBER(SAT AND BARPOS=SYSPARAM(1),111,SAT,0),ALIGN2,COLORGREEN;

ma(SAT,4),PRECISION2,COLORRED;
100,POINTDOT,COLORFFFF00;
115,COLORBLACK;

量能饱和度:SAT=100,LINETHICK0;
drawicon(量能饱和度,SAT*0.95,12);
DRAWTEXT(量能饱和度,SAT*0.95,'饱\n和'),COLORFFFF00;

EXPLAIN(1,'量能饱和度：'+NUMTOSTR(SAT[系统参数(1)],0)),LINETHICK6,COLORccffcc;
EXPLAIN(1,'（一）根据量大成头的原理，当【量能饱和度】出现饱和，而当前股价正巧位于一处高价区时，暗示该价位成为该时期峰顶的机率将会大幅增加。'),COLORYELLOW,ALIGN2;
EXPLAIN(1,'（二）根据【爆发力】原理，当【量能饱和度】在一处股价的低价区出现饱和时，该价位便很可能成为一处起涨点。'),COLORYELLOW,ALIGN2;
DRAWTEXTEX(C,1,1,900,'底部青柱缩短或青色线变橙色是买入时机'),COLORCYAN;

//