〖吸筹控盘高度控盘〗捕捉主力吸筹和中长期控盘为主线源码

	{主图源码如下} ZBGS1F:=INDEXH; ZBGS2A:=INDEXO; ZBGSM6 := 22; ZBGSTA:=INDEXL; ZBGS1J := MA(VOL, 2); ZBGS1Z:=INDEXC; ZBGSQN := CLOSE; ZBGSK0:=INDEXV; ZBGS5J := OPEN - LOW; ZBGSPY:=(3*C+H+L+O)/6; ZBGSZB := CLOSE; IND_G4T := CLOSE - OPEN; ZBGSKA := OPEN - LOW; ZBGSQW:=EMA(ZBGSPY,35); ZBGS57 := OPEN - LOW; ZBGSRA:=(HHV(ZBGSQW,5)+HHV(ZBGSQW,15)+HHV(ZBGSQW,30))/3; ZBGSC5 := OPEN - LOW; ZBGSQR:=(LLV(ZBGSQW,5)+LLV(ZBGSQW,15)+LLV(ZBGSQW,30))/3; ZBGS8Q := OPEN - LOW; ZBGS69:(HHV(ZBGSRA,5)+HHV(ZBGSRA,15)+HHV(ZBGSRA,30))/3,COLORRED; ZBGSDO := OPEN - LOW; ZBGSKQ:=(LLV(ZBGSQR,5)+LLV(ZBGSQR,15)+LLV(ZBGSQR,30))/3; ZBGSS3 := OPEN - LOW; ZBGSA4:=ZBGS1Z/EMA(ZBGS1Z,120); ZBGSLQ:=EMA(EMA(C,120)*ZBGSA4,2),COLORWHITE; ZBGSOJ:=ZBGSPY>=ZBGS69 AND ZBGSPY>=ZBGSLQ; IND_OOQ := MA(CLOSE, 8) - MA(CLOSE, 34); IND_RY4 := (HIGH - LOW) / CLOSE * 100; ZBGSZJ:=ZBGSPY< ZBGS69 AND ZBGSPY>=ZBGSLQ AND ZBGS69>ZBGSLQ; ZBGSB0:=ZBGSPY<=ZBGSLQ AND ZBGSPY<=ZBGS69 OR (ZBGSPY>=ZBGS69 AND ZBGSPY< ZBGSLQ AND ZBGS69< ZBGSLQ); STICKLINE(ZBGSOJ=1,H,L,3,1),COLORLIRED; STICKLINE(ZBGSOJ=1,O,C,3,0),COLORMAGENTA; ZBGSN6:=C>MA(C,60); ZBGSAO:=EMA(C,12)-EMA(C,26); ZBGS58:=EMA(ZBGSAO,9); ZBGS62:=(ZBGSAO-ZBGS58)*2; ZBGSRH:=ZBGS62>0; ZBGSHK:=BARSLASTCOUNT(ZBGSOJ=1 AND ZBGSN6 AND ZBGSRH)=1; ZF:= C/REF(C,1)-1>0.08, COLORRED; DRAWICON(ZBGSHK AND ZF,H,25); DRAWTEXT(ZBGSHK AND ZF,H,'★吸筹控盘'),COLORLIRED; STICKLINE(ZBGSZJ=1,H,L,3,1),COLORMAGENTA; STICKLINE(ZBGSZJ=1,O,C,3,0),COLORMAGENTA; STICKLINE(ZBGSB0=1,H,L,3,1),COLORGREEN; STICKLINE(ZBGSB0=1,O,C,3,0),COLORGREEN; {副图源码如下} X_XY:=CODELIKE('60') OR CODELIKE('00'); X_OB:=CODELIKE('30') OR CODELIKE('68'); X_YM:=CODELIKE('9'); X_OI := MA(VOL, 9); X_S6:=IF(X_XY,0.1,IF(X_OB,0.2,IF(X_YM,0.3,100))); X_49:=C=H AND C>=ZTPRICE(REF(C,1),X_S6); X_2N := MA(VOL, 3); X_OL:=C=L AND C<=DTPRICE(REF(C,1),X_S6); X_SS:=C< H AND H>=ZTPRICE(REF(C,1),X_S6); X_N9 := OPEN - LOW; X_MB:=BARSLASTCOUNT(X_49); X_TY:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,3)+EMA((OPEN+HIGH+LOW+CLOSE)/4,6)+EMA((OPEN+HIGH+LOW+CLOSE)/4,9))/3; X_0E := 21; IND_NCY := REF(CLOSE, 7); X_X1:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,5)+EMA((OPEN+HIGH+LOW+CLOSE)/4,10)+EMA((OPEN+HIGH+LOW+CLOSE)/4,20))/3; X_3X := OPEN - LOW; X_M3:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,7)+EMA((OPEN+HIGH+LOW+CLOSE)/4,14)+EMA((OPEN+HIGH+LOW+CLOSE)/4,28))/3; X_ME:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,9)+EMA((OPEN+HIGH+LOW+CLOSE)/4,18)+EMA((OPEN+HIGH+LOW+CLOSE)/4,36))/3; X_8U := REF(HIGH, 3); X_7W:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,11)+EMA((OPEN+HIGH+LOW+CLOSE)/4,22)+EMA((OPEN+HIGH+LOW+CLOSE)/4,44))/3; X_IA:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,13)+EMA((OPEN+HIGH+LOW+CLOSE)/4,26)+EMA((OPEN+HIGH+LOW+CLOSE)/4,52))/3; X_EW := MA(VOL, 7); X_XC:=(EMA((OPEN+HIGH+LOW+CLOSE)/4,21)+EMA((OPEN+HIGH+LOW+CLOSE)/4,34)+EMA((OPEN+HIGH+LOW+CLOSE)/4,68))/3; X_L2:=FORCAST(X_TY,6); X_JX := CLOSE; X_8H:=FORCAST(X_X1,6); X_HJ:=FORCAST(X_M3,6); X_J5 := CLOSE; X_9G:=FORCAST(X_ME,6); X_2Z:=FORCAST(X_7W,6); X_32 := MA(VOL, 7); X_WW:=FORCAST(X_IA,6); X_TU:=FORCAST(X_XC,6); X_LO := OPEN - LOW; IND_EA8 := SUM(VOL, 3); IND_D98 := HHV(HIGH, 24); X_WH := 57; IF(X_L2>REF(X_L2,1),X_L2,DRAWNULL),POINTDOT,COLORFF00FF; IF(X_L2< REF(X_L2,1),X_L2,DRAWNULL),POINTDOT,COLOR00FF00; X_OV := REF(HIGH, 7); IF(X_8H>REF(X_8H,1),X_8H,DRAWNULL),POINTDOT,COLORFF00FF; IF(X_8H< REF(X_8H,1),X_8H,DRAWNULL),POINTDOT,COLOR00FF00; X_6Z := MA(VOL, 3); IF(X_HJ>REF(X_HJ,1),X_HJ,DRAWNULL),POINTDOT,COLORFF00FF; IF(X_HJ< REF(X_HJ,1),X_HJ,DRAWNULL),POINTDOT,COLOR00FF00; X_0O := MA(VOL, 3); IF(X_9G>REF(X_9G,1),X_9G,DRAWNULL),POINTDOT,COLORFF00FF; IF(X_9G< REF(X_9G,1),X_9G,DRAWNULL),POINTDOT,COLOR00FF00; IF(X_2Z>REF(X_2Z,1),X_2Z,DRAWNULL),POINTDOT,COLORFF00FF; IF(X_2Z< REF(X_2Z,1),X_2Z,DRAWNULL),POINTDOT,COLOR00FF00; IF(X_WW>REF(X_WW,1),X_WW,DRAWNULL),POINTDOT,COLORFF00FF; IF(X_WW< REF(X_WW,1),X_WW,DRAWNULL),POINTDOT,COLOR00FF00; X_ZA:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/7,3),6); X_1C:=MAX(REF(X_ZA,1),REF(X_ZA,1)); X_N5:=MIN(REF(X_ZA,1),REF(X_ZA,1)); STICKLINE(X_ZA>=REF(X_ZA,1),X_ZA,X_1C,4,0),COLORYELLOW; STICKLINE(X_ZA< REF(X_ZA,1),X_ZA,X_N5,4,0),COLORC0C0C0; IF(X_TU>=REF(X_TU,1),X_TU,DRAWNULL),LINETHICK2,COLOR0000FF; IF(X_TU< REF(X_TU,1),X_TU,DRAWNULL),LINETHICK2,COLOR00FFFF; X_Q5:=X_TU>REF(X_TU,1) AND X_ZA>=REF(X_ZA,1); X_KD:=X_TU<=REF(X_TU,1) AND X_ZA< REF(X_ZA,1); X_SX:=BARSLASTCOUNT(X_KD); X_WM:=X_Q5 AND REF(X_Q5,1)=0 AND HHV(X_SX,20)>6; X_Y8:=X_WM AND COUNT(X_WM,20)=1 AND HHV(X_MB,20)< 4 AND X_OL=0 AND X_SS=0 AND C/REF(C,1)< 1.15; ZBGS31F:=INDEXH; ZBGS32A:=INDEXO; ZBGS3M6 := 22; ZBGS3TA:=INDEXL; ZBGS31J := MA(VOL, 2); ZBGS31Z:=INDEXC; ZBGS3QN := CLOSE; ZBGS3K0:=INDEXV; ZBGS35J := OPEN - LOW; ZBGS3PY:=(3*C+H+L+O)/6; ZBGS3ZB := CLOSE; IND_G4T := CLOSE - OPEN; ZBGS3KA := OPEN - LOW; ZBGS3QW:=EMA(ZBGS3PY,35); ZBGS357 := OPEN - LOW; ZBGS3RA:=(HHV(ZBGS3QW,5)+HHV(ZBGS3QW,15)+HHV(ZBGS3QW,30))/3; ZBGS3C5 := OPEN - LOW; ZBGS3QR:=(LLV(ZBGS3QW,5)+LLV(ZBGS3QW,15)+LLV(ZBGS3QW,30))/3; ZBGS38Q := OPEN - LOW; ZBGS369:(HHV(ZBGS3RA,5)+HHV(ZBGS3RA,15)+HHV(ZBGS3RA,30))/3,COLORRED; ZBGS3DO := OPEN - LOW; ZBGS3KQ:=(LLV(ZBGS3QR,5)+LLV(ZBGS3QR,15)+LLV(ZBGS3QR,30))/3; ZBGS3S3 := OPEN - LOW; ZBGS3A4:=ZBGS31Z/EMA(ZBGS31Z,120); ZBGS3LQ:=EMA(EMA(C,120)*ZBGS3A4,2),COLORWHITE; ZBGS3OJ:=ZBGS3PY>=ZBGS369 AND ZBGS3PY>=ZBGS3LQ; IND_OOQ := MA(CLOSE, 8) - MA(CLOSE, 34); IND_RY4 := (HIGH - LOW) / CLOSE * 100; ZBGS3ZJ:=ZBGS3PY< ZBGS369 AND ZBGS3PY>=ZBGS3LQ AND ZBGS369>ZBGS3LQ; ZBGS3B0:=ZBGS3PY<=ZBGS3LQ AND ZBGS3PY<=ZBGS369 OR (ZBGS3PY>=ZBGS369 AND ZBGS3PY< ZBGS3LQ AND ZBGS369< ZBGS3LQ); STICKLINE(ZBGS3OJ=1,H,L,3,1),COLORLIRED; STICKLINE(ZBGS3OJ=1,O,C,3,0),COLORRED; ZBGS3N6:=C>MA(C,60); ZBGS3AO:=EMA(C,12)-EMA(C,26); ZBGS358:=EMA(ZBGS3AO,9); ZBGS362:=(ZBGS3AO-ZBGS358)*2; ZBGS3RH:=ZBGS362>0; ZBGS3HK:=BARSLASTCOUNT(ZBGS3OJ=1 AND ZBGS3N6 AND ZBGS3RH)=1; ZF:= C/REF(C,1)-1>0.08, COLORRED; DRAWICON(ZBGS3HK AND ZF,10,25); DRAWTEXT(ZBGS3HK AND ZF,10,'★吸筹控盘'),COLORYELLOW; {选股源码如下} ZBGS3PY:=(3*C+H+L+O)/6; ZBGS3QW:=EMA(ZBGS3PY,35); ZBGS3RA:=(HHV(ZBGS3QW,5)+HHV(ZBGS3QW,15)+HHV(ZBGS3QW,30))/3; ZBGS369:=(HHV(ZBGS3RA,5)+HHV(ZBGS3RA,15)+HHV(ZBGS3RA,30))/3; ZBGS3A4:=C/EMA(C,120); ZBGS3LQ:=EMA(EMA(C,120)*ZBGS3A4,2); ZBGS3N6:=C>MA(C,60); ZBGS3AO:=EMA(C,12)-EMA(C,26); ZBGS358:=EMA(ZBGS3AO,9); ZBGS362:=(ZBGS3AO-ZBGS358)*2; ZBGS3RH:=ZBGS362>0; {核心共振条件} ZBGS3OJ:=ZBGS3PY>=ZBGS369 AND ZBGS3PY>=ZBGS3LQ; {满足共振条件} ZBGS3HK:=BARSLASTCOUNT(ZBGS3OJ AND ZBGS3N6 AND ZBGS3RH)=1; ZF:= C/REF(C,1)-1>0.08; {最终选股输出} 吸筹控盘: ZBGS3HK AND ZF; 未