牛熊皆准的无未来公式[大智慧公式]

相关标签:

牛熊皆准的无未来公式

原理解析：
VAR1赋值:如果开盘价<=1日前的开盘价,返回0,否则返回最高价-开盘价和开盘价-1日前的开盘价的较大值 VAR2赋值:如果开盘价>=1日前的开盘价,返回0,否则返回开盘价-最低价和开盘价-1日前的开盘价的较大值 VAR3赋值:VAR1的5日累和 VAR4赋值:VAR2的5日累和 VAR5赋值:如果VAR3>VAR4,返回(VAR3-VAR4)/VAR3,否则返回如果VAR3=VAR4,返回0,否则返回(VAR3-VAR4)/VAR4 VAR6赋值:VAR5的5日简单移动平均 VAR8赋值:如果开盘价<=1日前的开盘价,返回0,否则返回最高价-开盘价和开盘价-1日前的开盘价的较大值 VAR9赋值:如果开盘价>=1日前的开盘价,返回0,否则返回开盘价-最低价和开盘价-1日前的开盘价的较大值 VARA赋值:VAR8的3日累和 VARB赋值:VAR9的3日累和 VARC赋值:如果VARA>VARB,返回(VARA-VARB)/VARA,否则返回如果VARA=VARB,返回0,否则返回(VARA-VARB)/VARB VARD赋值:VARC的3日简单移动平均 输出火: 上次收盘价的5日指数移动平均<1日前的收盘价的5日指数移动平均距今天数,画红色 VARE赋值:2日内收盘价的最高值 VARF赋值:上次VARE<2日前的VARE距今天数 VAR10赋值:如果VARF>=1,返回VARF日内VARE的最低值,否则返回最低价 VAR11赋值:VAR10+VAR10*VARF*0.5/100 VAR12赋值:如果VAR11<1日前的VAR11,返回最低价的3日简单移动平均,否则返回VAR11 VAR13赋值:VAR10+VAR10*(VARF-1)*1.618/100 输出山: 统计5日中满足收盘价的5日指数移动平均>1日前的收盘价的5日指数移动平均的天数,画绿色 当满足条件山>0时,在火和0位置之间画柱状线,宽度为2,0不为0则画空心柱.,画红色 当满足条件山=0AND火=0时,在0和1位置之间画柱状线,宽度为2,1不为0则画空心柱.,画白色 当满足条件山>0时,在火和山位置之间画柱状线,宽度为2,1不为0则画空心柱.,COLORFFCC66 当满足条件1日前的山=0AND山>0时,在0和5位置之间画柱状线,宽度为4,0不为0则画空心柱.,画黄色 当满足条件山<火时,在火和山位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR00FF00 当满足条件3日前的火>0ANDREF(火,2)>0ANDREF(火,1)>0AND火=0ANDREF(火,1)>山时,在1日前的火位置书写文字,画红色 当满足条件3日前的火>0ANDREF(火,2)>0ANDREF(火,1)>0AND火=0ANDREF(火,1)>山时,在1日前的火位置书写文字,画黄色

 来源:程序化99（ WWW.CXH99.COM ）

源码：

VAR1:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR2:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VAR3:=SUM(VAR1,5);
VAR4:=SUM(VAR2,5);
VAR5:=IF(VAR3>VAR4,(VAR3-VAR4)/VAR3,IF(VAR3=VAR4,0,(VAR3-VAR4)/VAR4));
VAR6:=MA(VAR5,5);
VAR8:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1)));
VAR9:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1)));
VARA:=SUM(VAR8,3);
VARB:=SUM(VAR9,3);
VARC:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB));
VARD:=MA(VARC,3);
火: BARSLAST(EMA(CLOSE,5)<REF(EMA(CLOSE,5),1)),COLORRED;
VARE:=HHV(CLOSE,2);
VARF:=BARSLAST(VARE<REF(VARE,2));
VAR10:=IF(VARF>=1,LLV(VARE,VARF),LOW);
VAR11:=VAR10+VAR10*VARF*0.5/100;
VAR12:=IF(VAR11<REF(VAR11,1),MA(LOW,3),VAR11);
VAR13:=VAR10+VAR10*(VARF-1)*1.618/100;
山: COUNT(EMA(CLOSE,5)>REF(EMA(CLOSE,5),1),5),COLORGREEN;
STICKLINE(山>0,火,0,2,0),COLORRED;
STICKLINE(山=0 AND 火=0,0,1,2,1),COLORWHITE;
STICKLINE(山>0,火,山,2,1),COLORFFCC66;
STICKLINE(REF(山,1)=0 AND 山>0,0,5{-1},4,0),COLORYELLOW;
STICKLINE(山<火,火,山,2,0),COLOR00FF00;
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,REF(火,1),'●'),COLORRED;
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,REF(火,1),'¤'),COLORYELLOW;

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】