通达信机构大阳主图指标 可以轻松抓牛股看趋势 源码 贴图

PE:DYNAINFO(39),NODRAW;
EPSRATE:=FINANCE(43);
PEG: DYNAINFO(39)/FINANCE(43),NODRAW;
涨停价:ZTPRICE(REF(CLOSE,1),0.1),NODRAW;
明日涨停价:C*1.1,NODRAW;
DRAWTEXT_FIX(1,0.01,0.05,0,'主题投资：')COLOR0000FF;
DRAWTEXT_FIX(1,0.06,0.05,0,EXTERNSTR(0,1))COLOR0000FF;
DRAWTEXT_FIX(1,0.01,0.15,0,'主营业务：')COLORFF00FF;
DRAWTEXT_FIX(1,0.06,0.15,0,EXTERNSTR(0,2))COLORFF00FF;
XA_11:=0.01;

XA_12:=0.00;

XA_13:=0.04;

DRAWTEXT_FIX(ISLASTBAR,XA_11,XA_12,0,STRCAT(STRSPACE(DYBLOCK),HYBLOCK)),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,XA_11,XA_12+XA_13*2.5,0,GNBLOCK),COLORRED;

DRAWTEXT_FIX(ISLASTBAR,XA_11,XA_12+XA_13*5,0,FGBLOCK),COLORYELLOW;

CY:=BARSLAST(CURRBARSCOUNT=100);
DX:=CONST(IF(ISLASTBAR=1,LLV(L,CY),0));
GX:=CURRBARSCOUNT<=100,DX+MACD*1.5;

SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100);
AA5:=MA(CLOSE,5),COLOR0000FF;
AA10:=MA(CLOSE,10),COLOR0000FF;
BB10:=((ATAN((AA5 - REF(AA5,1))) * 3.1416) * 10);
BB12:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);
M13:=MA(CLOSE,13);
X11:=(C+L+H)/3;
BB13:=ATAN(EMA(X11,13)-REF(EMA(X11,13),1))*3.1416*10;
EMA8:=EMA(C,8);

DRAWBAND(IF(CURRBARSCOUNT<=100,DX+MACD*1.5,DRAWNULL),RGB(230,30,12),DX,RGB(10,200,30));
IF(CURRBARSCOUNT<100,DX+MACD*1.5,DRAWNULL),COLORYELLOW;

DRAWTEXT(FILTER(BB13>1 AND EMA(X11,13)>REF(EMA(X11,8),1),10),

EMA8,'∠35上升'),COLORYELLOW;

{支撑:MA(REF(LLV(C,30),1),2),COLORRED;}

C11:=(CLOSE+LOW+HIGH)/3;

C2:=EMA(C11,6);

C3:=EMA(C2,5);

C4:=CROSS(C2,C3);

DRAWTEXT(C4,LOW/1.01,'★买'),COLORRED;

X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);

Y:=EMA(CLOSE,10);

LL:=REF(CLOSE,2);

MM:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);

DB:=IF(((MM < REF(MM,1)) AND (MM > 79)),MM,0);

DRAWTEXT(CROSS(Y,X),(LOW *0.985),'▲加仓'),LINETHICK5,COLORRED;

VAR24:=LLV(LOW,36);
VAR25:=HHV(HIGH,30);
VAR26:=EMA((CLOSE-VAR24)/(VAR25-VAR24)*4,4)*25;
顶背离:=ISLASTBAR,IF((VAR26>90),110,100);
DRAWTEXT(VAR26>90,L*0.98,'顶背离')COLORGREEN;

{DRAWSL(DATE=1220104,CLOSE,10000,1000,0),COLORWHITE,LINETHICK3;
DRAWSL(DATE=1220104,CLOSE,0,1000,2),COLORWHITE,LINETHICK3;}
X_11:=BARSLAST(DATE=1220104);
X_22:=POW(1.01,X_11);
X_33:=REFDATE(CLOSE,1220104)*X_22;
LINE:IF(YEAR=2022,X_33,DRAWNULL),POINTDOT,COLORYELLOW,LINETHICK5;
DRAWTEXT(ISLASTBAR,X_33,VAR2STR(X_22*100,1)),COLORYELLOW;
DRAWTEXT(ISLASTBAR,CLOSE,VAR2STR((CLOSE/REF(CLOSE,X_11)-1)*100,1)),COLORYELLOW;
DRAWNUMBER(ISLASTBAR,X_33*1.05,DATE+19000000);
年线1:REFDATE(C,1220104)COLORWHITE,LINETHICK3;
DRAWICON(CROSS(C,LINE),L,26);
DRAWICON(CROSS(C,年线1),L,25);

