通达信主图管家 筹码（主图+副图）两破解公式

见图 飞狐指标源码和谐
发送只是为了学习 请作者见谅
 
主图管家 筹码
 
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;