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 |