X_1:=(COST(90+(100-90)/2)-COST((100-90)/2))/(COST(90+(100-90)/2)+COST((100-90)/2))+CLOSE;
X_2:=REF(HHV(X_1,20),0);{WWW.GPXIAZAI.COM}
{STICKLINE(X_1>CLOSE,X_2,X_1,2,0),COLORGRAY;
STICKLINE(X_1>CLOSE,X_2,X_1,1,0),COLORBLACK;
STICKLINE(X_1>CLOSE,X_2,X_1,0.5,0),COLORGRAY;
STICKLINE(X_1>REF(X_1,1),X_1,X_2,2,0),COLOR1388A3;
STICKLINE(X_1>REF(X_1,1),X_1,X_2,1,0),COLORBLACK;
STICKLINE(X_1>REF(X_1,1),X_1,X_2,0.5,0),COLOR1388A3;}
STICKLINE(X_1=X_2,X_2,O,2,0),COLORYELLOW;

X_3:=EMA(((2*CLOSE+HIGH+LOW)/4-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100,8);
X_4:=EMA(X_3,5);
X_5:=REFDATE(REF(HHV(MAX(CLOSE,OPEN),96),5),DATE);
X_6:=REFDATE(REF(LLV(MIN(CLOSE,OPEN),96),5),DATE);
X_7:=(X_5+X_6)/2;
箱顶:IF(X_3>0 AND X_3-X_4<=0,X_5,X_5),DOTLINE,COLORRED,LINETHICK3;
箱腰:IF(X_3>0 AND X_3-X_4<=0,X_7,X_7),DOTLINE,COLORYELLOW,LINETHICK3;
箱低:IF(X_3>0 AND X_3-X_4<=0,X_6,X_6),DOTLINE,COLORLIGRAY,LINETHICK3;

浮平线:=EMA(CLOSE,6)-EMA(CLOSE,13),COLORFF00FF,LINETHICK2;
门头线:=REF(HHV(浮平线,20),1),COLOR009000,LINETHICK2;
门槛线:=REF(LLV(浮平线,20),1),COLOR99EEEE;
低位介入:CROSS(浮平线,门槛线),COLORRED,NODRAW;
突破介入:CROSS(浮平线,门头线),COLORYELLOW,NODRAW;
{高位逃顶:CROSS(门头线,浮平线),COLORGREEN,NODRAW;}

DRAWICON(CROSS(浮平线,门槛线),L,23),COLORRED;
DRAWICON(CROSS(浮平线,门头线),L,34),COLORRED;
{DRAWICON(CROSS(门头线,浮平线),H*1.02,8),COLORGREEN;}

A1:=MA(C,1);
A2:=MA(C,21);
A3:=(A1+A2)/2;
STICKLINE(A3>A1,H,L,0,0),COLOR00FF00;
STICKLINE(A3>A1,C,O,3.2,0),COLOR00FF00;
STICKLINE(A3>A1 AND C>O,C,O,3.2,1),COLOR00FF00;

STICKLINE(A3>A2,H,L,0,0),COLOR0000FF;
STICKLINE(A3>A2,C,O,3.2,0),COLOR0000FF;
STICKLINE(A3>A2 AND C>O,C,O,3.2,1),COLOR0000FF;

STICKLINE(低位介入,C,O,3.2,0),COLORMAGENTA;
STICKLINE(突破介入,C,O,3.2,0),COLORYELLOW;
{STICKLINE(高位逃顶,C,O,3.2,0),COLORGREEN;}

SST:=BACKSET(REF(H,7)=HHV(H,21) AND REF(WMA(H,21)>WMA(H,34) AND WMA(H,34)>WMA(H,55) AND WMA(H,21)>REF(WMA(H,21),1) AND WMA(H,34)>REF(WMA(H,34),1) AND WMA(H,55)>REF(WMA(H,55),1) AND WMA(H,13)>WMA(H,21),7) AND REF(H/REF(LLV(C,6),1)>1.08,7),8);
TT:=BARSLAST(BACKSET(REF(EVERY(SST=1,8),1) AND SST=0,9)>BACKSET(REF(EVERY(SST=1,8),1) AND SST=0,8));
STICKLINE(C>0,REF(H,TT),REF(H,TT),2,1),COLORYELLOW;

ZT11:=C=涨停价;
ZDF:=(C-REF(C,1))/REF(C,1)*100>9.9;
首板:=ZT11 AND REF(ZT11,1)<1;
半线:=(C-REF(C,1))/2+REF(C,1);
K1:=SUMBARS(首板,1);
STICKLINE(ZT11,半线,半线,5,0),COLORGREEN;
STICKLINE(BACKSET(ISLASTBAR,K1),REF(半线,K1-1),REF(半线,K1-1),4,0),COLORYELLOW;

年线:MA(C,M1)COLORGREEN,LINETHICK2;

主力操作线:(EMA(C,13)),COLORMAGENTA,LINETHICK2;
M14:=主力操作线;
IF(M14>REF(M14,1) ,M14,DRAWNULL)COLORMAGENTA,LINETHICK2;
IF(M14<REF(M14,1) ,M14,DRAWNULL),COLORGREEN,LINETHICK2;
主力成本线:(EMA(C,55)),,LINETHICK2,COLORRED;

均价:=(2*C+(C+H+L+O)/4+O)/4;
JJR1:=(2*L+3*均价)/5;
JJR2:=(2*H+3*均价)/5;
JJR3:=ABS(均价-MA((JJR1+JJR2)/2,20))/MA((JJR1+JJR2)/2,20);
JJR4:=DMA(均价,JJR3);
JJR5:(1+7/100)*JJR4,COLORYELLOW,LINETHICK2;

涨停1:=C/REF(C,1)>1.093 AND C=H;
涨停2:=COUNT(REF(涨停1,1),4)=0;
打首板1:= 涨停2 AND CROSS(C,JJR5) AND CROSS(C,EMA(REF(HHV(C,10),1),3)) AND C/REF(C,1)>1.095 AND O/REF(C,1)<1.05 AND C>O AND REF(C,1)/REF(C,2)<1.05,COLORCYAN;
打首板2:= 涨停2 AND C>(LLV(REF(LOW,1),2) + ((HHV(REF(HIGH,1),2) - LLV(REF(LOW,1),2)) / 2)) AND C/REF(C,1)>1.095 AND CROSS(C,EMA(REF(HHV(C,40),1),3)) AND O/REF(C,1)<1.05 AND C>O AND REF(C,1)/REF(C,2)<1.05;
超级打首板:=打首板1 OR 打首板2;
STICKLINE(超级打首板,O,C,3.0,0),COLORMAGENTA;

ZT1:=C/REF(C,1)>1.045 AND L=H AND C=H;
DRAWICON(DYNAINFO(8)>0 AND V<REF(LLV(V,21),1 AND NOT(C=H AND C=L)) AND NOT(ZT1),LOW*0.97,16);
DRAWICON (( C=HHV(C,10) AND H=HHV(H,10) AND C>O*1.01 AND H<C*1.04 AND V>=HHV(V,10) AND V>(REF(V,1)*1.8)),L*0.95,1);

QS1:=3*SMA((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,14))/(HHV(HIGH,14)-LLV(LOW,14))*100,5,1),3,1);
压力1:=BOLL+2*STD(CLOSE,14);
支撑1:=BOLL-2*STD(CLOSE,14);
BILI:=压力1/支撑1 ;
{DRAWICON ((BILI>1.4 AND REF(BILI,2)<REF(BILI,1) AND BILI<REF(BILI,1) ),H*1.05,2);}
DRAWICON ((QS1>90 AND BARSCOUNT(CLOSE)>30 AND REF(QS1,2)<REF(QS1,1) AND QS1<REF(QS1,1) ),H*1.05,12);
DRAWICON ((QS1<10 AND BARSCOUNT(CLOSE)>30 AND REF(QS1,2)>REF(QS1,1) AND QS1>REF(QS1,1) AND C>REF(C,1) AND C>O ),L*0.95,11);

VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);
买１:=VAR10;
买２:=(VAR11+VAR13+VAR15+VAR17);
卖１:=(VAR12+VAR14+VAR16+VAR18);
B:IF(买１>0 OR 买２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;
DRAWTEXT(买１>0 OR 买２>0,LOW*0.99,'买'),COLORRED;
S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;
DRAWTEXT(卖１>0,HIGH*1.02,'卖'),COLORGREEN;
DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,1) ;
DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.01,2);
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'机构进场'),LINETHICK1,COLORFF00FF;

X_21:=REF(CLOSE,1);
X_31:=IF((CLOSE-X_21)*100/X_21>=5-0.01*100/X_21,1,0);
KVD1:=IF(CLOSE>REF(CLOSE,1),88,0);
KVD2:=IF(CLOSE/REF(CLOSE,1)>1.01 AND HIGH/CLOSE<1.010 AND KVD1>0,91,0)>1;
KVD3:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3)/4;
KVD4:=(KVD3-REF(KVD3,1))>1;
KVD5:=C/REF(C,1)<1.2;
GP:=KVD2 AND KVD4 AND KVD5;
DFV:=(CLOSE-LLV(LOW,37))/(HHV(HIGH,37)-LLV(LOW,37))*100;
CBT:=(SMA(DFV,5,1)+2*STD(CLOSE,37))<50;
RVL:=X_31 AND GP AND CBT,NODRAW;
XG:=BARSSINCEN(RVL,5)=0,COLORRED,NODRAW;
STICKLINE(XG AND C>MA(C,13),OPEN,CLOSE,3.2,0),COLORMAGENTA;
STICKLINE(XG AND C>MA(C,13),HIGH,LOW,0,0),COLORMAGENTA;
DRAWTEXT(XG,LOW*0.99,'↖起爆'),COLORYELLOW;

