{【金牌短线战法1】主图------ 皓首}

input: 粘合度(10,1,30);//调整参数获得满意的粘合度

{-----------------------☆功能开关------------------------}
{线}
短13:ema(C,13),LINETHICK,PRECISION2,COLORWHITE;
中77:ema(C,77),LINETHICK,PRECISION2,ColorF6B7FF;
长99:ema(C,99),LINETHICK,PRECISION2,Color0098FF;
G_x1:=(3*C+2*O+L+H)/7;
MA5:REF(ema(G_x1,5),1),LINETHICK,PRECISION2,COLORYELLOW;
{粘合区}
A:=MAX(MAX(短13,中77),长99);
B:=MIN(MIN(短13,中77),长99);
粘合:=if(RANGE(100*(A-B)/B,0,0.1*粘合度),1,0);
{信号部分}
M_x1:=MA(HHV(H,485),17);     M_x2:=MA(HHV(H,222),17);    M_x3:=MA(HHV(H,96),17);   
M_x4:=MA(LLV(L,485),17);     M_x5:=MA(LLV(L,222),17);    M_x6:=MA(LLV(L,96),17);
M_xA:=MA((M_x1*0.558+M_x2*0.558+M_x2*0.558+M_x4*0.96+M_x5*0.96+M_x6*0.96)/6,17);
M_xB:=MA((M_x1*0.55+M_x2*0.55+M_x2*0.65+M_x4*1.25+M_x5*1.23+M_x6*1.2)/6,17);
M_xC:=MA((M_x1*0.68+M_x2*0.68+M_x2*0.68+M_x4*1.3+M_x5*1.3+M_x6*1.3)/6,17);
A_A:=MA((M_xA*3+M_xB*2+M_xC)/6*1.738,17);  B_B:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1)*100;
C_C:=MA(IF(C*1.35<=A_A,B_B*10,B_B/10),3);  D_D:=MA(IF(L<=LLV(L,13),(HHV(C_C,30)+B_B*2)/2,0),3)/200;
C_D1:=(3*C+2*O+L+H)/7;      C_D2:=REVERSE(C_D1)+2*WMA(C_D1,5);      C_D3:=3*C_D2-2*SMA(C_D2,2,1);    预选:=CROSS(C,C_D3) and D_D;
低吸养马:=粘合&&预选;
Y_0:=C>REF(C,1)&&C>REF(C,2);   Y_1:=C<REF(C,1)&&C<REF(C,2);  Y_2:=REF(Y_1,1)&&C>=REF(C,1)&&C<=REF(C,2);
Y_3:=REF(Y_2,1)&&C<=REF(C,1)&&C>=REF(C,2);  Y_4:=REF(Y_3,1)&&C>=REF(C,1)&&C<=REF(C,2);  Y_5:=REF(Y_4,1)&&C<=REF(C,1)&&C>=REF(C,2);
Y_6:=REF(Y_5,1)&&C>=REF(C,1)&&C<=REF(C,2);  Y_7:=REF(Y_6,1)&&C<=REF(C,1)&&C>=REF(C,2);  Y_8:=REF(Y_7,1)&&C>=REF(C,1)&&C<=REF(C,2);
Y_9:=REF(Y_8,1)&&C<=REF(C,1)&&C>=REF(C,2);  Y_10:=REF(Y_9,1)&&C>=REF(C,1)&&C<=REF(C,2); Y_11:=REF(Y_10,1)&&C<=REF(C,1)&&C>=REF(C,2);
Y_12:=REF(Y_11,1)&&C>=REF(C,1)&&C<=REF(C,2);
Y_13:=Y_0&&REF(Y_1Y_2Y_3Y_4Y_5Y_6Y_7Y_8Y_9Y_10Y_11Y_12,1);
P_1:=INDEXC>REF(sum(INDEXV*(INDEXO+INDEXC*3+INDEXL+INDEXH)/6,5)/sum(INDEXV,5),1);  P_2:=((COUNT(P_1,BARSLAST(P_1=0))=1)&&P_1);  
P_3:=((COUNT(P_1=0,BARSLAST(P_1))=1)&&P_1=0);  P_4:=(SUM(P_3,BARSLAST(P_2))=0)*BARSLAST(P_2);
P_5:=P_4>0&&P_4<3 or P_2 or Y_13;  M_1:=中77>=ref(中77,1);  M_2:=长99>=ref(长99,1);
DIFF:= EMA(C,12)-EMA(C,26);  DEA:=EMA(DIFF,50);  MACD:=2*(DIFF-DEA)>=ref(2*(DIFF-DEA),1);
X_1:=(C-MA(C,14))/(0.015*AVEDEV(C,14));  X_2:=EMA(EMA(EMA(X_1,2),2),2);  X_3:=EMA(EMA(EMA(X_1,3),2),2);
X_4:=(CROSS(X_2,X_3) OR (X_2>=X_3))&&X_2>=-101&&X_2>=REF(X_2,1)&&REF(X_2,1)<-101;
L_1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9));
L_2:= EMA(EMA(EMA(3*SMA(L_1,3,1)-2*SMA(SMA(L_1,3,1),3,1),2),2),2);  L_3:=L_2>REF(L_2,1) ;
追高买进:=粘合&&FILTER((P_5 or CROSS(C,A))&&粘合,5)&&低吸养马=0&&(M_1M_2)&&MACD&&O<C;  

