n1 3 100 12

VAR2:=HHV(EMA(C,3),N1);
VARB2:LLV(EMA(C,3),N1);
VAR3:=BARSLAST(VAR2>REF(VAR2,1));
VAR4:=IF(VAR3>0,HHV(VAR2,VAR3),VAR2);
VAR5:=VAR4-VAR4*(VAR3-1)*0.318/100;
VAR6:=IF(VAR5>REF(VAR5,1),HHV(MA(C,3),3),VAR5);
V1:IF(VAR6<C*0.85,LLV(C,13)*0.85,VAR6);
VAR7:=VAR4-VAR4*(VAR3-1)*0.618/100;
VAR8:=IF(VAR7>REF(VAR7,1),HHV(MA(C,3),3),VAR7);
V2:IF(VAR8<C*0.85,LLV(C,13)*0.85,VAR8);
VAR9:=VAR4-VAR4*(VAR3-1)*0.918/100;
VARA:=IF(VAR9>REF(VAR9,1),HHV(MA(C,3),3),VAR9);
V3:IF(VARA<C*0.85,LLV(C,13)*0.85,VARA);
VARB:=VAR4-VAR4*(VAR3-1)*1.218/100;
VARC:=IF(VARB>REF(VARB,1),HHV(MA(C,3),3),VARB);
V4:IF(VARC<C*0.85,LLV(C,13)*0.85,VARC);
VARD:=VAR4-VAR4*(VAR3-1)*1.518/100;
VARE:=IF(VARD>REF(VARD,1),HHV(MA(C,3),3),VARD);
V5:IF(VARE<C*0.85,LLV(C,13)*0.85,VARE),CIRCLEDOT,COLOR00FFFF;
VARF:=VAR4-VAR4*(VAR3-1)*1.818/100;
VAR10:=IF(VARF>REF(VARF,1),HHV(MA(C,3),3),VARF);
V6:IF(VAR10<C*0.85,LLV(C,13)*0.85,VAR10);
VAR11:=VAR4-VAR4*(VAR3-1)*2.118/100;
VAR12:=IF(VAR11>REF(VAR11,1),HHV(MA(C,3),3),VAR11);
V7:IF(VAR12<C*0.85,LLV(C,13)*0.85,VAR12);
VAR13:=VAR4-VAR4*(VAR3-1)*2.418/100;
VAR14:=IF(VAR13>REF(VAR13,1),HHV(MA(C,3),3),VAR13);
V8:IF(VAR14<C*0.85,LLV(C,13)*0.85,VAR14);
VAR15:=VAR4-VAR4*(VAR3-1)*2.718/100;
VAR16:=IF(VAR15>REF(VAR15,1),HHV(MA(C,3),3),VAR15);
V9:IF(VAR16<C*0.85,LLV(C,13)*0.85,VAR16);
VAR17:=VAR4-VAR4*(VAR3-1)*3.018/100;
VAR18:=IF(VAR17>REF(VAR17,1),HHV(MA(C,3),3),VAR17);
V10:IF(VAR18<C*0.85,LLV(C,13)*0.85,VAR18);
VAR1B:=VAR4-VAR4*(VAR3-1)*3.318/100;
VAR1C:=IF(VAR1B>REF(VAR1B,1),HHV(MA(C,3),3),VAR1B);
V11:IF(VAR1C<C*0.85,LLV(C,13)*0.85,VAR1C);


VARB3:=BARSLAST(VARB2<REF(VARB2,1));
VARB4:=IF(VARB3>0,LLV(VARB2,VARB3),VARB2);
VARB5:=VARB4+VARB4*(VARB3+1)*0.318/100;
VARB6:=IF(VARB5<REF(VARB5,1),LLV(MA(C,3),3),VARB5);
IF(VARB6>CLOSE*1.15,HHV(H,13)*1.15,VARB6);
VARB7:=VARB4+VARB4*(VARB3+1)*0.618/100;
VARB8:=IF(VARB7<REF(VARB7,1),LLV(MA(C,3),3),VARB7);
IF(VARB8>CLOSE*1.15,HHV(H,13)*1.15,VARB8);
VARB9:=VARB4+VARB4*(VARB3+1)*0.918/100;
VARBA:=IF(VARB9<REF(VARB9,1),LLV(MA(C,3),3),VARB9);
IF(VARBA>CLOSE*1.15,HHV(H,13)*1.15,VARBA);
VARBB:=VARB4+VARB4*(VARB3+1)*1.218/100;
VARBC:=IF(VARBB<REF(VARBB,1),LLV(MA(C,3),3),VARBB);
IF(VARBC>CLOSE*1.15,HHV(H,13)*1.15,VARBC);
VARBD:=VARB4+VARB4*(VARB3+1)*1.518/100;
VARBE:=IF(VARBD<REF(VARBD,1),LLV(MA(C,3),3),VARBD);
IF(VARBE>CLOSE*1.15,HHV(H,13)*1.15,VARBE),CIRCLEDOT,COLORRED;
VARBF:=VARB4+VARB4*(VARB3+1)*2.118/100;
VARB10:=IF(VARBF<REF(VARBF,1),LLV(MA(C,3),3),VARBF);
IF(VARB10>CLOSE*1.15,HHV(H,13)*1.15,VARB10);
VARB11:=VARB4+VARB4*(VARB3+1)*2.718/100;
VARB12:=IF(VARB11<REF(VARB11,1),LLV(MA(C,3),3),VARB11);
IF(VARB12>CLOSE*1.15,HHV(H,13)*1.15,VARB12);
VARB13:=VARB4+VARB4*(VARB3+1)*3.318/100;
VARB14:=IF(VARB13<REF(VARB13,1),LLV(MA(C,3),3),VARB13);
IF(VARB14>CLOSE*1.15,HHV(H,13)*1.15,VARB14);
VARB15:=VARB4+VARB4*(VARB3+1)*3.918/100;
VARB16:=IF(VARB15<REF(VARB15,1),LLV(MA(C,3),3),VARB15);
IF(VARB16>CLOSE*1.15,HHV(H,13)*1.15,VARB16);
VARB17:=VARB4+VARB4*(VARB3+1)*4.518/100;
VARB18:=IF(VARB17<REF(VARB17,1),LLV(MA(C,3),3),VARB17);
IF(VARB18>CLOSE*1.15,HHV(H,13)*1.15,VARB18);
VARB1B:=VARB4+VARB4*(VARB3+1)*5.118/100;
VARB1C:=IF(VARB1B<REF(VARB1B,1),LLV(MA(C,3),3),VARB1B);
IF(VARB1C>CLOSE*1.15,HHV(H,13)*1.15,VARB1C);