N:=30;
M:=13;
��1:=REFDATE(HHV(H,M),DATE);
��1:=REFDATE(LLV(L,M),DATE);
H1:=��1-(��1-��1)*0.191;
H2:=��1-(��1-��1)*0.382;
H3:=��1-(��1-��1)*0.5;
H4:=��1-(��1-��1)*0.618;
H5:=��1-(��1-��1)*0.809;
����:IF(CURRBARSCOUNT<=N,REFDATE(��1,DATE),DRAWNULL),COLORGREEN,DOTLINE;
%61.8:IF(CURRBARSCOUNT<=N,REFDATE(H4,DATE),DRAWNULL),COLORBROWN,DOTLINE;
�ײ�:IF(CURRBARSCOUNT<=N,REFDATE(��1,DATE),DRAWNULL),COLORCYAN,DOTLINE;
DRAWTEXT(CURRBARSCOUNT=30,����*0.99,' ʵ��'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=30,%61.8*0.99,' ������'),COLORBROWN;
DRAWTEXT(CURRBARSCOUNT=30,�ײ�*0.99,' ������'),COLORCYAN;
MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;
ţ��:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+16*REF(MID,4)+15*REF(MID,5)+14
*REF(MID,6)+13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+10*REF(MID,10)+9*REF(MID,11)+8
*REF(MID,12)+7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+4*REF(MID,16)+3*REF(MID,17)
+2*REF(MID,18)+REF(MID,20))/210,COLORRED;
����:MA(ţ��,6),COLORGREEN;
DRAWBAND(����,RGB(0,139,139),ţ��,RGB(255,105,180));
DRAWICON(CROSS(ţ��,����),����*0.98,42);
MA5:MA(C,5),COLORWHITE;
MA10:MA(C,10),COLORYELLOW;
MA30:MA(C,30),COLORMAGENTA;
MA60:MA(C,60),COLORGREEN;
MA120:MA(C,120),COLORBLUE;
VAR0:=SMA(MAX(CLOSE-REF(C,1),0),12,1)/SMA(ABS(CLOSE-REF(C,1)),15,1)*100;
DRAWTEXT(CROSS(82,VAR0),L*1.0,'←��'),COLORWHITE;
JH:=SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1)*100;
DRAWICON(CROSS(84,JH),H*1.02,6);
��:=STRCAT(STRCAT(STRCAT(STRCAT('����: ',STKNAME),' ����: '),CODE),' ' );
���:=STRCAT('������: ',GNBLOCK);
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(��,���)),COLORYELLOW;
YC:=REF(CLOSE,1);
ֹ���λ:=(YC*1.0035*97+0.2)/99.65;
DRAWTEXT_FIX(C!=0,0.2,0.1,0,STRCAT('ֹ���λ ',STRCAT(CON2STR(ֹ���λ,2),' Ԫ'))),COLORBLUE;
E:=(HIGH+LOW+OPEN+2*CLOSE)/5;
��������:=2*E-LOW;
����֧��:=2*E-HIGH;
����ͻ��:=E+(HIGH-LOW);
���շ�ת:=E-(HIGH-LOW);
��������:=REF(�������� , 1);
����֧��:=REF(����֧�� , 1);
DRAWTEXT_FIX(C!=0,0,0.05,0,STRCAT('���������� ',STRCAT(CON2STR(��������,2),' Ԫ'))),COLORFFFF00;
DRAWTEXT_FIX(C!=0,0,0.1,0,STRCAT('����֧�ţ� ',STRCAT(CON2STR(����֧��,2),' Ԫ'))),COLORRED;
DRAWTEXT_FIX(C!=0,0,0.15,0,STRCAT('����ͻ�ƣ� ',STRCAT(CON2STR(����ͻ��,2),' Ԫ'))),COLORFF00FF;
DRAWTEXT_FIX(C!=0,0,0.2,0,STRCAT('���������� ',STRCAT(CON2STR(��������,2),' Ԫ'))),COLORFFFF00;
DRAWTEXT_FIX(C!=0,0,0.25,0,STRCAT('����֧�ţ� ',STRCAT(CON2STR(����֧��,2),' Ԫ'))),COLORRED;
DRAWTEXT_FIX(C!=0,0,0.3,0,STRCAT('���շ�ת�� ',STRCAT(CON2STR(���շ�ת,2),' Ԫ'))),COLORYELLOW;
DRAWTEXT_FIX(1,0.15,0.15,0,STRCAT('�����',STRCAT(FGBLOCK,'��'))),COLORWHITE;
A:=HHV(HIGH,13)=HIGH AND HIGH>REF(HIGH,1);
A1:=FILTER(A,12);
B:=LLV(LOW,13)=LOW AND LOW<REF(LOW,1);
B1:=FILTER(B,12);
TS1:=BARSLAST(A1);
�䶥:REF(HIGH,TS1),COLORFF00FF,NODRAW;
STICKLINE(1,�䶥,�䶥,1.5,0),COLOR00CCCC;
TS2:=BARSLAST(B1);
���:REF(LOW,TS2),COLORWHITE,NODRAW;
STICKLINE(1,���,���,2,0),COLORWHITE;
���:100*(�䶥-���)/���,NODRAW;
����:=(3*C+H+L+O)/6;
VAR1:=(8*����+7*REF(����,1)+6*REF(����,2)+5*REF(����,3)+
4*REF(����,4)+3*REF(����,5)+2*REF(����,6)+REF(����,8))/36;
VAR2:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;
SZ1:=REF(VAR1,1)=REF(VAR2,1) AND VAR1>VAR2 AND CLOSE>VAR1;
SZ2:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1)
AND H/VAR1<1.1 AND L>VAR2 AND CLOSE>VAR1;
SZ3:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>=REF(VAR2,1) AND H/VAR1>1.1;
SZ4:=VAR1>VAR2 AND VAR1>REF(VAR1,1) AND VAR2>REF(VAR2,1)
AND CLOSE>VAR2 AND CLOSE<VAR1;
SZ5:=(VAR1>VAR2 AND VAR2>REF(VAR2,1) AND VAR1<>REF(VAR1,1)
AND CLOSE<VAR2) OR (VAR1>VAR2 AND VAR1<REF(VAR1,1)
AND VAR2<REF(VAR2,1) AND CLOSE<VAR2);
SZ6:=REF(VAR1,1)>REF(VAR2,1) AND VAR1=VAR2 AND CLOSE<VAR2;
XD1:=VAR1=VAR2 AND CLOSE<VAR2 OR (VAR1<REF(VAR1,1) AND VAR2<REF(VAR2,1)
AND REF(VAR1,1)=REF(VAR2,1) AND CLOSE<VAR2);
XD2:=VAR1=VAR2 AND CLOSE>VAR1;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
���ܱ��Ͷ�:=IF(SAT>1,1,SAT)*100;
DRAWTEXT_FIX(BARSTATUS=2 AND SZ1,0.5,0.05,0,'�����������߽���'),COLORRED;
DRAWTEXT_FIX(BARSTATUS=2 AND SZ2,0.5,0.05,0,'����ͨ����������'),COLORRED;
DRAWTEXT_FIX(BARSTATUS=2 AND SZ3,0.5,0.05,0,'�ɼ�ƫ��ע�����'),COLORRED;
DRAWTEXT_FIX(BARSTATUS=2 AND SZ4,0.5,0.05,0,'����ͨ������ϴ��'),COLORGREEN;
DRAWTEXT_FIX(BARSTATUS=2 AND SZ5,0.5,0.05,0,'ת������ע���볡'),COLORGREEN;
DRAWTEXT_FIX(BARSTATUS=2 AND SZ6,0.35,0.05,0,'ͨ���ı����볡'),COLORGREEN;
DRAWTEXT_FIX(BARSTATUS=2 AND XD1,0.5,0.05,0,'�µ�ͨ��ֻ�˹���'),COLORGREEN;
DRAWTEXT_FIX(BARSTATUS=2 AND XD2,0.5,0.05,0,'���ڵײ�������'),COLORYELLOW;
ָ����:=CROSS(SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,3,1),SMA(SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,3,1),3,1)) AND SMA((CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100,3,1)<20;
DRAWTEXT(ָ����,C,'ׯ��'),COLORYELLOW;
STICKLINE(ָ����,O,C,1.5,0),COLORYELLOW,LINETHICK2;