{★移動(dòng)籌碼}
DRAWGBK(C,COLORRGB(90,10,10),COLORRGB(90,10,10),0);

nn0:=SYSPARAM(3)-SYSPARAM(2);
nn:=BARSCOUNT(c)-SYSPARAM(2);
hh1:=(SYSPARAM(4)-SYSPARAM(5))/10;
y0:=BARSCOUNT(c)>=SYSPARAM(2);
vv0:=if(y0=1 and SYSPARAM(1)>=BARSCOUNT(c),v,0);
c1:=if(BETWEEN(c,SYSPARAM(4)-0*hh1,SYSPARAM(4)-0.5*hh1),vv0,0);
c2:=if(BETWEEN(c,SYSPARAM(4)-0.5*hh1,SYSPARAM(4)-1*hh1),vv0,0);
c3:=if(BETWEEN(c,SYSPARAM(4)-1*hh1,SYSPARAM(4)-1.5*hh1),vv0,0);
c4:=if(BETWEEN(c,SYSPARAM(4)-1.5*hh1,SYSPARAM(4)-2*hh1),vv0,0);
c5:=if(BETWEEN(c,SYSPARAM(4)-2*hh1,SYSPARAM(4)-2.5*hh1),vv0,0);
c6:=if(BETWEEN(c,SYSPARAM(4)-2.5*hh1,SYSPARAM(4)-3*hh1),vv0,0);
c7:=if(BETWEEN(c,SYSPARAM(4)-3*hh1,SYSPARAM(4)-3.5*hh1),vv0,0);
c8:=if(BETWEEN(c,SYSPARAM(4)-3.5*hh1,SYSPARAM(4)-4*hh1),vv0,0);
c9:=if(BETWEEN(c,SYSPARAM(4)-4*hh1,SYSPARAM(4)-4.5*hh1),vv0,0);
c10:=if(BETWEEN(c,SYSPARAM(4)-4.5*hh1,SYSPARAM(4)-5*hh1),vv0,0);
c11:=if(BETWEEN(c,SYSPARAM(4)-5*hh1,SYSPARAM(4)-5.5*hh1),vv0,0);
c12:=if(BETWEEN(c,SYSPARAM(4)-5.5*hh1,SYSPARAM(4)-6*hh1),vv0,0);
c13:=if(BETWEEN(c,SYSPARAM(4)-6*hh1,SYSPARAM(4)-6.5*hh1),vv0,0);
c14:=if(BETWEEN(c,SYSPARAM(4)-6.5*hh1,SYSPARAM(4)-7*hh1),vv0,0);
c15:=if(BETWEEN(c,SYSPARAM(4)-7*hh1,SYSPARAM(4)-7.5*hh1),vv0,0);
c16:=if(BETWEEN(c,SYSPARAM(4)-7.5*hh1,SYSPARAM(4)-8*hh1),vv0,0);
c17:=if(BETWEEN(c,SYSPARAM(4)-8*hh1,SYSPARAM(4)-8.5*hh1),vv0,0);
c18:=if(BETWEEN(c,SYSPARAM(4)-8.5*hh1,SYSPARAM(4)-9*hh1),vv0,0);
c19:=if(BETWEEN(c,SYSPARAM(4)-9*hh1,SYSPARAM(4)-9.5*hh1),vv0,0);
c20:=if(BETWEEN(c,SYSPARAM(4)-9.5*hh1,SYSPARAM(4)-10*hh1),vv0,0);

v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2));
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
v11:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c11,nn0),0),2));
v12:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c12,nn0),0),2));
v13:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c13,nn0),0),2));
v14:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c14,nn0),0),2));
v15:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c15,nn0),0),2));
v16:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c16,nn0),0),2));
v17:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c17,nn0),0),2));
v18:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c18,nn0),0),2));
v19:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c19,nn0),0),2));
v20:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c20,nn0),0),2));

