筹码主图（成本、筹码分布）-指标公式源码

input:N(130,1,10000),M(50,0,100);
Var1:="XWUS@COSTL"(N,M);
成本: Var1,colorgreen ;
Var6:="XWUS@CMBL"(n,5);
Var7:="XWUS@CMBL"(n,6);
Var8:="XWUS@CMBL"(n,7);
Var9:="XWUS@CMBL"(n,8);
VarA:="XWUS@CMBL"(n,9);
VarB:="XWUS@CMBL"(n,10);
VarC:="XWUS@CMBL"(n,11);
VarD:="XWUS@CMBL"(n,12);
VarE:="XWUS@CMBL"(n,13);
VarF:="XWUS@CMBL"(n,14);
Var10:="XWUS@CMBL"(n,15);
Var11:="XWUS@CMBL"(n,16);
Var12:="XWUS@CMBL"(n,17);
Var13:="XWUS@CMBL"(n,18);
Var14:="XWUS@CMBL"(n,19);
Var15:="XWUS@CMBL"(n,20);
Var16:="XWUS@CMBL"(n,21);
Var17:="XWUS@CMBL"(n,22);
Var18:="XWUS@CMBL"(n,23);
Var19:="XWUS@CMBL"(n,24);
Var1A:="XWUS@CMBL"(n,25);
Var1B:="XWUS@CMBL"(n,26);
Var1C:="XWUS@CMBL"(n,27);
Var1D:="XWUS@CMBL"(n,28);
Var1E:="XWUS@CMBL"(n,29);
Var1F:="XWUS@CMBL"(n,30);
Var20:="XWUS@CMBL"(n,31);
Var21:="XWUS@CMBL"(n,32);
Var22:="XWUS@CMBL"(n,33);
Var23:="XWUS@CMBL"(n,34);
Var24:="XWUS@CMBL"(n,35);
Var25:="XWUS@CMBL"(n,36);
Var26:="XWUS@CMBL"(n,37);
Var27:="XWUS@CMBL"(n,38);
Var28:="XWUS@CMBL"(n,39);
Var29:="XWUS@CMBL"(n,40);
Var2A:="XWUS@CMBL"(n,41);
POLYLINE(Var6>0,Var6),Color008364,LAYER7;
POLYLINE(Var7>0,Var7),Color008364,LAYER7;
POLYLINE(Var8>0,Var8),Color008364,LAYER7;
POLYLINE(Var9>0,Var9),Color008364,LAYER7{,color808080};
POLYLINE(VarA>0,VarA),Color008364,LAYER7;
POLYLINE(VarB>0,VarB),Color008364,LAYER7;
POLYLINE(VarC>0,VarC),Color008364,LAYER7;
POLYLINE(VarD>0,VarD),Color008364,LAYER7{,color808080};
POLYLINE(VarE>0,VarE),Color008364,LAYER7;
POLYLINE(VarF>0,VarF),Color008364,LAYER7;
POLYLINE(Var10>0,Var10),Color008364,LAYER7;
POLYLINE(Var11>0,Var11),Color008364,LAYER7{,color808080};
POLYLINE(Var12>0,Var12),Color008364,LAYER7;
POLYLINE(Var13>0,Var13),Color008364,LAYER7;
POLYLINE(Var14>0,Var14),Color008364,LAYER7;
POLYLINE(Var15>0,Var15),Color008364,LAYER7{,color808080};
POLYLINE(Var16>0,Var16),Color008364,LAYER7;
POLYLINE(Var17>0,Var17),Color008364,LAYER7;
POLYLINE(Var18>0,Var18),Color008364,LAYER7;
POLYLINE(Var19>0,Var19),Color008364,LAYER7{,color808080};
POLYLINE(Var1A>0,Var1A),Color008364,LAYER7;
POLYLINE(Var1B>0,Var1B),Color008364,LAYER7;
POLYLINE(Var1C>0,Var1C),Color008364,LAYER7;
POLYLINE(Var1D>0,Var1D),Color008364,LAYER7{,color808080};
POLYLINE(Var1E>0,Var1E),Color008364,LAYER7;
POLYLINE(Var1F>0,Var1F),Color008364,LAYER7;
POLYLINE(Var20>0,Var20),Color008364,LAYER7;
POLYLINE(Var21>0,Var21),Color008364,LAYER7{,color808080};
POLYLINE(Var22>0,Var22),Color008364,LAYER7;
POLYLINE(Var23>0,Var23),Color008364,LAYER7;
POLYLINE(Var24>0,Var24),Color008364,LAYER7;
POLYLINE(Var25>0,Var25),Color008364,LAYER7{,color808080};
POLYLINE(Var26>0,Var26),Color008364,LAYER7;
POLYLINE(Var27>0,Var27),Color008364,LAYER7;
POLYLINE(Var28>0,Var28),Color008364,LAYER7;
POLYLINE(Var29>0,Var29),Color008364,LAYER7{,color808080};
{}
空:=EMA(C,5);
均衡:EMA(空,5),COLORWHITE;
趋势:LLV(MA(H,13),1),COLORred;
{}
现价: if (DYNAINFO(4)=0,C,DYNAINFO(7)),colorwhite,POINTDOT;


k1:=l>ref(h,1);
k2:=barslast(k1);
k4:=h<REF(L,1);
k5:=barslast(k4);
k7:=k2<K5;
k3:=backset(BARSTATUS=2 and k7,k2+1);
k6:=backset(BARSTATUS=2 and not(k7),k5+1);
k8:=filter(backset(BARSTATUS=2 ,if(k7,k2+1,k5+1)),1000);
STICKLINE((k3 and (llv(l,k2)>ref(h,k2+1) or k1)) or (BARSTATUS=2 and k1),ref(h,k2+1),ref(l,k2),28,0),ColorC0C0C0,ALIGN1,LAYER7;
STICKLINE((k6 and (hhv(h,k5)<REF(L,K5+1) or k4)),ref(l,k5+1),ref(h,k5),28,0),ColorC0C0C0,ALIGN1,LAYER7;
DRAWTEXT(k1,ref(h,1),''+ref(h,1)),Color0000FF,VALIGN0,ALIGN2,LINETHICK2;
DRAWTEXT(k1,ref(h,1),'-'+l),Color0000FF,VALIGN0,LINETHICK2;
DRAWTEXT(k4,ref(l,1),'-'+h),Color00FF00,VALIGN2,LINETHICK2;
DRAWTEXT(k4,ref(l,1),''+ref(l,1)),Color00FF00,VALIGN2,ALIGN2,LINETHICK2;
DRAWTEXTABS(0,40,'上涨家数：'+NUMTOSTRN(DYNAINFO(69),0)+' 家'),COLOR0000FF;