奇幻旅程
input:N1(3,1,360), N2(5,1,360), N3(8,1,360), N4(13,1,360), N5(21,1,360), N6(34,1,360);
DIFF:=EMA(CLOSE,N3)-EMA(CLOSE,N4);
DEA:=EMA(DIFF,N2);
A1:=DIFF>DEA;
RSV1:=(CLOSE-LLV(LOW,N3))/(HHV(HIGH,N3)-LLV(LOW,N3))*100;
K:=SMA(RSV1,N1,1);
D:=SMA(K,N1,1);
A2:=K>D;
LC:=REF(CLOSE,1);
RSI1:=(SMA(MAX(CLOSE-LC,0),N2,1))/(SMA(ABS(CLOSE-LC),N2,1))*100;
RSI2:=(SMA(MAX(CLOSE-LC,0),N4,1))/(SMA(ABS(CLOSE-LC),N4,1))*100;
A3:=RSI1>RSI2;
RSV:=-(HHV(HIGH,N4)-CLOSE)/(HHV(HIGH,N4)-LLV(LOW,N4))*100;
LWR1:=SMA(RSV,N1,1);
LWR2:=SMA(LWR1,N1,1);
A4:=LWR1>LWR2;
BBI:=(MA(CLOSE,N1)+MA(CLOSE,N2)+MA(CLOSE,N3)+MA(CLOSE,N4))/4;
A5:=CLOSE>BBI;
MTM:=CLOSE-REF(CLOSE,1);
MMS:=100*EMA(EMA(MTM,N2),N1)/EMA(EMA(ABS(MTM),N2),N1);
MMM:=100*EMA(EMA(MTM,N4),N3)/EMA(EMA(ABS(MTM),N4),N3);
A6:=MMS>MMM;
{FILLRGN(c>0,0,-20),color00bb00;}
STICKLINE(A1 AND A2 AND A3 AND A4 AND A5 AND A6,-15,-10,10,0),COLORYELLOW;
EM3:=EMA(C,3);
EM5:=EMA(C,5);
STICKLINE(EM3>=REF(EM3,1) AND EM3>=EM5,-13,-5,6,0),COLORMAGENTA;
V2:=LLV(LOW,10);
V3:=HHV(HIGH,25);
多:=EMA((CLOSE-V2)/(V3-V2)*4,4)*30;
{FILLRGN(c>0,0,多),color007D2F;}
RSV2:= (HHV(HIGH,11)-CLOSE)/(HHV(HIGH,11)-LLV(LOW,11))*60;
空:=SMA(RSV2,3,1);
慢空:=SMA(空,3,1);
Y:=((HIGH + LOW) / 2);
AO:=(MA(Y,5) - MA(Y,34));DU0:=CROSS(AO,0);
UD0:=CROSS(0,AO);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));
JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0));
JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0));
JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1));
JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1));
JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
DRAWTEXT(JDU2,-8,'空转多'),COLORRED;
DRAWTEXT(JUD2,-8,'多转空'),COLORGREEN;
DRAWTEXT(JDU3,-8,'多续多'),COLORMAGENTA;
DRAWTEXT(JUD3,-8,'空续空'),COLORBLUE;
DRAWICON((JDU1 OR (BARSLAST(JDU1)<BARSLAST(JUD1))),-1,12),ALIGN1,LAYER1;
DRAWICON((JUD1 OR (BARSLAST(JDU1)>BARSLAST(JUD1))),-1,13),ALIGN1,LAYER1;
DRAWICON(CROSS(多,空),-4,7),ALIGN1,LAYER0;{红箭头看多}
DRAWICON(CROSS(空,慢空),-4,8),ALIGN1,LAYER0;{绿箭头看空}
A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=REF(CLOSE,A3+1)>CLOSE AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
DRAWTEXT(B3>0,-6,'底'),align1,COLORcyan,LAYER0;{RSI底背离}
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(CLOSE,C3+1)<CLOSE AND REF("RSI.RSI1",C3)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
DRAWTEXT(D3>0,90,'顶'),align1,COLORMAGENTA;{RSI顶背离}
量能:EMA(100*(CLOSE-LLV(LOW,31))/(HHV(HIGH,31)-LLV(LOW,31)),3)/4,STICK;
stickline(量能,0,量能,8,0),COLORWHITE;
波动线:3*SMA((C-LLV(L,13))/(HHV(H,13)-LLV(L,13))*100,5,1)-2*SMA(SMA((C-LLV(L,13))/(HHV(H,13)-LLV(L,13))
*100,5,1),3,1),COLOR0000FF;
强势:21,COLORblue;{能量强势}
stickline(量能<1,0,30,5,0),colorred;{能量底部考虑出击}
持仓:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),9);
集中度:=EMA(持仓,1);
做多:EMA(集中度,1),colorred,linethick3;
VAR1:=(HHV(HIGH,30)-CLOSE)/(HHV(HIGH,30)-LLV(LOW,36))*100;
做空: SMA(VAR1,3,1),LINETHICK3,COLORGREEN;
弱势区:10,COLORGREEN;
中:50,COLORWHITE,POINTDOT;
强势区:80,COLORF00FF0;
drawtext(cross(做多,做空),做多,'回'),align0,COLORYELLOW;{需要回调}
drawtext(做空<=6,8,'警'),align0,COLORMAGENTA;{空头见底，小心。}
J:="KDJ.J";
BB:=HHV(J,2)=HHV(J,8) AND J>80;
J1:=IF(CROSS(REF(J-0.01,1),J) AND REF(BB,1),1,0);
顶部:IF(J1,90,100),COLOR00aa00;
