剑网三战场规则:“筹码”指标源码荟萃3

{筹码超跌原码}

VarAA:=AMOUNT/(100*vol);
cyc13:=ma(VarAA,13);
cyc34:=ma(VarAA,34);
cycmax:=dma(c,vol/capital);
cys13:=(C-cyc13)/cyc13*100;
cys34:=(C-cyc34)/cyc34*100;
cysmax:=(C-cycmax)/cycmax*100;
亏损程度:
if(CYS13<=-7,7,0),colorwhite,stick,linethick3;
if(CYS13<=-10,10,0),colorffff33,stick,linethick3;
if(CYS13<=-16,16,0),colorblue,stick,linethick3;
if(CYS13<=-20,20,0),color00ff77,stick,linethick3;
if(CYS13<=-25,25,0),coloryellow,stick,linethick3;
if(CYS13<=-30,30,0),colorff00ff,stick,linethick3;
Var1:=COST(10)*0;
Var2:=REF(HIGH,1)*1.1;
Var3:=HIGH*1.1;
Var4:=(Var3*VOL+Var2*(CAPITAL-VOL))/CAPITAL;
Var5:=REF(LOW,1)*0.9;
Var6:=LOW*0.9;
Var7:=(Var6*VOL+Var5*(CAPITAL-VOL))/CAPITAL;
Var8:=EMA(Var7,30);
Var9:=EMA(Var4,30);
VarA:=Var9-2;
VarB:=IF(CLOSE<=Var8,VarA,Var9);
超跌: VarB*2.5,color00ff00;
TAO:=100*(1-winner(c));
a:=1.1*c;
b:=0.9*c;
ASR:=100*(winner(a)-winner(b));
筹码超跌:if((ASR<10) and (TAO>90),30,0),color0099ff;
短中长线超跌:if((CYS13<(-16)) and (CYS13>(-100)) and (CYS34<(-20)) and (CYS34>(-100)),40,0),colordff;
if((CYS34<(-20)) and (CYS34>(-100)) and (CYSmax<(-30)) and (CYSmax>(-100)),50,0),colorffcc00;
反弹:VarA*2.5,colorff00ff;
风:if(超跌=反弹 and cys13<=-10 and 筹码超跌=30,-30,0),coloryellow,stick,linethick3;
云:if(超跌=反弹 and cys13<=-16 and 筹码超跌=30 and 短中长线超跌=40,-20,0),colorred,stick,linethick3;

{筹码分布}
DRAWGBK(1, COLORRGB(100,100,100),COLORRGB(50,50,50),0);
{-----------------------☆功能开关------------------------}
{移动筹码分布}
variable:pv[50]=0,pc[50]=0;
hh:=hhv(h,0);
ll:=llv(l,0);
fv:=v;
fh:=h;
fl:=l;
p:=sysparam(1);
dd:=(hh[p]-ll[p])/49;
for i=p downto 1 do begin
  sh:=(fh[i]-ll[p])/dd+1;
  sl:=(fl[i]-ll[p])/dd+1;
  dj:=fv[i]/(sh-sl+1);
  for j=sl to sh do pv[j]:=pv[j]+dj;   
end;
s:=0;
for i=1 to 50 do if s bl:=s/(sysparam(3)-sysparam(2))*2;
drawsl(barpos=sysparam(1),sysparam(5),0,pv[1]/bl+1,1),ColorA1FFFF;
drawsl(barpos=sysparam(1),sysparam(5)+dd,0,pv[2]/bl+1,1),ColorA1FFFF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*02,0,pv[03]/bl+1,1),ColorA1FFFF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*03,0,pv[04]/bl+1,1),ColorA1FFFF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*04,0,pv[05]/bl+1,1),ColorA1FFFF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*05,0,pv[06]/bl+1,1),ColorA1FFFF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*06,0,pv[07]/bl+1,1),ColorA1FFFF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*07,0,pv[08]/bl+1,1),ColorA1FFFF;

drawsl(barpos=sysparam(1),sysparam(5)+dd*08,0,pv[09]/bl+1,1),ColorF8B0FF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*09,0,pv[10]/bl+1,1),ColorF8B0FF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*10,0,pv[11]/bl+1,1),ColorF8B0FF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*11,0,pv[12]/bl+1,1),ColorF8B0FF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*12,0,pv[13]/bl+1,1),ColorF8B0FF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*13,0,pv[14]/bl+1,1),ColorF8B0FF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*14,0,pv[15]/bl+1,1),ColorF8B0FF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*15,0,pv[16]/bl+1,1),ColorF8B0FF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*16,0,pv[17]/bl+1,1),ColorF8B0FF;
drawsl(barpos=sysparam(1),sysparam(5)+dd*17,0,pv[18]/bl+1,1),ColorF8B0FF;

drawsl(barpos=sysparam(1),sysparam(5)+dd*18,0,pv[19]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*19,0,pv[20]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*20,0,pv[21]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*21,0,pv[22]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*22,0,pv[23]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*23,0,pv[24]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*24,0,pv[25]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*25,0,pv[26]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*26,0,pv[27]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*27,0,pv[28]/bl+1,3),COLORGRAY;
drawsl(barpos=sysparam(1),sysparam(5)+dd*28,0,pv[29]/bl+1,3),COLORGRAY;

drawsl(barpos=sysparam(1),sysparam(5)+dd*29,0,pv[30]/bl+1,3),COLOR009900;
drawsl(barpos=sysparam(1),sysparam(5)+dd*30,0,pv[31]/bl+1,3),COLOR009900;
drawsl(barpos=sysparam(1),sysparam(5)+dd*31,0,pv[32]/bl+1,3),COLOR009900;
drawsl(barpos=sysparam(1),sysparam(5)+dd*32,0,pv[33]/bl+1,3),COLOR009900;
drawsl(barpos=sysparam(1),sysparam(5)+dd*33,0,pv[34]/bl+1,3),COLOR009900;
drawsl(barpos=sysparam(1),sysparam(5)+dd*34,0,pv[35]/bl+1,3),COLOR009900;
drawsl(barpos=sysparam(1),sysparam(5)+dd*35,0,pv[36]/bl+1,3),COLOR009900;
drawsl(barpos=sysparam(1),sysparam(5)+dd*36,0,pv[37]/bl+1,3),COLOR009900;
drawsl(barpos=sysparam(1),sysparam(5)+dd*37,0,pv[38]/bl+1,3),COLOR009900;
drawsl(barpos=sysparam(1),sysparam(5)+dd*38,0,pv[39]/bl+1,3),COLOR009900;

drawsl(barpos=sysparam(1),sysparam(5)+dd*39,0,pv[40]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*40,0,pv[41]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*41,0,pv[42]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*42,0,pv[43]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*43,0,pv[44]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*44,0,pv[45]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*45,0,pv[46]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*46,0,pv[47]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*47,0,pv[48]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*48,0,pv[49]/bl+1,3),ColorF8894D;
drawsl(barpos=sysparam(1),sysparam(5)+dd*49,0,pv[50]/bl+1,3),ColorF8894D;
{K线}
STICKLINE(O>=C,C,O,7,0 ),COLORCYAN;
STICKLINE(O>=C,H,L,0,0),COLORCYAN;
STICKLINE(C>=O,C,O,7,1),COLORRED;
STICKLINE(C>=O,C,H,0,0),COLORRED;
STICKLINE(C>=O,L,O,0,0),COLORRED;