日:=50;昨前:=3;   
高1:=REF(HHV(H,日),昨前);   
低1:=REF(LLV(L,日),昨前);   
H1:=高1-(高1-低1)*0.191;   
H2:=高1-(高1-低1)*0.382;   
H3:=高1-(高1-低1)*0.5;   
H4:=高1-(高1-低1)*0.618;   
H5:=高1-(高1-低1)*0.809;   
L1:=低1+(高1-低1)*1.191;   
L2:=低1+(高1-低1)*1.382;   
L3:=低1+(高1-低1)*1.5;   
L4:=低1+(高1-低1)*1.618;   
L5:=低1+(高1-低1)*1.809;   
短压:REFDATE(高1,DATE),COLORGREEN,LINETHICK1;  
支撑19.1%:REFDATE(H1,DATE),COLORYELLOW;   
支撑38.2%:REFDATE(H2,DATE),COLORMAGENTA;   
支撑50%:REFDATE(H3,DATE),COLORLIGRAY;   
支撑61.8%:REFDATE(H4,DATE),COLORWHITE,LINETHICK1;   
支撑80.9%:REFDATE(H5,DATE),COLORWHITE;   
低:REFDATE(低1,DATE),COLORWHITE;   
阻力119.1%:REFDATE(L1,DATE),COLORYELLOW;   
阻力138.2%:REFDATE(L2,DATE),COLORMAGENTA;   
阻力150%:REFDATE(L3,DATE),COLORLIGRAY;   
阻力161.8%:REFDATE(L4,DATE),COLORRED;   
阻力180.9%:REFDATE(L5,DATE),COLORWHITE;


N:=30;
垂点:=REFDATE(HHV(H,N)/1.01,DATE);
DRAWTEXT(CURRBARSCOUNT=N,垂点,'深海幽灵'),COLORDDDD00;
{网均线}


网1:EXPMA(CLOSE,5),COLORWHITE;
网2:EXPMA(CLOSE,12),POINTDOT;
网3:EXPMA(CLOSE,33),COLORFF00FF,LINETHICK3;

IF(网3<REF(网3,1),网3,DRAWNULL),COLOR00FF00,LINETHICK3;
IF(网3<REF(网1,1),网1,DRAWNULL),COLORWHITE,LINETHICK1;
IF(网1<REF(网3,1),网1,DRAWNULL),COLORGREEN,LINETHICK1;
{提示}

DRAWTEXT(ISLASTBAR,短压,'短压'),COLORWHITE;

DRAWTEXT(ISLASTBAR,低,'低'),COLORWHITE;
DRAWTEXT(ISLASTBAR,支撑19.1%,'支撑19.1%'),COLORWHITE;
DRAWTEXT(ISLASTBAR,支撑38.2%,'支撑38.2%'),COLORWHITE;
DRAWTEXT(ISLASTBAR,支撑50%,'支撑50%'),COLORWHITE;
DRAWTEXT(ISLASTBAR,支撑80.9%,'支撑80.9%'),COLORWHITE;
DRAWTEXT(ISLASTBAR,阻力119.1%,'阻力119.1%'),COLORWHITE;



STICKLINE(CURRBARSCOUNT=1,低,低,1000,-1),COLORWHITE;

STICKLINE(CURRBARSCOUNT=1,短压,短压,1000,-1),COLORGREEN;

STICKLINE(CURRBARSCOUNT=1,支撑19.1%,支撑19.1%,1000,-1),COLORWHITE;

STICKLINE(CURRBARSCOUNT=1,支撑38.2%,支撑38.2%,1000,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=1,支撑50%,支撑50%,1000,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=1,支撑61.8%,支撑61.8%,1000,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=1,支撑80.9%,支撑80.9%,1000,-1),COLORWHITE;
STICKLINE(CURRBARSCOUNT=1,阻力119.1%,阻力119.1%,1000,-1),COLORYELLOW;