神话缔造

input:N(3,1,111);
A1:=BARSTATUS = 2;
A2:=(REF(HIGH,N)) = (HHV(HIGH,((2 * N) + 1)));
A3:=BACKSET(A2,(N + 1));
A4:=(FILTER(A3,N)) AND (HIGH = (HHV(HIGH,(N + 1))));
A5:=(REF(LOW,N)) = (LLV(LOW,((2 * N) + 1)));
A6:=BACKSET(A5,(N + 1));
A7:=(FILTER(A6,N)) AND (LOW = (LLV(LOW,(N + 1))));
A8:=A1 AND (REF(A4,BARSLAST(A4)));
A9:=BACKSET(A8,(BARSLAST(A4) + 1));
A10:=A9 > (REF(A9,1));
A11:=REF(BARSLAST(A4),1);
A12:=BACKSET(A10,(A11 + 2));
A13:=A12 > (REF(A12,1));
A14:=BACKSET(A13,(A11 + 2));
A15:=A14 > (REF(A14,1));
A16:=BACKSET(A15,(A11 + 2));
A17:=A16 > (REF(A16,1));
DRAWLINE(A13,HIGH,A10,HIGH,1),colorMagenta;
DRAWLINE(A15,HIGH,A13,HIGH,1),colorMagenta;
DRAWLINE(A17,HIGH,A15,HIGH,1),colorMagenta;
DRAWLINE(A10,HIGH,(REF(A10,1)),(REF(HIGH,1)),1),linethick2,colorYellow;
A18:=A1 AND (REF(A7,BARSLAST(A7)));
A19:=BACKSET(A18,(BARSLAST(A7) + 1));
A20:=A19 > (REF(A19,1));
A21:=REF(BARSLAST(A7),1);
A22:=BACKSET(A20,(A21 + 2));
A23:=A22 > (REF(A22,1));
A24:=BACKSET(A23,(A21 + 2));
A25:=A24 > (REF(A24,1));
A26:=BACKSET(A25,(A21 + 2));
A27:=A26 > (REF(A26,1));
DRAWLINE(A23,LOW,A20,LOW,1),colorGreen;
DRAWLINE(A25,LOW,A23,LOW,1),colorGreen;
DRAWLINE(A27,LOW,A25,LOW,1),colorGreen;
DRAWLINE(A20,LOW,(REF(A20,1)),(REF(LOW,1)),1),linethick2,colorWhite;
神:(((EMA(CLOSE,3)) + (EMA(CLOSE,6))) + (EMA(CLOSE,9))) / 3,colorRed;
话:(((EMA(CLOSE,5)) + (EMA(CLOSE,10))) + (EMA(CLOSE,15))) / 3,colorRed;
缔:(((EMA(CLOSE,7)) + (EMA(CLOSE,14))) + (EMA(CLOSE,21))) / 3,colorRed;
造:(((EMA(CLOSE,9)) + (EMA(CLOSE,18))) + (EMA(CLOSE,27))) / 3,colorRed;
神;
神 > 造,align0,linethick0,colorRed;
神 < 造,align0,linethick0,colorGreen;
话;
话 > 造,align0,linethick0,colorRed;
话 < 造,align0,linethick0,colorGreen;
缔;
缔 > 造,align0,linethick0,colorRed;
缔 < 造,align0,linethick0,colorGreen;
造;
神 > 造,align0,linethick0,colorRed;
神 < 造,align0,linethick0,colorGreen;