{画线}
HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
AAB:=REF(H,HIGHN)=HHV(H,2*HIGHN+1); QY:=BACKSET(AAB,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
DRAWICON(CC,H*1.02,8);
DDDA:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0); DINGBU:=IF(DDDA,REF(H,DDDA),H);
DINGBUTS:=IF(DDDA,REF(GDTS,DDDA),GDTS); DINGBU1:=REF(DINGBU,DDDA+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDDA+1); GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDDA+1);
MMM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1),COLORYELLOW,LINETHICK1;
{压力A:DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR0055FF,DOTLINE;
压力B:DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORYELLOW,DOTLINE; }
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1); QY1:=BACKSET(AA1,LOWN+1);
CC11:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1); DD1:=BARSLAST(CC11);
DDTS:=IF(CC11,CURRBARSCOUNT,0);YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLORRED,DOTLINE;
ZGSTAR:=(高点压力+低点支撑)/2;
ZGEND:=CONST((高点压力+低点支撑)/2);
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);
中轨:=DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),CIRCLEDOT,COLORFFBBFF,LINETHICK1;
TTT:=6; {WWW.GPXIAZAI.COM}
AB1:=REF(HIGH,6)=HHV(HIGH,2*TTT+1);
B1B:=FILTER(AB1,TTT);
C1:=BACKSET(B1B,TTT+1);
D1:=FILTER(C1,TTT);
AB2:=REF(LOW,TTT)=LLV(LOW,2*TTT+1);
B2:=FILTER(AB2,TTT);
C2C:=BACKSET(B2,TTT+1);
D2:=FILTER(C2C,TTT);
E1:=(REF(LLV(LOW,2*TTT),1)+REF(HHV(HIGH,2*TTT),1))/2;
E2:=(HIGH+LOW)/2;
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 AND E1>=E2);
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1);
I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);
L2:=LD OR BARSTATUS OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);
UU:=BACKSET(BARSTATUS,BARSLAST(LD)+1); VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2); XX:=WW>REF(WW,1);
UU2:=BACKSET(BARSTATUS,BARSLAST(HD)+1); VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2); XX2:=WW2>REF(WW2,1);
{近低A:REF(L,BARSLAST(VV)),COLORWHITE,LINETHICK1,DOTLINE;
近低B:REF(L,BARSLAST(XX)),COLORMAGENTA,DOTLINE;}
DRAWTEXT(CURRBARSCOUNT=2,高点压力,STRCAT(' 压力延伸:',CON2STR(高点压力,2))),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=2,低点支撑,STRCAT(' 支撑延伸:',CON2STR(低点支撑,2))),COLORYELLOW;
{DRAWTEXT(CURRBARSCOUNT=2,中轨,STRCAT(' 中轨:',CON2STR(中轨,2))),COLORYELLOW; }
{DRAWTEXT(CURRBARSCOUNT=2,压力A,STRCAT(' 压力A:',CON2STR(压力A,2))),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=2,压力B,STRCAT(' 压力B:',CON2STR(压力B,2))),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=2,近低A,STRCAT(' ←近低A:',CON2STR(近低A,2))),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=2,近低B,STRCAT(' ←近低B:',CON2STR(近低B,2))),COLORMAGENTA;}

