何氏指标

MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA30:=MA(CLOSE,30);
MA60:=MA(CLOSE,60);
MA120:=MA(CLOSE,120);
MA250:=MA(CLOSE,250);
VAR1:=((((OPEN + LOW) + HIGH) + CLOSE) / 4);
JJ:=(((CLOSE + HIGH) + LOW) / 3);
A:=EMA(JJ,10);
B:=REF(A,1);
持多:STICKLINE((A > B),A,B,5,0),colorFFFF;
持空:STICKLINE((A < B),A,B,5,0),colorFF0000;
VAR3:=(((CLOSE - LLV(LOW,26)) / (HHV(HIGH,26) - LLV(LOW,26))) * 100);
VAR8:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
K:=SMA(VAR8,3,1);
D:=SMA(K,3,1);
VAR9:=((3 * K) - (2 * D));
VARA:=LLV(LOW,36);
VARB:=HHV(HIGH,30);
VARC:=(EMA((((CLOSE - VARA) / (VARB - VARA)) * 4),4) * 25);
VARD:=87.5;
VARE:=((((VARC - LLV(VARC,4)) / (HHV(VARC,4) - LLV(VARC,4))) * 4) * 25);
短买:=IF((CROSS(VARC,10) AND (VARC > 10)),50,0);
VARF:=SMA(VAR3,20,1);
VAR10:=SMA(VARF,15,1);
VAR11:=(((3 * VARF) + (2 * VAR10)) / 4);
VAR12:=REF(VAR11,1);
VAR13:=((SMA(MAX((VAR11 - VAR12),0),2,1) / SMA(ABS((VAR11 - VAR12)),2,1)) * 100);
VAR14:=MA(VAR13,10);
VAR15:=IF(CROSS(VAR14,90),25,0);
VAR20:=(EMA(CLOSE,12) - EMA(CLOSE,26));
VAR21:=((((CLOSE * 2) + HIGH) + LOW) / 4);
VAR22:=(EMA(VAR21,12) - EMA(VAR21,26));
VAR23:=EMA(VAR22,2);
VAR24:=((2 * (VAR22 - VAR23)) * 5.8);
VAR25:=EMA(((100 * (CLOSE - LLV(LOW,34))) / (HHV(HIGH,34) - LLV(LOW,34))),3);
VAR26:=66.6;
EXPLAIN((VARC < 10),'该股处于底背离状态，应及时买入。');
EXPLAIN((VARC > 90),'该股处于顶背离状态，应及时卖出。');
EXPLAIN(CROSS(VAR9,8),'低位反弹，建议买入。');
EXPLAIN((CROSS(VARE,87.5) AND (VARC < 40)),'出现买点，建议买入。');
EXPLAIN(CROSS(VARD,VARC),'见好就跑吧。');
EXPLAIN((CROSS(VARC,VARE) AND (VARC > 87)),'短期到顶，建议卖出。');
EXPLAIN((CROSS(VARC,10) AND (VARC > 10)),'建议短线买入。');
EXPLAIN(CROSS(VAR14,90),'该股处于强势整理状态。');
EXPLAIN((CROSS(VAR20,0) AND (VAR20 > 0)),'该股处于强势状态。');
EXPLAIN((CROSS(0,VAR20) AND (VAR20 < 0)),'该股处于弱势状态。');
EXPLAIN(CROSS(VAR24,0.47),'建议加仓。');
EXPLAIN((CROSS(VARC,VARD) AND (VARE = 100)),'该股短期目标位已到，注意回调。');
EXPLAIN(((((CROSS(VAR25,63) AND CROSS(VAR9,D)) OR (CROSS(VAR25,76) AND CROSS(VAR9,D))) OR (CROSS(VAR25,80) AND CROSS(VAR9,D))) OR (CROSS(VAR25,85) AND CROSS(VAR9,D))),'该股进入反弹状态。');
A1:=BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1));
B1:=(((REF(CLOSE,(A1 + 1)) > CLOSE) AND (REF("MACD.DIFF",(A1 + 1)) < "MACD.DIFF")) AND CROSS("MACD.DIFF","MACD.DEA"));
DRAWTEXT(FILTER((B1 > 0),5),(LOW - 0.38),'MACD底背'),colorFF00;
A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
B2:=(((REF(CLOSE,(A2 + 1)) > CLOSE) AND (REF("KDJ.K",(A2 + 1)) < "KDJ.K")) AND CROSS("KDJ.K","KDJ.D"));
DRAWTEXT(FILTER((B2 > 0),5),(LOW - 0.39),'KDJ底背'),colorFFFF;
A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=(((REF(CLOSE,(A3 + 1)) > CLOSE) AND (REF("RSI.RSI1",(A3 + 1)) < "RSI.RSI1")) AND CROSS("RSI.RSI1","RSI.RSI2"));
DRAWTEXT(FILTER((B3 > 0),5),LOW,'RSI底背'),colorFFFF00;
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIFF"),1));
D1:=(((REF(CLOSE,(C1 + 1)) < CLOSE) AND (REF("MACD.DIFF",(C1 + 1)) > "MACD.DIFF")) AND CROSS("MACD.DEA","MACD.DIFF"));
DRAWTEXT(FILTER((D1 > 0),5),(HIGH + 0.08),'MACD顶背'),colorFFFFFF;
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
D2:=(((REF(CLOSE,(C2 + 1)) < CLOSE) AND (REF("KDJ.K",(C2 + 1)) > "KDJ.K")) AND CROSS("KDJ.D","KDJ.K"));
DRAWTEXT(FILTER((D2 > 0),5),(HIGH + 0.32),'KDJ顶背'),colorFFFFFF;
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=(((REF(CLOSE,(C3 + 1)) < CLOSE) AND (REF("RSI.RSI1",(C3 + 1)) > "RSI.RSI1")) AND CROSS("RSI.RSI2","RSI.RSI1"));
DRAWTEXT(FILTER((D3 > 0),5),(HIGH + 0.1),'RSI顶背'),colorFF00FF;
VK:=SQRT((((VOL / CAPITAL) * 100) * 5));
STICKLINE((CLOSE >= OPEN),HIGH,LOW,0,0),colorFF;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,(VK + 3.8),0),colorFF;
STICKLINE((CLOSE < OPEN),HIGH,LOW,0,0),colorFF00;
STICKLINE((CLOSE < OPEN),CLOSE,OPEN,(VK + 3.8),0),colorFF00;
EXPLAIN((((MA5 > MA10) AND (MA10 > MA30)) AND (MA5 > MA30)),'解：短期均线排列：多头'),colorFF;
EXPLAIN((((MA5 < MA10) AND (MA10 < MA30)) AND (MA5 < MA30)),'解：短期均线排列：空头');
EXPLAIN((((MA30 > MA60) AND (MA30 > MA120)) AND (MA60 > MA120)),'解：中期均线排列：多头');
EXPLAIN((((MA30 < MA60) AND (MA30 < MA120)) AND (MA60 < MA120)),'解：中期均线排列：空头');
EXPLAIN((((MA60 > MA120) AND (MA120 > MA250)) AND (MA60 > MA250)),'解：长期均线排列：多头');
EXPLAIN((((MA60 < MA120) AND (MA120 < MA250)) AND (MA60 < MA250)),'解：长期均线排列：空头');
EXPLAIN(CROSS(MA5,MA10),'解：短期均线5x10：金叉'),colorFF;
EXPLAIN(CROSS(MA10,MA5),'解：短期均线5x10：死叉');
EXPLAIN(CROSS(CLOSE,MA120),'解：今日股价上穿半年线');
EXPLAIN(CROSS(MA120,CLOSE),'解：今日股价跌破半年线');
EXPLAIN(CROSS(CLOSE,MA250),'解：今日股价上穿一年线');
EXPLAIN(CROSS(MA250,CLOSE),'解：今日股价跌破一年线');
EXPLAIN(((CROSS(CLOSE,MA60) AND CROSS(CLOSE,MA120)) AND CROSS(CLOSE,MA250)),'解：股价一阳上穿三线');
EXPLAIN((MA30 > REF(MA30,1)),'解：30日均线趋势：向上');
EXPLAIN(((MA30 > REF(MA30,1)) AND (MA30 < (REF(MA30,1) * 1.001))),'解：30日均线趋势：走平');
EXPLAIN((MA30 < REF(MA30,1)),'解：30日均线趋势：向下');
EXPLAIN((MA5 > (REF(MA5,1) * 1.015)),'解：5日均线：强劲向上');
EXPLAIN(((MA5 > REF(MA5,1)) AND (MA5 < (REF(MA5,1) * 1.005))),'解：5日均线：方向不明');
EXPLAIN((MA5 < (REF(MA5,1) * 0.985)),'解：5日均线：快速向下');
DIFF:=(EMA(CLOSE,5) - EMA(CLOSE,20));
DEA:=EMA(DIFF,10);
MACD:=(2 * (DIFF - DEA));
JC:=CROSS(DIFF,DEA);
SC:=CROSS(DEA,DIFF);
DCJC:=(JC AND (DEA > 0));
EXPLAIN((JC AND (DEA > 0)),'解：MACD在0轴上金叉'),colorFF;
EXPLAIN((JC AND (DEA < 0)),'解：MACD在0轴下金叉');
EXPLAIN((SC AND (DEA > 0)),'解：MACD在0轴上死叉');
EXPLAIN((SC AND (DEA < 0)),'解：MACD在0轴下死叉');
EXPLAIN(((MACD > 0) AND (MACD > REF(MACD,1))),'解：MACD的红柱：增长');
EXPLAIN(((MACD > 0) AND (MACD < REF(MACD,1))),'解：MACD的红柱：缩短');
EXPLAIN(((MACD < 0) AND (ABS(MACD) > REF(ABS(MACD),1))),'解：MACD的绿柱：增长');
EXPLAIN(((MACD < 0) AND (ABS(MACD) < REF(ABS(MACD),1))),'解：MACD的绿柱：缩短');
EXPLAIN((((COUNT(DCJC,20) = 2) AND JC) AND (DEA > 0)),'解：0轴上金叉次数：2'),color1;
EXPLAIN((((COUNT(DCJC,20) = 3) AND JC) AND (DEA > 0)),'解：0轴上金叉次数：3');
EXPLAIN((((COUNT(DCJC,20) = 4) AND JC) AND (DEA > 0)),'解：0轴上金叉次数：4');
EXPLAINICON((HIGH >= HHV(HIGH,20)),'MyBMP');
EM5:=EMA(CLOSE,5);
EM10:=EMA(CLOSE,10);
EM30:=EMA(CLOSE,30);
EM60:=EMA(CLOSE,60);
EM120:=EMA(CLOSE,120);
EM250:=EMA(CLOSE,250);
FILLRGN((EMA(CLOSE,5) > EMA(CLOSE,10)),EMA(CLOSE,5),EMA(CLOSE,10)),color6699FF;
FILLRGN((EMA(CLOSE,5) < EMA(CLOSE,10)),EMA(CLOSE,5),EMA(CLOSE,10)),colorFF6666;
VAR1:=(EMA(CLOSE,34) - EMA(CLOSE,5));
VAR2:=EMA(VAR1,5);
趋势:=((0 - 3) * (VAR1 - VAR2));
EXPLAIN((趋势 > 0),'Z线趋势上升中');
EXPLAIN((趋势 < 0),'Z线趋势下降中');
EXPLAIN(CROSS(趋势,0),'Z线考虑买入');
EXPLAIN(CROSS(0,趋势),'Z线考虑卖出');
VAR11:=MA((VOL / (HIGH - LOW)),4);
VAR33:=ABS((CLOSE - OPEN));
VAR44:=(VOL / (HIGH - LOW));
TR:=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);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),14);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),14);
PDI:=((DMP * 100) / TR);
MDI:=((DMM * 100) / TR);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),6);
ADXR:=((ADX + REF(ADX,6)) / 2);
EXPLAIN(CROSS(PDI,MDI),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号');
EXPLAIN(CROSS(MDI,PDI),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号');
EXPLAIN((ADX > REF(ADX,1)),'ADX值持续高于前一日，行情将维持原趋势');
W1:=((CLOSE <= MA(CLOSE,5)) AND (CLOSE <= MA(CLOSE,10)));
W2:=((OPEN > MA(CLOSE,5)) AND (OPEN > MA(CLOSE,10)));
W3:=(MA(VOL,5) <= MA(VOL,10));
W4:=(DIFF < DEA);
EXPLAIN((W1 AND W2),'断头铡刀:向下的趋势,不是洗盘就是将下跌,卖出'),colorFF00;
EXPLAIN(W1,'5日均线死叉10均线,短线空头势力强大,卖出'),colorFFFF;
EXPLAIN(W3,'5日均量死叉10日均量,做多能量枯竭,卖出'),colorFF;
EXPLAIN(W4,'DIFF下穿DEA,空头形成,卖出'),colorFF00FF;
EXPLAIN((((W1 AND W2) AND W3) AND W4),'三死叉见顶,卖出'),colorFFFF;
EXPLAIN(((W1 AND W3) AND W4),'多方溃败,空方强大,向下彻底形成,卖出'),colorFF00;
DRAWTEXT((((W1 AND W2) AND W3) AND W4),CLOSE,'＃'),colorFFFF10;
EXPLAINEX((1 = 1),'换手率=',((VOL / CAPITAL) * 100),2,0);
EXPLAIN(((VOL / CAPITAL) > 0.075),'换手过大，小心主力出逃，短期头部');
LC:=REF(CLOSE,1);
RSI1:=((SMA(MAX((CLOSE - LC),0),6,1) / SMA(ABS((CLOSE - LC)),6,1)) * 100);
RSI2:=((SMA(MAX((CLOSE - LC),0),12,1) / SMA(ABS((CLOSE - LC)),12,1)) * 100);
EXPLAINEX((1 = 1),'相对强弱RSI1=',RSI1,2,0);
EXPLAIN((RSI1 > 85),'6日RSI超买,防止回挡\n');
EXPLAIN((RSI1 > 80),'6日RSI向上突破85，超买,考虑卖出');
EXPLAIN((RSI1 < 15),'6日RSI超卖,随时有可能反弹');
EXPLAIN((RSI1 < 15),'6日RSI向下跌破15，超卖，考虑买入');
EXPLAIN(CROSS(RSI1,15),'6日RSI向上突破15，买进信号');
EXPLAIN(CROSS(RSI1,85),'6日RSI向下跌破85，卖出信号');
PSY:=((COUNT((CLOSE > REF(CLOSE,1)),12) / 12) * 100);
EXPLAINEX((1 = 1),'12天心理线,PSY=',PSY,2,0);
EXPLAINEX((1 = 1),'获利盘比例=',(WINNER(CLOSE) * 100),2,0);
EXPLAINEX((1 = 1),'套牢盘比例=',(100 - (WINNER(CLOSE) * 100)),2,0);
AA:=(((EMA(CLOSE,30) * 2) + MA(CLOSE,60)) / 3);
RA:=(VOL * CLOSE);
VL1A:=(EMA(RA,13) / EMA(VOL,13));
VL2A:=(EMA(RA,60) / EMA(VOL,60));
VLA:=EMA(((VL1A + VL2A) / 2),3);
分水岭:=MA(((AA + VLA) / 2),1);
EXPLAINEX((1 = 1),'分水岭（中长标）=',分水岭,2,0);
EXPLAIN((CLOSE > 分水岭),'股价在分水岭之上,大势属多头,可积极做多');
EXPLAIN((CLOSE < 分水岭),'股价在分水岭之下,大势属空头,超跌只能抢反弹');
BBI:=((((MA(CLOSE,3) + MA(CLOSE,6)) + MA(CLOSE,12)) + MA(CLOSE,24)) / 4);
UPR:=(BBI + (3 * STD(BBI,10)));
DWN:=(BBI - (3 * STD(BBI,10)));
VAR55:=(((UPR - DWN) / UPR) < 0.03);
VAR56:=(((UPR - DWN) / UPR) > 0.18);
VAR57:=(((MA(CLOSE,60) - MA(CLOSE,5)) / MA(CLOSE,60)) > 0.15);
VAR58:=(((MA(CLOSE,5) - MA(CLOSE,60)) / MA(CLOSE,5)) > 0.15);
EXPLAIN(VAR55,'多空布林收敛中，有变盘的可能，上下自己分析');
EXPLAIN(((VAR57 AND VAR56) AND (CLOSE > OPEN)),'布林上下乖离太大，有反弹的');