av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,max(v10,max(V11,max(V12,max(V13,max(V14,max(V15,max(V16,max(V17,max(V18,max(V19,V20)))))))))))))))))));
FILLRGN(v1/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-0*hh1,SYSPARAM(4)-0.5*hh1+0.05),ColorF16085;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-0.5*hh1,SYSPARAM(4)-1*hh1+0.05),Color008591;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-1*hh1,SYSPARAM(4)-1.5*hh1+0.05),ColorF16085;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-1.5*hh1,SYSPARAM(4)-2*hh1+0.05),Color008591;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-2*hh1,SYSPARAM(4)-2.5*hh1+0.05),ColorF16085;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-2.5*hh1,SYSPARAM(4)-3*hh1+0.05),Color008591;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-3*hh1,SYSPARAM(4)-3.5*hh1+0.05),ColorF16085;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-3.5*hh1,SYSPARAM(4)-4*hh1+0.05),Color008591;
FILLRGN(v9/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-4*hh1,SYSPARAM(4)-4.5*hh1+0.05),ColorF16085;
FILLRGN(v10/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-4.5*hh1,SYSPARAM(4)-5*hh1+0.05),Color008591;
FILLRGN(v11/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-5*hh1,SYSPARAM(4)-5.5*hh1+0.05),ColorF16085;
FILLRGN(v12/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-5.5*hh1,SYSPARAM(4)-6*hh1+0.05),Color008591;
FILLRGN(v13/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-6*hh1,SYSPARAM(4)-6.5*hh1+0.05),ColorF16085;
FILLRGN(v14/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-6.5*hh1,SYSPARAM(4)-7*hh1+0.05),Color008591;
FILLRGN(v15/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-7*hh1,SYSPARAM(4)-7.5*hh1+0.05),ColorF16085;
FILLRGN(v16/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-7.5*hh1,SYSPARAM(4)-8*hh1+0.05),Color008591;
FILLRGN(v17/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-8*hh1,SYSPARAM(4)-8.5*hh1+0.05),ColorF16085;
FILLRGN(v18/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-8.5*hh1,SYSPARAM(4)-9*hh1+0.05),Color008591;
FILLRGN(v19/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-9*hh1,SYSPARAM(4)-9.5*hh1+0.05),ColorF16085;
FILLRGN(v20/av0>=nn/nn0 and nn>=0,SYSPARAM(4)-9.5*hh1,SYSPARAM(4)-10*hh1+0.05),Color008591;

stickline(c>=o,c,o,6.6,1),colorff;
stickline(c>=o,l,o,0.1,0),colorff;
stickline(c>=o,c,h,0.1,0),colorff;
stickline(c<o,c,o,6.6,0),colorffff00;
stickline(c<o,h,l,0.1,0),colorffff00;
{“三豐誘空”分解}


獲利盤:WINNER(C)*100,COLORRED;
二十天獲利盤最高:HHV(獲利盤,20);
乖離:ema((100+獲利盤-二十天獲利盤最高),3);
挖坑線:乖離,linethick2;
成本乖離:(c/cost(50)-1)*100,linethick1;

{籌碼盈虧}

input:N(13,13,13),M(5,5,5);

Var2:= WINNER(CLOSE*1.1)*100;
Var3:= WINNER(CLOSE*0.9)*100;

獲利: MA(Var3,N), colorwhite;
STICKLINE(1, 0, 獲利, 1, 0), colorred;

套牢:= 100-MA(Var2,N);
STICKLINE(1, 100, MA(Var2,N), 1, 0), colorgreen;
HH: 100-套牢,colorwhite;

浮動(dòng):= MA(Var2,N)-MA(Var3,N);
STICKLINE(1, 獲利, MA(Var2,N), 1, 0), coloryellow;

var4:= (HHV(獲利,15)-var3)/var3*100>M AND HHV(獲利,15)>50;
STICKLINE(var4,-2, 2,10,0),COLORGREEN;
STICKLINE(not(var4),-2, 2,10,0),COLORBLUE;