{九转正宗}
XA_1:=AMOUNT/VOL/100;
XA_2:=CLOSE>OPEN AND REF(CLOSE,1)>XA_1 AND CLOSE>XA_1 AND CLOSE<300;
XA_6:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
XA_7:=NAMELIKE(1) OR NAMELIKE(2) OR NAMELIKE(3) AND XA_6>=4.945;
XA_8:=NAMELIKE(1) OR NAMELIKE(2) OR NAMELIKE(3) AND XA_6<=(-4.945);
XA_9:=REF(CLOSE,1);
XA_10:=CLOSE=ZTPRICE(REF(CLOSE,1),0.1);
XA12:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5);
XA13:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1) AND REFX(CLOSE,6)<REFX(CLOSE,2) AND REFX(CLOSE,7)<REFX(CLOSE,3) AND REFX(CLOSE,8)<REFX(CLOSE,4);
XA_14:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6);
XA_15:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1) AND REFX(CLOSE,6)<REFX(CLOSE,2) AND REFX(CLOSE,7)<REFX(CLOSE,3);
XA_16:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7);
XA_17:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1) AND REFX(CLOSE,6)<REFX(CLOSE,2);
XA_18:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8);
XA_19:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE AND REFX(CLOSE,5)<REFX(CLOSE,1);
XA_20:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9);
XA_21:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1) AND REFX(CLOSE,4)<CLOSE;
XA_22:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10);
XA_23:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2) AND REFX(CLOSE,3)<REF(CLOSE,1);
XA_24:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10) AND REF(CLOSE,7)>REF(CLOSE,11);
XA_25:=REFX(CLOSE,1)<REF(CLOSE,3) AND REFX(CLOSE,2)<REF(CLOSE,2);
XA_26:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10) AND REF(CLOSE,7)<REF(CLOSE,11) AND REF(CLOSE,8)>REF(CLOSE,12);
XA_27:=REFX(CLOSE,1)<REF(CLOSE,3);
XA_28:=CLOSE<REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10) AND REF(CLOSE,7)<REF(CLOSE,11) AND REF(CLOSE,8)<REF(CLOSE,12) AND REF(CLOSE,9)>REF(CLOSE,13);
XA_29:=IF(PERIOD<4,LOW*(1-(PERIOD+1)/10*0.01),LOW*0.98);
XA_30:=IF(PERIOD<4,HIGH*(1+(PERIOD+1)/10*0.01),HIGH*1.05);
XA_31:=CURRBARSCOUNT-1;
DRAWNUMBER(XA12 AND (XA13 OR XA_31=0 OR (XA_31=1 AND XA_27) OR (XA_31=2 AND XA_25) OR (XA_31=3 AND XA_23) OR (XA_31=4 AND XA_21) OR (XA_31=5 AND XA_19) OR (XA_31=6 AND XA_17) OR (XA_31=7 AND XA_15)),XA_29,1),COLORGREEN;
DRAWNUMBER(XA_14 AND (XA_15 OR XA_31=0 OR (XA_31=1 AND XA_27) OR (XA_31=2 AND XA_25) OR (XA_31=3 AND XA_23) OR (XA_31=4 AND XA_21) OR (XA_31=5 AND XA_19) OR (XA_31=6 AND XA_17)),XA_29,2),COLORGREEN;
DRAWNUMBER(XA_16 AND (XA_17 OR XA_31=0 OR (XA_31=1 AND XA_27) OR (XA_31=2 AND XA_25) OR (XA_31=3 AND XA_23) OR (XA_31=4 AND XA_21) OR (XA_31=5 AND XA_19)),XA_29,3),COLORGREEN;
DRAWNUMBER(XA_18 AND (XA_19 OR XA_31=0 OR (XA_31=1 AND XA_27) OR (XA_31=2 AND XA_25) OR (XA_31=3 AND XA_23) OR (XA_31=4 AND XA_21)),XA_29,4),COLORGREEN;
DRAWNUMBER(XA_20 AND (XA_21 OR XA_31=0 OR (XA_31=1 AND XA_27) OR (XA_31=2 AND XA_25) OR (XA_31=3 AND XA_23)),XA_29,5),COLORGREEN;
DRAWNUMBER(XA_22 AND (XA_23 OR XA_31=0 OR (XA_31=1 AND XA_27) OR (XA_31=2 AND XA_25)),XA_29,6),COLORGREEN;
DRAWNUMBER(XA_24 AND (XA_25 OR XA_31=0 OR (XA_31=1 AND XA_27)),XA_29,7),COLORGREEN;
DRAWNUMBER(XA_26 AND (XA_27 OR XA_31<1),XA_29,8),COLORGREEN;
DRAWNUMBER(XA_28,XA_29,9),COLORRED;
XA_32:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)<REF(CLOSE,5);
XA_33:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1) AND REFX(CLOSE,6)>REFX(CLOSE,2) AND REFX(CLOSE,7)>REFX(CLOSE,3) AND REFX(CLOSE,8)>REFX(CLOSE,4);
XA_34:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)<REF(CLOSE,6);
XA_35:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1) AND REFX(CLOSE,6)>REFX(CLOSE,2) AND REFX(CLOSE,7)>REFX(CLOSE,3);
XA_36:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)<REF(CLOSE,7);
XA_37:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1) AND REFX(CLOSE,6)>REFX(CLOSE,2);
XA_38:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)<REF(CLOSE,8);
XA_39:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE AND REFX(CLOSE,5)>REFX(CLOSE,1);
XA_40:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)<REF(CLOSE,9);
XA_41:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1) AND REFX(CLOSE,4)>CLOSE;
XA_42:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)<REF(CLOSE,10);
XA_43:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2) AND REFX(CLOSE,3)>REF(CLOSE,1);
XA_44:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10) AND REF(CLOSE,7)<REF(CLOSE,11);
XA_45:=REFX(CLOSE,1)>REF(CLOSE,3) AND REFX(CLOSE,2)>REF(CLOSE,2);
XA_46:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10) AND REF(CLOSE,7)>REF(CLOSE,11) AND REF(CLOSE,8)<REF(CLOSE,12);
XA_47:=REFX(CLOSE,1)>REF(CLOSE,3);
XA_48:=CLOSE>REF(CLOSE,4) AND REF(CLOSE,1)>REF(CLOSE,5) AND REF(CLOSE,2)>REF(CLOSE,6) AND REF(CLOSE,3)>REF(CLOSE,7) AND REF(CLOSE,4)>REF(CLOSE,8) AND REF(CLOSE,5)>REF(CLOSE,9) AND REF(CLOSE,6)>REF(CLOSE,10) AND REF(CLOSE,7)>REF(CLOSE,11) AND REF(CLOSE,8)>REF(CLOSE,12) AND REF(CLOSE,9)<REF(CLOSE,13);
DRAWNUMBER(XA_32 AND (XA_33 OR XA_31=0 OR (XA_31=1 AND XA_47) OR (XA_31=2 AND XA_45) OR (XA_31=3 AND XA_43) OR (XA_31=4 AND XA_41) OR (XA_31=5 AND XA_39) OR (XA_31=6 AND XA_37) OR (XA_31=7 AND XA_35)),XA_30,1),COLORMAGENTA;
DRAWNUMBER(XA_34 AND (XA_35 OR XA_31=0 OR (XA_31=1 AND XA_47) OR (XA_31=2 AND XA_45) OR (XA_31=3 AND XA_43) OR (XA_31=4 AND XA_41) OR (XA_31=5 AND XA_39) OR (XA_31=6 AND XA_37)),XA_30,2),COLORMAGENTA;
DRAWNUMBER(XA_36 AND (XA_37 OR XA_31=0 OR (XA_31=1 AND XA_47) OR (XA_31=2 AND XA_45) OR (XA_31=3 AND XA_43) OR (XA_31=4 AND XA_41) OR (XA_31=5 AND XA_39)),XA_30,3),COLORMAGENTA;
DRAWNUMBER(XA_38 AND (XA_39 OR XA_31=0 OR (XA_31=1 AND XA_47) OR (XA_31=2 AND XA_45) OR (XA_31=3 AND XA_43) OR (XA_31=4 AND XA_41)),XA_30,4),COLORMAGENTA;
DRAWNUMBER(XA_40 AND (XA_41 OR XA_31=0 OR (XA_31=1 AND XA_47) OR (XA_31=2 AND XA_45) OR (XA_31=3 AND XA_43)),XA_30,5),COLORMAGENTA;
DRAWNUMBER(XA_42 AND (XA_43 OR XA_31=0 OR (XA_31=1 AND XA_47) OR (XA_31=2 AND XA_45)),XA_30,6),COLORMAGENTA;
DRAWNUMBER(XA_44 AND (XA_45 OR XA_31=0 OR (XA_31=1 AND XA_47)),XA_30,7),COLORMAGENTA;
DRAWNUMBER(XA_46 AND (XA_47 OR XA_31<1),XA_30,8),COLORMAGENTA;
DRAWNUMBER(XA_48,XA_30,9),COLORGREEN;