{公称名称: RAY_L一号}input:RN(1,0,1);
DRAWGBK((CLOSE > 0),COLORRGB(0,188,38888),COLORRGB(0,33,333),1);
RVAR:=IF((DATE < 1061228),1,1);
VAR1:=(RVAR * IF(RN,((AMOUNT / VOL) / 100),CLOSE));
MID:MA(VAR1,26);
UPPER:(MID + (2 * STD(VAR1,26)));
LOWER:(MID - (2 * STD(VAR1,26)));
VAR2:=((RVAR * HHV(HIGH,9)) - LLV(LOW,9));
VAR3:=((RVAR * HHV(HIGH,9)) - VAR1);
VAR4:=((RVAR * VAR1) - LLV(LOW,9));
VAR5:=((((RVAR * VAR3) / VAR2) * 100) - 70);
VAR6:=(((RVAR * (VAR1 - LLV(LOW,60))) / (HHV(HIGH,60) - LLV(LOW,60))) * 100);
VAR7:=((RVAR * (((2 * VAR1) + HIGH) + LOW)) / 4);
VAR8:=(RVAR * SMA(((VAR4 / VAR2) * 100),3,1));
VAR9:=(RVAR * LLV(LOW,34));
VARA:=((RVAR * SMA(VAR8,3,1)) - SMA(VAR5,9,1));
VARB:=(RVAR * IF((VARA > 100),(VARA - 100),0));
VARC:=(RVAR * HHV(HIGH,34));
VARD:=(RVAR * EMA((((VAR7 - VAR9) / (VARC - VAR9)) * 100),8));
VARE:=(RVAR * EMA(VARD,5));
VARF:=((((RVAR * (HHV(HIGH,9) - VAR1)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100) - 70);
VAR10:=((RVAR * SMA(VARF,9,1)) + 100);
VAR11:=(((RVAR * (VAR1 - LLV(LOW,9))) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
VAR12:=(RVAR * SMA(VAR11,3,1));
VAR13:=((RVAR * SMA(VAR12,3,1)) + 100);
RSV:=((RVAR * VAR13) - VAR10);
多:STICKLINE(((VARD - VARE) > 0),HIGH,LOW,0,0),colorFF;
STICKLINE(((VARD - VARE) > 0),CLOSE,OPEN,8,0),colorFF;
STICKLINE((((VARD - VARE) > 0) AND (CLOSE > OPEN)),CLOSE,OPEN,8,2),colorFF;
STICKLINE(((VARD - VARE) < 0),HIGH,LOW,0,0),colorFF0000;
STICKLINE(((VARD - VARE) < 0),CLOSE,OPEN,8,0),colorFF0000;
STICKLINE((((VARD - VARE) < 0) AND (CLOSE > OPEN)),CLOSE,OPEN,8,2),colorFF0000;
进:STICKLINE((((VARD > 17) AND (VARD < 59)) AND ((VARD - VARE) >= 0)),HIGH,LOW,0,0),colorFFFFFF;
STICKLINE((((VARD > 17) AND (VARD < 59)) AND ((VARD - VARE) >= 0)),CLOSE,OPEN,8,0),colorFFFFFF;
STICKLINE(((((VARD > 17) AND (VARD < 59)) AND ((VARD - VARE) >= 0)) AND (CLOSE > OPEN)),CLOSE,OPEN,8,2),colorFFFFFF;
守:STICKLINE((((VARD > 47) AND (VARD < 70)) AND ((VARD - VARE) >= 0)),HIGH,LOW,0,0),colorFFFF;
STICKLINE((((VARD > 47) AND (VARD < 70)) AND ((VARD - VARE) >= 0)),CLOSE,OPEN,8,0),colorFFFF;
STICKLINE(((((VARD > 47) AND (VARD < 70)) AND ((VARD - VARE) >= 0)) AND (CLOSE > OPEN)),CLOSE,OPEN,8,2),colorFFFF;
出:STICKLINE(((VARD > 70) AND ((VARD - VARE) >= 0)),HIGH,LOW,0,0),colorFF00FF;
STICKLINE(((VARD > 70) AND ((VARD - VARE) >= 0)),CLOSE,OPEN,8,0),colorFF00FF;
STICKLINE((((VARD > 70) AND ((VARD - VARE) >= 0)) AND (CLOSE > OPEN)),CLOSE,OPEN,8,2),colorFF00FF;
压:STICKLINE((((VARD > 65) AND (VARD < 80)) AND ((VARD - VARE) < 0)),HIGH,LOW,0,0),color808080;
STICKLINE((((VARD > 65) AND (VARD < 80)) AND ((VARD - VARE) < 0)),CLOSE,OPEN,8,0),color808080;
STICKLINE(((((VARD > 65) AND (VARD < 80)) AND ((VARD - VARE) < 0)) AND (CLOSE > OPEN)),CLOSE,OPEN,8,2),color808080;
跌:STICKLINE((((VARD > 26) AND (VARD < 65)) AND ((VARD - VARE) < 0)),HIGH,LOW,0,0),color800000;
STICKLINE((((VARD > 26) AND (VARD < 65)) AND ((VARD - VARE) < 0)),CLOSE,OPEN,8,0),color800000;
STICKLINE(((((VARD > 26) AND (VARD < 65)) AND ((VARD - VARE) < 0)) AND (CLOSE > OPEN)),CLOSE,OPEN,8,2),color800000;
空末:STICKLINE((((VARD > 5) AND (VARD < 35)) AND ((VARD - VARE) < 0)),HIGH,LOW,0,0),color8000FF;
STICKLINE((((VARD > 5) AND (VARD < 35)) AND ((VARD - VARE) < 0)),CLOSE,OPEN,8,0),color8000FF;
STICKLINE(((((VARD > 5) AND (VARD < 35)) AND ((VARD - VARE) < 0)) AND (CLOSE > OPEN)),CLOSE,OPEN,8,2),color8000FF;
STICKLINE((VAR1 < EMA(VAR1,27)),LOW,IF((CLOSE > OPEN),OPEN,CLOSE),0,0),colorFF0000;
K:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
D1:=SMA(K,3,1);
J:=SMA(D1,3,1);
RSV12:=((3 * D1) - (2 * J));
K12:=(((CLOSE - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100);
D12:=SMA(K12,3,1);
J12:=SMA(D12,3,1);
RSV24:=((3 * D12) - (2 * J12));
K24:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
D24:=SMA(K24,3,1);
J24:=SMA(D24,3,1);
ZCW:=((3 * D24) - (2 * J24));
YLW:=IF(CROSS(RSV12,ZCW),LOW,REF(LOW,BARSLAST(CROSS(RSV12,ZCW))));
U2L:=IF(CROSS(ZCW,RSV12),HIGH,REF(HIGH,BARSLAST(CROSS(ZCW,RSV12))));
L2L:=IF((CLOSE >= MA(CLOSE,20)),80,50);
RH1:=IF((CLOSE >= MA(CLOSE,20)),50,20);
RH4:=IF(((RSV12 < L2L) AND (REF(RSV12,1) >= L2L)),HHV(REF(HIGH,1),(BARSLAST(((RSV12 >= L2L) AND (REF(RSV12,1) < L2L))) - 1)),REF(HHV(REF(HIGH,1),(BARSLAST(((RSV12 >= L2L) AND (REF(RSV12,1) < L2L))) - 1)),BARSLAST(((RSV12 < L2L) AND REF(RSV12,1)))));
RH42:=IF((HIGH > RH4),LOW,REF(LOW,BARSLAST((HIGH > RH4))));
RH5:=IF((HIGH > RH4),RSV12,REF(RSV12,BARSLAST((HIGH > RH4))));
RL1:=IF((((HIGH > RH42) AND (RSV12 < RH5)) AND (RSV12 < ZCW)),HIGH,REF(HIGH,BARSLAST((((HIGH > RH42) AND (RSV12 < RH5)) AND (RSV12 < ZCW)))));
RL4:=IF(((RSV12 > RH1) AND (REF(RSV12,1) <= RH1)),LLV(REF(LOW,1),(BARSLAST(((RSV12 <= RH1) AND (REF(RSV12,1) > RH1))) - 1)),REF(LLV(REF(LOW,1),(BARSLAST(((RSV12 <= RH1) AND (REF(RSV12,1) > RH1))) - 1)),BARSLAST(((RSV12 > RH1) AND REF(RSV12,1)))));
RL42:=IF((LOW < RL4),HIGH,REF(HIGH,BARSLAST((LOW < RL4))));
RL5:=IF((LOW < RL4),RSV12,REF(RSV12,BARSLAST((LOW < RL4))));
VARDD:=IF((((LOW < RL42) AND (RSV12 > RL5)) AND (RSV12 > ZCW)),LOW,REF(LOW,BARSLAST((((LOW < RL42) AND (RSV12 > RL5)) AND (RSV12 > ZCW)))));
VAR2:=REF(CLOSE,1);
VAR3:=MA(CLOSE,5);
VAR4:=((SMA(MAX((CLOSE - VAR2),0),6,1) / SMA(ABS((CLOSE - VAR2)),6,1)) * 100);
VAR5:=((SMA(MAX((CLOSE - VAR2),0),12,1) / SMA(ABS((CLOSE - VAR2)),12,1)) * 100);
VAR6:=((SMA(MAX((CLOSE - VAR2),0),24,1) / SMA(ABS((CLOSE - VAR2)),24,1)) * 100);
VAR7:=IF(CROSS(VAR4,VAR6),LOW,REF(LOW,BARSLAST(CROSS(VAR4,VAR6))));
VAR8:=IF(CROSS(VAR6,VAR4),HIGH,REF(HIGH,BARSLAST(CROSS(VAR6,VAR4))));
VAR9:=IF((CLOSE >= MA(CLOSE,20)),80,50);
VARA:=IF((CLOSE >= MA(CLOSE,20)),50,20);
VARB:=IF(((VAR4 < VAR9) AND (REF(VAR4,1) >= VAR9)),HHV(REF(HIGH,1),(BARSLAST(((VAR4 >= VAR9) AND (REF(VAR4,1) < VAR9))) - 1)),REF(HHV(REF(HIGH,1),(BARSLAST(((VAR4 >= VAR9) AND (REF(VAR4,1) < VAR9))) - 1)),BARSLAST(((VAR4 < VAR9) AND REF(VAR4,1)))));
VARC:=IF((HIGH > VARB),LOW,REF(LOW,BARSLAST((HIGH > VARB))));
VARD:=IF((HIGH > VARB),VAR4,REF(VAR4,BARSLAST((HIGH > VARB))));
XD1:=IF((((HIGH > VARC) AND (VAR4 < VARD)) AND (VAR4 < VAR6)),HIGH,REF(HIGH,BARSLAST((((HIGH > VARC) AND (VAR4 < VARD)) AND (VAR4 < VAR6)))));
VARF:=IF(((VAR4 > VARA) AND (REF(VAR4,1) <= VARA)),LLV(REF(LOW,1),(BARSLAST(((VAR4 <= VARA) AND (REF(VAR4,1) > VARA))) - 1)),REF(LLV(REF(LOW,1),(BARSLAST(((VAR4 <= VARA) AND (REF(VAR4,1) > VARA))) - 1)),BARSLAST(((VAR4 > VARA) AND REF(VAR4,1)))));
VAR10:=IF((LOW < VARF),HIGH,REF(HIGH,BARSLAST((LOW < VARF))));
VAR11:=IF((LOW < VARF),VAR4,REF(VAR4,BARSLAST((LOW < VARF))));
VAR12:=IF((((LOW < VAR10) AND (VAR4 > VAR11)) AND (VAR4 > VAR6)),LOW,REF(LOW,BARSLAST((((LOW < VAR10) AND (VAR4 > VAR11)) AND (VAR4 > VAR6)))));
XD2:=MAX(IF((VARDD > VAR1),0,VARDD),MAX(IF((VAR12 > VAR1),0,VAR12),IF((YLW > VAR1),0,YLW)));
STICKLINE((XD2 > 0),(XD2 - 0.002),(XD2 + 0.002),14,1),colorFF;
箱底:XD2,LINETHICK0,colorFF;
A1:=MIN(IF((RL1 < VAR1),0,RL1),MIN(IF((XD1 < VAR1),0,XD1),IF((U2L < VAR1),0,U2L)));
STICKLINE((A1 > 0),(A1 - 0.002),(A1 + 0.002),14,1),colorFF0000;
箱顶:A1,LINETHICK0,colorFF0000;
RAY_L:(RVAR * MA(VAR1,233)),LINETHICK3,colorFFFF;
PARTLINE((RAY_L > REF(RAY_L,1)),RAY_L),LINETHICK3,colorFF;
EXPLAIN((RVAR = 0),'分析家公式网');
B1:=(RVAR * BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1)));
A2:=(((REF(CLOSE,(B1 + 1)) > CLOSE) AND (REF("MACD.DIFF",(B1 + 1)) < "MACD.DIFF")) AND CROSS("MACD.DIFF","MACD.DEA"));
DRAWTEXT((ISLASTBAR AND FILTER((A2 > 0),5)),CLOSE,'MACD底背离'),colorFF00;
EXPLAIN(FILTER((A2 > 0),5),'MACD底背离'),colorFF00;
B2:=(RVAR * BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1)));
A3:=(((REF(CLOSE,(B2 + 1)) > CLOSE) AND (REF("KDJ.K",(B2 + 1)) < "KDJ.K")) AND CROSS("KDJ.K","KDJ.D"));
DRAWTEXT((ISLASTBAR AND FILTER((A3 > 0),5)),OPEN,'KDJ底背离'),colorFFBB66;
EXPLAIN(FILTER((A3 > 0),5),'KDJ底背离'),colorFFBB66;
B3:=(RVAR * BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1)));
C1:=(((REF(CLOSE,(B3 + 1)) > CLOSE) AND (REF("RSI.RSI1",(B3 + 1)) < "RSI.RSI1")) AND CROSS("RSI.RSI1","RSI.RSI2"));
DRAWTEXT((ISLASTBAR AND FILTER((C1 > 0),5)),((CLOSE + OPEN) / 2),'RSI底背离'),colorFFFF00;
EXPLAIN(FILTER((C1 > 0),5),'RSI底背离'),colorFFFF00;
C2:=(RVAR * BARSLAST(REF(CROSS("MACD.DEA","MACD.DIFF"),1)));
J:=(((REF(CLOSE,(C2 + 1)) < CLOSE) AND (REF("MACD.DIFF",(C2 + 1)) > "MACD.DIFF")) AND CROSS("MACD.DEA","MACD.DIFF"));
DRAWTEXT((ISLASTBAR AND FILTER((J > 0),5)),CLOSE,'MACD顶背离'),colorFFFF;
EXPLAIN(FILTER((J > 0),5),'MACD顶背离'),colorFFFF;
C3:=(RVAR * BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1)));
D3:=(((REF(CLOSE,(C3 + 1)) < CLOSE) AND (REF("KDJ.K",(C3 + 1)) > "KDJ.K")) AND CROSS("KDJ.D","KDJ.K"));
DRAWTEXT((ISLASTBAR AND FILTER((D3 > 0),5)),OPEN,'KDJ顶背离'),colorFF;
EXPLAIN(FILTER((D3 > 0),5),'KDJ顶背离'),colorFF;
GD:=(RVAR * BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1)));
日K:=(((REF(CLOSE,(GD + 1)) < CLOSE) AND (REF("RSI.RSI1",(GD + 1)) > "RSI.RSI1")) AND CROSS("RSI.RSI2","RSI.RSI1"));
DRAWTEXT((ISLASTBAR AND FILTER((日K > 0),5)),((CLOSE + OPEN) / 2),'RSI顶背离'),colorFF00FF;
EXPLAIN(FILTER((日K > 0),5),'RSI顶背离'),colorFF00FF;
DRAWICON(CROSS(VARE,16),LOW,4);
DRAWICON((CROSS(VARE,VARD) AND (VARE > 74)),HIGH,5);
VAR2:=(EMA(CLOSE,5) / EMA(CLOSE,10));
VAR3:=(EMA(INDEXC,5) / EMA(INDEXC,10));
VAR4:=(EMA(VOL,5) / EMA(VOL,10));
VAR5:=(EMA(INDEXV,5) / EMA(INDEXV,10));
日D:=(((VAR2 / VAR3) - 1) * 1000);
EXPLAIN((日D > 0),'个股领先大盘'),color80FF;
K:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
LWR1:=SMA(K,3,1);
LWR2:=SMA(LWR1,3,1);
EXPLAIN((CROSS(LWR1,LWR2) AND (LWR1 < 30)),'KD底金叉'),colorFF80FF;
EXPLAIN((CROSS(LWR2,LWR1) AND (LWR2 < 30)),'KD底死叉'),color80FF80;
EXPLAIN((CROSS(LWR1,LWR2) AND (LWR1 > 70)),'KD顶金叉'),colorFF80FF;
EXPLAIN((CROSS(LWR2,LWR1) AND (LWR2 > 70)),'KD顶死叉'),color80FF80;
K:=(((HHV(HIGH,9) - CLOSE) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
DIFF:=SMA(K,3,1);
DEA:=SMA(DIFF,3,1);
EXPLAIN((CROSS(DEA,DIFF) AND (DEA > 70)),'LWR顶金叉'),colorFF80FF;
EXPLAIN((CROSS(DIFF,DEA) AND (DIFF > 70)),'LWR顶死叉'),color80FF80;
EXPLAIN((CROSS(DEA,DIFF) AND (DEA < 30)),'LWR底金叉'),colorFF80FF;
EXPLAIN((CROSS(DIFF,DEA) AND (DIFF < 30)),'LWR底死叉'),color80FF80;
MACD:=(EMA(CLOSE,12) - EMA(CLOSE,26));
TR1:=EMA(MACD,9);
DMZ:=(2 * (MACD - TR1));
EXPLAIN((CROSS(MACD,TR1) AND (MACD > 0)),'解：MACD金买进'),colorFF80FF;
EXPLAIN((CROSS(TR1,MACD) AND (TR1 > 0)),'解：MACD卖出'),color80FF80;
EXPLAIN((CROSS(MACD,TR1) AND (MACD < 0)),'解：MACD买进'),colorFF80FF;
EXPLAIN((CROSS(TR1,MACD) AND (TR1 < 0)),'解：MACD金卖出'),color80FF80;
EXPLAIN(((DMZ > 0) AND (REF(DMZ,1) < 0)),'解：MACD转红'),colorFF80FF;
EXPLAIN(((DMZ < 0) AND (REF(DMZ,1) > 0)),'解：MACD转绿'),color80FF80;
DMF:=MAX(ABS((HIGH - REF(HIGH,1))),ABS((LOW - REF(LOW,1))));
DIZ:=IF(((HIGH + LOW) <= (REF(HIGH,1) + REF(LOW,1))),0,MAX(ABS((HIGH - REF(HIGH,1))),ABS((LOW - REF(LOW,1)))));
DIF:=IF(((HIGH + LOW) >= (REF(HIGH,1) + REF(LOW,1))),0,MAX(ABS((HIGH - REF(HIGH,1))),ABS((LOW - REF(LOW,1)))));
DDI:=(SUM(DIZ,13) / (SUM(DIZ,13) + SUM(DIF,13)));
HD:=(SUM(DIF,13) / (SUM(DIF,13) + SUM(DIZ,13)));
LD:=(DDI - HD);
EXPLAIN(((LD > 0) AND (REF(LD,1) < 0)),'解：DDI转红'),colorFF80FF;
EXPLAIN(((LD < 0) AND (REF(LD,1) > 0)),'解：DDI转绿'),color80FF80;
DMF:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),14);
DMP:=(HIGH - REF(HIGH,1));
DMM:=(REF(LOW,1) - LOW);
PDI:=SUM(IF(((DMP > 0) AND (DMP > DMM)),DMP,0),14);
MDI:=SUM(IF(((DMM > 0) AND (DMM > DMP)),DMM,0),14);
ADX:=((PDI * 100) / DMF);
QHL:=((MDI * 100) / DMF);
G:=MA(((ABS((QHL - ADX)) / (QHL + ADX)) * 100),6);
EXPLAIN(CROSS(ADX,QHL),'DMI多头进场'),colorFF80FF;
EXPLAIN(CROSS(QHL,ADX),'DMI空头进场'),color80FF80;
EXPLAIN(((G < REF(G,1)) AND (REF(G,1) > REF(G,2))),'DMI反转'),color80FFFF;
EXPLAIN(((G > REF(G,1)) AND (REF(G,1) > REF(G,2))),'DMI维持'),color80FFFF;
EXPLAIN((((G < REF(G,1)) AND (REF(G,1) < REF(G,2))) AND (G < 20)),'DMI盘整'),color80FFFF;
DMF:=SMA(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),14,1);
DMP:=(HIGH - REF(HIGH,1));
DMM:=(REF(LOW,1) - LOW);
PDI:=SMA(IF(((DMP > 0) AND (DMP > DMM)),DMP,0),14,1);
MDI:=SMA(IF(((DMM > 0) AND (DMM > DMP)),DMM,0),14,1);
ADX:=((PDI * 100) / DMF);
QHL:=((MDI * 100) / DMF);
G:=SMA(((ABS((QHL - ADX)) / (QHL + ADX)) * 100),14,1);
EXPLAIN(CROSS(ADX,QHL),'钱龙DMI多头进场'),colorFF80FF;
EXPLAIN(CROSS(QHL,ADX),'钱龙DMI空头进场'),color80FF80;
EXPLAIN(((G < REF(G,1)) AND (REF(G,1) > REF(G,2))),'钱龙DMI反转'),color80FFFF;
EXPLAIN(((G > REF(G,1)) AND (REF(G,1) > REF(G,2))),'钱龙DMI维持'),color80FFFF;
EXPLAIN((((G < REF(G,1)) AND (REF(G,1) < REF(G,2))) AND (G < 20)),'钱龙DMI盘整'),color80FFFF;
QHL5:=((CLOSE - REF(CLOSE,1)) - (((VOL - REF(VOL,1)) * (REF(HIGH,1) - REF(LOW,1))) / REF(VOL,1)));
QHL10:=SUM(IF((QHL5 > 0),QHL5,0),5);
BR:=SUM(IF((QHL5 > 0),QHL5,0),10);
LC:=ABS(SUM(IF((QHL5 < 0),QHL5,0),5));
VR:=ABS(SUM(IF((QHL5 < 0),QHL5,0),10));
TYP:=(QHL10 / (QHL10 + LC));
CCI:=(BR / (BR + VR));
ROC:=IF((SUM(IF((QHL5 > 0),1,0),5) = 5),1,IF((SUM(IF((QHL5 < 0),1,0),5) = 5),0,TYP));
RSI1:=CCI;
EXPLAIN(CROSS(ROC,RSI1),'多头阻力'),color80FF80;
EXPLAIN(CROSS(RSI1,ROC),'空头阻力'),colorFF80FF;
RSI2:=((SUM((HIGH - OPEN),26) / SUM((OPEN - LOW),26)) * 100);
MTM:=((SUM(MAX(0,(HIGH - REF(CLOSE,1))),26) / SUM(MAX(0,(REF(CLOSE,1) - LOW)),26)) * 100);
EXPLAIN((RSI2 < 80),'人气过低,反弹'),colorFF80FF;
EXPLAIN(((RSI2 > 80) AND (RSI2 < 100)),'人气盘整'),color80FFFF;
EXPLAIN((RSI2 > 100),'人气过高,回落'),color80FF80;
EXPLAIN((MTM < 50),'意愿过低,反弹'),colorFF80FF;
EXPLAIN((MTM > 300),'意愿过高,回落'),color80FF80;
EXPLAIN(((MTM < 150) AND (MTM > 70)),'意愿盘整'),color80FFFF;
MTMMA:=REF(CLOSE,1);
WR:=((SUM(IF((CLOSE > MTMMA),VOL,0),26) / SUM(IF((CLOSE <= MTMMA),VOL,0),26)) * 100);
EXPLAIN(((WR > 40) AND (WR < 70)),'VR低位区，买进'),colorFF80FF;
EXPLAIN(((WR > 80) AND (WR < 150)),'VR盘整区，持有'),color80FFFF;
EXPLAIN(((WR < 350) AND (WR > 160)),'VR获利区，获利了结'),color80FF80;
EXPLAIN((WR < 40),'VR探底反弹'),colorFF80FF;
EM5:=(((HIGH + LOW) + CLOSE) / 3);
EM10:=((EM5 - MA(EM5,14)) / (0.015 * AVEDEV(EM5,14)));
EXPLAIN((EM10 < (0 - 100)),'CCI可买进'),colorFF80FF;
EXPLAIN((EM10 > 100),'CCI可卖出'),color80FF80;
EM30:=(((CLOSE - REF(CLOSE,12)) / REF(CLOSE,12)) * 100);
EXPLAIN(CROSS(EM30,0),'ROC买入'),colorFF80FF;
EXPLAIN(CROSS(0,EM30),'ROC卖出'),color80FF80;
MTMMA:=REF(CLOSE,1);
EM60:=((SMA(MAX((CLOSE - MTMMA),0),6,1) / SMA(ABS((CLOSE - MTMMA)),6,1)) * 100);
EM120:=((SMA(MAX((CLOSE - MTMMA),0),12,1) / SMA(ABS((CLOSE - MTMMA)),12,1)) * 100);
EXPLAIN(CROSS(EM60,85),'RSI超买'),color80FF80;
EXPLAIN(CROSS(15,EM60),'RSI超卖'),colorFF80FF;
EXPLAIN((CROSS(EM60,EM120) AND (EM60 > 50)),'RSI金买进'),colorFF80FF;
EXPLAIN((CROSS(EM60,EM120) AND (EM60 < 50)),'RSI买进'),colorFF80FF;
EXPLAIN((CROSS(EM120,EM60) AND (EM60 > 50)),'RSI金卖出'),color80FF80;
EXPLAIN((CROSS(EM120,EM60) AND (EM60 < 50)),'RSI卖出'),color80FF80;
EM250:=(CLOSE - REF(CLOSE,6));
MA5:=MA(EM250,6);
EXPLAIN(CROSS(EM250,MA5),'MTM买进'),colorFF80FF;
EXPLAIN(CROSS(MA5,EM250),'MTM卖出'),color80FF80;
MA10:=((100 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14)));
EXPLAIN((MA10 < 20),'W&R超买'),color80FF80;
EXPLAIN((MA10 > 80),'W&R超卖'),colorFF80FF;
MA30:=EMA(CLOSE,5);
MA60:=EMA(CLOSE,10);
MA120:=EMA(CLOSE,30);
MA250:=EMA(CLOSE,60);
VAR210:=EMA(CLOSE,120);
VAR211:=EMA(CLOSE,250);
EXPLAIN((((MA30 > MA60) AND (MA60 > MA120)) AND (MA30 > MA120)),'EMA短期均线排列：多头'),colorFF80FF;
EXPLAIN((((MA30 < MA60) AND (MA60 < MA120)) AND (MA30 < MA120)),'EMA短期均线排列：空头'),color80FF80;
EXPLAIN((((MA120 > MA250) AND (MA120 > VAR210)) AND (MA250 > VAR210)),'EMA中期均线排列：多头'),colorFF80FF;
EXPLAIN((((MA120 < MA250) AND (MA120 < VAR210)) AND (MA250 < VAR210)),'EMA中期均线排列：空头'),color80FF80;
EXPLAIN((((MA250 > VAR210) AND (VAR210 > VAR211)) AND (MA250 > VAR211)),'EMA长期均线排列：多头'),colorFF80FF;
EXPLAIN((((MA250 < VAR210) AND (VAR210 < VAR211)) AND (MA250 < VAR211)),'EMA长期均线排列：空头'),color80FF80;
EXPLAIN(CROSS(MA30,MA60),'EMA短期均线5x10：金叉'),colorFF80FF;
EXPLAIN(CROSS(MA60,MA30),'EMA短期均线5x10：死叉'),color80FF80;
EXPLAIN(CROSS(CLOSE,VAR210),'EMA今日股价上穿半年线'),colorFF80FF;
EXPLAIN(CROSS(VAR210,CLOSE),'EMA今日股价跌破半年线'),color80FF80;
EXPLAIN(CROSS(CLOSE,VAR211),'EMA今日股价上穿一年线'),colorFF80FF;
EXPLAIN(CROSS(VAR211,CLOSE),'EMA今日股价跌破一年线'),color80FF80;
EXPLAIN(((CROSS(CLOSE,MA250) AND CROSS(CLOSE,VAR210)) AND CROSS(CLOSE,VAR211)),'EMA股价一阳上穿三线'),colorFF80FF;
EXPLAIN((MA120 > REF(MA120,1)),'EMA30日均线趋势：向上'),colorFF80FF;
EXPLAIN(((MA120 > REF(MA120,1)) AND (MA120 < (REF(MA120,1) * 1.001))),'EMA30日均线趋势：走平'),color80FFFF;
EXPLAIN((MA120 < REF(MA120,1)),'EMA30日均线趋势：向下'),color80FF80;
EXPLAIN((MA30 > (REF(MA30,1) * 1.015)),'EMA5日均线：强劲向上'),colorFF80FF;
EXPLAIN(((MA30 > REF(MA30,1)) AND (MA30 < (REF(MA30,1) * 1.005))),'EMA5日均线：方向不明'),color80FFFF;
EXPLAIN((MA30 < (REF(MA30,1) * 0.985)),'EMA5日均线：快速向下'),color80FF80;
VAR231:=MA(CLOSE,5);
VAR232:=MA(CLOSE,10);
VAR233:=MA(CLOSE,30);
VAR234:=MA(CLOSE,60);
VAR235:=MA(CLOSE,120);
VAR236:=MA(CLOSE,250);
EXPLAIN((((VAR231 > VAR232) AND (VAR232 > VAR233)) AND (VAR231 > VAR233)),'MA短期均线排列：多头'),colorFF80FF;
EXPLAIN((((VAR231 < VAR232) AND (VAR232 < VAR233)) AND (VAR231 < VAR233)),'MA短期均线排列：空头'),color80FF80;
EXPLAIN((((VAR233 > VAR234) AND (VAR233 > VAR235)) AND (VAR234 > VAR235)),'MA中期均线排列：多头'),colorFF80FF;
EXPLAIN((((VAR233 < VAR234) AND (VAR233 < VAR235)) AND (VAR234 < VAR235)),'MA中期均线排列：空头'),color80FF80;
EXPLAIN((((VAR234 > VAR235) AND (VAR235 > VAR236)) AND (VAR234 > VAR236)),'MA长期均线排列：多头'),colorFF80FF;
EXPLAIN((((VAR234 < VAR235) AND (VAR235 < VAR236)) AND (VAR234 < VAR236)),'MA长期均线排列：空头'),color80FF80;
EXPLAIN(CROSS(VAR231,VAR232),'MA短期均线5x10：金叉'),colorFF80FF;
EXPLAIN(CROSS(VAR232,VAR231),'MA短期均线5x10：死叉'),color80FF80;
EXPLAIN(CROSS(CLOSE,VAR235),'MA今日股价上穿半年线'),colorFF80FF;
EXPLAIN(CROSS(VAR235,CLOSE),'MA今日股价跌破半年线'),color80FF80;
EXPLAIN(CROSS(CLOSE,VAR236),'MA今日股价上穿一年线'),colorFF80FF;
EXPLAIN(CROSS(VAR236,CLOSE),'MA今日股价跌破一年线'),color80FF80;
EXPLAIN(((CROSS(CLOSE,VAR234) AND CROSS(CLOSE,VAR235)) AND CROSS(CLOSE,VAR236)),'MA股价一阳上穿三线'),colorFF80FF;
EXPLAIN((VAR233 > REF(VAR233,1)),'MA30日均线趋势：向上'),colorFF80FF;
EXPLAIN(((VAR233 > REF(VAR233,1)) AND (VAR233 < (REF(VAR233,1) * 1.001))),'MA30日均线趋势：走平'),color80FFFF;
EXPLAIN((VAR233 < REF(VAR233,1)),'MA30日均线趋势：向下'),color80FF80;
EXPLAIN((VAR231 > (REF(VAR231,1) * 1.015)),'MA5日均线：强劲向上'),colorFF80FF;
EXPLAIN(((VAR231 > REF(VAR231,1)) AND (VAR231 < (REF(VAR231,1) * 1.005))),'MA5日均线：方向不明'),color80FFFF;
EXPLAIN((VAR231 < (REF(VAR231,1) * 0.985)),'MA5日均线：快速向下'),color80FF80;
EXPLAIN((CLOSE > 0),'\n');
EXPLAIN((CLOSE > 0),'Ray_L指标看量');
MACD:=(EMA(VOL,12) - EMA(VOL,26));
TR1:=EMA(MACD,9);
DMZ:=(MACD - TR1);
EXPLAIN((CROSS(MACD,TR1) AND (MACD > 0)),'解：VMACD在0轴上金叉');
EXPLAIN((CROSS(TR1,MACD) AND (TR1 > 0)),'解：VMACD在0轴上死叉');
EXPLAIN((CROSS(MACD,TR1) AND (MACD < 0)),'解：VMACD在0轴下金叉');
EXPLAIN((CROSS(TR1,MACD) AND (TR1 < 0)),'解：VMACD在0轴下死叉');
EXPLAIN(((DMZ > 0) AND (REF(DMZ,1) < 0)),'解：VMACD转红');
EXPLAIN(((DMZ < 0) AND (REF(DMZ,1) > 0)),'解：VMACD转绿');
EM60:=((SMA(MAX((VOL - REF(VOL,1)),0),6,1) / SMA(ABS((VOL - REF(VOL,1))),6,1)) * 100);
EM120:=((SMA(MAX((VOL - REF(VOL,1)),0),12,1) / SMA(ABS((VOL - REF(VOL,1))),12,1)) * 100);
VAR2:EXPLAIN(CROSS(EM60,85),'VRSI超买'),colorFF;
VAR3:EXPLAIN(CROSS(15,EM60),'VRSI超卖'),colorFF00;
VAR4:EXPLAIN((CROSS(EM60,EM120) AND (EM60 > 50)),'VRSI金买进'),color8000FF;
VAR5:EXPLAIN((CROSS(EM60,EM120) AND (EM60 < 50)),'VRSI买进'),color808000;
VAR6:EXPLAIN((CROSS(EM120,EM60) AND (EM60 > 50)),'VRSI金卖出');
VAR7:EXPLAIN((CROSS(EM120,EM60) AND (EM60 < 50)),'VRSI卖出'),colorFF00FF;
EM30:=(((VOL - REF(VOL,12)) / REF(VOL,12)) * 100);
VAR8:EXPLAIN(CROSS(EM30,0),'VROC买入'),colorFFFFFF;
VAR9:EXPLAIN(CROSS(0,EM30),'VROC卖出'),color8000FF;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
