{钻石枪}
X_1:=1;
X_2:=DYNAINFO(4)>0;
X_3:=TOPRANGE(vol);
X_4:=MA(CLOSE,20);
X_5:=(MIN(CLOSE,OPEN)-LOW)/LOW*100;
X_6:=(HIGH-MAX(CLOSE,OPEN))/MAX(CLOSE,OPEN)*100;
X_7:=INBLOCK(1) OR INBLOCK(2);
X_8:=HIGH/CLOSE<CLOSE/OPEN AND (HIGH/LLV(LOW,2)<1.19 AND CLOSE/LLV(LOW,2)<1.15 AND X_7=0 AND X_3>25 OR (HIGH/LLV(LOW,2)<1.29 AND CLOSE/LLV(LOW,2)<1.25 AND X_7=1 AND X_3>20)) AND X_5<1.6 AND CLOSE<1.8*LLV(LOW,90) AND HIGH/LLV(LOW,3)<1.25 AND CLOSE>X_4 AND (HIGH/REF(CLOSE,1)>1.07 OR (HIGH/REF(CLOSE,1)>1.06 AND X_3>50)) AND VOL/REF(VOL,1)>=1.8 AND CLOSE/OPEN>1.03 AND CLOSE/REF(CLOSE,1)>=1.04 AND (HIGH>REF(HHV(HIGH,8),1) AND CLOSE>REF(HHV(IF(OPEN>CLOSE,OPEN,OPEN),8),1) OR HIGH>REF(HHV(HIGH,20),1) OR (X_3>50 AND HIGH>REF(HHV(HIGH,5),1)));
钻石枪:=X_1 AND X_2 AND X_8;
DRAWICON(钻石枪,L*0.995,25);
{涨停变色}
BK:=IF(INBLOCK('科创板'),0.2,IF(INBLOCK('创业板'),0.2,IF(INBLOCK('ST板块'),0.05,0.1)));
XA_1:=1;
STICKLINE((C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H) AND XA_1=1,O,C,3,0),COLORMAGENTA;
STICKLINE((C<=DTPRICE(REF(CLOSE,1),0.1) AND C=L) AND XA_1=1,O,C,3,0),COLOR33FF99;
STICKLINE((C>=ZTPRICE(REF(C,1),BK) AND C=H),C,O,3,0),COLORMAGENTA;
STICKLINE((C<=DTPRICE(REF(C,1),BK) AND C=L),C,O,3,0),COLOR33FFCC;
{金枪}
金枪:=C>O AND H/REF(C,1)>1.07 AND (O-L)/O<0.015 AND V/REF(V,1)>1.85 AND (H-C)/C>0.02;
DRAWICON(金枪,L*0.985,26);
{高开}
AA:=O>REF(C,1) AND C<O;
BB:=O>REF(C,1) AND C>O;
STICKLINE(AA,O,O-0.003,2,0) COLOR33FFFF;
STICKLINE(BB,O,O+0.003,2,0) COLOR33FFFF;
{炸板}
W1:=0.4;
W0:=0;
ZDJS:=IF(CODELIKE('880005'), 1, 0);
CYB:=IF(INBLOCK('创业板'), 1, 0);
ZDF:=IF(INBLOCK('科创板'),0.2,IF(INBLOCK('ST板块'), 0.05, 0.1));
ZT:=ZTPRICE(REF(CLOSE,1), ZDF);
DT:=DTPRICE(REF(CLOSE,1), ZDF);
ZT1:=ZTPRICE(REF(CLOSE,1), 0.1);
ZT2:=ZTPRICE(REF(CLOSE,1), 0.2);
DT1:=DTPRICE(REF(CLOSE,1), 0.1);
DT2:=DTPRICE(REF(CLOSE,1), 0.2);
NOCYB:=CYB=0 AND ZDJS=0;
{非20CM的上影和下影线}
STICKLINE((NOCYB AND C<ZT AND H=ZT AND C>O), C, H, W1, 0), COLORRED;
STICKLINE((NOCYB AND C<ZT AND H=ZT AND C<O), O, H, W1, 0), COLORRED;
STICKLINE((NOCYB AND C>DT AND L=DT AND C<O), C, L, W1, 0), COLORFF6666;
STICKLINE((NOCYB AND C>DT AND L=DT AND C>O), O, L, W1, 0), COLORFF6666;
{20CM的上影和下影线}
STICKLINE((CYB AND C<ZT2 AND H=ZT2 AND C<O), O, H, W1, 0), COLORRED;
STICKLINE((CYB AND C<ZT2 AND H=ZT2 AND C>O), C, H, W1, 0), COLORRED;
STICKLINE((CYB AND C>DT2 AND L=DT2 AND C<O), C, L, W1, 0), COLORFF6666;
STICKLINE((CYB AND C>DT2 AND L=DT2 AND C>O), O, L, W1, 0), COLORFF6666;
{极阴次阳}
AAAA:=(REF(H,4)-REF(L,1))/C*100>10;
BBBB:=(REF(L,1)-L)/C*100>=0;
CCCC:=REF(C<O,1) AND C>O;
DDDD:= CLOSE>REF(CLOSE,1)*1.03 ;
EEEEE:=(H-C)/C*100<1.5;
FFFFF:=V<=LLV(V,5) ;
GGGG:=AAAA AND BBBB AND CCCC AND DDDD AND EEEEE AND FFFFF;
DRAWTEXT(GGGG, L,'极阴次阳') COLORYELLOW;
{以下是风来点火部分}
N:=9;
M1:=3;
M2:=3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
J:=3*K-2*D;
金叉:=kdj.K>kdJ.D AND KDJ.J>KDJ.D AND KDJ.J>KDJ.K;
流通市值:=CAPITAL*C/1000000;
涨幅:=(C-REF(C,1))/REF(C,1)*100;
价格:=C;
VARAA:=NOT(NAMELIKE('ST') OR NAMELIKE('*ST') OR NAMELIKE('S') OR DYNAINFO(4)=0 OR INBLOCK('创业板') OR INBLOCK('科创板')) OR BARSCOUNT(C)>1;
VARBB:=流通市值>0 AND 流通市值<80;
VARCC:=涨幅>9.8 AND 涨幅<10.99 AND C=H;
VARDD:=价格>2 AND 价格<22;
VAREE:=COUNT(VARCC,2)=1;
XG1:=金叉 AND VARAA AND VARBB AND VARCC AND VARDD AND VAREE;
DRAWTEXT(XG1,L*0.98,'来风'),COLORRED;
ZF:=(C/REF(C,1)-1)*100;
高开:=(O/REF(C,1)-1)*100;
S0:=DYNAINFO(15)/O/100;
开盘满量1:=S0/REF(V,1)*100;
TA1:=(EMA(O,20)-REF(EMA(O,20),1))/REF(EMA(O,20),1)*100;
TA2:=REF(L,BARSLAST(crOSS(TA1,0)));
火力值:=(O-TA2)/TA2*100;
ZB:=CODELIKE('60') OR CODELIKE('00');
ZT0:=(C/REF(C,1)-1)*100>9.8 AND H=C;
ZTS:=EVERY(ZT0,4)<3;
XGB:=火力值<=20 AND REF(ZF>9.80,1) AND 高开>=2 AND 高开<=7.5 AND ZB AND ZTS;
DRAWTEXT(XGB,L*0.98,'点火'),COLORMAGENTA;
成交量:=V,COLORYELLOW,NODRAW;
主力抢筹:=S0/REF(V,1)*100,COLORRED,NODRAW;
DRAWTEXT_FIX( CURRBARSCOUNT=1 AND V>0,0,0.1,0,'主力抢筹:'),COLORRED;
DRAWNUMBER_FIX(CURRBARSCOUNT=1 AND V>0,0.2,0.1,0,主力抢筹),COLORRED;
{范范多空三线合一}
TS:=BARSCOUNT(CLOSE)>=10;
MM:=EMA((3*CLOSE+HIGH+LOW+OPEN)/6,20),COLORRED,LINETHICK1;
FL:=HHV(MM,5),LINETHICK1,COLORBLUE;
FS:=MM-(FL-MM),LINETHICK1,COLORFF00FF;
DRAWICON(FL=FS AND REF(FL,1)>REF(FS,1) AND TS ,L*0.985,1);
DRAWICON(FL>FS AND REF(FL,1)=REF(FS,1) AND TS,H*1.03,2);
{跳空缩量阴}
跳空缩量阴:=O>REF(C,1) AND C<O AND V<REF(V,1);
STICKLINE(跳空缩量阴,C,O,3,0),COLORCCFF99;
{平台突破，用黄柱表示}
A1:=REF(C,N)=HHV(C,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); HD:=FILTER(C1,N);
A2:=REF(C,N)=LLV(C,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); LD:=FILTER(C2,N);
UU:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);VV:=UU>REF(UU,1);
YLX:=1; {参数}
ZCX:=1;
DG:=1;
前期高位:=REF(C,BARSLAST(HD));
前期低位:=REF(C,BARSLAST(LD));
STICKLINE(H AND YLX=1,前期高位,前期高位,5,0),COLORYELLOW;
STICKLINE(L AND ZCX=1,前期低位,前期低位,5,0),COLORGRAY;
STICKLINE(CROSS(C,REF(前期高位,1)) AND (VOL>=REF(V,1)*2 OR VOL>=REF(V,2)*2),(C+O)/2,O+0.02,2.5,0),COLOR6666FF;
STICKLINE(CROSS(C,REF(前期高位,1)) AND (VOL>=REF(V,1)*2 OR VOL>=REF(V,2)*2),(C+O)/2,O+0.02,2.5,0),COLOR6666FF;
STICKLINE(CROSS(C,REF(前期高位,1)) AND (VOL>=REF(V,1)*2 OR VOL>=REF(V,2)*2),(C+O)/2,O+0.02,2.5,0),COLOR6666FF;
STICKLINE(CROSS(C,REF(前期高位,1)) AND (VOL>=REF(V,1)*2 OR VOL>=REF(V,2)*2),(C+O)/2,O+0.02,2.5,0),COLOR6666FF;
前高:REF(C,BARSLAST(VV)),COLORWHITE,LINETHICK1,DOTLINE;
顶高:REF(C,BARSLAST(VV))*DG,COLORGRAY,LINETHICK1,NODRAW;
平台周期:BARSLAST(VV),NODRAW;
平台振幅:(HHV(H,平台周期)-LLV(L,平台周期))/LLV(L,平台周期)*100,NODRAW;
{含30天内的资金数据}
AAV:=VOL/((H-L)*2-Abs(C-O));
KKPU1:=IF(C>OPEN,AAV*(HIGH-LOW),IF(C<OPEN,AAV*((HIGH-OPEN)+(C-LOW)),VOL/2)),NODRAW;
KKPU2:=IF(C>OPEN,0-AAV*((HIGH-C)+(OPEN-LOW)),IF(C<OPEN,0-AAV*(HIGH-LOW),0-VOL/2)),NODRAW;
净流入:=(KKPU1+KKPU2)/99,NODRAW;
KKPU3:=(C/REF(C,1)-1)*100;
DRAWTEXT(CURRBARSCOUNT<30 AND 净流入>=200 AND KKPU3>=3,L*0.995,VARCAT(VARCAT(' ',VAR2STR(净流入,0)),'万')),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT<30 AND 净流入<-200 AND KKPU3<=-2,H*1.01,VARCAT(VARCAT(' ',VAR2STR(净流入,0)),'万')),COLORGREEN;
AP:=AMOUNT/10000;
占比:=净流入/AP*100,NODRAW;
DRAWTEXT(CURRBARSCOUNT<30 AND 净流入>=200 AND KKPU3>=3 AND 占比>=15 ,L*0.965,VARCAT(VARCAT('占比:',VAR2STR(占比,0)),'%')),COLORMAGENTA;
SWL:=(EMA(CLOSE,10)*7+EMA(CLOSE,20)*3)/10;
SWS:=DMA(EMA(CLOSE,20),MAX(1,100*(SUM(VOL,5)/(3*CAPITAL)))),COLORWHITE,DOTLINE;
JRH:=HHV(C,2);
JRL:=LLV(C,2);
MA3:MA(CLOSE,3),COLORWHITE;
YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6;
ABC1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));
ABC2:=(REF(ABC1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABC3:=(REF(ABC2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABC4:=(REF(ABC3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABC5:=(REF(ABC4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABC6:=(REF(ABC5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABC7:=(REF(ABC6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABC8:=(REF(ABC7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABC9:=(REF(ABC8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABCA:=(REF(ABC9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABCB:=(REF(ABCA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABCC:=(REF(ABCB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABCD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2));
ABCE:=(REF(ABCD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABCF:=(REF(ABCE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABC10:=(REF(ABCF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABC11:=(REF(ABC10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABC12:=(REF(ABC11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABC13:=(REF(ABC12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABC14:=(REF(ABC13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABC15:=(REF(ABC14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABC16:=(REF(ABC15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABC17:=(REF(ABC16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ABC18:=(REF(ABC17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ABC19:=((REF(ABCD OR ABCE OR ABCF OR ABC10 OR ABC11 OR ABC12 OR ABC13 OR ABC14 OR ABC15 OR ABC16 OR ABC17 OR ABC18,1)) AND ABC1);
ABC1A:=((REF(ABC1 OR ABC2 OR ABC3 OR ABC4 OR ABC5 OR ABC6 OR ABC7 OR ABC8 OR ABC9 OR ABCA OR ABCB OR ABCC,1)) AND ABCD);
黄色持股:ABC1 OR ABC2 OR ABC3 OR ABC4 OR ABC5 OR ABC6 OR ABC7 OR ABC8 OR ABC9 OR ABCA OR ABCB OR ABCC,COLORYELLOW,NODRAW;
离场:=IF(黄色持股,JRL,DRAWNULL);
明离场价:=离场,COLORFF99FF,NODRAW;
今离场价:=REF(离场,1),COLOR0000FF,NODRAW;
青色观望:ABCD OR ABCE OR ABCF OR ABC10 OR ABC11 OR ABC12 OR ABC13 OR ABC14 OR ABC15 OR ABC16 OR ABC17 OR ABC18,COLOR00FF80,NODRAW;
进:=IF(青色观望,JRH,DRAWNULL);
短买:=ABC19,COLOR33AACC,NODRAW;
黄色离场:=ABC1A,COLORFF99FF,NODRAW;
STICKLINE(黄色持股,H,L, 0,0),COLORYELLOW;
STICKLINE(黄色持股,C,O, 2.8,0),COLORYELLOW;
STICKLINE(青色观望,H,L, 0,0),COLORGREEN;
STICKLINE(青色观望,C,O, 2.8,0),COLORGREEN;
CO:=(C-O);
V1:=(H-L)*0.05;
DRAWTEXT(短买,L,VARCAT('买 ',VAR2STR(L+V1,2))),COLORFF00FF;
DRAWTEXT(黄色离场,H,VARCAT('卖',VAR2STR(H-V1,2))),COLOR00FF80;
ACB1:=IF(MA(C,5)>MA(C,10),20,0);
ACB2:=IF(MA(C,20)>MA(C,60),10,0);
ACB3:=IF(KDJ.J>KDJ.K,10,0);
ACB4:=IF(macd.DIF>MACD.DEA,10,0);
ACB5:=IF(MACD.MACD>0,10,0);
ACB6:=IF(V>MA(V,60),10,0);
ACB7:=IF(WINNER(C)>0.5,10,0);
ACB8:=IF(C/REF(C,1)>1.03,10,0);
XX:=ACB1+ACB2+ACB3+ACB4+ACB5+ACB6+ACB7+ACB8;
DRAWTEXT_FIX(V>O, 0.92, 0.99,0,STRCAT('控仓管理：',STRCAT(CON2STR(XX,2),' %'))),COLORYELLOW;
AAC1:=STRCAT(HYBLOCK,' ');
AAC2:=STRCAT(AAC1,DYBLOCK);
AAC3:=STRCAT(AAC2,' ');
AAC4:=STRCAT(AAC3,GNBLOCK);
DRAWTEXT_FIX(ISLASTBAR, 0, 0, 0,STRCAT('所属板块：',AAC4)),COLORYELLOW;
E:=(HIGH+LOW+OPEN+2*CLOSE)/5;
明日阻力:=2*E-LOW;
明日支撑:=2*E-HIGH;
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
DRAWTEXT_FIX(C!=0, 0.92, 0.75, 0,STRCAT('今日压力：',STRCAT(CON2STR(今日阻力,2),' 元'))),COLORFFFF00;
DRAWTEXT_FIX(C!=0, 0.92, 0.80, 0,STRCAT('今日支撑：',STRCAT(CON2STR(今日支撑,2),' 元'))),COLORRED;
DRAWTEXT_FIX(C!=0, 0.92, 0.85, 0,STRCAT('明日压力：',STRCAT(CON2STR(明日阻力,2),' 元'))),COLORFFFF00;
DRAWTEXT_FIX(C!=0, 0.92, 0.90, 0,STRCAT('明日支撑：',STRCAT(CON2STR(明日支撑,2),' 元'))),COLORRED;
主力线:=(EMA(CLOSE,10)*7+EMA(CLOSE,20)*3)/10;
TC1:=IF(H=HHV(H,48),H,DRAWNULL);
TC2:=CONST(BARSLAST(TC1=H))+1;
UPPER:=CONST(IF(TC2=1,H,REF(H,TC2-1)));
BC1:=IF(L=LLV(L,48),L,DRAWNULL);
BC2:=CONST(BARSLAST(BC1=L))+1;
LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1)));
LP:=CURRBARSCOUNT<=BC2 AND L=LOWER;{低点定位}
HP:=CURRBARSCOUNT<=TC2 AND H=UPPER;{高点定位}
DRAWTEXT(LP,L*0.993,'↖波段底'),COLORLIGREEN;{波段底文字提示}
DRAWTEXT(HP,C*1.01,'←波段顶'),COLORMAGENTA;{波段顶文字提示}
STICKLINE(IF(BC2>TC2,HP,LP),LOWER,UPPER,0,0),COLORMAGENTA;{波段顶底竖线条}
STICKLINE(IF(BC2>TC2,LP,HP),LOWER,UPPER,0,0),COLOR628962; {波段顶底竖线条};
{当日吸筹}
VAR1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));
VAR2:=(REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR3:=(REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR4:=(REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR5:=(REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR6:=(REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR7:=(REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR8:=(REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR9:=(REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VARA:=(REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VARB:=(REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VARC:=(REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VARD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2));
VARYY:=(CLOSE/REF(CLOSE,1))>1.05 AND C>O AND C>REF(C,1);
VARE:=(REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VARF:=(REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR10:=(REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR11:=(REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR12:=(REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR13:=(REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR14:=(REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR15:=(REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR16:=(REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR17:=(REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
VAR18:=(REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
VAR19:=((REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR
VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1)) AND VAR1);
XG:=VAR19;
DRAWICON(XG,L*0.9999,41);
