osmo mobile和osmo手柄:反转的魔力公式

N:=3;
QKP:=2;
M:=IF(MT=0,IF(DATATYPE>5,3,IF(DATATYPE=5,4,IF(DATATYPE=4,8,16))),MT);
JJ:=0;
KK:=0;
MM:=0;
NN:=0;
HH:=HIGH;
LL:=LOW;
SYST1:=SYSPARAM(1);
SYST2:=SYSPARAM(2);
SYST3:=SYSPARAM(3);
SYST6:=SYSPARAM(6);
GBMP:=SYST3-SYST2+1;
GBMQ:=SYST1-SYST2+1;
SYST4P:=IF(BARPOS=SYST3,HHV(HIGH,GBMP),0);
SYST4:=SYST4P[SYST3];
SYST5P:=IF(BARPOS=SYST3,LLV(LOW,GBMP),0);
SYST5:=SYST5P[SYST3];
SYSTA:=IF(SYST1=SYST3 OR SYST1=SYST2,SYST3,SYST1);
ISSYSTABAR:=BARPOS=SYSTA;
TRT:=STRTONUM(STRRIGHT(NUMTOSTR(CURRENTTIME,0),2));
当前时间P:=STRTONUM(STRLEFT(NUMTOSTR(CURRENTTIME,0),IF(STRLEN(NUMTOSTR(CURRENTTIME,0))=6,4,3)));
当前日期P:=DATE;
盘中判断:=(OPENMINUTES(IF(DATATYPE>5,CURRENTTIME,TIME)))<>1 AND (OPENMINUTES(IF(DATATYPE>5,CURRENTTIME,TIME)))<=241 AND 当前时间P>=920 AND 当前时间P<=1530 AND CURRENTDATE=当前日期P;
余数:=IF(BETWEEN(TRT,0,15),3,IF(BETWEEN(TRT,16,30),3+INTPART(TT/4),IF(BETWEEN(TRT,31,45),3+INTPART(TT/2),TT)));
T:=IF(TT<10,TT,IF(盘中判断[DATACOUNT] AND SYSTA=SYST3 AND SYST3=DATACOUNT,余数,TT));
SYST6A:=SYST6=REF(CLOSE,1);
SYST6B:=SYST6=REFX(CLOSE,1);
HLKD:=IF(SYSTA=SYST3 AND SYST6A[SYSTA]=0 AND SYST6B[SYSTA]=0,GBMP,IF(GBMP<=150 AND SYSTA<>SYST3 AND SYST3=DATACOUNT AND 盘中判断[DATACOUNT],IF(GBMP/GBMQ>2,GBMQ,GBMP),IF(SYST6B[SYSTA]=1 OR SYST6A[SYSTA]=1 AND SYSTA=SYST3,MIN(DATACOUNT,NT),IF(SYST6A[SYSTA]=1 AND SYST1>SYST2,GBMQ,GBMP))));
HLKDM:=3*HLKD;
VARIABLE:HHD[HLKDM]=0,LLD[HLKDM]=0,QKHD[HLKDM]=0,QKLD[HLKDM]=0,QQH[HLKDM]=0,QQL[HLKDM]=0;
CLOSEP:=CLOSE;
MA5日:=IF(DATATYPE<=6,"分钟引用日线数据.M5#day",0);
MA13日:=IF(DATATYPE<=6,"分钟引用日线数据.M13#day",0);
MA21日:=IF(DATATYPE<=6,"分钟引用日线数据.M21#day",0);
MA34日:=IF(DATATYPE<=6,"分钟引用日线数据.M34#day",0);
MA55日:=IF(DATATYPE<=6,"分钟引用日线数据.M55#day",0);
MA89日:=IF(DATATYPE<=6,"分钟引用日线数据.M89#day",0);
MA144日:=IF(DATATYPE<=6,"分钟引用日线数据.M144#day",0);
MA233日:=IF(DATATYPE<=6,"分钟引用日线数据.M233#day",0);
日买线:=IF(DATATYPE<=6,"分钟引用日线数据.买线#day",0);
日卖线:=IF(DATATYPE<=6,"分钟引用日线数据.卖线#day",0);
DISPTEXTAP:='★日卖线:'+NUMTOSTR(日卖线[SYSTA],2)+(IF(CLOSEP[SYSTA]>=日卖线[SYSTA],'上','下'))+'  5日:'+NUMTOSTR(MA5日[SYSTA],2)+' 13日:'+NUMTOSTR(MA13日[SYSTA],2)+(IF(CLOSEP[SYSTA]DISPTEXTBP:='21日:'+NUMTOSTR(MA21日[SYSTA],2)+' 34日:'+NUMTOSTR(MA34日[SYSTA],2)+' 55日:'+NUMTOSTR(MA55日[SYSTA],2)+' 89日:'+NUMTOSTR(MA89日[SYSTA],2)+' 144日:'+NUMTOSTR(MA144日[SYSTA],2)+' 233日:'+NUMTOSTR(MA233日[SYSTA],2);
DISPTEXTC:='                              ';
DISPTEXTA:=IF(STRLEN(DISPTEXTAP)>=56,DISPTEXTAP,STRLEFT(DISPTEXTC,56-STRLEN(DISPTEXTAP))+DISPTEXTAP);
DISPTEXTB:=IF(STRLEN(DISPTEXTBP)>=84,DISPTEXTBP,STRLEFT(DISPTEXTC,84-STRLEN(DISPTEXTBP))+DISPTEXTBP);
DRAWTEXTEX(DATATYPE<=6,0,440,0,DISPTEXTA),color808080;
DRAWTEXTEX(DATATYPE<=6,0,270,15,DISPTEXTB),color808080;
SYST1B:=SYSTA;
DATAO:=SYST1B-6;
DATA13:=SYST1B-12;
DATA21:=SYST1B-20;
DATA34:=SYST1B-33;
DATA49:=SYST1B-48;
DATA55:=SYST1B-54;
DATA72:=SYST1B-71;
DATA89:=SYST1B-88;
DATA144:=SYST1B-143;
DATA233:=SYST1B-232;
DATA377:=SYST1B-376;
DATA610:=SYST1B-609;
DATA987:=SYST1B-986;
DATA1597:=SYST1B-1596;
DATA2584:=SYST1B-2583;
DATA4181:=SYST1B-4180;
XDATAO:=SYST1B;
XDATA13:=SYST1B+12;
XDATA17:=SYST1B+16;
XDATA21:=SYST1B+20;
XDATA34:=SYST1B+33;
XDATA49:=SYST1B+48;
XDATA55:=SYST1B+54;
XDATA72:=SYST1B+71;
XDATA89:=SYST1B+88;
XDATA144:=SYST1B+143;
XDATA233:=SYST1B+232;
XDATA377:=SYST1B+376;
XDATA610:=SYST1B+609;
XDATA987:=SYST1B+986;
XDATA1597:=SYST1B+1596;
XDATA2584:=SYST1B+2583;
XDATA4181:=SYST1B+4180;
VERTLINE(ROUND(DATAO)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA13)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA21)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA34)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA49)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA55)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA72)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA89)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA144)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA233)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA377)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA610)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA987)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA1597)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA2584)=BARPOS),POINTDOT,colorFFCC00;
VERTLINE(ROUND(DATA4181)=BARPOS),POINTDOT,colorFFCC00;
DRAWTEXT(ROUND(DATAO)=BARPOS,SYST4,'7'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA13)=BARPOS,SYST4,'13'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA21)=BARPOS,SYST4,'21'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA34)=BARPOS,SYST4,'34'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA49)=BARPOS,SYST4,'49'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA55)=BARPOS,SYST4,'55'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA72)=BARPOS,SYST4,'72'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA89)=BARPOS,SYST4,'89'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA144)=BARPOS,SYST4,'144'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA233)=BARPOS,SYST4,'233'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA377)=BARPOS,SYST4,'377'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA610)=BARPOS,SYST4,'610'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA987)=BARPOS,SYST4,'987'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA1597)=BARPOS,SYST4,'1597'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA2584)=BARPOS,SYST4,'2584'),ALIGN1,colorFFCC00;
DRAWTEXT(ROUND(DATA4181)=BARPOS,SYST4,'4181'),ALIGN1,colorFFCC00;
DUICD21:=HHV(IF(ROUND(DATA21)=BARPOS,DATE,0),0);
DUICD34:=HHV(IF(ROUND(DATA34)=BARPOS,DATE,0),0);
DUICD55:=HHV(IF(ROUND(DATA55)=BARPOS,DATE,0),0);
DUICD72:=HHV(IF(ROUND(DATA72)=BARPOS,DATE,0),0);
DUICD89:=HHV(IF(ROUND(DATA89)=BARPOS,DATE,0),0);
DUICD144:=HHV(IF(ROUND(DATA144)=BARPOS,DATE,0),0);
DUICD233:=HHV(IF(ROUND(DATA233)=BARPOS,DATE,0),0);
DUICD377:=HHV(IF(ROUND(DATA377)=BARPOS,DATE,0),0);
DUICD610:=HHV(IF(ROUND(DATA610)=BARPOS,DATE,0),0);
DUICD987:=HHV(IF(ROUND(DATA987)=BARPOS,DATE,0),0);
DUICD1597:=HHV(IF(ROUND(DATA1597)=BARPOS,DATE,0),0);
DUICD2584:=HHV(IF(ROUND(DATA2584)=BARPOS,DATE,0),0);
DUICD4181:=HHV(IF(ROUND(DATA4181)=BARPOS,DATE,0),0);
DRAWTEXT(SYST1B<>SYST3 AND ROUND(DATA21)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD21+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD21,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA34)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD34+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD34,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA55)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD55+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD55,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA72)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD72+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD72,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA89)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD89+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD89,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA144)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD144+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD144,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA233)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD233+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD233,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA377)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD377+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD377,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA610)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD610+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD610,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA987)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD987+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD987,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA1597)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD1597+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD1597,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA2584)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD2584+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD2584,0),4)),ALIGN1,PXDN20,colorFFCC00;
DRAWTEXT(ROUND(DATA4181)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUICD4181+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICD4181,0),4)),ALIGN1,PXDN20,colorFFCC00;
VERTLINE(ROUND(XDATAO)=BARPOS),colorFF00FF;
VERTLINE(ROUND(XDATA13)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA17)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA21)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA34)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA49)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA55)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA72)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA89)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA144)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA233)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA377)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA610)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA987)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA1597)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA2584)=BARPOS),POINTDOT,colorFFFF;
VERTLINE(ROUND(XDATA4181)=BARPOS),POINTDOT,colorFFFF;
DAYS0:=BARSLAST(BARPOS=1);
DAYS1:=DATEDIFF(REF(DATE,DAYS0),DATE)+1;
DRAWNUMBER(ROUND(XDATAO)=BARPOS AND SYST1B=SYST3,SYST4,BARPOS,0),ALIGN2,PXDN20,colorFF00FF;
DRAWNUMBER(ROUND(XDATAO)=BARPOS AND SYST1BDRAWNUMBER(ROUND(XDATAO)=BARPOS AND SYST1B=SYST3,SYST4,DAYS1,0),ALIGN2,colorFF00FF;
DRAWNUMBER(ROUND(XDATAO)=BARPOS AND SYST1BDRAWTEXT(ROUND(XDATAO)=BARPOS,SYST5,'太极'),ALIGN0,colorFF00FF;
DRAWTEXT(ROUND(XDATA13)=BARPOS,SYST4,'13'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA17)=BARPOS,SYST4,'17'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA21)=BARPOS,SYST4,'21'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA34)=BARPOS,SYST4,'34'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA49)=BARPOS,SYST4,'49'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA55)=BARPOS,SYST4,'55'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA72)=BARPOS,SYST4,'72'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA89)=BARPOS,SYST4,'89'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA144)=BARPOS,SYST4,'144'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA233)=BARPOS,SYST4,'233'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA377)=BARPOS,SYST4,'377'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA610)=BARPOS,SYST4,'610'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA987)=BARPOS,SYST4,'987'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA1597)=BARPOS,SYST4,'1597'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA2584)=BARPOS,SYST4,'2584'),ALIGN1,colorFFFF;
DRAWTEXT(ROUND(XDATA4181)=BARPOS,SYST4,'4181'),ALIGN1,colorFFFF;
DUIXCD21:=HHV(IF(ROUND(XDATA21)=BARPOS,DATE,0),0);
DUIXCD34:=HHV(IF(ROUND(XDATA34)=BARPOS,DATE,0),0);
DUIXCD55:=HHV(IF(ROUND(XDATA55)=BARPOS,DATE,0),0);
DUIXCD72:=HHV(IF(ROUND(XDATA72)=BARPOS,DATE,0),0);
DUIXCD89:=HHV(IF(ROUND(XDATA89)=BARPOS,DATE,0),0);
DUIXCD144:=HHV(IF(ROUND(XDATA144)=BARPOS,DATE,0),0);
DUIXCD233:=HHV(IF(ROUND(XDATA233)=BARPOS,DATE,0),0);
DUIXCD377:=HHV(IF(ROUND(XDATA377)=BARPOS,DATE,0),0);
DUIXCD610:=HHV(IF(ROUND(XDATA610)=BARPOS,DATE,0),0);
DUIXCD987:=HHV(IF(ROUND(XDATA987)=BARPOS,DATE,0),0);
DUIXCD1597:=HHV(IF(ROUND(XDATA1597)=BARPOS,DATE,0),0);
DUIXCD2584:=HHV(IF(ROUND(XDATA2584)=BARPOS,DATE,0),0);
DUIXCD4181:=HHV(IF(ROUND(XDATA4181)=BARPOS,DATE,0),0);
DRAWTEXT(SYST1B<>SYST3 AND ROUND(XDATA21)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD21+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD21,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA34)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD34+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD34,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA55)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD55+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD55,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA72)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD72+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD72,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA89)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD89+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD89,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA144)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD144+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD144,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA233)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD233+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD233,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA377)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD377+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD377,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA610)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD610+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD610,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA987)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD987+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD987,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA1597)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD1597+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD1597,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA2584)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD2584+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD2584,0),4)),ALIGN1,PXDN20,colorFFFF;
DRAWTEXT(ROUND(XDATA4181)=BARPOS AND DATATYPE>=6,SYST4,STRLEFT(NUMTOSTR(DUIXCD4181+19000000,0),4)+STRRIGHT(NUMTOSTR(DUIXCD4181,0),4)),ALIGN1,PXDN20,colorFFFF;
FGCHAL:=SYST1BFGCHAM:=SYST1BFGCHAJ:=SYST3-SYST1B;
DRAWTEXT(FGCHAL,SYST5,'间隔'),ALIGN2,color99FF;
DRAWTEXT(FGCHAL,SYST5,NUMTOSTR(ABS(FGCHAJ),0)),ALIGN1,color99FF;
VERTLINE(FGCHAM),POINTDOT,color99FF;
DRAWTEXT(FGCHAM,SYST5,'对称'),ALIGN2,color99FF;
DRAWTEXT(FGCHAM,SYST5,NUMTOSTR(ABS(FGCHAJ),0)),ALIGN1,color99FF;
DUICHENDATE:=HHV(IF(FGCHAM,DATE,0),0);
DUICHENTIME:=HHV(IF(FGCHAM,TIME,0),0);
DRAWTEXT(FGCHAM,SYST5,'时间'),ALIGN2,PXUP20,color99FF;
DRAWTEXT(FGCHAM,SYST5,STRLEFT(NUMTOSTR(DUICHENDATE+19000000,0),4)+STRRIGHT(NUMTOSTR(DUICHENDATE,0),4)+(IF(DATATYPE<6,IF(STRLEN(NUMTOSTR(DUICHENTIME,0))=6,' '+STRLEFT(NUMTOSTR(DUICHENTIME,0),2)+':'+STRRIGHT(STRLEFT(NUMTOSTR(DUICHENTIME,0),4),2),' '+STRLEFT(NUMTOSTR(DUICHENTIME,0),1)+':'+STRRIGHT(STRLEFT(NUMTOSTR(DUICHENTIME,0),3),2)),''))),ALIGN1,PXUP20,color99FF;
E2:=(HIGH+LOW)/2;
A1:=REF(HIGH,N)=HHV(HIGH,2*N+1) AND BARPOS<=SYSTA;
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);
A2:=REF(LOW,N)=LLV(LOW,2*N+1) AND BARPOS<=SYSTA;
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);
E1:=(REF(LLV(LOW,2*N),1)+REF(HHV(HIGH,2*N),1))/2;
H1:=D1 AND NOT(D2 AND E1>=E2) OR ISSYSTABAR OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=D2 AND NOT(D1 AND E1H2:=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);
LDX:=I1>REF(I1,1);
L2:=LDX OR ISSYSTABAR OR ISLASTBAR 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);
HDX:=I2>REF(I2,1);
DRAWLINE(LDX,LOW,HDX,HIGH,0),POINTDOT,LINETHICK1,colorFFFF;
DRAWLINE(HDX,HIGH,LDX,LOW,0),POINTDOT,LINETHICK1,colorFFFF;
J1:=BACKSET(ISSYSTABAR,MIN(BARSLAST(HDX),BARSLAST(LDX))+1);
J2:=J1>REF(J1,1);
DRAWLINE(J2,IF(HDX,HIGH,LOW),ISSYSTABAR,IF(BARSLAST(HDX)>BARSLAST(LDX),HIGH,LOW),0),POINTDOT,LINETHICK1,colorFFFF;
A3:=HIGHB3:=REF(HIGH,REF(BARSLAST(HDX),1)+1)>REF(HIGH,REF(BARSLAST(HDX),1)+2+REF(BARSLAST(HDX),REF(BARSLAST(HDX),1)+2));
D3:=A3 AND B3 AND HDX;
E3:=BACKSET(D3,REF(BARSLAST(HDX),1)+2);
LTHH:=E3>REF(E3,1);
A4:=LOW>REF(LOW,REF(BARSLAST(LDX),1)+1);
B4:=REF(LOW,REF(BARSLAST(LDX),1)+1)D4:=A4 AND B4 AND LDX;
E4:=BACKSET(D4,REF(BARSLAST(LDX),1)+2);
LTLL:=E4>REF(E4,1);
H3:=LTHH OR ISSYSTABAR OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X3:=REF(BARSLAST(H3),1)+1;
F3:=BACKSET(H3 AND COUNT(LTLL,X3)>0,LLVBARS(IF(LTLL,LOW,POW(10,20)),X3));
G3:=F3>REF(F3,1);
I3:=BACKSET(G3,2);
LZ:=I3>REF(I3,1);
L4:=LZ OR ISSYSTABAR OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X4:=REF(BARSLAST(L4),1)+1;
F4:=BACKSET(L4 AND COUNT(LTHH,X4)>0,HHVBARS(IF(LTHH,HIGH,-POW(10,20)),X4));
G4:=F4>REF(F4,1);
I4:=BACKSET(G4,2);
HZ:=I4>REF(I4,1);
DRAWLINE(HZ,HIGH,LZ,LOW,0),LINETHICK1,colorFF00;
DRAWLINE(LZ,LOW,HZ,HIGH,0),LINETHICK1,colorFF00;
DRAWICON(HZ,HIGH,12),PXUP2;
DRAWICON(LZ,LOW,12),PXDN2;
K1:=BACKSET(ISSYSTABAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1);
K2:=K1>REF(K1,1);
DRAWLINE(K2,IF(HZ,HIGH,LOW),ISSYSTABAR,CLOSE,0),LINETHICK1,colorFF00;
UU:=BACKSET(ISSYSTABAR,BARSLAST(LDX)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LDX),1)+2);
XX:=WW>REF(WW,1);
DRAWLINE(XX,LOW,VV,LOW,1),LINETHICK1,colorFF00FF;
UU2:=BACKSET(ISSYSTABAR,BARSLAST(HDX)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HDX),1)+2);
XX2:=WW2>REF(WW2,1);
DRAWLINE(XX2,HIGH,VV2,HIGH,1),LINETHICK1,colorFF00FF;
前一低:REF(LOW,BARSLAST(VV)),POINTDOT,LINETHICK3,PRECISION2,color99FF66;
前二低:REF(LOW,BARSLAST(XX)),POINTDOT,LINETHICK3,PRECISION2,colorFF66FF;
前一高:REF(HIGH,BARSLAST(VV2)),POINTDOT,LINETHICK3,PRECISION2,color99FF66;
前二高:REF(HIGH,BARSLAST(XX2)),POINTDOT,LINETHICK3,PRECISION2,colorFF66FF;
短比:(CLOSE-前一低)/(前一高-前一低),LINETHICK0,PRECISION3,colorFF00;
DRAWNUMBER(BARPOS=SYST3,前一低,前一低,2),ALIGN1,SHIFT1,PXUP8,color99FF66;
DRAWNUMBER(BARPOS=SYST3,前二低,前二低,2),ALIGN1,SHIFT1,PXUP8,colorFF66FF;
DRAWNUMBER(BARPOS=SYST3,前一高,前一高,2),ALIGN1,SHIFT1,PXUP8,color99FF66;
DRAWNUMBER(BARPOS=SYST3,前二高,前二高,2),ALIGN1,SHIFT1,PXUP8,colorFF66FF;
MAXVV1:=BARSLAST(VV);
MAXVV2:=BARSLAST(VV2);
MAXVV:=IF(MAXVV1[SYSTA]>MAXVV2[SYSTA],MAXVV1,MAXVV2);
MINVV:=IF(MAXVV1[SYSTA]>MAXVV2[SYSTA],MAXVV2,MAXVV1);
MAXXX1:=BARSLAST(XX);
MAXXX2:=BARSLAST(XX2);
MAXXX:=IF(MAXXX1[SYSTA]>MAXXX2[SYSTA],MAXXX1,MAXXX2);
常数:=REF(INDEXC,MINVV)/REF(CLOSE,MINVV);
叠:INDEXC/常数,LINETHICK0,PRECISION2,colorFFCC00;
PARTLINE(1,叠),colorFFCC00;
常数2:=REF(INDEXC,MAXXX)/REF(CLOSE,MAXXX);
叠2:=INDEXC/常数2;
PARTLINE(1,叠2),colorFFCC00;
STICKLINE(VV,前一高,前一低,0,0),LINETHICK3,colorFF6633;
DRAWLINE(VV2,HIGH,VV,LOW,0),LINETHICK3,colorFF6633;
DRAWLINE(VV2,HIGH,VV,前一高,0),LINETHICK3,colorFF6633;
STICKLINE(VV2,前一高,前一低,0,0),LINETHICK3,colorFF;
DRAWLINE(VV,LOW,VV2,HIGH,0),LINETHICK3,colorFF;
DRAWLINE(VV,LOW,VV2,前一低,0),LINETHICK3,colorFF;
DRAWTEXT(ISSYSTABAR AND MIN(BARSLAST(VV),BARSLAST(VV2))=3,SYST4,'三日不创新'+(IF(BARSLAST(VV)=MIN(BARSLAST(VV),BARSLAST(VV2)),'低','高'))),ALIGN2,PXDN40,colorFFFF;
DRAWTEXT(ISSYSTABAR AND MIN(BARSLAST(VV),BARSLAST(VV2))>=3 AND CLOSE<=LLV(CLOSE,MIN(BARSLAST(VV),BARSLAST(VV2))),SYST4,'收盘新低'),ALIGN2,PXDN60,colorFFFF;
DRAWNUMBER(HZ,HIGH,DATEDIFF(REF(DATE,BARSLAST(LZ)),DATE),0),ALIGN2,PXUP40,colorFFFF;
DRAWTEXT(HZ,HIGH,'D'),ALIGN1,PXUP40,colorFFFF;
DRAWNUMBER(HZ,HIGH,BARSLAST(LZ),0),ALIGN2,PXUP20,colorFFFF;
DRAWTEXT(HZ,HIGH,'T'),ALIGN1,PXUP20,colorFFFF;
DRAWNUMBER(LZ,LOW,DATEDIFF(REF(DATE,BARSLAST(HZ)),DATE),0),ALIGN2,PXDN20,colorFFFF;
DRAWTEXT(LZ,LOW,'D'),ALIGN1,PXDN20,colorFFFF;
DRAWNUMBER(LZ,LOW,BARSLAST(HZ),0),ALIGN2,PXDN40,colorFFFF;
DRAWTEXT(LZ,LOW,'T'),ALIGN1,PXDN40,colorFFFF;
DISPNUM:=IF(CLOSE>(SYST4+SYST5)/2,LOW,HIGH);
DRAWNUMBER(ISSYSTABAR AND CLOSE>(SYST4+SYST5)/2,DISPNUM,DATEDIFF(REF(DATE,MIN(BARSLAST(HZ),BARSLAST(LZ))),DATE),0),ALIGN2,PXDN40,colorFFFF;
DRAWTEXT(ISSYSTABAR AND CLOSE>(SYST4+SYST5)/2,DISPNUM,'D'),ALIGN1,PXDN40,colorFFFF;
DRAWNUMBER(ISSYSTABAR AND CLOSE>(SYST4+SYST5)/2,DISPNUM,MIN(BARSLAST(HZ),BARSLAST(LZ)),0),ALIGN2,PXDN60,colorFFFF;
DRAWTEXT(ISSYSTABAR AND CLOSE>(SYST4+SYST5)/2,DISPNUM,'T'),ALIGN1,PXDN60,colorFFFF;
DRAWNUMBER(ISSYSTABAR AND CLOSE<=(SYST4+SYST5)/2,DISPNUM,DATEDIFF(REF(DATE,MIN(BARSLAST(HZ),BARSLAST(LZ))),DATE),0),ALIGN2,PXUP100,colorFFFF;
DRAWTEXT(ISSYSTABAR AND CLOSE<=(SYST4+SYST5)/2,DISPNUM,'D'),ALIGN1,PXUP100,colorFFFF;
DRAWNUMBER(ISSYSTABAR AND CLOSE<=(SYST4+SYST5)/2,DISPNUM,MIN(BARSLAST(HZ),BARSLAST(LZ)),0),ALIGN2,PXUP80,colorFFFF;
DRAWTEXT(ISSYSTABAR AND CLOSE<=(SYST4+SYST5)/2,DISPNUM,'T'),ALIGN1,PXUP80,colorFFFF;
E0:=IF(CLOSE>REF(CLOSE,1) AND LOW>REF(CLOSE,1) AND (LOW-REF(CLOSE,1))/REF(CLOSE,1)*100>QKP AND BARPOS<=SYSTA,1,IF(CLOSEQKP AND BARPOS<=SYSTA,-1,0));
FA1:=REF(HIGH,T)=HHV(HIGH,2*T+1) AND BARPOS<=SYSTA;
FB1:=FILTER(FA1,T);
FC1:=BACKSET(FB1,T+1);
FD1:=FILTER(FC1,T);
FA2:=REF(LOW,T)=LLV(LOW,2*T+1) AND BARPOS<=SYSTA;
FB2:=FILTER(FA2,T);
FC2:=BACKSET(FB2,T+1);
FD2:=FILTER(FC2,T);
FE1:=(REF(LLV(LOW,2*T),1)+REF(HHV(HIGH,2*T),1))/2;
FH1:=FD1 AND NOT(FD2 AND FE1>=E2) OR ISSYSTABAR OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
FL1:=FD2 AND NOT(FD1 AND FE1FH2:=FD1 AND NOT(FD2 AND FE1>=E2);
FX1:=REF(BARSLAST(FH1),1)+1;
FF1:=BACKSET(FH1 AND COUNT(FL1,FX1)>0,LLVBARS(IF(FL1,LOW,10000),FX1));
FG1:=FF1>REF(FF1,1);
FI1:=BACKSET(FG1,2);
LD:=FI1>REF(FI1,1);
FL2:=LD OR ISSYSTABAR OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
FX2:=REF(BARSLAST(FL2),1)+1;
FF2:=BACKSET(FL2 AND COUNT(FH2,FX2)>0,HHVBARS(IF(FH2,HIGH,0),FX2));
FG2:=FF2>REF(FF2,1);
FI2:=BACKSET(FG2,2);
HD:=FI2>REF(FI2,1);
DRAWICON(HD,HIGH,12),PXUP2;
DRAWICON(LD,LOW,12),PXDN2;
QKH:=E0=1 AND LD=0 AND HD=0;
QKL:=E0=-1 AND LD=0 AND HD=0;
DRAWICON(QKH,SYST4,14),ALIGN0,PXDN5;
DRAWICON(QKL,SYST5,14),ALIGN0,PXUP5;
FOR I=1 TO HLKD DO BEGIN
IF SYSTA-HLKD+I>T+2 THEN BEGIN
IF HD[SYSTA-HLKD+I]=1 THEN BEGIN
JJ:=JJ+1;
HHD[JJ]:=SYSTA-HLKD+I;
END;
IF LD[SYSTA-HLKD+I]=1 THEN BEGIN
KK:=KK+1;
LLD[KK]:=SYSTA-HLKD+I;
END;
IF QKH[SYSTA-HLKD+I]=1 THEN BEGIN
MM:=MM+1;
QKHD[MM]:=SYSTA-HLKD+I;
END;
IF QKL[SYSTA-HLKD+I]=1 THEN BEGIN
NN:=NN+1;
QKLD[NN]:=SYSTA-HLKD+I;
END;
END;
END;
QQ:=1;
FOR I=1 TO JJ DO BEGIN
FOR J=I+1 TO JJ DO BEGIN
IF HH[HHD[I]]>HH[HHD[J]] THEN BEGIN
HHDLH:=LINEVALUE(BARPOS=HHD[I],HIGH,BARPOS=HHD[J],HIGH,0,0);
HHDLHP:=HHDLH[SYSTA]*2-(HHDLH[SYSTA-M]);
P:=I;
W:=J;
IF LLD[P]=0 OR LLD[P]P:=I+1;
IF LLD[W]=0 OR LLD[W]>HHD[J] THEN
W:=J-1;
FOR Q=P TO W DO BEGIN
HHDLHQ:=BETWEEN(LL[LLD[Q]],HHDLHP,HHDLH[SYSTA-M]);
IF HHDLHQ=1 THEN BEGIN
QQH[QQ]:=HHD[I];
QQH[QQ+1]:=HHD[J];
QQH[QQ+2]:=LLD[Q];
QQ:=QQ+3;
END;
END;
END;
END;
FOR J=1 TO MM DO BEGIN
IF QKHD[J]-1>HHD[I] AND HH[HHD[I]]>HH[QKHD[J]-1] THEN BEGIN
QKHDLH:=LINEVALUE(BARPOS=HHD[I],HIGH,BARPOS=QKHD[J]-1,HIGH,0,0);
QKHDLHP:=QKHDLH[SYSTA]*2-(QKHDLH[SYSTA-M]);
P:=I;
IF LLD[P]=0 OR LLD[P]P:=I+1;
FOR Q=P TO KK DO BEGIN
QKHDLHQ:=BETWEEN(LLD[Q],HHD[I],QKHD[J]-1) AND BETWEEN(LL[LLD[Q]],QKHDLHP,QKHDLH[SYSTA-M]);
IF QKHDLHQ=1 THEN BEGIN
QQH[QQ]:=HHD[I];
QQH[QQ+1]:=QKHD[J]-1;
QQH[QQ+2]:=LLD[Q];
QQ:=QQ+3;
END;
END;
END;
IF QKHD[J]>HHD[I] AND HH[HHD[I]]>LL[QKHD[J]] THEN BEGIN
QKHDLHT:=LINEVALUE(BARPOS=HHD[I],HIGH,BARPOS=QKHD[J],LOW,0,0);
QKHDLHTP:=QKHDLHT[SYSTA]*2-(QKHDLHT[SYSTA-M]);
P:=I;
IF LLD[P]=0 OR LLD[P]P:=I+1;
FOR Q=P TO KK DO BEGIN
QKHDLHQT:=BETWEEN(LLD[Q],HHD[I],QKHD[J]) AND BETWEEN(LL[LLD[Q]],QKHDLHTP,QKHDLHT[SYSTA-M]);
IF QKHDLHQT=1 THEN BEGIN
QQH[QQ]:=HHD[I];
QQH[QQ+1]:=QKHD[J];
QQH[QQ+2]:=LLD[Q];
QQ:=QQ+3;
END;
END;
END;
END;
END;
QQP:=QQ;
I:=1;
QQHTJ:=QQ>3;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=4;
QQHTJ:=QQ>6;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=7;
QQHTJ:=QQ>9;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=10;
QQHTJ:=QQ>12;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=13;
QQHTJ:=QQ>15;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=16;
QQHTJ:=QQ>18;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=19;
QQHTJ:=QQ>21;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=22;
QQHTJ:=QQ>24;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=25;
QQHTJ:=QQ>27;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=28;
QQHTJ:=QQ>30;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=31;
QQHTJ:=QQ>33;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=34;
QQHTJ:=QQ>36;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=37;
QQHTJ:=QQ>39;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=40;
QQHTJ:=QQ>42;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=43;
QQHTJ:=QQ>45;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=46;
QQHTJ:=QQ>48;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=49;
QQHTJ:=QQ>51;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=52;
QQHTJ:=QQ>54;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=55;
QQHTJ:=QQ>57;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=58;
QQHTJ:=QQ>60;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=61;
QQHTJ:=QQ>63;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=64;
QQHTJ:=QQ>66;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=67;
QQHTJ:=QQ>69;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=70;
QQHTJ:=QQ>72;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=73;
QQHTJ:=QQ>75;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=76;
QQHTJ:=QQ>78;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=79;
QQHTJ:=QQ>81;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=82;
QQHTJ:=QQ>84;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=85;
QQHTJ:=QQ>87;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=88;
QQHTJ:=QQ>90;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=91;
QQHTJ:=QQ>93;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=94;
QQHTJ:=QQ>96;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=97;
QQHTJ:=QQ>99;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=100;
QQHTJ:=QQ>102;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=103;
QQHTJ:=QQ>105;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
I:=106;
QQHTJ:=QQ>108;
IF QQHTJ THEN BEGIN
DRAWLINE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),1),color8293;
PARTLINE(BARPOS>QQH[I+2],LL[QQH[I+2]]),color8293;
DRAWICON(BARPOS=QQH[I],HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=1,LOW,11),PXDN2;
DRAWICON(BARPOS=QQH[I+1] AND QKH=0,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQH[I+2],LOW,11),PXDN2;
DRAWNUMBER(BARPOS=QQH[I],HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=1,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQH[I+1] AND QKH=0,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQH[I+2],LOW,LOW,2),PXDN20,colorFFFF00;
HHDLH:=LINEVALUE(BARPOS=QQH[I],HIGH,BARPOS=QQH[I+1],IF(QKH=1,LOW,HIGH),0,0);
VERTLINE(CROSS(LL[QQH[I+2]],HHDLH)),color8293;
DRAWICON(CROSS(LL[QQH[I+2]],HHDLH),LL[QQH[I+2]],8),ALIGN0,PXDN8;
HHDLHT:=(HHDLH[SYSTA]-(LL[QQH[I+2]]))/((HHDLH[SYSTA-M]-HHDLH[SYSTA])/M);
DRAWNUMBER(BARPOS=QQH[I+2] AND HHDLHT>0,LOW,HHDLHT,2),ALIGN1,SHIFT2,PXUP20,colorFFFF;
END;
QQ:=1;
FOR I=1 TO KK DO BEGIN
FOR J=I+1 TO KK DO BEGIN
IF LL[LLD[I]]LLDLL:=LINEVALUE(BARPOS=LLD[I],LOW,BARPOS=LLD[J],LOW,0,0);
LLDLLP:=LLDLL[SYSTA]*2-(LLDLL[SYSTA-M]);
P:=I;
W:=J;
IF HHD[P]=0 OR HHD[P]P:=I+1;
IF HHD[W]=0 OR HHD[W]>LLD[J] THEN
W:=J-1;
FOR Q=P TO W DO BEGIN
LLDLLQ:=BETWEEN(HH[HHD[Q]],LLDLLP,LLDLL[SYSTA-M]);
IF LLDLLQ=1 THEN BEGIN
QQL[QQ]:=LLD[I];
QQL[QQ+1]:=LLD[J];
QQL[QQ+2]:=HHD[Q];
QQ:=QQ+3;
END;
END;
END;
END;
FOR J=1 TO NN DO BEGIN
IF QKLD[J]-1>LLD[I] AND LL[LLD[I]]QKLDLL:=LINEVALUE(BARPOS=LLD[I],LOW,BARPOS=QKLD[J]-1,LOW,0,0);
QKLDLLP:=QKLDLL[SYSTA]*2-(QKLDLL[SYSTA-M]);
P:=I;
IF HHD[P]=0 OR HHD[P]P:=I+1;
FOR Q=P TO JJ DO BEGIN
QKLDLLQ:=BETWEEN(HHD[Q],LLD[I],QKLD[J]-1) AND BETWEEN(HH[HHD[Q]],QKLDLLP,QKLDLL[SYSTA-M]);
IF QKLDLLQ=1 THEN BEGIN
QQL[QQ]:=LLD[I];
QQL[QQ+1]:=QKLD[J]-1;
QQL[QQ+2]:=HHD[Q];
QQ:=QQ+3;
END;
END;
END;
IF QKLD[J]>LLD[I] AND LL[LLD[I]]QKLDLLT:=LINEVALUE(BARPOS=LLD[I],LOW,BARPOS=QKLD[J],HIGH,0,0);
QKLDLLTP:=QKLDLLT[SYSTA]*2-(QKLDLLT[SYSTA-M]);
P:=I;
IF HHD[P]=0 OR HHD[P]P:=I+1;
FOR Q=P TO JJ DO BEGIN
QKLDLLQT:=BETWEEN(HHD[Q],LLD[I],QKLD[J]) AND BETWEEN(HH[HHD[Q]],QKLDLLTP,QKLDLLT[SYSTA-M]);
IF QKLDLLQT=1 THEN BEGIN
QQL[QQ]:=LLD[I];
QQL[QQ+1]:=QKLD[J];
QQL[QQ+2]:=HHD[Q];
QQ:=QQ+3;
END;
END;
END;
END;
END;
QQQ:=QQ;
I:=1;
QQLTJ:=QQ>3;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=4;
QQLTJ:=QQ>6;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=7;
QQLTJ:=QQ>9;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=10;
QQLTJ:=QQ>12;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=13;
QQLTJ:=QQ>15;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=16;
QQLTJ:=QQ>18;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=19;
QQLTJ:=QQ>21;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=22;
QQLTJ:=QQ>24;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=25;
QQLTJ:=QQ>27;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=28;
QQLTJ:=QQ>30;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=31;
QQLTJ:=QQ>33;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=34;
QQLTJ:=QQ>36;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=37;
QQLTJ:=QQ>39;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=40;
QQLTJ:=QQ>42;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=43;
QQLTJ:=QQ>45;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=46;
QQLTJ:=QQ>48;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=49;
QQLTJ:=QQ>51;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=52;
QQLTJ:=QQ>54;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=55;
QQLTJ:=QQ>57;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=58;
QQLTJ:=QQ>60;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=61;
QQLTJ:=QQ>63;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=64;
QQLTJ:=QQ>66;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=67;
QQLTJ:=QQ>69;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=70;
QQLTJ:=QQ>72;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=73;
QQLTJ:=QQ>75;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=76;
QQLTJ:=QQ>78;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=79;
QQLTJ:=QQ>81;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=82;
QQLTJ:=QQ>84;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=85;
QQLTJ:=QQ>87;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=88;
QQLTJ:=QQ>90;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=91;
QQLTJ:=QQ>93;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=94;
QQLTJ:=QQ>96;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=97;
QQLTJ:=QQ>99;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=100;
QQLTJ:=QQ>102;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=103;
QQLTJ:=QQ>105;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
I:=106;
QQLTJ:=QQ>108;
IF QQLTJ THEN BEGIN
DRAWLINE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),1),POINTDOT,color55AA88;
PARTLINE(BARPOS>QQL[I+2],HH[QQL[I+2]]),POINTDOT,color55AA88;
DRAWICON(BARPOS=QQL[I],LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=1,HIGH,10),PXUP2;
DRAWICON(BARPOS=QQL[I+1] AND QKL=0,LOW,11),PXDN2;
DRAWICON(BARPOS=QQL[I+2],HIGH,10),PXUP2;
DRAWNUMBER(BARPOS=QQL[I],LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=1,HIGH,HIGH,2),PXUP20,colorFF00FF;
DRAWNUMBER(BARPOS=QQL[I+1] AND QKL=0,LOW,LOW,2),PXDN20,colorFFFF00;
DRAWNUMBER(BARPOS=QQL[I+2],HIGH,HIGH,2),PXUP20,colorFF00FF;
LLDLL:=LINEVALUE(BARPOS=QQL[I],LOW,BARPOS=QQL[I+1],IF(QKL=1,HIGH,LOW),0,0);
VERTLINE(CROSS(LLDLL,HH[QQL[I+2]])),POINTDOT,color55AA88;
DRAWICON(CROSS(LLDLL,HH[QQL[I+2]]),HH[QQL[I+2]],9),ALIGN0,PXDN5;
LLDLLT:=(HH[QQL[I+2]]-LLDLL[SYSTA])/((LLDLL[SYSTA]-(LLDLL[SYSTA-M]))/M);
DRAWNUMBER(BARPOS=QQL[I+2] AND LLDLLT>0,HIGH,LLDLLT,2),ALIGN1,SHIFT2,PXDN5,colorFFFF;
END;
M5:=MA(CLOSE,5);
M10:=MA(CLOSE,10);
DRAWICON(CROSS(M10,M5),HIGH,5),ALIGN0,PXUP15;
DRAWICON(CROSS(M5,M10),LOW,4),ALIGN0,PXDN30;
DRAWTEXT(BARPOS=SYSTA AND (CROSS(M10,M5) OR CROSS(M5,M10)),SYST5,'红绿箭头是5/10周期均线缠绕'),ALIGN2,colorFFFF;
上升组:(QQQ-1)/3,LINETHICK0,colorFFFF;
下降组:(QQP-1)/3,LINETHICK0,colorFF00;
卖线:EMA(SLOPE(CLOSE,21)*20+CLOSE,42),LINETHICK0,PRECISION2,color99FF;
PARTLINE(BETWEEN(卖线,SYST4,SYST5),卖线),LINEDOT,LINETHICK1,color99FF;
PARTLINE(BETWEEN(REF(卖线,3),SYST4,SYST5),REF(卖线,3)),LINEDOT,LINETHICK1,color9999;
M60:MA(CLOSE,60),LINETHICK0,PRECISION2,colorFFFFFF;
PARTLINE(BETWEEN(M60,SYST4,SYST5),M60),LINEDOT,LINETHICK1,colorFFFFFF;
PARTLINE(BETWEEN(REF(M60,3),SYST4,SYST5),REF(M60,3)),LINEDOT,LINETHICK1,colorFFFF99;
DRAWLINE(XX,LOW,VV,LOW,1),LINETHICK1,colorFF00FF;
DRAWLINE(XX2,HIGH,VV2,HIGH,1),LINETHICK1,colorFF00FF;
DRAWTEXTEX(1,0,10,0,'★反转魔力★对称时间线'),colorFFFF;
DRAWTEXTEX(1,0,10,15,'  日历天数:'+NUMTOSTR(DAYS1[SYSTA],0)),colorFFFF;
DRAWTEXTEX(1,0,10,30,'  交易天数:'+NUMTOSTR(DAYS0[SYSTA]+1,0)),colorFFFF;
DRAWTEXT(BARPOS=SYST2 AND NOT(SYST1=SYST2 AND DATATYPE<6),SYST5,'★'+NUMTOSTR(HLKD,0)+'日内反转魔力'+(IF(TT>=10 AND 盘中判断[DATACOUNT]=1 AND SYST1=SYST3 AND SYST3=DATACOUNT,'动态',''))+'周期参数:'+NUMTOSTR(T,0)),colorFFFF;
PARTLINE(DATATYPE<6 AND SYST1=SYST2 AND BETWEEN(日买线,SYST4,SYST5),日买线),POINTDOT,colorD98EF1;
PARTLINE(DATATYPE<6 AND SYST1=SYST2 AND BETWEEN(日卖线,SYST4,SYST5),日卖线),POINTDOT,colorFF;
DRAWTEXT(DATATYPE<6 AND SYST1=SYST2 AND BARPOS=SYST2,SYST5,'★叠加日线级别的买卖线(参数:21/42)'),colorFFFF;
TCFCC:=CLOSE;
TCFRC:=REF(CLOSE,1);
TCFDD:=TCFCC-TCFRC;
正C:=IF(TCFDD>0,TCFDD,0);
負C:=IF(TCFDD<=0,ABS(TCFDD),0);
TCFW:=BARSLAST(正C=0);
TCFEE:=SUM(正C,TCFW);
TCFWW:=BARSLAST(負C=0);
TCFFF:=SUM(負C,TCFWW);
TCFX:=IF(正C=0,0,0);
TCFY:=IF(負C=0,TCFEE,0);
正CF:=TCFX+TCFY;
TCFXX:=IF(正C=0,TCFFF,0);
TCFYY:=IF(負C=0,0,0);
負CF:=TCFXX+TCFYY;
正TCF:=SUM(正C,3)-SUM(負CF,3);
負TCF:=SUM(負C,3)-SUM(正CF,3);
TCFOO:=IF(正TCF<=0 AND 負TCF<=0,3,0);
TCFGG1:=IF(正TCF>0 AND 負TCF<0,1,0);
TCFGG2:=IF(TCFOO=3 AND REF(TCFGG1,1)=1,1,0);
TCFGG3:=TCFGG1+TCFGG2;
TCFGG4:=IF(TCFOO=3 AND REF(TCFGG3,1)=1,1,0);
TCFGG5:=TCFGG3+TCFGG4;
TCFGG6:=IF(TCFOO=3 AND REF(TCFGG5,1)=1,1,0);
TCFGG:=TCFGG5+TCFGG6;
TCFHH1:=IF(正TCF<0 AND 負TCF>0,2,0);
TCFHH2:=IF(TCFOO=3 AND REF(TCFHH1,1)=2,2,0);
TCFHH3:=TCFHH1+TCFHH2;
TCFHH4:=IF(TCFOO=3 AND REF(TCFHH3,1)=2,2,0);
TCFHH5:=TCFHH3+TCFHH4;
TCFHH6:=IF(TCFOO=3 AND REF(TCFHH5,1)=2,2,0);
TCFHH:=TCFHH5+TCFHH6;
DRAWTEXTEX(1,0,10,45,'  正TCF:'+NUMTOSTR(正TCF[SYSTA],3)),colorFFFF00;
DRAWTEXTEX(1,0,10,60,'  負TCF:'+NUMTOSTR(負TCF[SYSTA],3)),colorFFFF00;
DRAWTEXTEX(1,0,10,75,'  多:'+NUMTOSTR(TCFGG[SYSTA],0)+' 空:'+NUMTOSTR(TCFHH[SYSTA],0)+' 不变:'+NUMTOSTR(TCFOO[SYSTA],0)),colorFFFF;