{籌碼統(tǒng)計(jì)}
HSL:=EMA(V/CAPITAL,3);
ZDL:=HHV(HSL,240);
ZXL:=LLV(HSL,240);
XS:=MA(C,33);
鎖定籌碼:EMA((HSL-ZXL)/ZXL*XS,13);
浮動(dòng)籌碼:EMA((ZDL-HSL)/HSL*XS,13);
力量對(duì)比:鎖定籌碼-浮動(dòng)籌碼,COLORSTICK;


{籌碼空間}
籌碼空間:IF(WINNER(CLOSE),WINNER(CLOSE)*100,20),VOLSTICK;
TX80:80,pointdot coloryellow;
DX20:20,pointdot colorgreen;
Var1:=LLV(LOW,21);
Var2:=HHV(HIGH,21);
K: EMA((CLOSE-Var1)/(Var2-Var1)*100,8),colormagenta ;
D: EMA(0.667*REF(K,1)+0.333*K,2),coloryellow;
Var3:=LLV(LOW,55);
Var4:=HHV(HIGH,34);
Var5:=EMA((CLOSE-Var3)/(Var4-Var3)*100,3);
Var6:=(K+Var5)/2;
Var7:=EMA(0.667*REF(Var5,1)+0.333*K,2);
Var8:=EMA(Var6,5);
Var9:EMA(0.667*REF(Var8,1)+0.333*Var8,2);


{空頭籌碼多頭籌碼}
空頭籌碼:100*(1-WINNER(C)),COLORGREEN,linethick2;
多頭籌碼:100*WINNER(C),COLORRED,linethick2;
獲利平均值:EMA(100*WINNER(C),20),coloryellow,linethick2;
獲利99 := ma(COST(99 ),5);
獲利80:=ma(cost(80),5);
均線5日:= ma(c,5);
獲利20:=ma(cost(20),5);
獲利1 :=ma(cost(1),5);
a1:=(獲利99-獲利80)/獲利80*100;
a2:=(獲利80-獲利20)/獲利20*100;
aa3:=(獲利20-獲利1)/獲利1*100;
a4:=IF(a2<10 ,100 ,0 );
a5:=IF(a2<15 ,50 ,0 );
a6:=IF(a2<20 ,25 ,0 );
密集度:a2,colorFF0000,linethick2;
高密集:a4,color0000FF,linethick2;
中密集:a5,colorFF00FF,linethick2;
低密集:a6,color00FF00,linethick2;

{籌碼跟蹤}
獲利籌碼:EMA(WINNER(C)*70,5),ColorD98EF1;
虧損籌碼:EMA((WINNER(C*1.1)-WINNER(C*0.9))*80,5),ColorF3FF00;
stickline(獲利籌碼<虧損籌碼 and 虧損籌碼<60,虧損籌碼,55,1,0),ColorF3FF00;
stickline(獲利籌碼>虧損籌碼,虧損籌碼,50,1,0),colorred;
主力控籌:If(獲利籌碼>虧損籌碼,獲利籌碼, 0),POINTDOT,colorred;
stickline(獲利籌碼<虧損籌碼,獲利籌碼,0,0,0),ColorD98EF1;
AI:=AMOUNT/VOL/100;
C0:=REF(C,2)*0.865;
C1:=REF(C,13)*0.772;
DSY:=100*vol/CApitAl;
抄底:If((C-MIN(C0,C1))/C<0.1 AND SUM(DSY,5)/5<1.8,10, 0),Color00FF00;
災(zāi)區(qū):stickline(獲利籌碼<10,虧損籌碼,虧損籌碼+5,2,0),POINTDOT,ColorFF009D;
重災(zāi)區(qū):stickline(獲利籌碼<5,虧損籌碼,虧損籌碼+8,2,0),POINTDOT,Color970000;
stickline(抄底,0,30,4,0),Color00FF00;
0,ColorFFFFFF;


