Var8k:=Var4k>Var2k*1.11 AND Var3k>Var2k*1.095;
Var9k:=Var2k>Var1k*0.95;
VarAk:=CLOSE/MA(CLOSE,48)*100<73;
VarBk:=CLOSE/MA(CLOSE,50)*100<76;
VarCk:=HIGH>LOW*1.078;
VarDk:=VarCk AND COUNT(VarCk,4)>2;
千年等一回:if((VarDk AND (VarAk OR VarBk) AND Var7k AND Var8k AND Var9k AND CLOSE/COST(8)<=0.81  AND (CLOSE>OPEN OR CLOSE<OPEN) AND (REF(CLOSE,1)>REF(OPEN,1) OR REF(CLOSE,1)<REF(OPEN,1))),90,0),stick,linethick5,coloryellow;
drawtext(千年等一回,85,'千年等一回'),color00ff00;


============================
{惊天动地}
Var1h:=(CLOSE-LLV(LOW,19))/(HHV(HIGH,19)-LLV(LOW,19))*100;
Var2h:=SMA(Var1h,3,1);
Var3h:=SMA(Var2h,5,1);
Var4h:=3*Var2h-2*Var3h;
Var5h:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
Var6h:=SMA(Var5h,3,1);
Var7h:=SMA(Var6h,3,1);
Var8h:=3*Var6h-2*Var7h;
Var9h:="BOLL"(26,2);
VarAh:="MACD"(26,12,9);
VarBh:="CYS";
VarCh:=IF(DATE>1300415,0,1);
VarDh:=REF(VarBh,1)<-17.5 AND REF(VarBh,1)>-36 AND CLOSE*VarCh<10 AND CLOSE*VarCh/REF(CLOSE,1)>0.935 AND CROSS(Var4h,Var6h);