这是主力进场和必涨，两个完美公式合并

VARQ1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VARQ2:=SMA(ABS(LOW-VARQ1),13,1)/SMA(MAX(LOW-VARQ1,0),10,1);
VARQ3:=EMA(VARQ2,10);
VARQ4:=LLV(LOW,33);
VARQ5:=EMA(IF(LOW<=VARQ4,VARQ3,0),3)*100;
主力进场:STICKLINE(VARQ5>REF(VARQ5,1),0,VARQ5,3,0 ),COLORMAGENTA;
VAR1:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*100;
VAR2:=SMA(VAR1,3,1);
VAR3:SMA(VAR2,3,1)*VAR1, LINETHICK1,COLORRED;
VAR4:SMA(VAR3,3,1),LINETHICK1,COLORYELLOW;
VAR9:=CROSS(VAR4,VAR3) AND VAR3>80;
吸筹:=VARQ5>REF(VARQ5,1);
距离天数:=BARSLAST(吸筹);
a0:=0;a1:=0;a2:=0;a3:=0;a4:=0;
a5:=0;a6:=0;a7:=0;a8:=0;a9:=0;
num:=1;
IF 吸筹=1 THEN BEGIN
  a0:=L;
  IF REF(吸筹,1)=1 THEN begin a1:=REF(L,1);num:=num+1; end;
  IF REF(吸筹,2)=1 THEN begin a2:=REF(L,2);num:=num+1; end;
  IF REF(吸筹,3)=1 THEN begin a3:=REF(L,3);num:=num+1; end;
  IF REF(吸筹,4)=1 THEN begin a4:=REF(L,4);num:=num+1; end;
  IF REF(吸筹,5)=1 THEN begin a5:=REF(L,5);num:=num+1; end;
  IF REF(吸筹,6)=1 THEN begin a6:=REF(L,6);num:=num+1; end;
  IF REF(吸筹,7)=1 THEN begin a7:=REF(L,7);num:=num+1; end;
  IF REF(吸筹,8)=1 THEN begin a8:=REF(L,8);num:=num+1; end;
  IF REF(吸筹,9)=1 THEN begin a9:=REF(L,9);num:=num+1; end;
END
ELSE BEGIN
  a0:=REF(L,距离天数);
  IF REF(吸筹,距离天数+1)=1 THEN begin a1:=REF(L,距离天数+1);num:=num+1; end;
  IF REF(吸筹,距离天数+2)=1 THEN begin a2:=REF(L,距离天数+2);num:=num+1; end;
  IF REF(吸筹,距离天数+3)=1 THEN begin a3:=REF(L,距离天数+3);num:=num+1; end;
  IF REF(吸筹,距离天数+4)=1 THEN begin a4:=REF(L,距离天数+4);num:=num+1; end;
  IF REF(吸筹,距离天数+5)=1 THEN begin a5:=REF(L,距离天数+5);num:=num+1; end;
  IF REF(吸筹,距离天数+6)=1 THEN begin a6:=REF(L,距离天数+6);num:=num+1; end;
  IF REF(吸筹,距离天数+7)=1 THEN begin a7:=REF(L,距离天数+7);num:=num+1; end;
  IF REF(吸筹,距离天数+8)=1 THEN begin a8:=REF(L,距离天数+8);num:=num+1; end;
  IF REF(吸筹,距离天数+9)=1 THEN begin a9:=REF(L,距离天数+9);num:=num+1; end;
