N:=10;
T1:=CONST(HHVBARS(V,10)),COLOR0000FF,LINETHICK1;
低离线:=-20;
高离线:=40;
gsptC2:=CLOSE/REF(CLOSE,1)>=1.095 AND CLOSE/REF(CLOSE,1)<=1.105 OR (CLOSE/REF(CLOSE,1)>=1.195 AND CLOSE/REF(CLOSE,1)<=1.205) OR (CLOSE/REF(CLOSE,1)>=1.295 AND CLOSE/REF(CLOSE,1)<=1.305) AND CLOSE=HIGH;
STICKLINE(gsptC2,OPEN,CLOSE,1,0),COLORMAGENTA;
DRAWTEXT(gsptC2,H*1.026,' '),COLORYELLOW;
gspt1:=(3*CLOSE+OPEN+HIGH+LOW)/6;
控盘度:=(EMA(gspt1,12)-REF(EMA(gspt1,36),1))/REF(EMA(gspt1,36),1)*100+50,NODRAW;
章鱼哥13:=0.01*EMA(AMOUNT,13)/EMA(VOL,13);
高度控盘:(CLOSE-章鱼哥13)/章鱼哥13*1000,NODRAW;
换手:=VOL/CAPITAL*100;
gspt5:=IF(CODELIKE('688'),0,1);
gspt6:=COST(85);
gspt7:=COST(15);
gspt8:=gspt6-gspt7;
gspt9:=(gspt6+gspt7)/2;
筹码:=gspt8/gspt9*100< 30,LINETHICK0;
gspt10:=HHV(HIGH,250);
gspt11:=LLV(LOW,250);
gspt12:=gspt10-gspt11;
gspt13:=(gspt9-gspt11);
比例:=gspt9< (gspt12*04+gspt11),LINETHICK0;
吸筹结束:=筹码 AND 比例;
gspt15:=C/REF(C,1)>1.04;
主力持仓%:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),3);
主力持仓:=主力持仓%>=75 AND C>0 AND CLOSE>OPEN;
跟庄:=FILTER(主力持仓 AND 吸筹结束 AND gspt13 AND WINNER(C)>=0.90 AND gspt15 AND C/REF(C,1)>1.092 AND C=H AND C< 40 AND gspt5 AND 换手< 20 ,10),NODRAW;
短线成本线:EMA(CLOSE,5),LINETHICK1,COLORWHITE DOTLINE;
A:=(3*C+L+O+H)/6;
DRAWTEXT_FIX(C>O,0,0.07,0,'分析家公式网http://www.70822.com'),COLOR333333;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
中线成本线:EMA(X,34),LINETHICK2,COLORRED;
STICKLINE(跟庄,O,C,1,0),COLORFF0080;
X_1:=REF(CLOSE,1)/REF(CLOSE,2)>1.095;
X_2:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>9.9 AND (CLOSE-REF(CLOSE,3))/REF(CLOSE,3)*100< 31 AND (CLOSE-REF(CLOSE,4))/REF(CLOSE,4)*100< 40;
X_3:=X_1 AND X_2 AND CLOSE< 16 AND REF(VOL/CAPITAL*100,1)< 25 AND MA(CLOSE,5)>MA(CLOSE,10) AND MA(CLOSE,10)>MA(CLOSE,21) AND MA(CLOSE,5)>MA(CLOSE,34) AND VOL<=REF(VOL,1)*3.1 AND (CLOSE-REF(CLOSE,9))/REF(CLOSE,9)*100< 50 AND (CLOSE-REF(CLOSE,7))/REF(CLOSE,7)*100< 50 AND (CLOSE-REF(CLOSE,12))/REF(CLOSE,12)*100< 150 AND REF(VOL/CAPITAL*100,0)< 30 AND REF(VOL/CAPITAL*100,2)< 45 AND MA(CLOSE,3)>MA(CLOSE,5);
DIFF:= EMA(CLOSE,9) - EMA(CLOSE,26);
DEA:= EMA(DIFF,12);
MACD:= 2*(DIFF-DEA);
ZC:=50*(IF(MACD>REF(MACD,1) AND REF(MACD,1)>0 AND REF(MACD,2)>REF(MACD,1),0.2,0));
去昨天:=IF(REF((H-MAX(C,O))/ABS(C-O)>1,1),0,1);
开始控盘:=BARSLASTCOUNT(高度控盘>0 AND 高度控盘>=50)=1 AND MACD.MACD>0 AND ZC AND 去昨天;
STICKLINE(开始控盘,C,O,2,0),COLORYELLOW;
DRAWICON(开始控盘,L*1.002,9);
DRAWTEXT(开始控盘,L*0.93,' ↖跟庄'),COLORRED;
