 |
A6A:=REF(HIGH,6)=HHV(HIGH,2*6+1);
B6A:=FILTER(A6A,6);
C6A:=BACKSET(B6A,6+1);
D6A:=FILTER(C6A,6);
A7A:=REF(LOW,6)=LLV(LOW,2*6+1);
B7A:=FILTER(A7A,6);
C7A:=BACKSET(B7A,6+1);
D7A:=FILTER(C7A,6);
E6A:=(REF(LLV(LOW,2*6),1)+REF(HHV(HIGH,2*6),1))/2;
E7A:=(HIGH+LOW)/2;
H6A:=(D6A AND NOT(D7A AND E6A >=E7A)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
H7A:=D6A AND NOT(D7A AND E6A >=E7A);
L6A:=D7A AND NOT(D6A AND E6A=E7A);
X6A:=REF(BARSLAST(H6A),1)+1;
F6A:=BACKSET(H6A AND COUNT(L6A,X6A) > 0,LLVBARS(IF(L6A,LOW,10000),X6A));
G6A:=F6A > REF(F6A,1);
I6A:=BACKSET(G6A,2);
LD2A:=I6A > REF(I6A,1);
L7A:=LD2A OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
X7A:=REF(BARSLAST(L7A),1)+1;
F7A:=BACKSET(L7A AND COUNT(H7A,X7A) > 0,HHVBARS(IF(H7A,HIGH,0),X7A));
G7A:=F7A > REF(F7A,1);
I7A:=BACKSET(G7A,2);
HD2A:=I7A > REF(I7A,1);
UU3A:=BACKSET(BARSTATUS=2,BARSLAST(LD2A)+1);
VV3A:=UU3A > REF(UU3A,1);
WW3A:=BACKSET(VV3A,REF(BARSLAST(LD2A),1)+2);
VA3A:=WW3A > REF(WW3A,1);
UU4A:=BACKSET(BARSTATUS=2,BARSLAST(HD2A)+1);
VV4A:=UU4A > REF(UU4A,1);
WW4A:=BACKSET(VV4A,REF(BARSLAST(HD2A),1)+2);
VA4A:=WW4A > REF(WW4A,1);
A6B:=REF(HIGH,3)=HHV(HIGH,2*3+1);
B6B:=FILTER(A6B,3);
C6B:=BACKSET(B6B,3+1);
D6B:=FILTER(C6B,3);
A7B:=REF(LOW,3)=LLV(LOW,2*3+1);
B7B:=FILTER(A7B,3);
C7B:=BACKSET(B7B,3+1);
D7B:=FILTER(C7B,3);
E6B:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
E7B:=(HIGH+LOW)/2;
H6B:=(D6B AND NOT(D7B AND E6B >=E7B)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
H7B:=D6B AND NOT(D7B AND E6B >=E7B);
L6B:=D7B AND NOT(D6B AND E6B=E7B);
X6B:=REF(BARSLAST(H6B),1)+1;
F6B:=BACKSET(H6B AND COUNT(L6B,X6B) > 0,LLVBARS(IF(L6B,LOW,10000),X6B));
G6B:=F6B > REF(F6B,1);
I6B:=BACKSET(G6B,2);
LD2B:=I6B > REF(I6B,1);
L7B:=LD2B OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
X7B:=REF(BARSLAST(L7B),1)+1;
F7B:=BACKSET(L7B AND COUNT(H7B,X7B) > 0,HHVBARS(IF(H7B,HIGH,0),X7B));
G7B:=F7B > REF(F7B,1);
I7B:=BACKSET(G7B,2);
HD2B:=I7B > REF(I7B,1);
UU3B:=BACKSET(BARSTATUS=2,BARSLAST(LD2B)+1);
VV3B:=UU3B > REF(UU3B,1);
WW3B:=BACKSET(VV3B,REF(BARSLAST(LD2B),1)+2);
VA3B:=WW3B > REF(WW3B,1);
UU4B:=BACKSET(BARSTATUS=2,BARSLAST(HD2B)+1);
VV4B:=UU4B > REF(UU4B,1);
WW4B:=BACKSET(VV4B,REF(BARSLAST(HD2B),1)+2);
VA4B:=WW4B > REF(WW4B,1);
A6E:=REF(HIGH,13)=HHV(HIGH,2*13+1);
B6E:=FILTER(A6E,13);
C6E:=BACKSET(B6E,13+1);
D6E:=FILTER(C6E,13);
A7E:=REF(LOW,13)=LLV(LOW,2*13+1);
B7E:=FILTER(A7E,13);
C7E:=BACKSET(B7E,13+1);
D7E:=FILTER(C7E,13);
E6E:=(REF(LLV(LOW,2*13),1)+REF(HHV(HIGH,2*13),1))/2;
E7E:=(HIGH+LOW)/2;
H6E:=(D6E AND NOT(D7E AND E6E >=E7E)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
H7E:=D6E AND NOT(D7E AND E6E >=E7E);
L6E:=D7E AND NOT(D6E AND E6E=E7E);
X6E:=REF(BARSLAST(H6E),1)+1;
F6E:=BACKSET(H6E AND COUNT(L6E,X6E) > 0,LLVBARS(IF(L6E,LOW,10000),X6E));
G6E:=F6E > REF(F6E,1);
I6E:=BACKSET(G6E,2);
LD2E:=I6E > REF(I6E,1);
L7E:=LD2E OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
X7E:=REF(BARSLAST(L7E),1)+1;
F7E:=BACKSET(L7E AND COUNT(H7E,X7E) > 0,HHVBARS(IF(H7E,HIGH,0),X7E));
G7E:=F7E > REF(F7E,1);
I7E:=BACKSET(G7E,2);
HD2E:=I7E > REF(I7E,1);
UU3E:=BACKSET(BARSTATUS=2,BARSLAST(LD2E)+1);
VV3E:=UU3E > REF(UU3E,1);
WW3E:=BACKSET(VV3E,REF(BARSLAST(LD2E),1)+2);
VA3E:=WW3E > REF(WW3E,1);
UU4E:=BACKSET(BARSTATUS=2,BARSLAST(HD2E)+1);
VV4E:=UU4E > REF(UU4E,1);
WW4E:=BACKSET(VV4E,REF(BARSLAST(HD2E),1)+2);
VA4E:=WW4E > REF(WW4E,1);
AW1:=REF(H,N)=HHV(H,2*N+1);
BW1:=FILTER(AW1,N);
CW1:=BACKSET(BW1,N+1);
DW1:=FILTER(CW1,N);
AW2:=REF(L,N)=LLV(L,2*N+1);
BW2:=FILTER(AW2,N);
CW2:=BACKSET(BW2,N+1);
DW2:=FILTER(CW2,N);
EW1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;
EW2:=(H+L)/2;
HW1:=(DW1 AND NOT(DW2 AND EW1 >=EW2)) OR BARSTATUS=2 OR BARSCOUNT(C)=1;
LW1:=(DW2 AND NOT(DW1 AND EW1 < EW2));
HW2:=DW1 AND NOT(DW2 AND EW1 >=EW2);
XW1:=REF(BARSLAST(HW1),1)+1;
FW1:=BACKSET(HW1 AND COUNT(LW1,XW1) > 0,LLVBARS(IF(LW1,L,10000),XW1));
GW1:=FW1 > REF(FW1,1);
IW1:=BACKSET(GW1,2);
LDW:=IW1 > REF(IW1,1);
LW2:=LDW OR BARSTATUS=2 OR BARSCOUNT(C)=1;
XW2:=REF(BARSLAST(LW2),1)+1;
FW2:=BACKSET(LW2 AND COUNT(HW2,XW2) > 0,HHVBARS(IF(HW2,H,0),XW2));
GW2:=FW2 > REF(FW2,1);
IW2:=BACKSET(GW2,2);
HDW:=IW2 > REF(IW2,1);
RW1:=BACKSET(BARSTATUS=2,BARSLAST(HDW)+1);
SW1:=RW1 > REF(RW1,1);
TW1:=BACKSET(BARSTATUS=2,BARSLAST(LDW)+1);
UW1:=TW1 > REF(TW1,1);
RW2:=BACKSET(SW1,REF(BARSLAST(HDW),1)+2);
SW2:=RW2 > REF(RW2,1);
TW2:=BACKSET(UW1,REF(BARSLAST(LDW),1)+2);
UW2:=TW2 > REF(TW2,1);
RW3:=BACKSET(SW2,REF(BARSLAST(HDW),1)+2);
SW3:=RW3 > REF(RW3,1);
TW3:=BACKSET(UW2,REF(BARSLAST(LDW),1)+2);
UW3:=TW3 > REF(TW3,1);
RW4:=BACKSET(SW3,REF(BARSLAST(HDW),1)+2);
SW4:=RW4 > REF(RW4,1);
TW4:=BACKSET(UW3,REF(BARSLAST(LDW),1)+2);
UW4:=TW4 > REF(TW4,1);
RW5:=BACKSET(SW4,REF(BARSLAST(HDW),1)+2);
SW5:=RW5 > REF(RW5,1);
TW5:=BACKSET(UW4,REF(BARSLAST(LDW),1)+2);
UW5:=TW5 > REF(TW5,1);
RW6:=BACKSET(SW5,REF(BARSLAST(HDW),1)+2);
DRAWLINE(VA3A,L,VV3A,L,1),COLOR800040;
DRAWLINE(VA4A,H,VV4A,H,1),COLOR800040;
DRAWLINE(VA3B,L,VV3B,L,1),COLOR009090;
DRAWLINE(VA4B,H,VV4B,H,1),COLOR888888;
DRAWLINE(VA3E,L,VV3E,L,1),COLORRED;
DRAWLINE(VA4E,H,VV4E,H,1),COLORGREEN;