{籌碼轉(zhuǎn)移}
V1:=REF(C,5);
V2:=REF(WINNER(C)*100,5);
V3:=WINNER(V1)*100;
籌轉(zhuǎn)5: V2-V3;
V4:=REF(C,10);
V5:=REF(WINNER(C)*100,10);
V6:=WINNER(V4)*100;
籌轉(zhuǎn)10: V5-V6;
V7:=REF(C,20);
V8:=REF(WINNER(C)*100,20);
V9:=WINNER(V7)*100;
籌轉(zhuǎn)20: V8-V9;
VA:=REF(C,30);
VB:=REF(WINNER(C)*100,30);
VC:=WINNER(VA)*100;
籌轉(zhuǎn)30: VB-VC;//FZ穿越籌碼

IF((WINNER(C)-WINNER(O))*100/(V*100/CAPITAL)>0,(WINNER(C)-WINNER(O))*100/(V*100/CAPITAL),0)*100,,COLORCYAN;
IF((WINNER(C)-WINNER(O))*100/(V*100/CAPITAL)<0,(WINNER(C)-WINNER(O))*100*V*100/CAPITAL,0)*100,,COLOR5050FF;
穿越籌碼: (WINNER(C)-WINNER(O))*100,POINTDOT;


{個(gè)股活籌}

Var1:=SMA(AMOUNT,10,1)/10000000;
Var2:=REF(Var1,1);
AA: STICKLINE(Var1>Var2,Var1,Var2,8,1),COLORRED;
AD: STICKLINE(Var1<Var2,Var1,Var2,8,0),COLORGREEN;
C5: DMA(SMA(Var1,3,1),VOL/0.02/CAPITAL);
C13: DMA(SMA(Var1,5,1),VOL/0.1/CAPITAL);
C34:DMA(SMA(Var1,8,1),VOL/0.18/CAPITAL);
∞: DMA(Var1,VOL/1.1/CAPITAL);


{籌碼K線}
STICKLINE(close>=open ,open ,close,8 ,0 ), colormagenta;
STICKLINE(close>=open,close,HIGH,0.5 ,0 ), colormagenta;
STICKLINE(close>=open ,open,low,0.5 ,0 ), colormagenta;
STICKLINE(open>=close,close,open,8,0 ),COLORCYAN;
STICKLINE(open>=close,close,LOW ,0.5 ,0 ),COLORCYAN;
STICKLINE(open>=close ,open,HIGH,0.5 ,0),COLORCYAN;
成本集中度:(COST(95)-COST(5))/(COST(95)+COST(5))*100,LINETHICK0;
生命: MA(C,15),coloryellow;
頂: COST(95);
拉升: COST(75);
控盤: COST(30);
主力: COST(4);
底 : COST(0.05);

V1:=WINNER(C);
V2:=DMA(V1,V/CAPITAL);
V3:=DMA(V,V/CAPITAL)/CAPITAL;
V4:=V1/V3;
V5:=V2/V3;
STICKLINE(V4>V5 AND 100*WINNER(C)>50,C,O,8,1),coloryellow;
V6:=100*WINNER(C*0.95);
STICKLINE(V6>50 AND COST(85)<C,C,O,8,1),colorred;
STICKLINE(V6>50 AND COST(85)<C,C,O,2.5,0),colorred;


套牢盤獲利盤籌碼比例
input:N(20,1,100);
套牢盤籌碼:100*(1-WINNER(C));
獲利盤籌碼:100*WINNER(C);
獲利盤平均值:ema(100*WINNER(C),n)


獲利套牢盤
獲利盤:100*WINNER(C),COLORYELLOW;
套牢盤:100*(1-WINNER(C)),COLORff8800;


籌碼密集度
input:N(13,2,20);
Var1:=COST(89)-COST(11);
Var2:=COST(99.900)-COST(0.100);
單峰密集:(1-Var1/Var2)*100,colormagenta,linethick2;
低位密集:(COST(99)-COST(60))/Var2*100,colorcyan,linethick2;
高位密集:(COST(40)-COST(1))/Var2*100,colorred,linethick2;
獲利盤:SMA(WINNER(AMOUNT/VOL/100)*100, N, 1),colorgreen,linethick2;
10,POINTDOT,colorgray;
30,POINTDOT,colorgray;
50,POINTDOT,colorgray;
70,POINTDOT,colorgray;
90,POINTDOT,colorgray;