籌碼主副圖指標公式公式公式、源碼一套說明

作者：飛狐來源：cxh99.com 發布時間：2015年06月08日

相關標簽:

使用說明以圖片為例子:{籌碼公式}
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(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x2<ref(x2,1),6) and v2>0,10),(a4-1*h1),a4-1*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*h2),a4-2*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x4<ref(x4,1),6) and v4>0,10),(a4-12*h2),a4-3*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-16*h2),a4-4*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x6<ref(x6,1),6) and v6>0,10),(a4-20*h2),a4-5*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x7<ref(x7,1),6) and v7>0,10),(a4-24*h2),a4-6*h1,2),COLOR00FF00;
DRAWNUMBER(FILTER(refx(x8<ref(x8,1) and x8>0,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<REF(EX10,1)),賣出,0);
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(c<mm and sds>1,CLOSE,OPEN,8,0),color008800;
STICKLINE(c<mm and sds>1,CLOSE,OPEN,6,0),color009900;
STICKLINE(c<mm and sds>1,CLOSE,OPEN,4,0),color00aa00;
STICKLINE(c<mm and sds>1,CLOSE,OPEN,2,0),color00bb00;
STICKLINE(c<mm and sds>1,CLOSE,OPEN,1,0),color00cc00;
STICKLINE(c<mm and sds>1,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)<REF(ZZLJJ,2))*25;
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)<REF(ZZLJJ,2));

{程序化交易 www.tumamayizhan.com }