DRAWGBK(CLOSE=OPEN,COLORRGB(0,0,300),COLORRGB(0,100,500),1); 
JQCB:=EMA(CLOSE,3); 
H1:=HIGH; 
HH:=HHV(HIGH,21); 
L1:=LOW; 
LL:=LLV(LOW,21); 
IF H1[DATACOUNT]=HH[DATACOUNT] THEN BEGIN  
IF L1[DATACOUNT]=LL[DATACOUNT] THEN BEGIN  
END; 
END; 
顶:HH,PRECISION2,color8293; 
底:LL,PRECISION2,color8900; 
DSCJ1:=PEAKBARS(3,N,1); 
DSCJ2:=TROUGHBARS(3,N,1); 
DSCJ3:=PEAKBARS(2,N,1); 
分界:MA(EMA(MAX(CLOSE,OPEN),3),DSCJ1+1),LINETHICK0,PRECISION2,colorFFB900; 
点石:MA(LLV(JQCB,3),DSCJ2+1),LINETHICK0,PRECISION2,colorFF00FF; 
成金:MA(HHV(JQCB,1),DSCJ3+1),LINETHICK0,PRECISION2,colorFFFF; 
F:=100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1); 
P1:=IF(CLOSE<REF(OPEN,1) AND F<0,1,0); 
P3:=IF(CLOSE>REF(OPEN,1) AND F>0,1,0); 
P2:=IF(CLOSE<REF(OPEN,2) AND F<0,1,0); 
P4:=IF(CLOSE>REF(OPEN,2) AND F>0,1,0); 
买D5:=P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1; 
卖D6:=P3=0 AND REF(P3,1)=1 AND P4=0 AND REF(P4,1)=1; 
AS:=ZIG(3,3); 
涨AL:=CROSS(AS,REF(AS,1)); 
跌AG:=CROSS(REF(AS,1),AS); 
买点:=FILTER((TROUGHBARS(3,15,1)<4)=1,3); 
卖点:=FILTER((PEAKBARS(3,15,1)<4)=1,3); 
STICKLINE(OPEN>=CLOSE,HIGH,LOW,0,0),colorFFFF00; 
STICKLINE(OPEN>=CLOSE,CLOSE,OPEN,7,0),colorFFFF00; 
STICKLINE(CLOSE>=OPEN,LOW,HIGH,0,0),color5050FF; 
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,7,0),color5050FF; 
STICKLINE(买点,LOW,(OPEN+CLOSE)/2,0,0),colorFFFFFF; 
STICKLINE(买点,CLOSE,(OPEN+CLOSE)/2,7,0),colorFFFFFF; 
STICKLINE(卖点,HIGH,(OPEN+CLOSE)/2,0,0),colorFFFF; 
STICKLINE(卖点,CLOSE,(OPEN+CLOSE)/2,7,0),colorFFFF; 
STICKLINE(买D5 AND 涨AL,LOW,(OPEN+CLOSE)/2,0,0),colorFFFFFF; 
STICKLINE(买D5 AND 涨AL,OPEN,(OPEN+CLOSE)/2,7,0),colorFFFFFF; 
STICKLINE(卖D6 AND 跌AG,LOW,(OPEN+CLOSE)/2,0,0),color3EA63E; 
STICKLINE(卖D6 AND 跌AG,OPEN,(OPEN+CLOSE)/2,7,0),color3EA63E; 
PARTLINE(DSCJ1>0,分界),colorFFB900; 
PARTLINE(DSCJ2>0,点石),colorFF00FF; 
PARTLINE(DSCJ3>0,成金),LINEDOT,colorFFFF; 
F:=COST(5); 
J:=COST(95); 
M:=COST(15); 
B:=COST(85); 
F1:=(J-F)/(F+J)*100; 
M1:=(B-M)/(B+M)*100; 
成本集中度90:=F1; 
成本集中度70:=M1; 
获利盘:=WINNER(CLOSE)*100; 
套牢盘:=100*(1-WINNER(CLOSE)); 
日换手率:=VOL/CAPITAL*100; 
TR:=CLOSE*2.5/100+CLOSE; 
HD:=CLOSE-CLOSE*2.5/100; 
浮筹比:=(WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))/WINNER(HHV(HIGH,0))*100; 
AA:=VOL/((HIGH-LOW)*2-(ABS(CLOSE-OPEN))); 
主动买盘:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*(HIGH-OPEN+CLOSE-LOW),VOL/2)); 
主动卖盘:=IF(CLOSE>OPEN,-AA*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,-AA*(HIGH-LOW),-VOL/2)); 
买卖比:=主动买盘/主动卖盘; 
卖盘:=VOL-主动买盘; 
卖盘大:=(卖盘-主动买盘)/卖盘>0.6; 
买盘大:=(主动买盘-卖盘)/主动买盘>0.6; 
WJ:=(HIGH+LOW+CLOSE)/3; 
VD1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE)); 
VD2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-WJ); 
VD3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW); 
VD4:=IF(HIGH=LOW,1,WJ-MIN(CLOSE,OPEN)); 
VD5:=VOL/(IF(HIGH=LOW,4,HIGH-LOW)); 
VD6:=VD1*VD5; 
VD7:=VD2*VD5; 
VD8:=VD3*VD5; 
VD9:=VD4*VD5; 
买入量:=VD9+VD8; 
卖出量:=VD6+VD7; 
卖量:=VOL-买入量; 
卖量大:=(卖量-买入量)/卖量>0.4; 
买量大:=(买入量-卖量)/买入量>0.4; 
买入资金:=买入量*CLOSE/100; 
卖出资金:=卖出量*CLOSE/100; 
资金进出:=买入资金-卖出资金; 
买卖资金比:=买入资金/卖出资金; 
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'浮筹比:'+NUMTOSTR(浮筹比,0)+'\n'+'获利盘:'+NUMTOSTR(获利盘,2)+'\n'+'套牢盘:'+NUMTOSTR(套牢盘,2)+'\n'+'成本集中度70:'+NUMTOSTR(成本集中度70,2)+'\n'+'成本集中度90:'+NUMTOSTR(成本集中度90,2)+'\n'+'买卖资金比:'+NUMTOSTR(买卖资金比,2)+'\n'+'当日买卖比:'+NUMTOSTR(买卖比,2)+'\n'+'当日买量:'+NUMTOSTR(买入量,2)+'\n'+'当日卖量:'+NUMTOSTR(卖出量,2)+'\n'+'当日买卖量:'+NUMTOSTR(VOL,2)+'\n'+'资金进出万元:'+NUMTOSTR(资金进出,2)+'\n'+'买入资金累计万元:'+NUMTOSTR(买入资金,2)+'\n'+'卖出资金累计万元:'+NUMTOSTR(卖出资金,2)+'\n'),ALIGN4,colorCCFFCC; 
VG:=MA(REF(HIGH,1)/REF(CLOSE,2),27)*REF(CLOSE,1); 
VD:=MA(REF(LOW,1)/REF(CLOSE,2),27)*REF(CLOSE,1); 
A5:=VD[SYSPARAM(1)]; 
RA5:=VD[SYSPARAM(1)-1]; 
A10:=VG[SYSPARAM(1)]; 
RA10:=VG[SYSPARAM(1)-1]; 
JT5:=IF(A5>RA5,'↑','↓'); 
JT10:=IF(A10>RA10,'↑','↓'); 
阻力位:=IF(CLOSE>200,CLOSE*1.01,CLOSE*1.07); 
阻力位1:=IF(CLOSE<10,CLOSE*1.05,阻力位); 
止损位:=IF(CLOSE>200,CLOSE*0.99,CLOSE*0.93); 
止损位1:=IF(CLOSE<10,CLOSE*0.95,止损位); 
AA1:=STRFIND(STKNAME,'ST',0)=0; 
K0:=IF(AA1,10,20); 
A1:=REF(CLOSE,1)/K0+REF(CLOSE,1); 
A2:=-REF(CLOSE,1)/K0-REF(CLOSE,1); 
SZ1:='阻力位:'+NUMTOSTR(阻力位,2)+'元'; 
SZ2:='                  止损位:'+NUMTOSTR(止损位,2)+'元'; 
SZ3:='开测高:'+NUMTOSTR(VG[SYSPARAM(1)],2)+JT10; 
SZ4:='                  开测低:'+NUMTOSTR(VD[SYSPARAM(1)],2)+JT5; 
SZ5:='涨停价:'+NUMTOSTR(A1,2)+'元'; 
SZ6:='                  跌停价:'+NUMTOSTR(A2,2)+'元'; 
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ1),ALIGN5,PXUP50,colorFF; 
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ2),ALIGN5,PXUP50,colorFF00; 
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ3),ALIGN5,PXUP20,colorFF; 
DRAWTEXT(BARPOS=SYSPARAM(2),CLOSE,SZ4),ALIGN5,PXUP20,colorFF00; 
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ5),ALIGN5,PXUP75,colorFF; 
DRAWTEXT(BARPOS=SYSPARAM(2),HIGH,SZ6),ALIGN5,PXUP75,colorFF00; 
ZF:=(CLOSE/REF(CLOSE,4)-1)*100; 
S:='五日涨幅:'+'  \n  '+NUMTOSTR(ZF[SYSPARAM(1)],2); 
DRAWTEXT(BARPOS=SYSPARAM(1),HIGH,S),ALIGN3; 
QH:=REF(HIGH,2); 
QL:=REF(LOW,2); 
QO:=REF(OPEN,2); 
QC:=REF(CLOSE,2); 
ZO:=REF(OPEN,1); 
ZC:=REF(CLOSE,1); 
JYZHK:=(ABS(QO-QC))/QO<0.02 AND ZO/ZC>1.02 AND (ABS(OPEN-CLOSE))/OPEN<0.02 AND CLOSE>MA(CLOSE,30); 
JYZHV:=VOL<REF(VOL,1); 
JYZH:=JYZHK AND JYZHV; 
DRAWTEXT(JYZH,LOW,'全仓'); 
限制:=EMA((((HIGH+CLOSE)/2+LOW+(CLOSE+LOW)/2)/3-EMA(LLV(((HIGH+CLOSE)/2+LOW+(CLOSE+LOW)/2)/3,89),2))/(EMA(HHV(((HIGH+CLOSE)/2+LOW+(CLOSE+LOW)/2)/3,21),2)-EMA(LLV(((HIGH+CLOSE)/2+LOW+(CLOSE+LOW)/2)/3,89),2)),8)*100; 
平衡:=SMA(EMA(SMA((CLOSE+LOW)/2,3,1),3),5,1); 
DRAWICON(FILTER(平衡>REF(平衡,1) AND HHV(MA((HIGH+CLOSE)/2,13),10)<REF(HHV(MA((HIGH+CLOSE)/2,13),10),1) AND (CLOSE+LOW)/2>REF((CLOSE+LOW)/2,1),5) AND 限制<88,LOW*0.968,4),ALIGN0; 
DRAWTEXT(FILTER(平衡>REF(平衡,1) AND HHV(MA((HIGH+CLOSE)/2,13),10)<REF(HHV(MA((HIGH+CLOSE)/2,13),10),1) AND (CLOSE+LOW)/2>REF((CLOSE+LOW)/2,1),5) AND 限制<88,LOW*0.98,'     追涨'),ALIGN0,colorFF00FF; 
A1AA:=9; 
A2AA:=REF(CLOSE,A1AA+1)<CLOSE; 
DRAWTEXT(FILTER(A2AA>-0.5,84),HIGH*1.05,'▼小心'),colorFF00; 
VARC:=(SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1))/(SMA(ABS(CLOSE-REF(CLOSE,1)),6,1))*100; 
DRAWICON(CROSS(82,VARC),HIGH*1.06,2); 
VAR6:=REF(CLOSE,1); 
VAR7:=(SMA(MAX(CLOSE-VAR6,0),6,1))/(SMA(ABS(CLOSE-VAR6),6,1))*100; 
DRAWTEXT(CROSS(84,VAR7),HIGH*1.09,'逃顶'),colorFFFF; 
DRAWTEXT(REF(CLOSE,2)/REF(OPEN,2)<0.95 AND REF(CLOSE,2)<REF(CLOSE,3) AND REF(OPEN,1)<REF(CLOSE,2) AND REF(CLOSE,1)>REF(CLOSE,2) AND REF(CLOSE,1)>(REF(CLOSE,2)+REF(OPEN,2))/2 AND CLOSE>REF(CLOSE,1) AND LLV(LOW,13)=REF(LOW,1),LOW*0.96,'曙光'),colorFFFF; 
DRAWTEXT(REF(CLOSE,2)/REF(OPEN,2)<0.95 AND REF(OPEN,1)<REF(CLOSE,2) AND (ABS(REF(OPEN,1)-REF(CLOSE,1)))/REF(CLOSE,1)<0.03 AND CLOSE  |