{镇宅之宝--副图}
M1:=HIGH;
M2:=CLOSE;
M3:=LOW;
GHCZS1:=3*SMA((M2-LLV(M3,55))/(HHV(M1,55)-LLV(M3,55))*100,6,1)-2*SMA(SMA((M2-LLV(M3,55))/(HHV(M1,55)-LLV(M3,55))*100,6,1),5,1);
GHCZS2:=EMA(3*SMA((M2-LLV(M3,21))/(HHV(M1,21)-LLV(M3,21))*100,21,1)-2*SMA(SMA((M2-LLV(M3,21))/(HHV(M1,21)-LLV(M3,21))*100,21,1),21,1),21);
GHCZS3:=3*SMA((M2-LLV(M3,89))/(HHV(M1,89)-LLV(M3,89))*100,20,1)-2*SMA(SMA((M2-LLV(M3,89))/(HHV(M1,89)-LLV(M3,89))*100,20,1),15,1);
GHCZS4:=3*SMA((OPEN-LLV(M3,55))/(HHV(M1,55)-LLV(M3,55))*100,20,1)-2*SMA(SMA((OPEN-LLV(M3,55))/(HHV(M1,55)-LLV(M3,55))*100,20,1),15,1);
GHCZS5:=3*SMA((OPEN-LLV(M3,89))/(HHV(M1,89)-LLV(M3,89))*100,20,1)-2*SMA(SMA((OPEN-LLV(M3,89))/(HHV(M1,89)-LLV(M3,89))*100,20,1),15,1);
GHCZS6:=GHCZS4-100;
GHCZS7:=GHCZS5-100;
GHCZS8:=100-EMA(3*SMA((M2-LLV(M3,55))/(HHV(M1,55)-LLV(M3,55))*100,5,3)-2*SMA((M2-LLV(M3,55))/(HHV(M1,55)-LLV(M3,55))*100,5,3),5);
GHCZS9:=EMA(3*SMA((M2-LLV(M3,55))/(HHV(M1,55)-LLV(M3,55))*100,5,3)-2*SMA((M2-LLV(M3,55))/(HHV(M1,55)-LLV(M3,55))*100,5,3),5);
GHCZS10:=FORCAST((-1)*GHCZS7,21);
GHCZS11:=GHCZS2+MA(M2,5);
GHCZS12:=NOT(NAMELIKE(1) OR NAMELIKE(2) OR CODELIKE(3));
GHCZS13:=NOT(NAMELIKE(1) OR NAMELIKE(2) OR CODELIKE(4) OR CODELIKE(3));
镇宅之宝:GHCZS2<30 AND GHCZS10>GHCZS8 AND CROSS(GHCZS9,GHCZS2) AND MA(M2,60)/M2>1.2 AND GHCZS8>70 AND GHCZS12=1,COLOR8000FF,LINESTICK;
DRAWTEXT(镇宅之宝,0.6,' ※镇宅之宝现身'),COLOR00FFFF;
