软件名称：[B]ROC变动速率指标 - 解盘指标[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：8.00 KB
官方主页：Home Page
更新时间：2009-03-08 08:26:43
软件简介:

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*AVED
[url=http://www.70822.com/soft/sort013/sort02/down-7137.html]ROC变动速率指标 - 解盘指标[/url]