软件名称:[B]飞狐解盘公式[/B]
软件类型:国产软件
运行环境:Win9X/Win2000/WinXP/Win2003/
软件语言:简体中文
授权方式:解密版
软件大小:8.00 KB
官方主页:Home Page
更新时间:2009-08-31 08:10:52
软件简介:
input:K(1,0,1);
if k=0 then exit;
EXPLAIN(1=1,' 【技术分析】'),colorFFFF;
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轴上金叉提示加仓;'),colorFF;
EXPLAIN(JC AND DEA<0,'MACD在0轴下金叉酌情买入;'),colorFF;
EXPLAIN(SC AND DEA>0,'MACD在0轴上多次死叉;'),colorFF00;
EXPLAIN(SC AND DEA<0,'MACD在0轴下多次死叉;'),colorFF00;
EXPLAIN(MACD<0 AND ABS(MACD)>REF(ABS(MACD),1),'MACD绿柱增长提示卖出;'),colorFF00;
EXPLAIN(MACD<0 AND ABS(MACD)<REF(ABS(MACD),1),'MACD绿柱缩短提示买入;'),colorFF;
EXPLAIN(LLV(LOW,60)=LOW AND NOT(LLV("MACD.DEA",60)="MACD.DEA"),'MACD底背离提示示买入
;'),colorFF;
EXPLAIN(HHV(HIGH,60)=HIGH AND NOT(HHV("MACD.DEA",60)="MACD.DEA"),'MACD顶背离提示卖出
;'),colorFF00;
EXPLAIN(CROSS("MACD.DIFF","MACD.DEA") AND BARSLAST(CROSS("MACD.DIFF","MACD.DEA"))>=3,'MACD二
次金叉提示买入,股价上涨幅度会较大。'),colorFF;
EXPLAIN(CROSS("MACD.DEA","MACD.DIFF") AND BARSLAST(CROSS("MACD.DEA","MACD.DIFF"))>=3,'MACD二
次死叉提示卖出,股价下跌幅度会较大。'),colorFF00;
EXPLAIN((COUNT(CLOSE<REF(CLOSE,1),30))>18 AND (COUNT(CLOSE<REF(CLOSE,1),3))=3 AND
(COUNT("MACD.MACD">REF("MACD.MACD",1),30))>18,'MACD反转--股价将可能反转向上。 '),colorFF;
EXPLAIN((COUNT(CLOSE>REF(CLOSE,1),30))>18 AND (COUNT(CLOSE>REF(CLOSE,1),3))=3 AND
(COUNT("MACD.MACD"<REF("MACD.MACD",1),30))>18,'MACD反转--股价将可能反转向下。 '),colorFF00;
EXPLAIN(COUNT(DCJC,20)=2 AND JC AND DEA>0,'MACD在0轴上2金叉;'),color1;
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"<15 AND (BARSLAST("RSI.RSI1"<15))>=1,'RSI相对强弱指标超卖,属买入信号。
'),colorFF;
EXPLAIN("RSI.RSI1">85 AND (BARSLAST("RSI.RSI1">85))>=1,'RSI相对强弱指标超买,属卖出信号。
'),colorFF00;
EXPLAIN((LLV(LOW,20)=LOW AND NOT(LLV("RSI.RSI1",20)="RSI.RSI1") OR
(COUNT(CLOSE<REF(CLOSE,1),30))>18 AND (COUNT("RSI.RSI1">REF("RSI.RSI1",1),30))>18) AND
"RSI.RSI1"<20,'RSI相对强弱指标底背离,股价在低位时属买入信号。'),colorFF;
EXPLAIN((HHV(HIGH,20)=HIGH AND NOT(HHV("RSI.RSI1",20)="RSI.RSI1") OR
(COUNT(CLOSE>REF(CLOSE,1),30))>18 AND (COUNT("RSI.RSI1"<REF("RSI.RSI1",1),30))>18) AND
"RSI.RSI1">80,'RSI相对强弱指标顶背离,股价在高位时属卖出信号。'),colorFF00;
EXPLAIN(CROSS("RSI.RSI1","RSI.RSI2") AND "RSI.RSI1"<50,'RSI相对强弱指标金叉属买入信号。
'),colorFF;
EXPLAIN(CROSS("RSI.RSI2","RSI.RSI1") AND "RSI.RSI1">50,'RSI相对强弱指标死叉,属卖出信号。
'),colorFF00;
EXPLAIN("RSI.RSI1"<5,'RSI相对强弱指标极低位,强烈买入信号。'),colorFF;
EXPLAIN("RSI.RSI1">93,'RSI相对强弱指标极高位,强烈卖出信号。'),colorFF00;
EXPLAIN(RSI1<35,'RSI顶背离提示买入;'),colorFF;
EXPLAIN(CROSS(74,RSI1),'RSI顶背离提示卖出;'),colorFF00;
EXPLAIN("KDJ.K"<=20 AND "KDJ.D"<=20,'KD超卖指示买入;'),colorFF;
EXPLAIN("KDJ.K">=80 AND "KDJ.D">=80,'KD超买逢高卖出;'),colorFF00;
EXPLAIN(CROSS("KDJ.K","KDJ.D") AND (COUNT(VOL>REF(VOL,1),30))>3 AND VOL/CAPITAL<=10/100 AND
"KDJ.K"<=20 AND "KDJ.D"<=20,'KD金叉买入,低市值或成交清淡个股应忽略此信号。'),colorFF;
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二次死叉提示卖出
;'),colorFF00;
EXPLAIN("KDJ.J"<0,'KDJ异常逢低买入'),colorFF;
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))>18 AND ((COUNT("KDJ.K"<REF("KDJ.K",1),30))>18 OR
(COUNT("KDJ.D"<REF("KDJ.D",1),30))>18),'KD顶背离提示卖出;'),colorFF00;
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))>18 AND ((COUNT("KDJ.K">REF("KDJ.K",1),30))>18 OR
(COUNT("KDJ.D">REF("KDJ.D",1),30))>18),'KD底背离提示买入;'),colorFF;
日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金叉且底背离买入;'),colorFF;
EXPLAIN(CROSS(日D,日K),'日KD死叉且顶背离必须卖出;'),colorFF00;
EXPLAIN(CROSS(周K,周D),'周KD金叉且底背离买入;'),colorFF;
EXPLAIN(CROSS(周D,周K),'周KD死叉且顶背离必须卖出;'),colorFF00;
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,'布林线收窄可能变盘;'),colorFF00FF;
EXPLAIN(VAR57 AND VAR56 AND CLOSE>OPEN,'布林上下乖离太大可能反弹;'),colorFF00FF;
EXPLAIN(VAR58 AND VAR56 AND CLOSE<OPEN,'布林上下乖离太大可能回落;'),colorFF00;
EXPLAIN(CROSS(CLOSE,"SAR") AND (ABS(CLOSE-"SAR"))/CLOSE>=0.01,'SAR向上突破提示买入
;'),colorFF;
EXPLAIN(CROSS("SAR",CLOSE) AND (ABS(CLOSE-"SAR"))/CLOSE>=0.01,'SAR向下突破提示卖出
;'),colorFF00;
TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
EXPLAIN(CCI<-100,'CCI指标底位,买入机会。'),colorFF;
EXPLAIN(CCI>100,'CCI指标高位,卖出机会。'),colorFF00;
EXPLAIN(VOL/CAPITAL>0.075,'换手过大,小心主力出逃,短期头部。'),colorFFFF;
WR:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
EXPLAIN(WR>-20,'W&R超买,即将见顶,应及时卖出。'),colorFF00;
EXPLAIN(WR<-80,'W&R超卖,即将见底,应伺机买进。'),colorFF;
MTM:=CLOSE-REF(CLOSE,6);
MTMMA:=MA(MTM,6);
EXPLAIN(CROSS(MTM,MTMMA),'MTM从下向上突破MTMMA,买入信号。'),colorFF;
EXPLAIN(CROSS(MTMMA,MTM),'MTM从上向下跌破MTMMA,卖出信号。'),colorFF00;
EXPLAIN("ARBR.AR"<50,'ARBR人气指标超卖,属买入信号。'),colorFF;
EXPLAIN("ARBR.AR">200,'ARBR人气指标超买,属卖出信号。'),colorFF00;
EXPLAIN((HHV("ARBR.AR",10)-"ARBR.AR")/HHV("ARBR.AR",10)>=0.5,'ARBR人气指标异常,若股价从高价
下跌
[url=http://www.70822.com/soft/sort013/sort02/down-12264.html]飞狐解盘公式[/url]