通达信私募机构资金主图指标 源码 贴图

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;{公式网WWW.GPXIAZAI.COM}
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;
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;
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;
ZYGAA:=NOT(NAMELIKE('ST') OR NAMELIKE('*ST') OR NAMELIKE('S') OR DYNAINFO(4)=0 OR INBLOCK('创业板') OR INBLOCK('科创板')) OR BARSCOUNT(C)>1;
ZYGBB:=流通市值>0 AND 流通市值<80;
ZYGCC:=涨幅>9.8 AND 涨幅<10.99 AND C=H;
ZYGDD:=价格>2 AND 价格<22;
ZYGEE:=COUNT(ZYGCC,2)=1;
XG1:=金叉 AND ZYGAA AND ZYGBB AND ZYGCC AND ZYGDD AND ZYGEE;
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;
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;
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));
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);
VAR1A:=((REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,1)) AND VARD);
黄色持股:VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC,COLORYELLOW,NODRAW;
离场:=IF(黄色持股,JRL,DRAWNULL);
明离场价:=离场,COLORFF99FF,NODRAW;
今离场价:=REF(离场,1),COLOR0000FF,NODRAW;
青色观望:VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,COLOR00FF80,NODRAW;
进:=IF(青色观望,JRH,DRAWNULL);
短买:=VAR19,COLOR33AACC,NODRAW;
黄色离场:=VAR1A,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);{公式网WWW.GPXIAZAI.COM}
V1:=(H-L)*0.05;
DRAWTEXT(短买,L,VARCAT('买 ',VAR2STR(L+V1,2))),COLORFF00FF;
DRAWTEXT(黄色离场,H,VARCAT('卖',VAR2STR(H-V1,2))),COLOR00FF80;
章鱼1:=IF(MA(C,5)>MA(C,10),20,0);
章鱼2:=IF(MA(C,20)>MA(C,60),10,0);
章鱼3:=IF(KDJ.J>KDJ.K,10,0);
章鱼4:=IF(MACD.DIF>MACD.DEA,10,0);
章鱼5:=IF(MACD.MACD>0,10,0);
章鱼6:=IF(V>MA(V,60),10,0);
章鱼7:=IF(WINNER(C)>0.5,10,0);
章鱼8:=IF(C/REF(C,1)>1.03,10,0);
XX:=章鱼1+章鱼2+章鱼3+章鱼4+章鱼5+章鱼6+章鱼7+章鱼8;
DRAWTEXT_FIX(V>O, 0.92, 0.99,0,STRCAT('控仓管理：',STRCAT(CON2STR(XX,2),' %'))),COLORYELLOW;
鱼哥1:=STRCAT(HYBLOCK,' ');
鱼哥2:=STRCAT(鱼哥1,DYBLOCK);
鱼哥3:=STRCAT(鱼哥2,' ');
鱼哥4:=STRCAT(鱼哥3,GNBLOCK);
DRAWTEXT_FIX(ISLASTBAR, 0, 0, 0,STRCAT('所属板块：',鱼哥4)),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;
ZYG1:=(CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2));
ZYG2:=(REF(ZYG1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYG3:=(REF(ZYG2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYG4:=(REF(ZYG3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYG5:=(REF(ZYG4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYG6:=(REF(ZYG5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYG7:=(REF(ZYG6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYG8:=(REF(ZYG7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYG9:=(REF(ZYG8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYGA:=(REF(ZYG9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYGB:=(REF(ZYGA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYGC:=(REF(ZYGB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYGD:=(CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2));
ZYGYY:=(CLOSE/REF(CLOSE,1))>1.05 AND C>O AND C>REF(C,1);
ZYGE:=(REF(ZYGD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYGF:=(REF(ZYGE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYG10:=(REF(ZYGF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYG11:=(REF(ZYG10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYG12:=(REF(ZYG11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYG13:=(REF(ZYG12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYG14:=(REF(ZYG13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYG15:=(REF(ZYG14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYG16:=(REF(ZYG15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYG17:=(REF(ZYG16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2));
ZYG18:=(REF(ZYG17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2));
ZYG19:=((REF(ZYGD OR ZYGE OR ZYGF OR ZYG10 OR ZYG11 OR ZYG12 OR ZYG13 OR
ZYG14 OR ZYG15 OR ZYG16 OR ZYG17 OR ZYG18,1)) AND ZYG1);
XG:=ZYG19;
DRAWICON(XG,L*0.9999,41);