END;
本次吸筹均价:(a0+a1+a2+a3+a4+a5+a6+a7+a8+a9)/num;
STICKLINE(VAR9,VAR3-5,100,1,1),LINETHICK1,COLORYELLOW;
DRAWTEXT(VAR9 AND COUNT(VAR9,10)=1,VAR3-15,'走'),LINETHICK1,COLORYELLOW;
TD:=(((7 * SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 30),4,1)) - (3 * SMA(SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 30),4,1),3,1))) - SMA(SMA(SMA((((CLOSE - LLV(LOW,27)) / (HHV(HIGH,27) - LLV(LOW,27))) * 30),4,1),3,1),2,1));
V1:=REF(CLOSE,1);
V3:=SMA(MAX(CLOSE-V1,0),12,1)/SMA(ABS(CLOSE-V1),12,1)*100;
V4:=MA(V3,4);
V5:=IF(CROSS(V4,REF(V4,2)) AND V4<32,80,IF(CROSS(REF(V4,2),V4) AND V4>62,20,50));
DRAWTEXT(CROSS(78.89,TD) and V5<50,VAR3-15,'逃顶'),colorred;
DRAWTEXT(CROSS(Var3,8000),VAR3-30,'预警'),coloryellow;
AA:=SMA(ABS(L-REF(L,1)),30,1)/SMA(MAX(L-REF(L,1),0),30,1);
TP:EMA(IF(L<=LLV(L,30),AA,0),3)*1000,COLORFF00FF,LINETHICK2;
{DRAWICON(CROSS(VAR3,VAR4),VAR3,1);}
比率:VAR3/VAR4;
V3日增减:Var3 - ref(var3,1);
V4日增减:Var4 - ref(var4,1);
V比增:VAR3/ VAR4-REF(VAR3,1)/REF(VAR4,1);
tj0:=VAR3<1000;
tj1:=VAR3>0 and VAR4>0 and V3日增减>0 and V4日增减>0;
tj2:=VAR3-REF(VAR3,1)>0 and VAR4-REF(VAR4,1)>0 and V3日增减-REF(V3日增减,1)>0 and V4日增减-REF(V4日增减,1)>0;
tj3:=REF(VAR3,1)-REF(VAR3,2)<0 OR REF(VAR4,1)-REF(VAR4,2)<0   OR REF(V3日增减,1)-REF(V3日增减,2)<0 OR REF(V4日增减,1)-REF(V4日增减,2)<0;
DRAWICON(tj0 and tj1 and tj2 and tj3,VAR3,1);
tj5:=VAR3/REF(VAR3,1)>1;
tj6:=(VAR3 + REF(VAR3,1)+ REF(VAR3,1))/3<100;
XG:tj5 and tj6,linethick0;
DRAWICON(FILTER(XG,5),VAR3,7);
VAR01:=EMA((CLOSE-LLV(LOW,25))/(HHV(HIGH,25)-LLV(LOW,25))*100,5);
VAR02:=(HHV(HIGH,25)-LLV(LOW,25))/EMA((CLOSE-LLV(LOW,25)),5);
VAR03:=CROSS(VAR02,VAR01);
VAR04:=REF(VAR02,2)<REF(VAR02,1) AND VAR02<REF(VAR02,1);
VAR05:=COUNT(VAR03,7)>0 AND VAR04;
VAR06:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR07:=SMA(ABS(LOW-VAR06),13,1)/SMA(MAX(LOW-VAR06,0),10,1);
VAR08:=EMA(VAR07,10);
VAR09:=EMA(C,5);
VAR10:=LLV(LOW,33);
VAR11:=EMA(IF(LOW<=VAR10,VAR09,0),3)*40;
VAR12:=IF(VAR11>100,VAR11*0.312,VAR11);
STICKLINE(VAR05 AND COUNT(VAR05,5)=1,0,VAR12+HHV(TP,10),4,0),COLORRED;
Var59:=1/WINNER(CLOSE);
Var33:=MA(CLOSE,13);
Var34:=100-ABS((CLOSE-Var33)/Var33*100);
Var35:=LLV(LOW,75);
Var36:=HHV(HIGH,75);
Var37:=(Var36-Var35)/100;
Var38:=SMA((CLOSE-Var35)/Var37,20,1);
Var39:=SMA((OPEN-Var35)/Var37,20,1);
VarA3:=3*Var38-2*SMA(Var38,15,1);
VarB3:=3*Var39-2*SMA(Var39,15,1);
VarC3:=100-VarB3;
VarE3:=REF(LOW,1)*0.9;
VarF3:=LOW*0.9;
Var40:=(VarF3*VOL+VarE3*(CAPITAL-VOL))/CAPITAL;
Var41:=EMA(Var40,30);
Var42:=CLOSE-REF(CLOSE,1);
Var43:=MAX(Var42,0);
Var44:=ABS(Var42);
Var45:=SMA(Var43,7,1)/SMA(Var44,7,1)*100;
Var46:=SMA(Var43,13,1)/SMA(Var44,13,1)*100;
Var47:=BARSCOUNT(CLOSE);
Var48:=SMA(MAX(Var42,0),6,1)/SMA(ABS(Var42),6,1)*100;
Var49:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;
Var3A:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
Var3B:=SMA((SMA(Var3A,4,1)-50)*2,3,1);
Var3C:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
Var3D:=SMA(Var3C,4,1);
Var3E:=SMA(Var3D,3,1);
Var3F:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;
Var50:=Var48<=25 AND Var49<-95 AND Var3F>20 AND Var3B<-30 AND Var3E<30 AND Var41-CLOSE>=-0.25 AND Var45<22 AND Var46<28 AND Var47>50;
Var51:=(HIGH+LOW+CLOSE)/3;
Var52:=(Var51-MA(Var51,14))/(0.015*AVEDEV(Var51,14));
Var53:=(Var51-MA(Var51,70))/(0.015*AVEDEV(Var51,70));
Var54:=IF(Var52>=150 AND Var52<200 AND Var53>=150 AND Var53<200,10,0);
Var55:=IF(Var52<=-150 AND Var52>-200 AND Var53<=-150 AND Var53>-200,-10,Var54);
绝处逢生: IF(Var53>=200 AND Var52>=150,15,IF(Var53<=-200 AND Var52<=-150,-15,Var55))+50,LINETHICK1,CROSSDOT,colorWHITE;
Var56:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
Var57:=REVERSE(Var56);
Var58:=SMA(Var56,3,1);
波段王: SMA(Var58,3,1),colorFF10FF,linethick0;
波段鬼: SMA(波段王,3,1),colorWHITE,linethick0;
低吸: IF(CROSS(波段王,波段鬼) AND 波段王<50,25,0),stick,linethick3,COLORRED;
DRAWTEXT(CROSS(波段王,波段鬼) AND 波段王<50,25,'低吸'),linethick1,COLORWHITE;
VarF:=100-3*SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1);
Var19:=100-3*SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1);
Var20:=VarF<REF(Var19,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(Var20 AND COUNT(Var20,30)=1,45,'大资金活动'),linethick2,COLOR0000ff;
大资金:IF(Var20 AND COUNT(Var20,30)=1,30,0),stick,LINETHICK2,COLOR0000ff;
Var1:=(CLOSE*2+HIGH+LOW)/4*10;
Var2:=EMA(Var1,13)-EMA(Var1,34);
Var3:=EMA(Var2,5);
Var4:=2*(Var2-Var3)*5.5;
主力撤: IF(Var4<=0,Var4,0),colorWHITE;
主力进: IF(Var4>=0,Var4,0),linethick2,COLOR0000ff;
Var5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
Var6:=EMA(3*Var5-2*SMA(Var5,18,1),5);
Va