[PEL] 复制代码
INPUT:ss(1,1,500,1);
永久日:=1391212;
永久:=IF(DATE<永久日,1,DRAWNULL);
主力持仓:EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3)*永久,COLORMAGENTA,LINETHICK2;
警戒线: 80*永久,COLORYELLOW;
XIAO1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1)*永久;
XIAO2:=SMA(ABS(LOW-XIAO1),13,1)/SMA(MAX(LOW-XIAO1,0),10,1)*永久;
XIAO3:=EMA(XIAO2,10)*永久;
XIAO4:=LLV(LOW,33)*永久;
XIAO5:=EMA(IF(LOW<=XIAO4,XIAO3,0),3)*永久;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,3,0 )*永久,COLOR000055;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,2.6,0 )*永久,COLOR000077;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,2.1,0 )*永久,COLOR000099;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,1.5,0 )*永久,COLOR0000BB;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,0.9,0 )*永久,COLOR0000DD;
STICKLINE(XIAO5>REF(XIAO5,1),0,XIAO5,0.3,0 )*永久,COLOR0000FF;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,3,0)*永久,COLOR005500;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,2.6,0)*永久,COLOR007700;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,2.1,0)*永久,COLOR009900;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,1.5,0)*永久,COLOR00BB00;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,0.9,0)*永久,COLOR00DD00;
STICKLINE(XIAO5<REF(XIAO5,1),0,XIAO5,0.3,0)*永久,COLOR00FF00;
主力出没:IF(XIAO5>REF(XIAO5,1),XIAO5,0)*永久,COLORRED,NODRAW;
洗盘:IF(XIAO5<REF(XIAO5,1),XIAO5,0)*永久,COLORGREEN,NODRAW;
VAR1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2))*永久;
VARD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2))*永久;
VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2))*永久;
VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2))*永久;
VAR10:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2))*永久;
VAR11:=(REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2))*永久;
VAR12:=(REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2))*永久;
VAR13:=(REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2))*永久;
VAR14:=(REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2))*永久;
VAR15:=(REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2))*永久;
VAR16:=(REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2))*永久;
VAR17:=(REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2))*永久;
VAR18:=(REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2))*永久;
VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26)*永久;
DEA:=EMA(DIFF,9)*永久,COLORFFFF00;
MACD:=(DIFF-DEA)*2*永久;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1))*永久;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1))*永久;
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF> REF(DIFF,A1+1) AND CROSS(DIFF,DEA)*永久;
顶背离:=REF(CLOSE,A2+1)< CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF)*永久;
④:IF(底背离,57,0),LINETHICK3,COLORBROWN;
DRAWTEXT(底背离,15,'←MACD 底背离')*永久,COLORWHITE;
DRAWTEXT(顶背离,70,'←MACD 顶背离'),COLORGREEN;
buy(XIAO5>REF(XIAO5,1),ss,market);