大智慧新美人眼未加密选股指标公式源码

大智慧新美人眼未加密选股指标公式源码

源码正文：

DRAwrECTREL(0,10,200,1000,rgb(0,0,255)),layer0{XG51};
short:=12;long:=26;M:=9{XG51};
difF1:=ema(CLOSE,SHORT) - Ema(CLOSE,LONG){XG51};
DEA1:=EMA(DIFF1,M){XG51};
macd:2*(DIFF1-DEA1),linethick0{XG51};
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG),colorff00ff,linethick0{XG51};
DEA : EMA(DIFF1,M),colorwhite,linethick0{XG51};
AH:HHV(DIFF1,55),COLOR6600ff,linethick0,layer0{XG51};
PARTLINE(ah,ah),COLORRED,POINTDOT,linethick0,layer0{XG51};
DRAWICON( ref(aH=diff1,1) and DIFF<REF(DIFF1,1),AH*0.65,8),ALIGN1{XG51};
AL:LLV(DIFF1,55),COLOR248a24,linethick0,layer0{XG51};
PARTLINE(al,Al),COLORRED,POINTDOT,linethick0,layer0{XG51};
DRAWICON( ref(al=diff1,1) and DIFF>REF(DIFF1,1),al*0.65,7),ALIGN1{XG51};
VAR1:=HHV(DEA,53){XG51};
VAR2:=LLV(DEA,30){XG51};
VAR3:=DEA-(DIFF-DEA){XG51};
UP:IF(DIFF>VAR1 AND DEA=VAR1,MAX(LLV(VAR1,10),VAR3),VAR1),COLORbb9a00,LINETHICK0,LAYER0{XG51};
DN:IF(DIFF<VAR2 AND DEA=VAR2,MIN(HHV(VAR2,10),VAR3),VAR2),COLORaa00bb,LINETHICK0,LAYER0{XG51};
美人眼:crOSS(DIFF ,DEA ) AND CROSS( DIFF,DN ) AND DN<0,linethick0{XG51};
stICKLINE(美人眼,-0.1,-0.20,6,0),COLORWHITE{XG51};
DRAWTEXT(美人眼,-0.15,'美人眼'),ALIGN1,COLOR8080FF,linethick2,LAYER1{XG51};

