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/OPEN>1.05 AND CLOSE>REF(CLOSE,2),LOW*0.96,'早晨'),colorFFFF;
B:=BARSCOUNT(CLOSE)=SYSPARAM(2);
D:=BARSLAST(B);
HH:=HHV(HIGH,D);
换手率:=100*VOL/CAPITAL;
GJ:=IF(CLOSE=INDEXC,(INDEXC+INDEXH+INDEXL+INDEXO)/4,AMOUNT/(VOL+0.01)/100);
明阻力:=LOW+GJ-LOW+CLOSE-LOW;
明支撑:=LOW+CLOSE-GJ;
今阻力:=REF(明阻力,1);
今支撑:=REF(明支撑,1);
DRAWTEXT(BARSTATUS=2,HH,'---------------------------------- '),ALIGN2,PXDN2,colorFFFFFF;
DRAWTEXT(BARSTATUS=2 AND CLOSE>=今支撑,HH,' 今支撑=：'+NUMTOSTR(今支撑,2)+' '),ALIGN2,PXDN50,colorFF00FF;
DRAWTEXT(BARSTATUS=2 AND CLOSE<今支撑,HH,' 今支撑=：'+NUMTOSTR(今支撑,2)+' '),ALIGN2,PXDN50,colorFF;
DRAWTEXT(BARSTATUS=2 AND CLOSE>=今阻力,HH,' 今阻力=：'+NUMTOSTR(今阻力,2)+' '),ALIGN2,PXDN20,colorFF;
DRAWTEXT(BARSTATUS=2 AND CLOSE<今阻力,HH,' 今阻力=：'+NUMTOSTR(今阻力,2)+' '),ALIGN2,PXDN20,colorFF00;
DRAWTEXT(BARSTATUS=2,HH,' 明阻力=：'+NUMTOSTR(明阻力,2)+' '),ALIGN2,PXDN20,colorFFFF;
DRAWTEXT(BARSTATUS=2,HH,' 明支撑=：'+NUMTOSTR(明支撑,2)+' '),ALIGN2,PXDN50,colorFFFF;
DRAWTEXT(BARSTATUS=2,HH,'---------------------------------- '),ALIGN2,PXDN70,colorFFFFFF;
DRAWTEXT(BARSTATUS=2 AND VOL>REF(VOL,1) AND MA(VOL,5)>REF(MA(VOL,5),1),HH,'今成交量大于昨,且有继续增大趋势'+' '),ALIGN2,PXDN90,color8285FF;
DRAWTEXT(BARSTATUS=2 AND VOL<REF(VOL,1) AND MA(VOL,5)>REF(MA(VOL,5),1),HH,'今成交量小于昨，但有放大迹象'+' '),ALIGN2,PXDN90,color8285FF;
DRAWTEXT(BARSTATUS=2 AND VOL>REF(VOL,1) AND MA(VOL,5)<REF(MA(VOL,5),1),HH,'今成交量大于昨, 但有缩小迹象'+' '),ALIGN2,PXDN90,color8285FF;
DRAWTEXT(BARSTATUS=2 AND VOL<REF(VOL,1) AND MA(VOL,5)<REF(MA(VOL,5),1),HH,'今成交量小于昨，且有缩小迹象'+' '),ALIGN2,PXDN90,color8285FF;
A1:=COST(95);
A2:=COST(5);
天眼通:=(A1-A2)*100/(A1+A2);
DRAWICON(天眼通>REF(天眼通,1),LOW*0.98,8),ALIGN5;
TR:=CLOSE*2.5/100+CLOSE;
HD:=CLOSE-CLOSE*2.5/100;
EXPLAINEX(COST(50),'☆市场平均成本:',COST(50),2,0),colorFFFF00;
EXPLAINEX(COST(4),'☆主力平均成本:',COST(4),2,0),colorFFFF;
EXPLAINEX(COST(30),'☆控盘平均成本:',COST(30),2,0),colorFF;
EXPLAINEX(COST(75),'☆拉升平均成本:',COST(75),2,0),colorFF;
EXPLAINEX(COST(95),'☆顶部平均成本:',COST(95),2,0),colorFFFF;
EXPLAINEX(COST(0.05),'☆底部平均成本:',COST(0.05),2,0),colorFFFF;
EXPLAINEX(TR,'★卖出价预测:',TR,2,0),colorFF00;
EXPLAINEX(HD,'★买入价预测:',HD,2,0),colorFF;
HSL:=VOL/CAPITAL*100;
量能:=SUM(HSL,N1);
涨幅1:=100*(CLOSE-REF(CLOSE,N1))/REF(CLOSE,N1);
EXPLAIN(HSL<=2,'该股票少人关注，属于冷门股。');
EXPLAIN(HSL>2 AND HSL<3,'该股票成交温和，属于备份股。');
EXPLAIN(HSL>3 AND HSL<5,'该股票的交投越来越活跃，人们购买该股票的意愿高，属于热门股。');
EXPLAIN(HSL>5 AND HSL<8,'该股票带量！');
EXPLAIN(HSL>8 AND HSL<15,'该股票放量！');
EXPLAIN(HSL>15 AND HSL<25,'该股票巨量！');
EXPLAIN(HSL>=25,'该股票成交怪异！');
EXPLAIN(量能>3*N1 AND 涨幅1>3*N1,'继续大涨！');
EXPLAIN(量能<0.5*N1 AND 涨幅1<N1,'继续小涨！');
EXPLAIN(量能<0.5*N1 AND 涨幅1>-N1 AND 涨幅1>0,'继续小跌！');
EXPLAIN(量能>3*N1 AND 涨幅1<-3*N1,'继续大跌！');
EXPLAIN(量能>3*N1 AND 涨幅1<N1 OR 量能<0.5*N1 AND 涨幅1>3*N1 OR 量能>3*N1 AND 涨幅1>-N1 AND 涨幅1<0 OR 量能<0.5*N1 AND 涨幅1<-3*N1,'注意反转！');
换手％:=VOL/CAPITAL*100*1;
EXPLAIN(换手％<=1 AND 1=1,'★成交量：地量'),colorBBBBBB;
EXPLAIN(换手％<=2 AND 换手％>1,'★成交量：低靡'),colorBBBBBB;
EXPLAIN(换手％<=3 AND 换手％>2,'★成交量：温和'),colorBBBBBB;
EXPLAIN(换手％<=5 AND 换手％>3,'★★成交量：活跃'),colorBBBBBB;
EXPLAIN(换手％<=8 AND 换手％>5,'★★成交量：带量'),colorBBBBBB;
EXPLAIN(换手％<=15 AND 换手％>8,'★★成交量：放量'),colorBBBBBB;
EXPLAIN(换手％<=25 AND 换手％>15,'★★★成交量：巨量'),colorBBBBBB;
VAR1:=LLV(LOW,5)=LLV(LOW,45) AND CLOSE>=OPEN*1.04;
VAR2:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;
买入提示:=VAR1 AND VAR2;
DRAWTEXT(买入提示,LOW-0.28,'进\n场'),ALIGN0,colorFFFF;
VAR3:=REF(CLOSE,1);
VAR4:=(SMA(MAX(CLOSE-VAR3,0),6,1))/(SMA(ABS(CLOSE-VAR3),6,1))*100;
卖出提示:=CROSS(80,VAR4);
DRAWICON(买入提示,LOW-0.01,1);
DRAWICON(卖出提示,HIGH+0.1,2);
DRAWTEXT(卖出提示,HIGH+1.18,'清仓'),ALIGN0,colorFF;
X:=OPEN*0.25+CLOSE*0.45+LOW*0.15+HIGH*0.15;
Y:=MA(X,3)*0.105+MA(X,5)*0.215+MA(X,10)*0.315+MA(X,15)*0.365;
PARTLINE(Y>REF(Y,1),Y),LINETHICK2,colorFFFF;
PARTLINE(Y<REF(Y,1),Y),LINETHICK2,colorFF0000;
A:=BARSCOUNT(CLOSE);
AH:=HHV(HIGH,72);
AL:=LLV(LOW,72);
A0:=(AH-AL)/21;
B1:=LOW-A0;
DRAWTEXT((A+0)/13=FLOOR((A+0)/13),B1-2.5*A0,'。时窗'),colorFFFFFF;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
