蛟龙出海
A:=(3*CLOSE+LOW+OPEN+HIGH)/6;
B:=0;
FOR I=0 TO 19 DO BEGIN
B:=B+(20-I)*REF(A,I);
END;
B:=B/210;
D1:MA(B,3),colorFF;
D2:MA(B,5),colorFF;
D3:MA(B,21),colorFFFF;
D4:MA(B,34),colorFFFF;
FILLRGN(D1>D2,D1,D2),colorFF;
FILLRGN(D1<D2,D1,D2),colorFFFF00;
FILLRGN(D3>D4,D3,D4),colorFF;
FILLRGN(D3>D4 AND (COUNT(CLOSE<MIN(D3,D4),BARSLAST(CROSS(D3,D4))))>=3 OR D3>D4 AND (COUNT(CLOSE>MIN(D3,D4),BARSLAST(CROSS(D3,D4))))=0,D3,D4),colorFFFF00;
FILLRGN(D3<D4,D3,D4),colorFFFF00;
VAR1:=IF(CLOSE>REF(CLOSE,1),99,0);
VAR2:=IF(CLOSE/REF(CLOSE,1)>1.04 AND HIGH/CLOSE<1.01 AND VAR1>0,91,0);
DRAWTEXT(VAR2>89,LOW*0.99,'★短线'),colorFF;
VV2:=REF(CLOSE,1);
VV3:=(SMA(CLOSE-VV2,6,1))/(SMA(ABS(CLOSE-VV2),6,1))*100;
DRAWICON(REF(VV3,1)>81 AND VV3<80,HIGH,2);
DRAWTEXT(REF(VV3,1)>81 AND VV3<80,HIGH,'拜拜↓'),colorFFFF;
VF1:=MA(CLOSE,60)-MA(CLOSE,5)/3.2;
DRAWTEXT(IF(CLOSE<VF1 AND VOL/240>MA(VOL,5)/240 AND CLOSE>=REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW,'☆'),colorFF;
VARA:=(CLOSE-REF(OPEN,29))/REF(OPEN,29)*100;
VARB:=EMA(0.667*REF(VARA,1)+0.333*VARA,5);
DRAWTEXT(IF(VOL>=1.3*MA(VOL,5) AND COUNT(VARA>=VARB AND VARA<-17,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'★买入');
VARR1:=(SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1))/(SMA(ABS(CLOSE-REF(CLOSE,1)),6,1))*100;
DRAWICON(CROSS(82,VARR1),HIGH,2);
DRAWTEXT(CROSS(82,VARR1),HIGH,'▲风险↓'),colorFFFF;
VAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VAR2:=REF(VAR1,1);
VAR3:=(SMA(MAX(VAR1-VAR2,0),10,1))/(SMA(ABS(VAR1-VAR2),10,1))*100;
HY3:=IF((COUNT(VAR3<20,5))>=1 AND (COUNT(VAR1=LLV(VAR1,10),10))>=1 AND CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0);
DRAWTEXT(HY3,LOW,'▲买入'),colorFFFFFF;
R1:=MA(WINNER(CLOSE*0.9)*100*CLOSE,3);
资金比:=(IF(R1>5,R1,0))/2;
资金均量:=MA(资金比,5);
VAR01:=REF(CLOSE,1);
VAR02:=(SUM(IF(CLOSE>VAR01,VOL,0),26))/(SUM(IF(CLOSE<VAR01,VOL,0),26))*100;
股价比:=EMA(VAR02,5);
EXPLAIN(1=1,'【资金分析】'),colorFFFF;
EXPLAIN(股价比<40,'该股处在底部区;'),colorFFCC66;
EXPLAIN(股价比>=40 AND 股价比<80,'该股处在低位区;'),colorFFCC66;
EXPLAIN(股价比>=80 AND 股价比<160,'该股处在盘整区;'),colorFFCC66;
EXPLAIN(股价比>=160,'该股处在获利区;'),colorFFCC66;
EXPLAIN(资金比>10 AND 资金比>资金均量,'有增量资金进入;'),colorFFCC66;
EXPLAIN(资金比>10 AND 资金比<REF(资金比,1) AND 资金比<资金均量,'存量资金减量;'),colorFFCC66;
EXPLAIN(1=1,'【股价预测】'),colorFFFF;
VAR011:=(CLOSE+HIGH+LOW)/3;
VAR012:=HIGH-LOW;
VAR014:=VAR011+VAR012;
VAR015:=VAR011-VAR012;
VAR016:=2*VAR011-LOW;
VAR017:=2*VAR011-HIGH;
明日转:=REF(CLOSE,2)*2-REF(CLOSE,5);
EXPLAINEX(VOL>0,'【明天生命】=',明日转,1,0),colorFFFFFF;
EXPLAINEX(VOL>0,'【明天最高】=',VAR014,1,0),colorFFFF;
EXPLAINEX(VOL>0,'【范围上限】=',VAR016,1,0),colorFF00FF;
EXPLAINEX(VOL>0,'【范围下限】=',VAR017,1,0),colorFFFF00;
EXPLAINEX(VOL>0,'【明天最低】=',VAR015,1,0),colorFF00;
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));
促进指数MFL:(HIGH-LOW)*1000000/VOL,LINETHICK0,colorFF;
MFI:=(HIGH-LOW)*1000000/VOL;
绿灯:=MFI>=REF(MFI,1) AND VOL>=REF(VOL,1);
衰退:=MFI<=REF(MFI,1) AND VOL<=REF(VOL,1);
伪装:=MFI>=REF(MFI,1) AND VOL<=REF(VOL,1);
蛰伏:=MFI<=REF(MFI,1) AND VOL>=REF(VOL,1);
卖盘:=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;
EXPLAIN(1=1,'【买卖盘解量】'),colorFFFF;
EXPLAIN(绿灯,'[绿灯]+实计交易量增加。+MFI促进指数增加。'),colorFF;
EXPLAIN(衰退,'[衰退]-实计交易量减少。-MFI促进指数减少。'),colorFF00;
EXPLAIN(伪装,'[伪装]-实计交易量减少。+MFI促进指数增加。'),color9900;
EXPLAIN(蛰伏,'[蛰伏]+实计交易量增加。-MFI促进指数减少。'),colorFFFF;
EXPLAIN(卖盘大,'★主动卖盘大于主动买盘60%以上;'),color9900;
EXPLAIN(买盘大,'★主动买盘大于主动卖盘60%以上;'),colorFFFF;
EXPLAIN(卖量大,'☆卖出量大于买入量40%以上;'),color9900;
EXPLAIN(买量大,'☆买入量大于卖出量40%以上;'),colorFFFF;
EXPLAIN(1=1,'【控盘情况】'),colorFFFF;
EXPLAINEX(1=1,'当日主动买卖盘(手)=',VOL,2,0),colorFF;
EXPLAINEX(1=1,'其中主动买盘(手)=',主动买盘,2,0),colorFFFF;
EXPLAINEX(1=1,'主动卖盘(手)=',主动卖盘,2,0),colorFF00;
EXPLAINEX(1=1,'当日买卖量(手)=',VOL,2,0),colorFFFF00;
EXPLAINEX(1=1,'其中买入量(手)=',买入量,2,0),colorFF0000;
EXPLAINEX(1=1,'卖出量(手)=',卖出量,2,0),colorFFFFFF;
TJTS:=BACKSET(ISLASTBAR,5);
早晨之星:=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);
黄昏之星:=REF(CLOSE,2)/REF(OPEN,2)>1.03 AND REF(OPEN,1)>REF(CLOSE,2) AND (ABS(REF(OPEN,1)-REF(CLOSE,1)))/REF(CLOSE,1)<0.02 AND CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,2);
长十字:=CLOSE=OPEN AND HIGH/LOW>1.03;
垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH;
早晨十字星:=REF(CLOSE,2)/REF(OPEN,2)<0.95 AND REF(OPEN,1)<REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);
黄昏十字星:=REF(CLOSE,2)/REF(OPEN,2)>1.05 AND REF(OPEN,1)>REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN<0.95 AND CLOSE<REF(CLOSE,2);
射击之星:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE>MA(CLOSE,5);
倒转锤头:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE<MA(CLOSE,5);
锤头:=HIGH=MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE<MA(CLOSE,5);
吊颈:=HIGH=MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5);
穿头破脚:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(CLOSE,1) OR REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND CLOSE>REF(OPEN,1) AND OPEN<REF(CLOSE,1);
乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1);
曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1);
身怀六甲:=(ABS(REF(CLOSE,1)-REF(OPEN,1)))/REF(CLOSE,1)>0.04 AND (ABS(CLOSE-OPEN))/CLOSE<0.005 AND MAX(CLOSE,OPEN)<MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN)>MIN(REF(CLOSE,1),REF(OPEN,1));
十字胎:=(ABS(REF(CLOSE,1)-REF(OPEN,1)))/REF(CLOSE,1)>0.04 AND CLOSE=OPEN AND CLOSE<MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE>MIN(REF(CLOSE,1),REF(OPEN,1));
平顶:=(ABS(HIGH-REF(HIGH,1)))/HIGH<0.001;
平底:=(ABS(LOW-REF(LOW,1)))/LOW<0.001 AND (ABS(REF(LOW,1)-REF(LOW,2)))/REF(LOW,1)<=0.001;
大阳烛:=CLOSE/OPEN>1.05 AND HIGH/LOW<CLOSE/OPEN+0.018;
三个白武士:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLO |