新美人眼指标 (源码)

2012-03-08 09:23:00来源:本站整理浏览:135

大智慧新美人眼指标公式股票软件源码如下:

{背景颜色设定}
DRAWRECTREL(0,10,200,1000,rgb(0,0,255)),layer0;
{参数}
short:=12;long:=26;M:=9;
DIFF1:=EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA1:=EMA(DIFF1,M);
MACD:2*(DIFF1-DEA1),linethick0;
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG),colorff00ff,linethick0;
DEA : EMA(DIFF1,M),colorwhite,linethick0;
AH:HHV(DIFF1,55),COLOR6600ff,linethick0,layer0;
PARTLINE(ah,ah),COLORWHITE,POINTDOT,linethick0,layer0;
DRAWICON( ref(aH=diff1,1) and DIFF<REF(DIFF1,1),AH*0.65,8),ALIGN1;
AL:LLV(DIFF1,55),COLOR248a24,linethick0,layer0;
PARTLINE(al,Al),COLORWHITE,POINTDOT,linethick0,layer0;
DRAWICON( ref(al=diff1,1) and DIFF>REF(DIFF1,1),al*0.65,7),ALIGN1;
{美人眼}
VAR1:=HHV(DEA,53);
VAR2:=LLV(DEA,30);
VAR3:=DEA-(DIFF-DEA);
UP:IF(DIFF>VAR1 AND DEA=VAR1,MAX(LLV(VAR1,10),VAR3),VAR1),COLORbb9a00,LINETHICK0,LAYER0;
DN:IF(DIFF<VAR2 AND DEA=VAR2,MIN(HHV(VAR2,10),VAR3),VAR2),COLORaa00bb,LINETHICK0,LAYER0;
美人眼:CROSS(DIFF ,DEA ) AND CROSS( DIFF,DN ) AND DN<0,linethick0;
STICKLINE(美人眼,-0.1,-0.20,6,0),COLORRED;
{美人眼a:美人眼*AL,stick,linethick4,COLOR8080ff;}
DRAWTEXT(美人眼,-0.15,'美人眼'),ALIGN1,COLOR8080FF,linethick2,LAYER1;
{美人瞎眼:=CROSS(DEA ,DIFF ) AND CROSS( UP,DIFF ) AND DIFF<UP;
美人瞎眼a:美人瞎眼*ah,stick,linethick4,COLOR9ca010;
DRAWTEXT(美人瞎眼,dn,'美人瞎眼'),ALIGN1,COLOR9ca010,linethick2,LAYER0;}
{●60零上金叉:IF(CROSS(DIFF,DEA) AND DIFF>0,0.3,0),COLOR6600ff,POINTDOT;
STICKLINE(●60零上金叉,DIFF,ah,4,0),COLOR6600ff;}
■零下金叉:IF(CROSS(DIFF,DEA) AND DIFF<-0.001,0.3,0),COLORWHITE,POINTDOT,LINETHICK0;
STICKLINE(■零下金叉,0.1,0.20,6,0),COLORffffff;
drawtext(■零下金叉,0.15,'零下金叉'),ALIGN1,color6600FF,layer1;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
■二次金叉:IF(CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,0.2,0),COLORred,POINTDOT,LINETHICK0;
STICKLINE(■二次金叉,0.20,0.3,6,0),COLORred;
drawtext(■二次金叉,0.25,'二次金叉'),ALIGN1,colorffffFF,layer1;
A3:=CROSS(DIFF,DEA) AND DEA<0;
■零下二次金叉:IF(FILTER(COUNT(A3,21)=2,10) AND DEA<0,0.05,0),COLORblue,POINTDOT,LINETHICK0;
STICKLINE(■零下二次金叉,0.3,0.4,6,0),COLORblue;
drawtext(■零下二次金叉,0.35,'零下二次金叉'),ALIGN1,colorYELLOW,layer1;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
■底背离:IF(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),0.1,0),COLORFFFF00;
{底背离1:STICKLINE(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),0,AL,4,0),COLOR00FF00;}
STICKLINE(■底背离,0.2,0.25,6,0),COLORFFFF00;
{DRAWLINE(A1=0,DEA,■底背离,DEA,0),COLORYELLOW};
{A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:STICKLINE(REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),0,DIFF,4,0),COLORBLACK;
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN;}
中线:0,LINETHICK2,COLORYELLOW,LAYER1;
{绿色}
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,8,0 ),COLOr008800;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,7,0 ),COLOR009900;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,6,0 ),COLOR00aa00;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,5,0 ),COLOR00bb00;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,4,0 ),COLOR00cc00;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,3,0 ),COLOR00dd00;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2,0 ),COLOR00ee00;
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,1,0 ),COLOR00ff00;
{红色}
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,8,0 ),COLOR000088;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,7,0 ),COLOR000099;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,6,0 ),COLOR0000aa;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,5,0 ),COLOR0000bb;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,4,0 ),COLOR0000cc;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,3,0 ),COLOR0000dd;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,2,0 ),COLOR0000ee;
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,1,0 ),COLOR0000ff;
{黄色}
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,8,0 ),COLOR338fdd;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,7,0 ),COLOR339fdd;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,6,0 ),COLOR33afdd;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,5,0 ),COLOR33bfdd;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,4,0 ),COLOR33cfdd;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,3,0 ),COLOR33dfdd;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,2,0 ),COLOR33efdd;
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,1,0 ),COLOR33ffdd;
{蓝色}
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,8,0 ),COLORFF4400;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,7,0 ),COLORFF6600;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,6,0 ),COLORFF7700;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,5,0 ),COLORFF8800;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,4,0 ),COLORFF9900;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,3,0 ),COLORFFaa00;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,2,0 ),COLORFFbb00;
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,1,0 ),COLORFFcc00;
{当日及时行情}
DRAWTEXTREL(5,70,'今美人眼：'+NUMTOSTRN(美人眼,0)),COLORffffff,linethick1,layer0;
DRAWTEXTABS(5,5,'股票软件下载网 www.gpxiazai.com'),linethick1,COLOR00EEff;
DRAWTEXTREL(5,250,'日零下金叉：'+NUMTOSTRN(■零下金叉,0)),COLORffffff,linethick1,layer0;
DRAWTEXTREL(5,430,'行二次金叉：'+NUMTOSTRN(■二次金叉,0)),COLORFFFFFF,linethick1,layer0;
DRAWTEXTREL(5,610,'情零下二次金叉：'+NUMTOSTRN(■零下二次金叉,0)),COLORffffff,linethick1,layer0;
DRAWTEXTREL(5,790,'表趋势：'),COLORffffff,linethick1,layer0;
MRY1:=美人眼=1;
MRY2:=美人眼=0 AND ( ■零下金叉>0 OR ■二次金叉>0 OR ■零下二次金叉>0 );
MRY3:=美人眼=0 AND ■零下金叉=0 AND ■二次金叉=0 AND ■零下二次金叉=0 ;
IF BARSTATUS=2 AND MRY1 THEN BEGIN
DRAWTEXTREL(25,70,' ● 对你抛媚眼！'),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND MRY2 THEN BEGIN
DRAWTEXTREL(25,70,' ● 不理你！'),colorgreen,layer0;
END
ELSE
IF BARSTATUS=2 AND MRY3 THEN BEGIN
DRAWTEXTREL(25,70,' ● 看！'),colorgreen,layer0;
END;
LXJC1:=■零下金叉>0;
LXJC2:=■零下金叉=0 AND (■二次金叉>0 OR ■零下二次金叉>0);
LXJC3:=■零下金叉=0 AND ■二次金叉=0 AND ■零下二次金叉=0 AND 美人眼=0 ;
IF BARSTATUS=2 AND LXJC1 THEN BEGIN
DRAWTEXTREL(25,250,' ● 好消息！'),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND LXJC2 THEN BEGIN
DRAWTEXTREL(25,250,' ● 闲闲没事！'),colorgreen,layer0;
END
ELSE
IF BARSTATUS=2 AND LXJC3 THEN BEGIN
DRAWTEXTREL(25,250,' ● 趋！'),colorgreen,layer0;
END
ECJC1:=■二次金叉>0;
ECJC2:=■二次金叉=0 AND ( ■零下金叉>0 OR ■零下二次金叉>0 );
ECJC3:=■二次金叉=0 AND ■零下金叉=0 AND ■零下二次金叉=0 AND 美人眼=0 ;
IF BARSTATUS=2 AND ECJC1 THEN BEGIN
DRAWTEXTREL(25,430,' ● 乐透开了！'),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND ECJC2 THEN BEGIN
DRAWTEXTREL(25,430,' ● 喝茶去！'),colorgreen,layer0;
END
ELSE
IF BARSTATUS=2 AND ECJC3 THEN BEGIN
DRAWTEXTREL(25,430,' ● 势！'),colorgreen,layer0;
END
LXECJC1:=■零下二次金叉>0;
LXECJC2:=■零下二次金叉=0 AND ( ■零下金叉>0 OR ■二次金叉>0);
LXECJC3:=■零下二次金叉=0 AND ■二次金叉=0 AND ■零下金叉=0 AND 美人眼=0 ;
IF BARSTATUS=2 AND LXECJC1 THEN BEGIN
DRAWTEXTREL(25,610,' ● 中头彩了！'),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND LXECJC2 THEN BEGIN
DRAWTEXTREL(25,610,' ● 等吧！'),colorgreen,layer0;
END
ELSE
IF BARSTATUS=2 AND LXECJC3 THEN BEGIN
DRAWTEXTREL(25,610,' ● 线！'),colorgreen,layer0;
END
准备1:=MACD>0 AND MACD>REF(MACD,1);
准备2:=MACD>0 AND MACD<REF(MACD,1);
板凳1:=MACD<0 AND MACD>REF(MACD,1);
板凳2:=MACD<0 AND MACD<REF(MACD,1);
IF BARSTATUS=2 AND 准备1 THEN BEGIN
DRAWTEXTREL(25,790,' ● 起跑线上趋势上升中！'),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND 准备2 THEN BEGIN
DRAWTEXTREL(25,790,' ● 起跑线上趋势下跌中！'),colorgreen,layer0;
END;
IF BARSTATUS=2 AND 板凳1 THEN BEGIN
DRAWTEXTREL(25,790,' ● 板凳球员趋势上升中！'),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND 板凳2 THEN BEGIN
DRAWTEXTREL(25,790,' ● 板凳球员趋势下跌中！！'),colorgreen,layer0;
END;