机构动向+吸拉派落+资金抄底+火焰山四部分组成。 在禁区外操作，禁区内休息。
本指标有未来函数，谨慎使用。
Var1:=EMA(HHV(HIGH,500),21);
Var2:=EMA(HHV(HIGH,250),21);
Var3:=EMA(HHV(HIGH,90),21);
Var4:=EMA(LLV(LOW,500),21);
Var5:=EMA(LLV(LOW,250),21);
Var6:=EMA(LLV(LOW,90),21);
Var7:=EMA((Var4*0.96+Var5*0.96+Var6*0.96+Var1*0.558+Var2*0.558+Var3*0.558)/6,21);
Var8:=EMA((Var4*1.25+Var5*1.23+Var6*1.2+Var1*0.55+Var2*0.55+Var3*0.65)/6,21);
Var9:=EMA((Var4*1.3+Var5*1.3+Var6*1.3+Var1*0.68+Var2*0.68+Var3*0.68)/6,21);
VarA:=EMA((Var7*3+Var8*2+Var9)/6*1.738,21);
VarB:=REF(LOW,1);
VarC:=SMA(ABS(LOW-VarB),3,1)/SMA(MAX(LOW-VarB,0),3,1)*100;
VarD:=EMA(IF(CLOSE*1.35<=VarA,VarC*10,VarC/10),3);
VarE:=LLV(LOW,30);
VarF:=HHV(VarD,30);
Var10:=IF(MA(CLOSE,58),1,0);
火焰山:EMA(IF(LOW<=VarE,(VarD+VarF*2)/2,0),3)/618*Var10;
火焰: STICKLINE(火焰山>0,0,火焰山,4,1);
今量:火焰山;
STICKLINE(火焰山>0,0,今量*1.2,8,0),COLOR0000ff;
STICKLINE(火焰山>0,0,今量*0.8,8,0),COLOR0066ff;
STICKLINE(火焰山>0,0,今量*0.6,8,0),COLOR0099ff;
STICKLINE(火焰山>0,0,今量*0.4,8,0),COLOR00ccff;
STICKLINE(火焰山>0,0,今量*0.2,8,0),COLOR00ffff;
LC:= REF(C,1);
F1:=ZIG(3,15);
方向:IF((F1> REF(F1,1)),5,105),COLOR00FF00,LINETHICK2;
IF(PERIODNAME<>"日线")
{
统计:"该指标只在日线周期下有效。";
RETURN;
}
//大单净量
r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
//相对强弱
LC := REF(CLOSE,1);//前一日收盘价;
RSI$1:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100;
RSI$2:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;
RSI$3:=SMA(MAX(CLOSE-LC,0),8,1)/SMA(ABS(CLOSE-LC),8,1)*100;
相对强弱:=0.5*RSI$1+0.31*RSI$2+0.19*RSI$3;
wave$1:=SMA(100*(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8)),3,1);
wave$2:=SMA(100*(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8)),5,1);
wave$3:=SMA(100*(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8)),8,1);
短线波段:=0.5*wave$1+0.31*wave$2+0.19*wave$3;
机会区:20,POINTDOT,colorred;
风险区:80,POINTDOT,colorgreen;
风险系数:0.5*相对强弱+0.5*短线波段,coloryellow;
//买入条件;
CD1:=IF(风险系数<20 AND CLOSE>OPEN AND r>0,1,0);//波段小于20,股价翻红;
CD2:=IF(风险系数<20 AND LOW>=REF(LOW,1) AND CLOSE>LOW AND r>0,1,0);//波段小于20,股价未翻红,但未创新低;
CD3:=IF(REF(风险系数,1)<20 AND 风险系数>REF(风险系数,1),1,0);//前一日波段小于20,今日转向;
SIGNALBUY=(CD1=1 OR CD2=1 OR CD3=1);
X=(SIGNALBUY AND COUNT(SIGNALBUY,3)=1);
DRAWICON(X,机会区,"buy");
VARA:=EMA(EMA(C,13),13);
KP:=(VARA-REF(VARA,1))/REF(VARA,1)*1000,colorwhite,LINETHICK3;
MM:=REF(KP,1);
派:IF(KP=0,KP,KP),colorgreen,LINETHICK3;
落:IF(KP<0 ,KP,DRAWNULL),colorwhite,LINETHICK3;
吸:IF(KP>=MM ,KP,DRAWNULL),colorlired,LINETHICK3;
拉:IF(KP>=0 AND KP>=MM,KP,DRAWNULL),colorred,LINETHICK3;
AA:ZIG(3,5)+0.5,COLOR338800,linethick2;
GG:=EMA(AA,2);
BB:ZIG(3,10),COLOREEDD00,linethick2;
HH:=EMA(BB,2);
DRAWTEXT(CROSS(HH,BB),H,'卖'),COLOROOFFOO;
DRAWTEXT(CROSS(BB,HH),L,'买'),COLOROOOOFF;
DRAWICON(CROSS(AA,GG),L,'BUY'),COLOROOFFOO;
DRAWICON(CROSS(GG,AA),H,'SELL'),COLOROOOOFF;
TRR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
PDM:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
MDM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= PDM*100/TRR;
MDI:= MDM*100/TRR;
A1:=BARSLAST(REF(CROSS("MACD.DIFF"(12,26,9),"MACD.DEA"(12,26,9)),1));
B1:=REF(C,A1+1)>C AND REF("MACD.DIFF"(12,26,9),A1+1)<"MACD.DIFF"(12,26,9) AND CROSS("MACD.DIFF"(12,26,9),"MACD.DEA"(12,26,9));
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
C1:=BARSLAST(REF(CROSS("MACD.DEA"(12,26,9),"MACD.DIFF"(12,26,9)),1));
D1:=REF(C,C1+1)<C AND REF("MACD.DIFF"(12,26,9),C1+1)>"MACD.DIFF"(12,26,9) AND CROSS("MACD.DEA"(12,26,9),"MACD.DIFF"(12,26,9));
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
C4:=BARSLAST(REF(CROSS(MDI,PDI),1));
D4:=REF(C,C+1)<C AND REF(MDI,C4+1)>MDI AND CROSS(MDI,PDI);
A4:=BARSLAST(REF(CROSS(PDI,MDI),1));
B4:=REF(C,A4+1)>C AND REF(PDI,A4+1)<PDI AND CROSS(PDI,MDI);
//绘图
//MACD底背
MACD底背:IF(B1>0,-50,0),COLOR00FF00;
STICKLINE(B1>0,-30,-40,9,0),COLOR00FF00;
DRAWTEXT(B1>0,-35,'M'),COLORFFFFFF;
//MACD顶背
MACD顶背:IF(D1>0,50,0),COLOR00FF00;
STICKLINE(D1>0,30,40,9,0),COLOR00FF00;
DRAWTEXT(D1>0,35,'M'),COLORFFFFFF;
//KDJ底背
KDJ底背:IF(B2>0,-50,0),COLORFF00FF;
STICKLINE(B2>0,-10,-20,9,0),COLORFFCC66;
DRAWTEXT(B2>0,-15,'K'),COLORFFFFFF;
//KDJ顶背
KDJ顶背:IF(D2>0,50,0),COLORFF00FF;
STICKLINE(D2>0,10,20,9,0),COLORFFCC66;
DRAWTEXT(D2>0,15,'K'),COLORFFFFFF;
//RSI底背
RSI底背:IF(B3>0,-50,0),coloryellow;
STICKLINE(B3>0,-20,-30,9,0),coloryellow;
DRAWTEXT(B3>0,-25,'R'),COLORFFFFFF;
//RSI顶背
RSI顶背:IF(D3>0,50,0),coloryellow;
STICKLINE(D3>0,20,30,9,0),coloryellow;
DRAWTEXT(D3>0,25,'R'),COLORFFFFFF;
//DMI底背
DMI底背:IF(B4>0,-50,0),colorblue;
STICKLINE(B4>0,0,-10,9,0),colorblue;
DRAWTEXT(B4>0,-5,'D'),COLORFFFFFF;
//DMI顶背
STICKLINE(D4>0,0,10,9,0),colorblue;
DMI顶背:IF(D4>0,10,0),colorblue;
DRAWTEXT(D4>0,5,'D'),COLORFFFFFF;
|
