软件名称：[B]见凌见之微分MACD翻样版（源码 副图 贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：1.00 KB
官方主页：Home Page
更新时间：2011-05-23 09:49:41
软件简介:

DIF12:=(EMA(CLOSE,12)-EMA(CLOSE,26))/((EMA(CLOSE,12)+EMA(CLOSE,26))/2)*1000;
DEA12:=EMA(DIF12,9);
KDIF12:=3*(DIF12-DEA12);{KDIF12:=2*(DIF12-DEA12)};
KDEA12:=SMA(KDIF12,5,2);
买卖力道:=2*(KDIF12-KDEA12);
微分DIF:=KDIF12;
微分DEA:=KDEA12;
微分MACD:=2*(KDIF12-KDEA12);
B11:=微分MACD>REF(微分MACD,1) AND 微分MACD>REF(微分MACD,2) AND
REF(微分MACD,2)>REF(微分MACD,1) AND REF(微分MACD,2)/REF(微分MACD,1)>0;
B12:=ANY(B11,8)=1 AND 微分MACD<REF(微分MACD,1) AND REF(微分MACD,1)>REF(微分MACD,2);
B121:=B12 AND BARSLAST(B11)>BARSLAST(B12) AND COUNT(B12,BARSLAST(B11))=1;
{多头买入(买开)} ENTERLONG:B11 AND MA(C,90)>0 AND ANY(微分MACD<20,3);


副图：
DIF12:=(EMA(CLOSE,12)-EMA(CLOSE,26))/((EMA(CLOSE,12)+EMA(CLOSE,26))/2)*1000;
DEA12:=EMA(DIF12,9);
{相对MACD:2*(DIF12-DEA12),STICK,COLORRED;}
KDIF12:=3*(DIF12-DEA12);{KDIF12:=2*(DIF12-DEA12)};
KDEA12:=SMA(KDIF12,5,2);
买卖力道:2*(KDIF12-KDEA12),COLORLIRED,LINETHICK1;
{相对DIF:DIF12,COLORMAGENTA,LINETHICK2;
相对DEA:DEA12,COLORGREEN,LINETHICK2;}
微分DIF:KDIF12,COLORYELLOW,LINETHICK2;
微分DEA:KDEA12,COLORLIGRAY,LINETHICK1;
微分MACD:2*(KDIF12-KDEA12),STICK,,LINETHICK2,COLORBLUE;
B11:微分MACD>REF(微分MACD,1) AND 微分MACD>REF(微分MACD,2) AND
REF(微分MACD,2)>REF(微分MACD,1) AND REF(微分MACD,2)/REF(微分MACD,1)>0,NODRAW;
B12:=EXIST(B11,15)=1 AND 微分MACD<REF(微分MACD,1) AND REF(微分MACD,1)>REF(微分MACD,2);
B121:B12 AND BARSLAST(B11)>BARSLAST(B12) AND COUNT(B12,BARSLAST(B11))=1,NODRAW;
{以下为MACD变色的代码}
_红柱:IF(微分MACD>REF(微分MACD,1),微分MACD,DRAWNULL),STICK,COLORRED;
IF(B11,微分MACD,DRAWNULL),STICK,COLORYELLOW,LINETHICK7;
IF(B121,微分MACD,DRAWNULL),STICK,COLORGREEN,LINETHICK7;
绿柱:IF(微分MACD<REF(微分MACD,1),微分MACD,DRAWNULL),STICK,COLORYELLOW;
_抄底:=((CROSS(微分DIF,微分DEA)
&&微分DEA<=-0.07)*微分DIF)*1.50,COLORLIMAGENTA;
_DIF:=微分DIF,COLORWHITE;
_DEA:=微分DEA,COLORYELLOW;
__强度:=IF(_DIF>_DEA,_DIF,DRAWNULL),COLORRED,LINETHICK2;
_强度:=IF(_DEA<_DIF,_DEA,DRAWNULL),COLORMAGENTA,LINETHICK2;
0;
{统计买入后涨幅};
ZF:=C/(REF(C,BARSLAST(B11)))*100-100,NODRAW;
本轮涨幅1:=IF(B121=1,ZF,DRAWNULL);
本轮涨幅:IF(C/(REF(C,BARSLAST(B11)))=0,1,本轮涨幅1);
涨跌算术和1:SUM(本轮涨幅,0);              {算术涨幅和也算是一种参考吧，感觉此公式对非常弱势和新股很感冒}

{下面没用的，本来请人指教，没人应，失望
ZFF:=1*本轮涨幅/100;
首轮涨后:1*(1+REF(ZFF,BARSSINCE(B121)) );
N1轮涨:首轮涨后*REF(本轮涨幅,BARSSINCEN(B121,COUNT(B121,0)-1));
总涨倍率1:=(本轮涨幅*REF(本轮涨幅,BARSLAST(B121)))/10000,NODRAW;
总涨倍率:IF(B121=1,总涨倍率1,DRAWNULL);};

 

[url=http://www.70822.com/soft/sort013/sort05/down-34086.html]见凌见之微分MACD翻样版（源码 副图 贴图）[/url]