■零下金叉:IF(CROSS(DIFF,DEA) AND DIFF<-0.001,0.3,0),COLORRED,POINTDOT,LINETHICK0{XG51};
STICKLINE(■零下金叉,0.1,0.20,6,0),COLORffffff{XG51};
drawtext(■零下金叉,0.15,'零下金叉'),ALIGN1,color6600FF,layer1{XG51};
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BArslAST(DEA>=0)){XG51};
■二次金叉:IF(CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,0.2,0),COLORred,POINTDOT,LINETHICK0{XG51};
STICKLINE(■二次金叉,0.20,0.3,6,0),COLORred{XG51};
drawtext(■二次金叉,0.25,'二次金叉'),ALIGN1,colorffffFF,layer1{XG51};
A3:=CROSS(DIFF,DEA) AND DEA<0{XG51};
■零下二次金叉:IF(FILTER(COUNT(A3,21)=2,10) AND DEA<0,0.05,0),COLORblue,POINTDOT,LINETHICK0{XG51};
STICKLINE(■零下二次金叉,0.3,0.4,6,0),COLORblue{XG51};
drawtext(■零下二次金叉,0.35,'零下二次金叉'),ALIGN1,colorYELLOW,layer1{XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
■底背离:IF(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),0.1,0),COLORFFFF00{XG51};
STICKLINE(■底背离,0.2,0.25,6,0),COLORFFFF00{XG51};
{XG51};
中线:0,LINETHICK2,COLORBLUE,LAYER1{XG51};
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{XG51};
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{XG51};
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,4,0 ),COLOR00cc00{XG51};
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,3,0 ),COLOR00dd00{XG51};
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,2,0 ),COLOR00ee00{XG51};
STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,1,0 ),COLOR00ff00{XG51};
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{XG51};
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{XG51};
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,2,0 ),COLOR0000ee{XG51};
STICKLINE(MACD>=ref(MACD,1)and MACD>0,0,MACD,1,0 ),COLOR0000ff{XG51};
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,8,0 ),COLOR338fdd{XG51};
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,7,0 ),COLOR339fdd{XG51};
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,6,0 ),COLOR33afdd{XG51};
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{XG51};
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,2,0 ),COLOR33efdd{XG51};
STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,1,0 ),COLOR33ffdd{XG51};
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,8,0 ),COLORFF4400{XG51};
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{XG51};
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{XG51};
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,2,0 ),COLORFFbb00{XG51};
STICKLINE(MACD<=ref(MACD,1)and MACD<0,0,MACD,1,0 ),COLORFFcc00{XG51};
DRAWTEXTREL(5,70,'今 美 人 眼：'+NUMTOSTRN(美人眼,0)),COLORffffff,linethick1,layer0{XG51};
DRAWTEXTAbs(5,5,'选股无忧网 www.xg51.cn'),linethick1,COLOR00EEff{XG51};
DRAWTEXTREL(5,250,'日 零下金叉：'+NUMTOSTRN(■零下金叉,0)),COLORffffff,linethick1,layer0{XG51};
DRAWTEXTREL(5,430,'行 二次金叉：'+NUMTOSTRN(■二次金叉,0)),COLORFFFFFF,linethick1,layer0{XG51};
DRAWTEXTREL(5,610,'情 零下二次金叉：'+NUMTOSTRN(■零下二次金叉,0)),COLORffffff,linethick1,layer0{XG51};
DRAWTEXTREL(5,790,'表 趋 势：'),COLORffffff,linethick1,layer0{XG51};
MRY1:=美人眼=1{XG51};
MRY2:=美人眼=0 AND ( ■零下金叉>0 OR ■二次金叉>0 OR ■零下二次金叉>0 ){XG51};
MRY3:=美人眼=0 AND ■零下金叉=0 AND ■二次金叉=0 AND ■零下二次金叉=0 {XG51};
IF BARSTATUS=2 AND MRY1 THEN BEGIN
DRAWTEXTREL(25,70,' ● 对你抛媚眼！'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND MRY2 THEN BEGIN
DRAWTEXTREL(25,70,' ● 不理你！'),colorgreen,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND MRY3 THEN BEGIN
DRAWTEXTREL(25,70,' ● 看 ！'),colorgreen,layer0{XG51};
END{XG51};
LXJC1:=■零下金叉>0{XG51};
LXJC2:=■零下金叉=0 AND (■二次金叉>0 OR ■零下二次金叉>0){XG51};
LXJC3:=■零下金叉=0 AND ■二次金叉=0 AND ■零下二次金叉=0 AND 美人眼=0 {XG51};
IF BARSTATUS=2 AND LXJC1 THEN BEGIN
DRAWTEXTREL(25,250,' ● 好消息！'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND LXJC2 THEN BEGIN
DRAWTEXTREL(25,250,' ● 闲闲没事 ！'),colorgreen,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND LXJC3 THEN BEGIN
DRAWTEXTREL(25,250,' ● 趋 ！'),colorgreen,layer0{XG51};
END
ECJC1:=■二次金叉>0{XG51};
ECJC2:=■二次金叉=0 AND ( ■零下金叉>0 OR ■零下二次金叉>0 ){XG51};
ECJC3:=■二次金叉=0 AND ■零下金叉=0 AND ■零下二次金叉=0 AND 美人眼=0 {XG51};
IF BARSTATUS=2 AND ECJC1 THEN BEGIN
DRAWTEXTREL(25,430,' ● 乐透开了！'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND ECJC2 THEN BEGIN
DRAWTEXTREL(25,430,' ● 喝茶去 ！'),colorgreen,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND ECJC3 THEN BEGIN
DRAWTEXTREL(25,430,' ● 势 ！'),colorgreen,layer0{XG51};
END
LXECJC1:=■零下二次金叉>0{XG51};
LXECJC2:=■零下二次金叉=0 AND ( ■零下金叉>0 OR ■二次金叉>0){XG51};
LXECJC3:=■零下二次金叉=0 AND ■二次金叉=0 AND ■零下金叉=0 AND 美人眼=0 {XG51};
IF BARSTATUS=2 AND LXECJC1 THEN BEGIN
DRAWTEXTREL(25,610,' ● 中头彩了！'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND LXECJC2 THEN BEGIN
DRAWTEXTREL(25,610,' ● 等 吧 ！'),colorgreen,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND LXECJC3 THEN BEGIN
DRAWTEXTREL(25,610,' ● 线 ！'),colorgreen,layer0{XG51};
END
准备1:=MACD>0 AND MACD>REF(MACD,1){XG51};
准备2:=MACD>0 AND MACD<REF(MACD,1){XG51};
板凳1:=MACD<0 AND MACD>REF(MACD,1){XG51};
板凳2:=MACD<0 AND MACD<REF(MACD,1){XG51};
IF BARSTATUS=2 AND 准备1 THEN BEGIN
DRAWTEXTREL(25,790,' ● 起跑线上 趋势上升中！'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND 准备2 THEN BEGIN
DRAWTEXTREL(25,790,' ● 起跑线上 趋势下跌中！'),colorgreen,layer0{XG51};
END{XG51};
IF BARSTATUS=2 AND 板凳1 THEN BEGIN
DRAWTEXTREL(25,790,' ● 板凳球员 趋势上升中！'),colorRED,layer0{XG51};
END
ELSE
IF BARSTATUS=2 AND 板凳2 THEN BEGIN
DRAWTEXTREL(25,790,' ● 板凳球员 趋势下跌中！！'),colorgreen,layer0{XG51};
END{X_G_5-1_C_N_{};

大智慧背离MACD未加密选股指标公式源码

源码正文：

LONG:=26;SHORT:=12;M:=9{XG51};
difF : ema(CLOSE,SHORT) - Ema(CLOSE,LONG){XG51};
DEA : EMA(DIFF,M){XG51};
macd : 2*(DIFF-DEA), COLORstICK,COLOR5454FF{XG51};
DD:=C=HHV(C,180){XG51};
EE:=DEA< REF(DEA,1) AND REF(DEA< REF(DEA,1),1)=1{XG51};
CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1{XG51};
上升背离:(CC AND EE)*DEA,COLOR00FFFF{XG51};
顶背离:DD AND EE AND (DEA<HHV(DEA,180)*DEA),STICK,LINETHICK3,COLORCYAN{XG51};
FF:=C=LLV(C,180){XG51};
GG:= DEA> REF(DEA,1) AND REF(DEA> REF(DEA,1),1)=1{XG51};
LL:=C< REF(C,1) AND REF(C< REF(C,1),1)=1{XG51};
下降背离:LL AND GG*DEA,COLORLIMAGENTA{XG51};
底背离:FF AND GG AND DEA> LLV(DEA,180)*DEA,STICK,LINETHICK3,COLORWHITE{XG51};
MM:=IF(MacD< 0,MACD,0){XG51};
JJ:=MM> REF(MM,1){XG51};
ZZ:=REF(JJ,1)=1{XG51};
介入区:JJ AND ZZ*DEA,POINTDOT,COLORCYAN{XG51};
STICKLINE(介入区=DEA,DEA,DIFF,3,0),COLORWHITE{XG51};
DRAWTEXT(crOSS(DIFF,DEA ),0,'金N叉'),COLORGREEN{XG51};
DRAWTEXT(CROSS(DEA,DIFF ),0,'死叉'),COLORCYAN{X!G.5!1!C!N!{};