主图管家 筹码（主图+附图） 两公式

见图 飞狐指标源码和谐
发送只是为了学习 请作者见谅
主图管家 筹码
CHAN管家 主图：


 

{管家婆}
input:近高(0,0,999),起动点(15,0,999),N(4,3,255);
STICKLINE((CLOSE >= OPEN),HIGH,LOW,0,0),colorFF;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,8,1),colorff;
STICKLINE((CLOSE < OPEN),HIGH,LOW,0,0),colorffff00;
STICKLINE((CLOSE < OPEN),CLOSE,OPEN,7.8,0),colorffff00;
Z:ZIG(3,N),coloraaaa;
F:=(Z - REF(Z,1));
ZH:=PEAK(3,N,1);
WH:=PEAKBARS(3,N,1);
ZL:=TROUGH(3,N,1);
WL:=TROUGHBARS(3,N,1);
X:(ATAN(((((Z / ZH) - 1) / WH) * 100)) * 57.3),LINETHICK0;
S:=(ATAN(((((Z / ZL) - 1) / WL) * 100)) * 57.3);
DRAWNUMBER(((WH = 0) OR (ISLASTBAR AND (WL < WH))),(Z * 1.01),REF(S,1),1),ALIGN2,color8000c0;
DRAWTEXT(((WH = 0) OR (ISLASTBAR AND (WL < WH))),(Z * 1.01),'上行： '),ALIGN2,color8000c0;
DRAWTEXT(((WH = 0) OR (ISLASTBAR AND (WL < WH))),(Z * 1.01),' 度'),color8000c0;
DRAWNUMBER(((WL = 0) OR (ISLASTBAR AND (WL > WH))),(Z * 0.99),REF(X,1),1),ALIGN2,color80c000;
DRAWTEXT(((WL = 0) OR (ISLASTBAR AND (WL > WH))),(Z * 0.99),'下行： '),ALIGN2,color80c000;
DRAWTEXT(((WL = 0) OR (ISLASTBAR AND (WL > WH))),(Z * 0.99),' 度'),color80c000;
tj:=barpos=sysparam(1);
s0:=NUMTOSTR(z[SYSPARAM(1)],2);
drawtext(c*tj ,z*1.01,' '+s0),color11ffff;
G:=(((ZIG(3,5) > REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1) <= REF(ZIG(3,5),2))) AND (REF(ZIG(3,5),2)<= REF(ZIG(3,5),3)));
Xg:(((ZIG(3,5) < REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1) >= REF(ZIG(3,5),2))) AND (REF(ZIG(3,5),2) >= REF(ZIG(3,5),3))),LINETHICK0;
ED:=(BARSLAST(G) + 1);EF:=(BARSLAST(Xg) + 1);
if DATATYPE>3 then
DRAWTEXT((BARPOS = SYSPARAM(2)),SYSPARAM(4),(((((' 买入到到当前周期:' + NUMTOSTR(ED,0)) + '天') + ' 卖出到当前周期:') + NUMTOSTR(EF,0)) + '天')),LINETHICK2,color00FFdd,align5;
ZG:=REF(HIGH,近高);ZD:=REF(LOW,起动点);
HHH:=HHV(ZG,1);LLL:=LLV(ZD,1);
XZ:=DYNAINFO(7);XX:=DYNAINFO(5);YY:=DYNAINFO(6);
SZ:=(XZ - LLL);ZZ:=((SZ / LLL) * 100);
GSZ:=(XX - LLL);GZZ:=((GSZ / LLL) * 100);
GGB:=(HHH - YY);VV:=((GGB / HHH) * 100);
GGA:=(XZ - HHH);VVA:=((GGA / HHH) * 100);
K:=(HHH - LLL);W:=((K / LLL) * 100);
GGB:=(YY - HHH);VVB:=((GGB / HHH) * 100);
DRAWTEXT((ISLASTBAR = 1),HHH,((((((('近高/当前最低幅度/当前幅度:(' + NUMTOSTR(VVB,2)) + '%【') + NUMTOSTR(VVA,2)) + '%【') + '') + NUMTOSTR(HHH,2)) + '￣￣￣')),ALIGN2,LINETHICK0,colorc0;
DRAWTEXT((ISLASTBAR = 1),LLL,((((((('起动点/当前高幅度' + '/当前幅度:(') + NUMTOSTR(GZZ,2)) + '%【') + NUMTOSTR(ZZ,2)) + '%【') + NUMTOSTR(LLL,2)) + '￣￣￣')),ALIGN2,LINETHICK0,colorFF00AA;
B:=((DATACOUNT - BARPOS) + 0);
if DATATYPE>3 then
DRAWTEXT(((BARSCOUNT(CLOSE) = SYSPARAM(1)) AND B),HIGH,((' 倒数:' + NUMTOSTR(B[SYSPARAM(1)],0)) + '(天) ')),ALIGN5,LINETHICK4,colorc0000;
DRAWTEXT(SYSPARAM(2)=BARPOS,c, ' 缠空间' + '【1/8=12.5%】【2/8=25%】【3/8=32.5%】【4/8=50%】【5/8=62.5%】【6/8=75%】'),LINETHICK2,colorFFaaff,align4;
{⊙创幻筹码㊣}
DRAWGBK((DATE > 900101),COLORRGB(0,150,130),COLORRGB(0,0,0),1);
STICKLINE(CLOSE,(0 - 2),(0 - 5),10,0),color10000;
L1:=EMA((WINNER(CLOSE) * 70),5);
L2:=EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.91))) * 80),5);
FILLRGN(L2,L2,0),color15A616;
L3:=(L2 - L1);
FILLRGN((L3 < 0),L3,0),colorD6B918;
FILLRGN((L3 > 0),L3,0),colorD6B918;
ZDD1:=((((HHV(HIGH,21) - CLOSE) / (HHV(HIGH,21) - LLV(LOW,21))) * 100) - 10);
ZDD2:=(((CLOSE - LLV(LOW,21)) / (HHV(HIGH,21) - LLV(LOW,21))) * 100);
ZDD3:=SMA(ZDD2,13,8);
ZDD4:=CEILING(SMA(ZDD3,13,8));
ZDD5:=SMA(ZDD1,21,8);
XW1:=((SMA(MAX((CLOSE - REF(CLOSE,2)),0),7,1) / SMA(ABS((CLOSE - REF(CLOSE,2))),7,1)) * 100);
XW2:=(((ZDD4 - ZDD5) < (0 - 65)) AND (XW1 < 12));
WW1:=(SUM(MA(CLOSE,10),9) / 10.11);
WW2:=CROSS(CLOSE,WW1);
XX1:=(MA(LOW,2) * 0.96);
XX2:=(MA(LOW,26) * 0.85);
XX3:=(((REF(XX1,1) < XX2) AND (REF(XX1,1) < XX1)) AND (REF(XX1,1) < REF(XX1,2)));
DD1:=((XW2 OR WW2) OR XX3);
DD2:=(EMA(IF(DD1,(SMA(ABS((LOW - REF(LOW,1))),30,1) / SMA(MAX((LOW - REF(LOW,1)),0),30,1)),0),3) * 10);
PARTLINE(DD2,DD2),color15A6FF;
FILLRGN(CLOSE,0,DD2),colorA8FFE5;
ZJ1:=EMA((WINNER(CLOSE) * 70),3);
ZJ2:=EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),3);
ZJ3:=((ZJ1 / (ZJ1 + ZJ2)) * 100);
ZJ4:=EMA(ZJ3,89);
警戒:=EMA(L1,89);
STICKLINE((ZJ3 > ZJ4),警戒,ZJ3,2,0),colorF800;
X1:=(SMA(AMOUNT,10,1) / 10000000);
X2:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
X3:=SUM(IF((CLOSE > REF(CLOSE,1)),(X1 * X2),0),12);
X4:=SUM(IF((CLOSE <= REF(CLOSE,1)),(X1 * X2),0),12);
X5:=(SMA(X3,3,1) - (SMA(X4,3,1) * (0 - 1)));
X6:=SMA(X5,3,1);
有戏:=(((EMA(CLOSE,30) - EMA(CLOSE,34)) / EMA(CLOSE,34)) * 100);
无戏:=(((EMA(CLOSE,34) - EMA(CLOSE,30)) / EMA(CLOSE,30)) * 100);
XYZ1:=(有戏 - 无戏);
XYZ2:=MA(XYZ1,3);
STICKLINE((XYZ1 > XYZ2),(0 - 1),1,10,0),colorFF00;
STICKLINE(((X5 > X6) AND (X5 < 0)),(0 - 1),1,18,0),colorFF0000;
STICKLINE((X5 < X6),(0 - 1),1,18,0),colorFFFFE9;
STICKLINE((XYZ1 < XYZ2),(0 - 1),1,10,0),colorFF;
DRAWTEXT((BARSTATUS = 2),(0 - 2),'蓝关注;绿进;红出;白警惕'),ALIGN2,colorFFFFFF;
牛熊线:PARTLINE(CLOSE,警戒),LINETHICK2,colorFF00FF;
主力筹码估算:EMA((WINNER(CLOSE) * 70),5),LINETHICK2,PRECISION2,colorFF;
游散筹码估算:EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.91))) * 80),5),PRECISION2,color567A89;
锁码估算:(游散筹码估算 - 主力筹码估算),PRECISION2,colorD65650;