筹码主副图公式源码一套说明

使用说明以图片为例子:

{筹码公式}
a0:=BARSCOUNT(c);a3:=SYSPARAM(3);a2:=SYSPARAM(2);a4:=SYSPARAM(4);
 a5:=SYSPARAM(5);a6:=SYSPARAM(1);n0:=a3-a2;nn:=a0-a2;h1:=(a4-a5)/8;
 h2:=h1/4;l1:=llv(l,n0);ll2:=l1[a3];
 y0:=a0>=a2;vv:=if(y0=1 and a6>=a0,v,0);
 c1:=if(BETWEEN(c,a4-0*h1,a4-1*h1),vv,0);
 c2:=if(BETWEEN(c,a4-1*h1,a4-2*h1),vv,0);
 c3:=if(BETWEEN(c,a4-2*h1,a4-3*h1),vv,0);
 c4:=if(BETWEEN(c,a4-3*h1,a4-4*h1),vv,0);
 c5:=if(BETWEEN(c,a4-4*h1,a4-5*h1),vv,0);
 c6:=if(BETWEEN(c,a4-5*h1,a4-6*h1),vv,0);
 c7:=if(BETWEEN(c,a4-6*h1,a4-7*h1),vv,0);
 c8:=if(BETWEEN(c,a4-7*h1,a4-8*h1),vv,0);
 c9:=if(BETWEEN(c,a4-8*h1,a4-9*h1),vv,0);
 c10:=if(BETWEEN(c,a4-9*h1,a4-10*h1),vv,0);
 v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,n0),0),2));
 v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,n0),0),2));
 v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,n0),0),2));
 v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,n0),0),2));
 v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,n0),0),2));
 v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,n0),0),2));
 v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,n0),0),2));
 v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,n0),0),2));
 v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,n0),0),2));
 v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,n0),0),2));
 av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
 x1:=v1/av0>=nn/n0 and nn>=0;x2:=v2/av0>=nn/n0 and nn>=0;
 x3:=v3/av0>=nn/n0 and nn>=0;x4:=v4/av0>=nn/n0 and nn>=0;
 x5:=v5/av0>=nn/n0 and nn>=0;x6:=v6/av0>=nn/n0 and nn>=0;
 x7:=v7/av0>=nn/n0 and nn>=0;x8:=v8/av0>=nn/n0 and nn>=0;
 FILLRGN(v1/av0>=nn/n0 and nn>=0,a4-0*h1,a4-1*h1+h1*0.5),Color002288;
 FILLRGN(v2/av0>=nn/n0 and nn>=0,a4-1*h1,a4-2*h1+h1*0.5),Color806000;
 FILLRGN(v3/av0>=nn/n0 and nn>=0,a4-2*h1,a4-3*h1+h1*0.5),Color808300;
 FILLRGN(v4/av0>=nn/n0 and nn>=0,a4-3*h1,a4-4*h1+h1*0.5),Color883D88;
 FILLRGN(v5/av0>=nn/n0 and nn>=0,a4-4*h1,a4-5*h1+h1*0.5),Color006868;
 FILLRGN(v6/av0>=nn/n0 and nn>=0,a4-5*h1,a4-6*h1+h1*0.5),color777700;
 FILLRGN(v7/av0>=nn/n0 and nn>=0,a4-6*h1,a4-7*h1+h1*0.5),color804000;
 FILLRGN(v8/av0>=nn/n0 and nn>=0,a4-7*h1,a4-8*h1+h1*0.5),color003377;
 DRAWNUMBER(FILTER(refx(x10,10),a4,a4-0*h1,2),COLOR00FF00;
 DRAWNUMBER(FILTER(refx(x20,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
 DRAWNUMBER(FILTER(refx(x30,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
 DRAWNUMBER(FILTER(refx(x40,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
 DRAWNUMBER(FILTER(refx(x50,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
 DRAWNUMBER(FILTER(refx(x60,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
 DRAWNUMBER(FILTER(refx(x70,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
 DRAWNUMBER(FILTER(refx(x80,5),10),ll2+1*4*h2,a4-7*h1,2),COLOR00FF00;

{}
 X:=(BARSLAST((SYSPARAM(2)=BARPOS))+1);
 NS:=IF((HHV(ABS(((HHV(CLOSE,6)/LLV(CLOSE,6))-1)),6)>(10/100)),3,6);
 N1:=IF((DATATYPE=2),(NS*48),IF((DATATYPE=3),(NS*16),IF((DATATYPE=4),(NS*8),IF((DATATYPE=5),

(NS*4),NS))));
 MM:=IF((((STKTYPE=0)) OR (VOL=0)),MA(CLOSE,N1),((SUM(AMOUNT,N1)/SUM(VOL,N1))/100));
 M1:=REF(MM,1);
买入:=IF(CROSS(CLOSE,M1),M1,0);
卖出:=IF(CROSS(M1,CLOSE),M1,0);
 DW:=BARSLAST((卖出>0));
 EX10:=HHV((买入>0),(DW+1));
 BJ:=IF((EX10>REF(EX10,1)),买入,0);
 SJ:=IF((EX10  sds:=if(DATATYPE=-1,0,10);
 STICKLINE(c>=mm and sds>1,CLOSE,OPEN,8,0),color000088;
 STICKLINE(c>=mm and sds>1,CLOSE,OPEN,6,0),color000099;
 STICKLINE(c>=mm and sds>1,CLOSE,OPEN,4,0),color0000aa;
 STICKLINE(c>=mm and sds>1,CLOSE,OPEN,2,0),color0000bb;
 STICKLINE(c>=mm and sds>1,CLOSE,OPEN,1,0),color0000cc;
 STICKLINE(c>=mm and sds>1,h,l,1,0),colorred;

STICKLINE(c1,CLOSE,OPEN,8,0),color008800;
 STICKLINE(c1,CLOSE,OPEN,6,0),color009900;
 STICKLINE(c1,CLOSE,OPEN,4,0),color00aa00;
 STICKLINE(c1,CLOSE,OPEN,2,0),color00bb00;
 STICKLINE(c1,CLOSE,OPEN,1,0),color00cc00;
 STICKLINE(c1,l,h,1,0),colorgreen;

STICKLINE((BJ > 0) and sds>1,o,(O+c)/2,8,0),color0077ff;
 STICKLINE((BJ > 0) and sds>1,o,(O+c)/2,6,0),color0099ff;
 STICKLINE((BJ > 0) and sds>1,o,(O+c)/2,4,0),color00ccff;
 STICKLINE((BJ > 0) AND sds>1,o,(O+c)/2,2,0),color00eeff;
 STICKLINE((BJ > 0) AND sds>1,o,(O+c)/2,1,0),color00ffff;

STICKLINE((SJ>0) AND sds>1,c,(C+O)/2,8,0),colorff8800;
 STICKLINE((SJ>0) AND sds>1,c,(C+O)/2,6,0),colorffaa11;
 STICKLINE((SJ>0) AND sds>1,c,(C+O)/2,4,0),colorffcc22;
 STICKLINE((SJ>0) AND sds>1,c,(C+O)/2,2,0),colorffee33;
 STICKLINE((SJ>0) AND sds>1,c,(C+O)/2,1,0),colorffff33;

STICKLINE((SJ>0) AND sds>1,O,(C+O)/2,8,0),color990000;
 STICKLINE((SJ>0) AND sds>1,O,(C+O)/2,6,0),coloraa0000;
 STICKLINE((SJ>0) AND sds>1,O,(C+O)/2,4,0),colorbb0000;
 STICKLINE((SJ>0) AND sds>1,O,(C+O)/2,2,0),colorff0000;
 STICKLINE((SJ>0) AND sds>1,O,(C+O)/2,1,0),colorff0000;

{多空 p1:=5,0,100; p2:=10,0,100; p3:=50,0,100;}
 MM:=EMA(SLOPE(CLOSE,P2)*20+CLOSE,P3);
 SS:EMA(CLOSE,P1);
 PARTLINE(SS>MM,ss),colorFF,LINETHICK2;

 {主力散户筹码}
ZLCM:=EMA(WINNER(CLOSE)*70,3);
 SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
 ZSHTL:=SHCM/(ZLCM+SHCM)*100;
 ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
 ZCMZL:=MA(ZLCM+SHCM,13);
 ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);
 ZSHJJ:=EMA(ZSHTL,55);
 ZZLJJ:=EMA(ZZLKP,55);
 ZJLRQD:=INTPART(ZZLKP-ZZLJJ);
 SH8:=EMA(ZSHTL,8);
 DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
 {散户套牢筹码}
STICKLINE(C>0,ZSHTL,ZZLKP,3,0),COLORfff000;
 {散户筹码警戒}
STICKLINE(ZSHJJ>REF(ZSHJJ,2),ZSHTL,ZSHJJ,3,0),COLORFF0000;
 {主力控盘筹码}
STICKLINE(C>0,ZZLKP,0,3,0),COLORA4A4A4;
 {筑顶风险区}
STICKLINE(ZZLKP>75,ZZLKP,0,3,0),COLORffffff;
 {主力筹码警戒}
STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,3,0),COLORRED;
 {筑底散兵坑}
STICKLINE(ZSHTL>=90,ZZLKP,0,3,0),COLOR66FFCC;
 {筹码总量上升}
PARTLINE(0,ZCMZL>REF(ZCMZL,1)),COLORffffFF,LINETHICK2;
 {增量资金}
散户套牢系数:INTPART(ZSHTL),COLORFFff00,LINETHICK2;
主力控盘系数:INTPART(ZZLKP),COLORYELLOW,LINETHICK2;
资金流入强度:ZJLRQD,LINETHICK2,COLOR0000FF;
 PARTLINE(ZJLRQD<0,ZJLRQD),LINETHICK2,COLORFFFF00;
 PARTLINE(ZJLRQD,ZJLRQD<10),LINETHICK2,COLOR00FFFF;
 市场筹码总量:INTPART(ZCMZL),COLORWHITE,LINETHICK0;
 DRAWICON(CROSS(主力控盘系数,散户套牢系数),散户套牢系数-5,12);
 DRAWICON(CROSS(资金流入强度,散户套牢系数),散户套牢系数-5,10);

 {主散筹码选股}
ZLCM:=EMA(WINNER(CLOSE)*70,3);
 SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
 ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
 ZZLJJ:=EMA(ZZLKP,55);
选股:(ZZLJJ>REF(ZZLJJ,1) AND REF(ZZLJJ,1)  STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,5,0),COLORRED;

{主散选股}
ZLCM:=EMA(WINNER(CLOSE)*70,3);
 SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
 ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
 ZZLJJ:=EMA(ZZLKP,55);
选股:(ZZLJJ>REF(ZZLJJ,1) AND REF(ZZLJJ,1)