{-----------------【图解模板】---------------------}
{粘合区}
FILLRGN(粘合,SYSPARAM(4),SYSPARAM(5)),Color004600;
KLINE(o,h,l,c,0);
{线}
PARTLINE(C,长99),Color0098FF;
PARTLINE(C,中77),ColorF6B7FF;
PARTLINE(C,短13),COLORWHITE;
PARTLINE(C,MA5),LINEDOT,COLORYELLOW;
{信号部分}
drawtext(低吸养马,L,' ↑ \n 养 \n 马 \n'),ALIGN,PXDN8,COLORGREEN;
drawtext(追高买进&&低吸养马=0,L,' ↑ \n 训 \n 马 \n'),ALIGN,PXDN8,ColorFF95FF;

//



===================

Copy code{【金牌短线战法2】— MACD副图------ 皓首}

DIFF : EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  : EMA(DIFF,50);
MACD : 2*(DIFF-DEA), COLORSTICK;
短13:=ema(C,13),LINETHICK,PRECISION2,COLORYELLOW;
中77:=ema(C,77),LINETHICK,PRECISION2,ColorF6B7FF;
长99:=ema(C,99),LINETHICK,PRECISION2,Color0098FF;
{粘合区}
A:=MAX(MAX(短13,中77),长99);
B:=MIN(MIN(短13,中77),长99);
粘合:=if(RANGE(100*(A-B)/B,0,2),1,0);
{信号控制}
M_1:=中77>=ref(中77,1);
M_2:=长99>=ref(长99,1);
趋势:= DIFF>MACD or MACD>ref(MACD,1);
信号 :=CROSS(C,A)&&粘合&&趋势&&(M_1M_2)&&O<C;
DRAWTEXT(FILTER(信号,10),0,'★'),ALIGN,PXDN16,COLORRED;
{选}
X_1:=(C-MA(C,14))/(0.015*AVEDEV(C,14));
X_2:=EMA(EMA(EMA(X_1,2),2),2);
X_3:=EMA(EMA(EMA(X_1,3),2),2);
X_4:=(CROSS(X_2,X_3) OR (X_2>=X_3))&&X_2>=-101&&X_2>=REF(X_2,1)&&REF(X_2,1)<-101;
L_1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9));
L_2:= EMA(EMA(EMA(3*SMA(L_1,3,1)-2*SMA(SMA(L_1,3,1),3,1),2),2),2);
L_3:=L_2>REF(L_2,1) ;
选:X_4&&L_3&&DIFF>ref(DIFF,1)&&(M_1M_2),LINETHICK;
DRAWTEXT(选,0,'★'),ALIGN,PXDN16,COLORGREEN;

//


Copy code{【金牌短线战法3】— 三线粘合副图------ 皓首}
{粘合区}
短13:=ema(C,13);
中77:=ema(C,77);
长99:=ema(C,99);
A:=MAX(MAX(短13,中77),长99);
B:=MIN(MIN(短13,中77),长99);
三线粘合:if(RANGE(100*(A-B)/B,0,粘合度),1,0),ColorFFFFFF;