蛟龙出海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(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN AND REF(CLOSE,1)>REF(CLOSE,2) AND CLOSE>REF(CLOSE,1);
双飞乌鸦:=REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98;
孕育线:=REF(CLOSE,2)>REF(OPEN,2) AND (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100 AND REF(OPEN,1)>=REF(CLOSE,1) AND (REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND CLOSE>=OPEN AND (CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1) AND (MAX(CLOSE,REF(CLOSE,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;
多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN;
出水芙蓉:=(OPEN<EMA(CLOSE,20) OR OPEN<EMA(CLOSE,40) OR OPEN<EMA(CLOSE,60)) AND CLOSE>MAX(EMA(CLOSE,20),MAX(EMA(CLOSE,40),EMA(CLOSE,60))) AND VOL/MA(VOL,30)>1.2 AND CLOSE/REF(CLOSE,1)>1.049;
上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND CLOSE>REF(CLOSE,4);
下跌三部曲:=REF(CLOSE,4)/REF(OPEN,4)<0.97 AND REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,4);
跳空缺口:=HIGH<REF(LOW,1) OR LOW>REF(HIGH,1);
三只乌鸦:=REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND REF(CLOSE,1)<REF(CLOSE,2) AND CLOSE<REF(CLOSE,1);
光脚阴线:=LOW=CLOSE AND HIGH<>LOW;
光头阳线:=HIGH=CLOSE AND HIGH<>LOW;
分离:=OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;
长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;
长上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;
十字星:=CLOSE=OPEN AND HIGH<>LOW;
大阴烛:=OPEN/CLOSE>1.05 AND HIGH/LOW<OPEN/CLOSE+0.018;
好友反攻:=REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND (ABS(CLOSE-REF(CLOSE,1)))/CLOSE<0.002 OR REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND (ABS(CLOSE-REF(CLOSE,1)))/CLOSE<0.002;
倾盆大雨:=REF(CLOSE,1)/REF(OPEN,1)>=1.03 AND OPEN<REF(CLOSE,1) AND OPEN>REF(OPEN,1) AND CLOSE<REF(OPEN,1);
TJ1:=IF(倾盆大雨 AND TJTS,'倾盆大雨,见顶信号‖','');
TJ2:=IF(大阴烛 AND TJTS,'大阴烛,后市向淡,发生逆转‖','');
TJ3:=IF(好友反攻 AND TJTS,'好友反攻,跌势已尽,要展开一段反弹行情‖','');
TJ4:=IF(跳空缺口 AND TJTS,'跳空缺口,突破长期盘整,向上跳空,上涨行情开始;向下跳空,下跌行情开始‖','');
TJ5:=IF(光脚阴线 AND TJTS,'光脚阴线,下跌信号‖','');
TJ6:=IF(光头阳线 AND TJTS,'光头阳线,多方积极上攻态势,后市看涨‖','');
TJ7:=IF(三只乌鸦 AND TJTS,'三只乌鸦站枝头,可能见顶回落‖','');
TJ8:=IF(分离 AND TJTS,'分离,注意看涨分离和看跌分离‖','');
TJ9:=IF(长下影 AND TJTS,'长下影,持续下跌后出现,有可能止跌回升;在升势末期出现,须多加留意‖','');
TJ10:=IF(长上影 AND TJTS,'长上影,表明行情上档压力沉重,升势受阻‖','');
TJ11:=IF(下跌三部曲 AND TJTS,'下跌三部曲,下跌信号‖','');
TJ12:=IF(上升三部曲 AND TJTS,'上升三部曲,上涨信号‖','');
TJ13:=IF(早晨之星 AND TJTS,'早晨之星,见底回升‖','');
TJ14:=IF(黄昏之星 AND TJTS,'黄昏之星,见顶回落‖','');
TJ15:=IF(十字星 AND TJTS,'十字星,重要的警告信号,原趋势停顿或反转‖','');
TJ16:=IF(长十字 AND TJTS,'长十字,重要的警告信号,原趋势停顿或反转‖','');
TJ17:=IF(垂死十字 AND TJTS,'垂死十字,下跌信号‖','');
TJ18:=IF(早晨十字星 AND TJTS,'早晨十字星,上涨信号,见底回升‖','');
TJ19:=IF(黄昏十字星 AND TJTS,'黄昏十字星,趋势停顿或反转,下跌信号,见顶回落‖','');
TJ20:=IF(射击之星 AND TJTS,'射击之星,出现在短期的上升趋势,表明市场顶部就在眼前,可能见顶回落,可靠性低‖','');
TJ21:=IF(倒转锤头 AND TJTS,'倒转锤头构成一个看涨信号,可能见底回升‖','');
TJ22:=IF(锤头 AND TJTS,'锤头,可能见底回升,如有量配合,信号强烈‖','');
TJ23:=IF(吊颈 AND TJTS,'吊颈,上升行情中见顶回落,顶部出现,见顶信号‖','');
TJ24:=IF(平顶 AND TJTS,'平顶,意味行情摸高见顶,股价行将反转。但反转下跌力度较小‖','');
TJ25:=IF(穿头破脚 AND TJTS,'穿头破脚,顶部出现,见顶回落信号‖','');
TJ26:=IF(乌云盖顶 AND TJTS,'乌云盖顶,见顶回落信号‖','');
TJ27:=IF(曙光初现 AND TJTS,'曙光初现,行情将演化为V型反转或止跌横盘趋势。后市见底回升‖','');
TJ28:=IF(身怀六甲 AND TJTS,'身怀六甲,出现在底部,是见底回升信号;出现在顶部,是见顶回落信号‖','');
TJ29:=IF(十字胎 AND TJTS,'十字胎‖','');
TJ30:=IF(平底 AND TJTS,'平底,行情探低见底,股价行将反转上升,但力度较小‖','');
TJ31:=IF(大阳烛 AND TJTS,'大阳烛,在上升行情中出现,则意味着行情剧烈地向上攀升。在下跌行情中出现,则意味着行情剧烈地向上反弹‖','');
TJ32:=IF(三个白武士 AND TJTS,'三个白武士,每日收盘价上移,表示可能见底回升‖','');
TJ33:=IF(双飞乌鸦 AND TJTS,'双飞乌鸦,行情开始疲软将见顶回落‖','');
TJ34:=IF(孕育线 AND TJTS,'孕育线,注意股价位置‖','');
TJ35:=IF(多方炮 AND TJTS,'多方炮,在底部出现有上涨可能,在中间出现有可能是上涨中继,顶部出现是复合见顶信号‖','');
TJ36:=IF(出水芙蓉 AND TJTS,'出水芙蓉,阳线穿过20、40、60日季均线,上攻势头初现‖','');
TJ:='【Ｋ线形态】'+TJ1+TJ2+TJ3+TJ4+TJ5+TJ6+TJ7+TJ8+TJ9+TJ10+TJ11+TJ12+TJ13+TJ14+TJ15+TJ16+TJ17+TJ18+TJ19+TJ20+TJ21+TJ22+TJ23+TJ24+TJ25+TJ26+TJ27+TJ28+TJ29+TJ30+TJ31+TJ32+TJ33+TJ34+TJ35+TJ36;
DRAWTEXT(SYSPARAM(2)=BARSCOUNT(CLOSE),CLOSE,TJ),ALIGN5,colorFFFF00; |
