N:=1000;P:=5;P1:=10;
A1:=REF(H,P)=HHV(H,2*P+1);
B1:=FILTER(A1,P);
C1:=BACKSET(B1,P+1);
D1:=FILTER(C1,P);
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
F1:=E1>REF(E1,1);
��ѹ:DRAWLINE(D1,H,F1,H,1),COLORCYAN;
A2:=REF(L,P)=LLV(L,2*P+1);
B2:=FILTER(A2,P);
C2:=BACKSET(B2,P+1);
D2:=FILTER(C2,P);
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
F2:=E2>REF(E2,1);
��֧:DRAWLINE(D2,L,F2,L,1),COLORLIRED;
AA1:=REF(H,P1)=HHV(H,2*P1+1);
BB1:=FILTER(AA1,P1);
CC1:=BACKSET(BB1,P1+1);
DD1:=FILTER(CC1,P1);
EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
FF1:=EE1>REF(EE1,1);
��ѹ:DRAWLINE(DD1,H,FF1,H,1),COLORGREEN;
AA2:=REF(L,P1)=LLV(L,2*P1+1);
BB2:=FILTER(AA2,P1);
CC2:=BACKSET(BB2,P1+1);
DD2:=FILTER(CC2,P1);
EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
FF2:=EE2>REF(EE2,1);
��֧:DRAWLINE(DD2,L,FF2,L,1),COLORRED;
STICKLINE(C>=O,C,O,3,0),COLOR000045;
STICKLINE(C>=O,C,O,2.5,0),COLOR000065;
STICKLINE(C>=O,C,O,2,0),COLOR000085;
STICKLINE(C>=O,C,O,1.5,0),COLOR0000A5;
STICKLINE(C>=O,C,O,1,0),COLOR0000C5;
STICKLINE(C>=O,C,O,0.5,0),COLOR0000E5;
STICKLINE(C>=O,H,L,0,0),COLOR0000F5;
STICKLINE(C<O,C,O,3,0),COLOR353500;
STICKLINE(C<O,C,O,2.5,0),COLOR454500;
STICKLINE(C<O,C,O,2,0),COLOR555500;
STICKLINE(C<O,C,O,1.5,0),COLOR656500;
STICKLINE(C<O,C,O,1,0),COLOR757500;
STICKLINE(C<O,C,O,0.5,0),COLOR858500;
STICKLINE(C<O,H,L,0,0),COLOR959500;
��:=REFDATE(HHV(H,N),DATE);
��:=REFDATE(LLV(L,N),DATE);
H1:=��-(��-��)*0.191;
H2:=��-(��-��)*0.382;
H3:=��-(��-��)*0.5;
H4:=��-(��-��)*0.618;
H5:=��-(��-��)*0.809;
H6:=��-(��-��)*0.764;
STICKLINE(CURRBARSCOUNT=13,��,��,100,1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=13,H1,H1,100,1),COLORCYAN;
STICKLINE(CURRBARSCOUNT=13,H2,H2,100,1),COLORCCCCCC;
DRAWTEXT(CURRBARSCOUNT=1,��,' ��'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,H1,'0.809'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,H2,' 0.618'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=1,H3,' ��'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,H4,' 0.382'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=1,H6,' 0.236'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=1,H5,' 0.191'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,��,' ��'),COLORRED;
STICKLINE(CURRBARSCOUNT=13,H3,H3,100,1),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=13,H4,H4,100,1),COLORLIRED;
STICKLINE(CURRBARSCOUNT=13,H6,H6,100,1),COLORLIRED;
STICKLINE(CURRBARSCOUNT=13,H5,H5,100,1),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=13,��,��,100,1),COLORRED;
DRAWTEXT(CURRBARSCOUNT=25,��*0.99,CON2STR(��,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=25,H1,CON2STR(H1,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=25,H2,CON2STR(H2,2)),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=25,H3,CON2STR(H3,2)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=25,H6,CON2STR(H6,2)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=25,H4,CON2STR(H4,2)),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=25,H5,CON2STR(H5,2)),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=25,��*1.01,CON2STR(��,2)),COLORRED;
HDAY:=100;LDAY:=100;����:=3;�Ƕ�:=100;֮�ַ���:=25;�������:=1;
�ֲ��͵�ԤѡA:=BACKSET(LLV(L,5)<REF(LLV(L,4),1),4);
�ֲ��͵�ԤѡB:=BACKSET(�ֲ��͵�ԤѡA=0 AND REF(�ֲ��͵�ԤѡA,1)=1,2);
�ֲ��͵�ԤѡC:=IF(�ֲ��͵�ԤѡB=1 AND REF(�ֲ��͵�ԤѡB,1)=0,-1,0);
�ֲ��ߵ�ԤѡA:=BACKSET(HHV(H,5)>REF(HHV(H,4),1),4);
�ֲ��ߵ�ԤѡB:=BACKSET(�ֲ��ߵ�ԤѡA=0 AND REF(�ֲ��ߵ�ԤѡA,1)=1,2);
�ֲ��ߵ�ԤѡC:=IF(�ֲ��ߵ�ԤѡB=1 AND REF(�ֲ��ߵ�ԤѡB,1)=0,1,0);
ȱ���ж�:=IF(L>REF(H,1),1,IF(H<REF(L,1),-1,0));
��ǰ����:=BARSLAST(�ֲ��ߵ�ԤѡC=1);
��ǰ����:=BARSLAST(�ֲ��͵�ԤѡC=-1);
Сֵ����:=LOWRANGE(L);
��ֵ����:=TOPRANGE(H);
�ͱ���AA:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����,1)>REF(��ǰ����,1) AND LLV(L,��ǰ����+1)<REF(LLV(L,��ǰ����+1),1),-1,0);
�ͱ���AB:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����,1)<=REF(��ǰ����,1) AND (��ǰ����>=4 OR LLV(ȱ���ж�,��ǰ����)=-1 OR LLV(L,��ǰ����+2)<REF(LLV(L,��ǰ����+1),1)),-1,0);
�ͱ���S:=IF((�ͱ���AA=-1 OR �ͱ���AB=-1) AND L<REF(H,��ǰ����+1),-1,0);
Ԥ��:=IF((��ǰ����<4 AND HHV(ȱ���ж�,��ǰ����)!=1) OR REF(�ͱ���S,��ǰ����)=0,1,0);
�ж�:=IF(�ֲ��ߵ�ԤѡC=1 AND REF(��ǰ����,1)<=REF(��ǰ����,1) AND Ԥ��=1 AND ��ֵ����>REF(Сֵ����,��ǰ����+1) AND ��ֵ����>REF(Сֵ����,��ǰ����) AND ��ֵ����>REF(��ֵ����,��ǰ����),1,0);
�߱���A:=IF(�ֲ��ߵ�ԤѡC=1 AND REF(��ǰ����,1)>REF(��ǰ����,1) AND HHV(H,��ǰ����+1)>REF(HHV(H,��ǰ����+1),1),1,0);
�߱���B:=IF(�ֲ��ߵ�ԤѡC=1 AND REF(��ǰ����,1)<=REF(��ǰ����,1) AND REF(�ͱ���S,��ǰ����)=-1 AND (��ǰ����>=4 OR HHV(ȱ���ж�,��ǰ����)=1),1,0);
�߱���:=IF((�߱���A=1 OR �߱���B=1 OR �ж�=1) AND H>REF(L,��ǰ����+1),1,0);
Ԥ��A:=IF((��ǰ����<4 AND HHV(ȱ���ж�,��ǰ����)!=1) OR REF(�߱���,��ǰ����)=0,1,0);
�ж�A:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����,1)<=REF(��ǰ����,1) AND Ԥ��A=1 AND Сֵ����>REF(��ֵ����,��ǰ����+1) AND Сֵ����>REF(��ֵ����,��ǰ����) AND Сֵ����>REF(Сֵ����,��ǰ����),-1,0);
�ͱ���A:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����,1)>REF(��ǰ����,1) AND LLV(L,��ǰ����+1)<REF(LLV(L,��ǰ����+1),1),-1,0);
�ͱ���B:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����,1)<=REF(��ǰ����,1) AND (��ǰ����>=4 OR LLV(ȱ���ж�,��ǰ����)=-1 OR �ж�A=-1),-1,0);
�ͱ���:=IF((�ͱ���A=-1 OR �ͱ���B=-1) AND L<REF(H,��ǰ����+1),-1,0);
��ǰ����A:=BARSLAST(�߱���=1);
��ǰ����A:=BARSLAST(�ͱ���=-1);
Ԥ��X:=IF((��ǰ����A<4 AND HHV(ȱ���ж�,��ǰ����A)!=1) OR REF(�ͱ���,��ǰ����A)=0,1,0);
�ж�X:=IF(�ֲ��ߵ�ԤѡC=1 AND REF(��ǰ����A,1)<=REF(��ǰ����A,1) AND Ԥ��X=1 AND ��ֵ����>REF(Сֵ����,��ǰ����A+1) AND ��ֵ����>REF(Сֵ����,��ǰ����A) AND ��ֵ����>REF(��ֵ����,��ǰ����A),1,0);
�߱���XA:=IF(�ֲ��ߵ�ԤѡC=1 AND REF(��ǰ����A,1)>REF(��ǰ����A,1) AND HHV(H,��ǰ����A+1)>REF(HHV(H,��ǰ����A+1),1),1,0);
�߱���XB:=IF(�ֲ��ߵ�ԤѡC=1 AND REF(��ǰ����A,1)<=REF(��ǰ����A,1) AND REF(�ͱ���,��ǰ����A)=-1 AND (��ǰ����A>=4 OR HHV(ȱ���ж�,��ǰ����A)=1),1,0);
�߱���X:=IF((�߱���XA=1 OR �߱���XB=1 OR �ж�X=1) AND H>REF(L,��ǰ����A+1),1,0);
Ԥ��XA:=IF((��ǰ����A<4 AND HHV(ȱ���ж�,��ǰ����A)!=1) OR REF(�߱���XA,��ǰ����A)=0,1,0);
�ж�XA:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����A,1)<=REF(��ǰ����A,1) AND Ԥ��XA=1 AND Сֵ����>REF(��ֵ����,��ǰ����A+1) AND Сֵ����>REF(��ֵ����,��ǰ����A) AND Сֵ����>REF(Сֵ����,��ǰ����A),-1,0);
�ͱ���XA:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����A,1)>REF(��ǰ����A,1) AND LLV(L,��ǰ����A+1)<REF(LLV(L,��ǰ����A+1),1),-1,0);
�ͱ���XB:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����A,1)<=REF(��ǰ����A,1) AND (��ǰ����A>=4 OR LLV(ȱ���ж�,��ǰ����A)=-1 OR �ж�XA=-1),-1,0);
�ͱ���X:=IF((�ͱ���XA=-1 OR �ͱ���XB=-1) AND L<REF(H,��ǰ����A+1),-1,0);
��ǰ����YA:=BARSLAST(�߱���X=1);
��ǰ����YA:=BARSLAST(�ͱ���X=-1);
Ԥ��YX:=IF((��ǰ����YA<4 AND HHV(ȱ���ж�,��ǰ����YA)!=1) OR REF(�ͱ���X,��ǰ����YA)=0,1,0);
�ж�YX:=IF(�ֲ��ߵ�ԤѡC=1 AND REF(��ǰ����YA,1)<=REF(��ǰ����YA,1) AND Ԥ��YX=1 AND ��ֵ����>REF(Сֵ����,��ǰ����YA+1) AND ��ֵ����>REF(Сֵ����,��ǰ����YA) AND ��ֵ����>REF(��ֵ����,��ǰ����YA),1,0);
�߱���YXA:=IF(�ֲ��ߵ�ԤѡC=1 AND REF(��ǰ����YA,1)>REF(��ǰ����YA,1) AND HHV(H,��ǰ����YA+1)>REF(HHV(H,��ǰ����YA+1),1),1,0);
�߱���YXB:=IF(�ֲ��ߵ�ԤѡC=1 AND REF(��ǰ����YA,1)<=REF(��ǰ����YA,1) AND REF(�ͱ���X,��ǰ����YA)=-1 AND (��ǰ����YA>=4 OR HHV(ȱ���ж�,��ǰ����YA)=1),1,0);
�߱���YX:=IF((�߱���YXA=1 OR �߱���YXB=1 OR �ж�YX=1) AND H>REF(L,��ǰ����YA+1),1,0);
Ԥ��YXA:=IF((��ǰ����YA<4 AND HHV(ȱ���ж�,��ǰ����YA)!=1) OR REF(�߱���YXA,��ǰ����YA)=0,1,0);
�ж�YXA:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����YA,1)<=REF(��ǰ����YA,1) AND Ԥ��YXA=1 AND Сֵ����>REF(��ֵ����,��ǰ����YA+1) AND Сֵ����>REF(��ֵ����,��ǰ����YA) AND Сֵ����>REF(Сֵ����,��ǰ����YA),-1,0);
�ͱ���YXA:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����YA,1)>REF(��ǰ����YA,1) AND LLV(L,��ǰ����YA+1)<REF(LLV(L,��ǰ����YA+1),1),-1,0);
�ͱ���YXB:=IF(�ֲ��͵�ԤѡC=-1 AND REF(��ǰ����YA,1)<=REF(��ǰ����YA,1) AND (��ǰ����YA>=4 OR LLV(ȱ���ж�,��ǰ����YA)=-1 OR �ж�YXA=-1),-1,0);
�ͱ���YX:=IF((�ͱ���YXA=-1 OR �ͱ���YXB=-1) AND L<REF(H,��ǰ����YA+1),-1,0);
AAAD:=IF(�߱���YX=1 AND �ͱ���YX=-1 AND H>REF(H,REF(��ǰ����YA,1)+2),1,IF(�߱���YX=1 AND �ͱ���YX=-1 AND L<REF(L,REF(��ǰ����YA,1)+2),-1,0));
���㱣��:=IF(AAAD=0,�߱���YX+�ͱ���YX,AAAD);
XA:=DRAWLINE(���㱣��=-1,L,REF(���㱣��,1)=-1,REF(L,1),1);
XB:=DRAWLINE(���㱣��=1,H,REF(���㱣��,1)=1,REF(H,1),1);
XAS:=DRAWLINE(���㱣��=-1,XB,REF(���㱣��,1)=-1,REF(XB,1),1);
XBS:=DRAWLINE(���㱣��=1,XA,REF(���㱣��,1)=1,REF(XA,1),1);
XA45:=(XA+XAS)/2;
XB45:=(XB+XBS)/2;
XA63:=(XAS-XA)*3/4+XA;
XB63:=XB-(XB-XBS)*3/4;
TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));
GTT:=CONST(BARSLAST(TCH=H))+1;
SX��H:=CONST(IF(GTT=1,H,REF(H,GTT-1)));
BCL:=CONST(FINDLOW(L,0,LDAY*10,1));
DTT:=CONST(BARSLAST(BCL=L))+1;
SX��L:=CONST(IF(DTT=1,L,REF(L,DTT-1)));
�ǵ�:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=SX��L)+1));
����:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=SX��H)+1));
���:=IF(����=1,����,IF(����=2,�ǵ�,IF(����=3,�ǵ�,����)));
Lб��:=�Ƕ�/IF(C<300,1000,10);
���:=IF(����=1,����,IF(����=2,�ǵ�,IF(����=3,����,�ǵ�)));
Hб��:=�Ƕ�/IF(C<300,1000,10);
IM68:=((SX��H-SX��L)/6-(SX��H-SX��L)/8);
GH��X:=SX��H+(SX��H-SX��L)/8;
DL��X:=SX��L-(SX��H-SX��L)/8;
GTHT:=IF(DTT>GTT,DTT,GTT);
R:=ABS(GTT-DTT);
����:=SX��H;
����:=SX��L;
���1:=IF(����+CONST(L�*1.618)*���>=����,����+CONST(L�*1.618)*���,DRAWNULL);
���2:=IF(����+CONST(L�*1.000)*���>=����,����+CONST(L�*1.000)*���,DRAWNULL);
���3:=IF(����+CONST(L�*0.618)*���>=����,����+CONST(L�*0.618)*���,DRAWNULL);
���4:=IF(����+CONST(L�*0.382)*���>=����,����+CONST(L�*0.382)*���,DRAWNULL);
���5:=IF(����+CONST(L�*0.316)*���>=����,����+CONST(L�*0.316)*���,DRAWNULL);
��б��6:=IF(����+CONST(Lб��*0.250)*���>=����,����+CONST(Lб