ROC变动速率指标：
DRAWGBK((CLOSE > 0),COLORRGB(0,130,100),COLORRGB(0,0,30),1);
DIFF :(EMA(CLOSE,12) - EMA(CLOSE,26))*50,linethick0;
DEA:EMA(DIFF,9),linethick0;
MACD : 2*(DIFF-DEA),linethick0;
FILLRGN(MACD>0,MACD,0),Color6E91C3;
FILLRGN(MACD<0,MACD,0),COLORGREEN;
{FILLRGN(DIFF>DEA,DIFF,DEA),COLORBROWN;
FILLRGN(DIFF<DEA,DIFF,DEA),COLORGRAY;}
RSV:=(CLOSE-LLV(LOW,90))/(HHV(HIGH,90)-LLV(LOW,90))*200-100;
长K:SMA(RSV,25,1),COLORGRAY;
长D:SMA(长K,7,1),,linethick0;
长J:3*长K-2*长D,ColorFC22FF;
FILLRGN(长J>长K,长J,长K),ColorFC22FF;
FILLRGN(长J<长K,长J,长K),COLORGRAY;
VAR1:=((CLOSE-MA(CLOSE,6))/(MA(CLOSE,6)))*(100);
VAR2:=((CLOSE-MA(CLOSE,24))/(MA(CLOSE,24)))*(100);
VAR3:=((CLOSE-MA(CLOSE,32))/(MA(CLOSE,32)))*(100);
VAR4:=(VAR1+VAR2+VAR3)/(3);
VAR5:=EMA(VAR4,5);
VAR6:=IF((VAR4<=(-20)),10,0);
VAR7:=HHV(VAR6,10);
VARA:=IF(VAR7 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);
K:(EMA(VAR5,5))*(2),linethick0;
D:EMA(K,5),COLORRED;
J:(K)*(3)-(D)*(2),Color00FFFF;
FILLRGN((J>D),J,D),COLORYELLOW;
FILLRGN((J<D),J,D),COLORYELLOW;
FILLRGN((J>REF(J,1) and J>D),J,D),COLORRED;
FILLRGN((J>REF(J,1) and J<D),J,D),COLORRED;
DIFF:=(EMA(CLOSE,3) - EMA(CLOSE,13));
DEA:=EMA(DIFF,9);
tj:=(diff>dea);
tj1:=(diff>-0.1);
MACD:=2*(DIFF-DEA);
JC:=CROSS(DIFF,DEA);
SC:=CROSS(DEA,DIFF);
DCJC:=JC AND DEA>0;
EXPLAIN((JC AND DEA>0),'MACD在0轴上金叉提示加仓;'),COLORRED;
EXPLAIN((JC AND DEA<0),'MACD在0轴下金叉酌情买入;'),COLORRED;
EXPLAIN((SC AND DEA>0),'MACD在0轴上多次死叉;'),COLORGREEN;
EXPLAIN((SC AND DEA<0),'MACD在0轴下多次死叉;'),COLORGREEN;
EXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'MACD绿柱增长提示卖出;'),COLORGREEN;
EXPLAIN((MACD<0 AND ABS(MACD)<REF(ABS(MACD),1)),'MACD绿柱缩短提示买入;'),COLORRED;
EXPLAIN((LLV(LOW,60)=LOW)AND(NOT(LLV("MACD.DEA",60)="MACD.DEA")),'MACD底背离提示示买入;'),COLORRED;
EXPLAIN((HHV(HIGH,60)=HIGH)AND(NOT(HHV("MACD.DEA",60)="MACD.DEA")),'MACD顶背离提示卖出;'),COLORGREEN;
EXPLAIN(CROSS("MACD.DIFF","MACD.DEA")AND(BARSLAST(CROSS("MACD.DIFF","MACD.DEA"))>=3),'MACD二次金叉提示买入，股价上涨幅度会较大。'),COLORRED;
EXPLAIN(CROSS("MACD.DEA","MACD.DIFF")AND(BARSLAST(CROSS("MACD.DEA","MACD.DIFF"))>=3),'MACD二次死叉提示卖出，股价下跌幅度会较大。'),COLORGREEN;
EXPLAIN((COUNT(CLOSE<REF(CLOSE,1),30)>18AND(COUNT(CLOSE<REF(CLOSE,1),3)=3))AND(COUNT("MACD.MACD">REF("MACD.MACD",1),30)>18),'MACD反转--股价将可能反转向上。'),COLORRED;
EXPLAIN((COUNT(CLOSE>REF(CLOSE,1),30)>18AND(COUNT(CLOSE>REF(CLOSE,1),3)=3))AND(COUNT("MACD.MACD"<REF("MACD.MACD",1),30)>18),'MACD反转--股价将可能反转向下。'),COLORGREEN;
EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'MACD在0轴上2金叉;')COLORredCOLORred;
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'MACD在0轴上3金叉;');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'MACD在轴上4金叉;');
LC := REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;
EXPLAIN("RSI.RSI1"<15AND(BARSLAST("RSI.RSI1"<15)>=1),'RSI相对强弱指标超卖,属买入信号。'),COLORRED;
EXPLAIN("RSI.RSI1">85AND(BARSLAST("RSI.RSI1">85)>=1),'RSI相对强弱指标超买,属卖出信号。'),COLORGREEN;
EXPLAIN((((LLV(L,20)=L)AND(NOT(LLV("RSI.RSI1",20)="RSI.RSI1")))OR(COUNT(C<REF(C,1),30)>18AND(COUNT("RSI.RSI1">REF("RSI.RSI1",1),30)>18)))AND("RSI.RSI1"<20),'RSI相对强弱指标底背离,股价在低位时属买入信号。'),COLORRED;
EXPLAIN((((HHV(H,20)=H)AND(NOT(HHV("RSI.RSI1",20)="RSI.RSI1")))OR(COUNT(C>REF(C,1),30)>18AND(COUNT("RSI.RSI1"<REF("RSI.RSI1",1),30)>18)))AND("RSI.RSI1">80),'RSI相对强弱指标顶背离,股价在高位时属卖出信号。'),COLORGREEN;
EXPLAIN(CROSS("RSI.RSI1","RSI.RSI2")AND("RSI.RSI1"<50),'RSI相对强弱指标金叉属买入信号。'),COLORRED;
EXPLAIN(CROSS("RSI.RSI2","RSI.RSI1")AND("RSI.RSI1">50),'RSI相对强弱指标死叉,属卖出信号。'),COLORGREEN;
EXPLAIN("RSI.RSI1"<5,'RSI相对强弱指标极低位,强烈买入信号。'),COLORRED;
EXPLAIN("RSI.RSI1">93,'RSI相对强弱指标极高位,强烈卖出信号。'),COLORGREEN;
EXPLAIN(RSI1<35,'RSI顶背离提示买入;'),COLORRED;
EXPLAIN(CROSS(74,RSI1),'RSI顶背离提示卖出;')COLORGREEN;
EXPLAIN(("KDJ.K"<=20 AND "KDJ.D"<=20),'KD超卖指示买入;')COLORRED;
EXPLAIN(("KDJ.K">=80 AND "KDJ.D">=80),'KD超买逢高卖出;')COLORGREEN;
EXPLAIN(CROSS("KDJ.K","KDJ.D") AND (COUNT(VOL>REF(VOL,1),30)>3AND (VOL/CAPITAL<=(10/100))) AND (("KDJ.K"<=20 AND"KDJ.D"<=20)),'KD金叉买入,低市值或成交清淡个股应忽略此信号。')COLORRED;
EXPLAIN(CROSS("KDJ.D","KDJ.K") AND ("KDJ.K">=60 AND "KDJ.D">=60)AND (BARSLAST(CROSS("KDJ.D","KDJ.K")AND("KDJ.K">=60 AND"KDJ.D">=60))>=1) AND
(BARSLAST(CROSS("KDJ.D","KDJ.K") AND ("KDJ.K">=60 AND "KDJ.D">=60))<=7),'KD二次死叉提示卖出;')COLORGREEN;
EXPLAIN(("KDJ.J"<0),'KDJ异常逢低买入')COLORRED;
EXPLAIN(((HHV(HIGH,20)=HIGH) AND (NOT(HHV("KDJ.K",20)="KDJ.K" OR(HHV("KDJ.D",20)="KDJ.D")))) OR (COUNT(CLOSE>REF(CLOSE,1),30)>18AND (COUNT("KDJ.K"<REF("KDJ.K",1),30)>18 OR(COUNT("KDJ.D"<REF("KDJ.D",1),30)>18))),'KD顶背离提示卖出;')COLORGREEN;
EXPLAIN(((LLV(LOW,20)=LOW) AND (NOT(LLV("KDJ.K",20)="KDJ.K" OR(LLV("KDJ.D",20)="KDJ.D")))) OR (COUNT(CLOSE<REF(CLOSE,1),30)>18AND (COUNT("KDJ.K">REF("KDJ.K",1),30)>18 OR(COUNT("KDJ.D">REF("KDJ.D",1),30)>18))),'KD底背离提示买入;')COLORRED;
日K:="KDJ.K#DAY"(20,5,5);
日D:="KDJ.D#DAY"(20,5,5);
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
EXPLAIN((CROSS(日K,日D)),'日KD金叉且底背离买入;')COLORRED;
EXPLAIN((CROSS(日D,日K)),'日KD死叉且顶背离必须卖出;')COLORGREEN;
EXPLAIN((CROSS(周K,周D)),'周KD金叉且底背离买入;')COLORRED;
EXPLAIN((CROSS(周D,周K)),'周KD死叉且顶背离必须卖出;')COLORGREEN;
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,'布林线收窄可能变盘;')COLORMAGENTA;
EXPLAIN(var57 and var56 and CLOSE>OPEN ,'布林上下乖离太大可能反弹;')COLORFF00FF;
EXPLAIN(var58 and var56 and CLOSE<OPEN ,'布林上下乖离太大可能回落;')COLORGREEN;
EXPLAIN(CROSS(CLOSE,"SAR") AND (ABS(CLOSE-"SAR")/CLOSE>=0.01),'SAR向上突破提示买入;')COLORRED;
EXPLAIN(CROSS("SAR",CLOSE) AND (ABS(CLOSE-"SAR")/CLOSE>=0.01),'SAR向下突破提示卖出;')COLORGREEN;
TYP := (HIGH + LOW + CLOSE)/3;
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(cci<-100,'CCI指标底位,买入机会。'),COLORRED;
EXPLAIN(cci>100,'CCI指标高位,卖出机会。'),COLORGREEN;
explain((vol/CAPITAl)>0.075,'换手过大,小心主力出逃,短期头部。'),COLORYELLOW;
wr:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
explain(wr>-20,'W&R超买,即将见顶,应及时卖出。'),COLORGREEN;
explain(wr<-80,'W&R超卖,即将见底,应伺机买进。'),COLORRED;
MTM := CLOSE-REF(CLOSE,6);
MTMMA := MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA),'MTM从下向上突破MTMMA,买入信号。'),COLORRED;
EXPLAIN(CROSS(MTMMA,MTM),'MTM从上向下跌破MTMMA,卖出信号。'),COLORGREEN;
EXPLAIN("ARBR.AR"<50,'ARBR人气指标超卖,属买入信号。'),COLORRED;
EXPLAIN("ARBR.AR">200,'ARBR人气指标超买,属卖出信号。'),COLORGREEN;
EXPLAIN(((HHV("ARBR.AR",10)-"ARBR.AR")/HHV("ARBR.AR",10))>=0.5,'ARBR人气指标异常,若股价从高价下跌,属买入信号。'),COLORRED;
EXPLAIN((("ARBR.AR"-LLV("ARBR.AR",10))/LLV("ARBR.AR",10))>=0.5,'ARBR人气指标异常,若股价从低价上升,属卖出信号。'),COLORGREEN;
EXPLAIN("ARBR.BR"<50,'ARBR意愿指标显示股价随时反弹考虑买入。'),COLORRED;
EXPLAIN("ARBR.BR">300,'ARBR意愿指标显示股价随时下挫考虑卖出。'),COLORFF00FF;
EXPLAIN(CROSS("ARBR.AR","ARBR.BR")AND("ARBR.AR"<50OR"ARBR.BR"<50),'ARBR人气意愿指标金叉,属买入信号。'),COLORRED;
EXPLAIN(CROSS("ARBR.BR","ARBR.AR")AND("ARBR.AR">180OR"ARBR.BR">300),'ARBR人气意愿指标死叉,属卖出信号。'),COLORGREEN;
EXPLAIN((COUNT(C<REF(C,1),30)>18AND(COUNT(C<REF(C,1),3)=3))AND((COUNT("OBV.OBV">REF("OBV.OBV",1),30)>18)AND(COUNT("OBV.OBV">REF("OBV.OBV",1),3)=3))AND(COUNT(VOL>REF(VOL,1),30)>3AND(VOL/CAPITAL<=(10/100))),'OBV能量潮显示买盘较强属买入信号。'),COLORRED;
EXPLAIN((COUNT(C>REF(C,1),30)>18AND(COUNT(C>REF(C,1),3)=3))AND((COUNT("OBV.OBV">REF("OBV.OBV",1),30)>18)AND(COUNT("OBV.OBV">REF("OBV.OBV",1),3)=3))AND(COUNT(VOL>REF(VOL,1),30)>3AND(VOL/CAPITAL<=(10/100))),'OBV能量潮显示买盘逐渐加强属买入信号。'),COLORRED;
EXPLAIN((COUNT(C>REF(C,1),30)>18AND(COUNT(C>REF(C,1),3)=3))AND((COUNT("OBV.OBV"<REF("OBV.OBV",1),30)>18)OR(COUNT("OBV.OBV"<REF("OBV.OBV",1),3)=3)),'OBV能量潮显示买盘无力属卖出信号。'),COLORGREEN;
EXPLAIN(CROSS("OBV.OBV",0)AND(COUNT((REF("OBV.OBV",1)<0),3)=3),'OBV能量潮由负转正属买入信号。'),COLORRED;
EXPLAIN(CROSS(0,"OBV.OBV")AND(COUNT((REF("OBV.OBV",1)>0),3)=3),'OBV能量潮由正转负属卖出信号。'),COLORGREEN;
EXPLAIN((HHV(H,20)=H)AND(NOT(HHV("OBV.OBV",20)="OBV.OBV")),'OBV能量潮顶背离属卖出信号。')COLORGREEN;
EXPLAIN((LLV(L,20)=L)AND(NOT(LLV("OBV.OBV",20)="OBV.OBV")),'OBV能量潮底背离属买入信号。'),COLORRED;
EXPLAIN((ABS("OBV.OBV"-REF("OBV.OBV",1))/ABS(MA("OBV.OBV",5))>0.07)AND("OBV.OBV">REF("OBV.OBV",1)),'OBV能量潮异常。若股价在高位属卖出信号，若OBV能量线在低位长时间横向整理后出现,属买入信号。'),COLORFF00FF;
EXPLAIN("CR.CR"<40,'CR能量指标超卖,提示股价形成底部,属买入信号。'),COLORRED;
EXPLAIN("CR.CR"<=400AND"CR.CR">=300,'CR能量指标超买,属卖出信号。'),COLORGREEN;
EXPLAIN((LLV(L,20)=L)AND(NOT(LLV("CR.CR",20)="CR.CR")),'CR能量指标底背离,属买入信号。'),COLORRED;
EXPLAIN((HHV(H,20)=H)AND(NOT(HHV("CR.CR",20)="CR.CR")),'CR能量指标顶背离,属卖出信号。'),COLORGREEN;
EXPLAIN(((ABS("CR.MA1"-"CR.MA2")<5)AND(ABS("CR.MA1"-"CR.MA3")<5)AND(ABS("CR.MA2"-"CR.MA3")<5))OR(((ABS("CR.MA1"-"CR.CR")<5)AND(ABS("CR.MA1"-"CR.MA3")<5)AND(ABS("CR.CR"-"CR.MA3")<5))),'CR能量指标异常,一波或长或短的上升或下跌行情即将展开。'),COLORFF00FF;
EXPLAIN("PSY"<10,'PSY心理线指标低位超卖区,属买入信号。'),COLORRED;
EXPLAIN(BETWEEN("PSY","PSY">10,"PSY"<25),'PSY心理线指标超卖,属买入信号。'),COLORRED;
EXPLAIN("PSY">75,'PSY心理线指标超买,属卖出信号。'),COLORGREEN;
EXPLAIN(CROSS("ROC.ROC",0),'ROC变动速率指标向上突破,属买入信号。'),COLORRED;
EXPLAIN(CROSS(0,"ROC.ROC"),'ROC变动速率指标向下突破,属卖出信号。'),COLORGREEN;
EXPLAIN((LLV(L,20)=L)AND(NOT(COUNT("ROC.ROC"<REF("ROC.ROC",1),30)>18AND(COUNT("ROC.ROC"<REF("ROC.ROC",1),3)=3))),'ROC变动速率指标,显示下跌动力减弱,属买入信号。'),COLORRED;
EXPLAIN((HHV(H,20)=H)AND(NOT(COUNT("ROC.ROC">REF("ROC.ROC",1),30)>18AND(COUNT("ROC.ROC">REF("ROC.ROC",1),3)=3))),'ROC变动速率指标,显示上涨动力减弱,属卖出信号。'),COLORGREEN;
EXPLAIN((COUNT(C>REF(C,1),30)>18AND(COUNT(C>REF(C,1),3)=3))AND(COUNT("ROC.ROC">REF("ROC.ROC",1),30)>18AND(COUNT("ROC.ROC">REF("ROC.ROC",1),3)=3)),'ROC变动速率指标显示短期反弹有望,属买入信号。'),COLORRED;
EXPLAIN((COUNT(C<REF(C,1),30)>18AND(COUNT(C<REF(C,1),3)=3))AND(COUNT("ROC.ROC"<REF("ROC.ROC",1),30)>18AND(COUNT("ROC.ROC"<REF("ROC.ROC",1),3)=3)),'ROC变动速率指标显示短期警惕回落,属卖出信号。'),COLORGREEN;
EXPLAIN("VR"<20,'VR容量比率指标显示股价即将涨升,建议积极买入。'),COLORRED;
EXPLAIN("VR">400,'VR容量比率指标显示后续资金枯竭,股价将可能高位下跌,属卖出信号。'),COLORGREEN;
EXPLAIN((("VR"/REF("VR",1)>=2)OR("VR"/REF("VR",2)>=2))AND(COUNT(C<=REF(C,1),5)>=3),'VR容量比率指标异常,显示股价即将涨升,属买入信号。'),COLORRED;
EXPLAIN("VR">300AND(COUNT("VR"<REF("VR",1),5)>=3)AND(COUNT(C>REF(C,1),5)>=3),'VR容量比率指标显示涨势耗尽,建议卖出。'),COLORGREEN;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
