金汇计数副图指标(大智慧)

源码正文：

VAR0:=REF(AMOUNT,3)/10000/10000{XG51};
VAR1:=REF(AMOUNT,4)/10000/10000{XG51};
VAR2:=REF(AMOUNT,2)/10000/10000{XG51};
VAR3:=REF(AMOUNT,1)/10000/10000{XG51};
VAR4:=AMOUNT/10000/10000{XG51};
DRAWTEXTAbs(16,8,'统计分类'),COLORRED{XG51};
VAR5:=AMOUNT * BIGORDER(1,3){XG51};
VAR6:=AMOUNT * (BIGORDER(1,2) - BIGORDER(1,3)){XG51};
VAR7:=AMOUNT * (BIGORDER(1,1) - BIGORDER(1,2)){XG51};
VAR8:=AMOUNT * (1 - BIGORDER(1,1)){XG51};
VAR9:=VAR5 + VAR6 + VAR7 + VAR8{XG51};
VAR10:=AMOUNT * BIGORDER(2,3){XG51};
VAR11:=AMOUNT * (BIGORDER(2,2) - BIGORDER(2,3)){XG51};
VAR12:=AMOUNT * (BIGORDER(2,1) - BIGORDER(2,2)){XG51};
VAR13:=AMOUNT * (1 - BIGORDER(2,1)){XG51};
VAR14:=(BIGORDER(1,2) - BIGORDER(2,2)) * vol/CAPITAL * 100{XG51};
VAR15:=BIGORDER(1,2) * AMOUNT/10000{XG51};
VAR16:=BIGORDER(2,2) * AMOUNT/10000{XG51};
主力流入净量:VAR15 - VAR16,LINETHICK0,COLOR00AAFF{XG51};
VAR17:=REF(VAR15,0){XG51};
VAR18:=REF(VAR15,1){XG51};
VAR19:=REF(VAR15,2){XG51};
VAR20:=REF(VAR15,3){XG51};
VAR21:=REF(VAR15,5){XG51};
VAR22:=REF(VAR16,0){XG51};
VAR23:=REF(VAR16,1){XG51};
VAR24:=REF(VAR16,2){XG51};
VAR25:=REF(VAR16,3){XG51};
VAR26:=REF(VAR16,4){XG51};
DRAWTEXTABS(8,35,'主 力 账 户'),COLORRED{XG51};
DRAWTEXTABS(8,60,'超 大 账 户'),COLORRED{XG51};
DRAWTEXTABS(8,85,'大 户 账 户'),COLORRED{XG51};
DRAWTEXTABS(8,110,'中 户 账 户'),COLORRED{XG51};
DRAWTEXTABS(8,135,'散 户 账 户'),COLORRED{XG51};
DRAWTEXTABS(5,165,'股价涨幅（%）'),COLORRED{XG51};
DRAWTEXTABS(16,190,'' + stKNAME + ''),COLORRED{XG51};
DRAWTEXTABS(78,190,'' + STKLABEL + ''),COLORWHITE{XG51};
VAR27:=BKNAME{XG51};
VAR28:=' 板块类别: ' + VAR27{XG51};
DRAWTEXTABS(140,190,VAR28),COLORRED{XG51};
DRAWTEXTABS(130,190,'*智汇者内部参考*'),COLOR088FFF{XG51};
DRAWTEXTABS(515,60,'' + SUM(REF(VAR5 - VAR10,0)/10000,2) + ''),COLORRED{XG51};
DRAWTEXTABS(625,60,'' + SUM(REF(VAR5 - VAR10,0)/10000,3) + ''),COLORRED{XG51};
DRAWTEXTABS(735,60,'' + SUM(REF(VAR5 - VAR10,0)/10000,4) + ''),COLORRED{XG51};
DRAWTEXTABS(845,60,'' + SUM(REF(VAR5 - VAR10,0)/10000,5) + ''),COLORRED{XG51};
DRAWTEXTABS(515,85,'' + SUM(REF(VAR6 - VAR11,0)/10000,2) + ''),COLORRED{XG51};
DRAWTEXTABS(625,85,'' + SUM(REF(VAR6 - VAR11,0)/10000,3) + ''),COLORRED{XG51};
DRAWTEXTABS(735,85,'' + SUM(REF(VAR6 - VAR11,0)/10000,4) + ''),COLORRED{XG51};
DRAWTEXTABS(845,85,'' + SUM(REF(VAR6 - VAR11,0)/10000,5) + ''),COLORRED{XG51};
DRAWTEXTABS(515,110,'' + SUM(REF(VAR7 - VAR12,0)/10000,2) + ''),COLORRED{XG51};
DRAWTEXTABS(625,110,'' + SUM(REF(VAR7 - VAR12,0)/10000,3) + ''),COLORRED{XG51};
DRAWTEXTABS(735,110,'' + SUM(REF(VAR7 - VAR12,0)/10000,4) + ''),COLORRED{XG51};
DRAWTEXTABS(845,110,'' + SUM(REF(VAR7 - VAR12,0)/10000,5) + ''),COLORRED{XG51};
DRAWTEXTABS(515,135,'' + SUM(REF(VAR8 - VAR13,0)/10000,2) + ''),COLORRED{XG51};
DRAWTEXTABS(625,135,'' + SUM(REF(VAR8 - VAR13,0)/10000,3) + ''),COLORRED{XG51};
DRAWTEXTABS(735,135,'' + SUM(REF(VAR8 - VAR13,0)/10000,4) + ''),COLORRED{XG51};
DRAWTEXTABS(845,135,'' + SUM(REF(VAR8 - VAR13,0)/10000,5) + ''),COLORRED{XG51};
DRAWTEXTABS(515,35,'' + SUM(REF(VAR17 - VAR22,0),2) + ''),COLORRED{XG51};
DRAWTEXTABS(625,35,'' + SUM(REF(VAR17 - VAR22,0),3) + ''),COLORRED{XG51};
DRAWTEXTABS(735,35,'' + SUM(REF(VAR17 - VAR22,0),4) + ''),COLORRED{XG51};
DRAWTEXTABS(845,35,'' + SUM(REF(VAR17 - VAR22,0),5) + ''),COLORRED{XG51};
DRAWTEXTABS(485,8,'连续2日总计(万元)'),COLOR088FFF{XG51};
DRAWTEXTABS(705,8,'连续4日总计(万元)'),COLOR088FFF{XG51};
DRAWTEXTABS(595,8,'连续3日总计(万元)'),COLOR088FFF{XG51};
DRAWTEXTABS(815,8,'连续5日总计(万元)'),COLOR088FFF{XG51};
DRAWTEXTABS(502,163,'2日：' + SUM((CLOSE - REF(CLOSE,1))/REF(CLOSE,1) * 100,2) + '%'),COLORRED{XG51};
DRAWTEXTABS(612,163,'3日：' + SUM((CLOSE - REF(CLOSE,1))/REF(CLOSE,1) * 100,3) + '%'),COLORRED{XG51};
DRAWTEXTABS(722,163,'4日：' + SUM((CLOSE - REF(CLOSE,1))/REF(CLOSE,1) * 100,4) + '%'),COLORRED{XG51};
DRAWTEXTABS(832,163,'5日：' + SUM((CLOSE - REF(CLOSE,1))/REF(CLOSE,1) * 100,5) + '%'),COLORRED{XG51};
DRAWTEXTABS(385,60,'超大：' + NUMTOSTRN(REF(VAR5 - VAR10,0)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(320,60,NUMTOSTRN(REF(VAR5 - VAR10,1)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(220,60,NUMTOSTRN(REF(VAR5 - VAR10,2)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(120,60,NUMTOSTRN(REF(VAR5 - VAR10,3)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(385,85,'大户：' + NUMTOSTRN(REF(VAR6 - VAR11,0)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(320,85,NUMTOSTRN(REF(VAR6 - VAR11,1)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(220,85,NUMTOSTRN(REF(VAR6 - VAR11,2)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(120,85,NUMTOSTRN(REF(VAR6 - VAR11,3)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(385,110,'中户：' + NUMTOSTRN(REF(VAR7 - VAR12,0)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(320,110,NUMTOSTRN(REF(VAR7 - VAR12,1)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(220,110,NUMTOSTRN(REF(VAR7 - VAR12,2)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(120,110,NUMTOSTRN(REF(VAR7 - VAR12,3)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(385,135,'散户：' + NUMTOSTRN(REF(VAR8 - VAR13,0)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(320,135,NUMTOSTRN(REF(VAR8 - VAR13,1)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(220,135,NUMTOSTRN(REF(VAR8 - VAR13,2)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(120,135,NUMTOSTRN(REF(VAR8 - VAR13,3)/10000,0)),COLORRED{XG51};
DRAWTEXTABS(385,35,'主力：' + NUMTOSTRN(VAR17 - VAR22,0)),COLORRED{XG51};
DRAWTEXTABS(320,35,NUMTOSTRN(VAR18 - VAR23,0)),COLORRED{XG51};
DRAWTEXTABS(220,35,NUMTOSTRN(VAR19 - VAR24,0)),COLORRED{XG51};
DRAWTEXTABS(120,35,NUMTOSTRN(VAR20 - VAR25,0)),COLORRED{XG51};
DRAWTEXTABS(385,163,'涨幅：' + NUMTOSTRN((CLOSE - REF(CLOSE,1))/REF(CLOSE,1) * 100,2) + '%'),COLORRED{XG51};
DRAWTEXTABS(315,163,NUMTOSTRN((REF(CLOSE,1) - REF(CLOSE,2))/REF(CLOSE,2) * 100,2) + '%'),COLORRED{XG51};
DRAWTEXTABS(215,163,NUMTOSTRN((REF(CLOSE,2) - REF(CLOSE,3))/REF(CLOSE,3) * 100,2) + '%'),COLORRED{XG51};
DRAWTEXTABS(115,163,NUMTOSTRN((REF(CLOSE,3) - REF(CLOSE,4))/REF(CLOSE,4) * 100,2) + '%'),COLORRED{XG51};
DRAWTEXTABS(83,8,'四日前净买(万元)'),COLOR088FFF{XG51};
DRAWTEXTABS(188,8,'前日净买(万元)'),COLOR088FFF{XG51};
DRAWTEXTABS(289,8,'昨日净买(万元)'),COLOR088FFF{XG51};
DRAWTEXTABS(389,8,'今日净买(万元)'),COLOR088FFF{XG51};
DRAWGBKLAST(1,STRIP(RGB(0,0,0),RGB(30,40,55),0)){XG51};
DRAwrECTABS(0,0,920,210,0),COLOR777777{XG51};
DRAWRECTABS(79,155,920,185,2301560),COLOR777777{XG51};
DRAWRECTABS(0,25,920,156,3614750),COLOR777777{XG51};
DRAWRECTABS(0,79,920,105,3939930),COLOR777777{XG51};
DRAWRECTABS(379,25,480,156,10330),COLOR777777{XG51};
DRAWRECTABS(0,25,80,185,2626650),COLOR777777{XG51};
DRAWRECTABS(0,184,920,210,3614750),COLOR777777{XG51};
DRAWRECTABS(0,0,80,185,0),COLOR777777{XG51};
DRAWRECTABS(0,0,180,185,0),COLOR777777{XG51};
DRAWRECTABS(0,0,280,185,0),COLOR777777{XG51};
DRAWRECTABS(0,0,380,185,0),COLOR777777{XG51};
DRAWRECTABS(0,0,480,185,0),COLOR777777{XG51};
DRAWRECTABS(0,0,590,185,0),COLOR777777{XG51};
DRAWRECTABS(0,0,700,185,0),COLOR777777{XG51};
DRAWRECTABS(0,0,810,185,0),COLOR777777{X!G~5_1!C!N!{};

源码正文：

R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100){XG51};
K:=ema(R,3){XG51};
D:=Ema(K,3){XG51};
一年十二倍:20,colorred{XG51};
陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1){XG51};
N:=IF((陡峭度 > 0.35),6,65){XG51};
VAR1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110)){XG51};
VAR1A:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110)){XG51};
获利盘:=(WINNER(CLOSE))*(100){XG51};
获利线:=FORCAst(获利盘,7){XG51};
线:=(FORCAST(VAR1A,7))*((DATE < 20070110)){XG51};
满仓:=((线 > REF(线,1)) and (线 < 25) and (COUNT((线 > REF(线,1)),5) = 1) and IF((N = 6),(获利盘 < 60),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0))*(40){XG51};
STICKLINE(满仓,0,40,5,0),Color008000{XG51};
DRAWTEXT(满仓,45,'满仓'),ColorWHITE{XG51};
轻仓:=IF((获利盘 >= 60) and (线 > REF(线,1)) and (REF(线,1) < 20) and (线 < 40) and (COUNT((线 > REF(线,1)),5) = 1) and (REF(N,1) = 6),1,0){XG51};
STICKLINE(轻仓,20,D,4,1),ColorFF00FF{XG51};
DRAWTEXT(轻仓,45,'轻仓'),ColorFF00FF{XG51};
出击:=crOSS(线,20) and IF((COUNT(CROSS(K,D),3) = 1) and (D < 40),1,(线 > D) or (K > D) and (D < 60)) and IF((N = 6),(获利盘 < 70),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0){XG51};
STICKLINE(出击,0,50,3,1),Color44BB00{XG51};
DRAWTEXT(出击,55,'出击'),colorred{XG51};
进一:CROSS(线,D) and (D > 30) and (D > REF(D,1)) and (D < 80){XG51};
进二:CROSS(线,获利线) and (D > 30) and (获利线 > 25) and (D > REF(D,1)){XG51};
低进:=IF(进一 and (D > 获利线),进二,进一){XG51};
DRAWTEXT(低进,30,'低进'),ColorWHITE{XG51};
STICKLINE(低进,20,30,3,1),Color000080{XG51};
DRAWTEXT(进二,50,'高进'),Color800080{XG51};
STICKLINE(进二,30,50,3,1),coloryellow{XG51};
狂喜:=(30)*(CROSS(VAR1,(-2))){XG51};
STICKLINE(狂喜,0,20,3,1),coloryellow{XG51};
DRAWTEXT(狂喜,(-5),'要涨停'),coloryellow{XG51};
狂喜过望:=(50)*((VAR1 = 0)){XG51};
恐慌:=(20)*(VAR1 < -94){XG51};
STICKLINE(恐慌,0,(-20),5,0),ColorC1C1C1{XG51};
DRAWTEXT(恐慌,(-25),'恐慌'),ColorC1C1C1{XG51};
极度恐慌:=(-40)*(VAR1 = (-100)){XG51};
STICKLINE(极度恐慌,0,(-40),7,1),Color800000{XG51};
DRAWTEXT(极度恐慌,(-45),'极度恐慌'),ColorGREEN{XG51};
半仓:=(30)*(CROSS(VAR1,(-94)) and (COUNT(恐慌,5) > 0) and (N = REF(N,1)) and IF((N = 6),(获利盘 < 60),(获利盘 < 40)) and (COUNT((获利线 > 20),20) > 0)){XG51};
STICKLINE(半仓,0,30,4,1),ColorFFFF00{XG51};
DRAWTEXT(半仓,35,'半仓'),ColorFFFF00{XG51};
加仓:=(30)*(CROSS(K,20) and (COUNT(半仓,5) > 0)){XG51};
STICKLINE(加仓,0,20,6,1),Color808080{XG51};
DRAWTEXT(加仓,25,'加仓'),Color808080{XG51};
背离:=(COUNT(恐慌,2) > 0) and (CLOSE < REF(CLOSE,1)) and (VAR1 > REF(VAR1,1)){XG51};
DRAWICON(背离,0,1),ColorFFFFFF{X^G=5~1^C^N^{};