混沌鳄鱼线AO副图指标公式[其他软件公式]

相关标签:

飞狐混沌鳄鱼线副图指标源码

原理解析：
Y赋值:(最高价+最低价)/2 BLUE赋值:Y的13日[1日权重]移动平均,SHIFT8,画蓝色 RED赋值:Y的8日[1日权重]移动平均,SHIFT5,画红色 GREEN赋值:Y的5日[1日权重]移动平均,SHIFT3,画绿色 B2赋值:8日前的BLUE R2赋值:5日前的RED G2赋值:3日前的GREEN KU1赋值:如果最高价=3日内最高价的最高值,返回1,否则返回0 KD1赋值:如果最低价=3日内最低价的最低值,返回1,否则返回0 UL赋值:如果2日前的KU1=1ANDREF(KU1,1)=0ANDKU1=0,返回2日前的最高价,否则返回2+上次2日前的KU1=1ANDREF(KU1,1)=0ANDKU1=0距今天数日前的最高价 DL赋值:如果2日前的KD1=1ANDREF(KD1,1)=0ANDKD1=0,返回2日前的最低价,否则返回2+上次2日前的KD1=1ANDREF(KD1,1)=0ANDKD1=0距今天数日前的最低价 KU赋值:如果收盘价>B2ANDC>R2ANDC>G2,返回1,否则返回0 KD赋值:如果收盘价<B2ANDC<R2ANDC<G2,返回-1,否则返回0 KK赋值:如果上次KU=1ANDREF(KU,1)=0距今天数<上次KD=-1ANDREF(KD,1)=0距今天数,返回1,否则返回-1 AO赋值:Y的5日简单移动平均-Y的34日简单移动平均 AC赋值:AO-AO的5日简单移动平均 AC1赋值:1日前的AC AO1赋值:1日前的AO 输出AO转:(170*Y的5日简单移动平均-170*Y的34日简单移动平均+165*Y的33日简单移动平均-136*Y的4日简单移动平均)/29,线宽为0 输出AO零:(165*Y的33日简单移动平均-136*Y的4日简单移动平均)/29,线宽为0 输出AC转:(5*34*5*AO-5*34*5*AO的5日简单移动平均+5*34*4*AO的4日简单移动平均+5*4*33*Y的33日简单移动平均-4*34*4*Y的4日简单移动平均)/116,线宽为0 输出AC零:(5*34*AO的4日简单移动平均-34*4*Y的4日简单移动平均+5*33*Y的33日简单移动平均)/29,线宽为0 KAC赋值:如果AC>AC1ANDAO>AO1,返回1,否则返回0 KAO赋值:如果AC<AC1ANDAO<AO1,返回-1,否则返回0 输出蓝:Y的13日[1日权重]移动平均,SHIFT8,画蓝色 输出红:Y的8日[1日权重]移动平均,SHIFT5,画红色 输出绿:Y的5日[1日权重]移动平均,SHIFT3,画绿色 输出上碎型:如果最高价>=R2,返回UL,否则返回上次最高价>R2距今天数日前的UL,画洋红色,线宽为0 输出下碎型:如果最低价<=R2,返回DL,否则返回上次最低价<=R2距今天数日前的DL,画黄色,线宽为0 当满足条件上次上碎型-1日前的上碎型的绝对值距今天数<上次收盘价>上碎型ANDREF(收盘价,1)<1日前的上碎型距今天数时,在上碎型和上碎型位置之间画柱状线,宽度为3,1不为0则画空心柱.,画洋红色 当满足条件上次下碎型-1日前的下碎型的绝对值距今天数<上次收盘价<下碎型ANDREF(收盘价,1)>1日前的下碎型距今天数时,在下碎型和下碎型位置之间画柱状线,宽度为3,1不为0则画空心柱.,画黄色 OL赋值:(170*Y的5日简单移动平均-170*Y的34日简单移动平均+165*Y的33日简单移动平均-136*Y的4日简单移动平均)/29,SHIFT1,COLOR000033 CL赋值:(165*Y的33日简单移动平均-136*Y的4日简单移动平均+170*(4*AO的4日简单移动平均+5*(4日前的AO-4日前的AO的5日简单移动平均))/4)/29,SHIFT1,COLOR000033 H1赋值:4日前的最高价 H2赋值:3日前的最高价 H3赋值:2日前的最高价 H4赋值:1日前的最高价 H5赋值:最高价 L1赋值:4日前的最低价 L2赋值:3日前的最低价 L3赋值:2日前的最低价 L4赋值:1日前的最低价 L5赋值:最低价 ∥赋值:(H3>H2) AND (H3>H1) AND (H3>H4) AND (H3>H5) ∥FRACTAL赋值:如果∥,返回1,否则返回0 ∥VAR1赋值:若∥FRACTAL则将最近3周期置为1 ∥VAR2赋值:∥VAR1的2日过滤 ∥VAR3赋值:若∥FRACTAL则将最近5周期置为1 ∣赋值:(L3<L2) AND (L3<L1) AND (L3<L4) AND (L3<L5) ∣FRACTAL赋值:如果∣,返回1,否则返回0 ∣VAR1赋值:若∣FRACTAL则将最近3周期置为1 ∣VAR2赋值:∣VAR1的2日过滤 ∣VAR3赋值:若∣FRACTAL则将最近5周期置为1 当满足条件∥VAR2时,在最高价*1.001位置画'S14'号图标 当满足条件∣VAR2时,在最低价位置画'S14'号图标 当满足条件收盘价>上碎型ANDREF(收盘价,1)<1日前的上碎型时,在最高价*1.015位置画4号图标 当满足条件收盘价<下碎型ANDREF(收盘价,1)>1日前的下碎型时,在最低价*0.99位置画5号图标 当满足条件KU=1ANDREF(KU,1)=0ANDC<0时,在最低价位置画4号图标 当满足条件KD=-1ANDREF(KD,1)=0ANDC<0时,在最高价*1.01位置画5号图标 当满足条件KU=0ANDREF(KU,1)=1ANDC<0时,在最高价*1.01位置画7号图标 当满足条件KD=0ANDREF(KD,1)=-1ANDC<0时,在最低价位置画6号图标 当满足条件KAC=1ANDC>=开盘价时,在开盘价和收盘价位置之间画柱状线,宽度为8,1不为0则画空心柱.,画红色 当满足条件KAO=-1ANDC>=开盘价时,在开盘价和收盘价位置之间画柱状线,宽度为8,1不为0则画空心柱.,画绿色 当满足条件KAO=0ANDKAC=0ANDC>=开盘价时,在开盘价和收盘价位置之间画柱状线,宽度为8,1不为0则画空心柱.,画深灰色 当满足条件收盘价>=开盘价时,在最高价和收盘价位置之间画柱状线,宽度为0.4,1不为0则画空心柱.,画红色 当满足条件收盘价>=开盘价时,在开盘价和最低价位置之间画柱状线,宽度为0.4,1不为0则画空心柱.,画红色 当满足条件KAC=1ANDC<开盘价时,在开盘价和收盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画红色 当满足条件KAO=-1ANDC<开盘价时,在开盘价和收盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画绿色 当满足条件KAO=0ANDKAC=0ANDC<开盘价时,在开盘价和收盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画深灰色 当满足条件收阴线时,在最高价和开盘价位置之间画柱状线,宽度为0.4,1不为0则画空心柱.,画青色 当满足条件收阴线时,在收盘价和最低价位置之间画柱状线,宽度为0.4,1不为0则画空心柱.,画青色 DU0赋值:AO上穿0 UD0赋值:0上穿AO TDU0赋值:上次DU0距今天数 TUD0赋值:上次UD0距今天数 DU3赋值:1日前的DU0 UD3赋值:1日前的UD0 TDU3赋值:上次DU3距今天数 TUD3赋值:上次UD3距今天数 输出UDGLINE:如果TDU3<TUD3,返回TDU3日前的2日内最高价的最高值,否则返回TUD3日前的2日内最低价的最低值,画黄色 JDU0赋值:1日前的收盘价<=1日前的UDGLINE AND 收盘价>UDGLINE AND TDU0<TUD0 JUD0赋值:1日前的收盘价>=1日前的UDGLINE AND 收盘价<UDGLINE AND TUD0<TDU0 JDU1赋值:JDU0 AND 统计TDU0日中满足JDU0的天数=1 JUD1赋值:JUD0 AND 统计TUD0日中满足JUD0的天数=1 JDU2赋值:JDU1 AND 1日前的上次JUD1距今天数<1日前的上次JDU1距今天数 JUD2赋值:JUD1 AND 1日前的上次JUD1距今天数>1日前的上次JDU1距今天数 JDU3赋值:JDU1 AND 1日前的上次JUD1距今天数>1日前的上次JDU1距今天数 JUD3赋值:JUD1 AND 1日前的上次JUD1距今天数<1日前的上次JDU1距今天数 当满足条件JDU2时,在最低价*0.98位置书写文字,ALIGN4 当满足条件JUD2时,在最高价*1.03位置书写文字,ALIGN5 当满足条件JDU3时,在最低价*0.98位置书写文字,ALIGN4 当满足条件JUD3时,在最高价*1.03位置书写文字,ALIGN5 BSLINE赋值:如果上次JDU2距今天数<上次JUD2距今天数,返回如果1日前的0上穿ACORREF(0上穿AO,1),返回2日内最低价的最低值,否则返回上次1日前的0上穿ACORREF(0上穿AO,1)距今天数日前的2日内最低价的最低值,否则返回如果1日前的AC上穿0ORREF(AO上穿0,1),返回2日内最高价的最高值,否则返回上次1日前的AC上穿0ORREF(AO上穿0,1)距今天数日前的2日内最高价的最高值,画黄色 当满足条件JDU1ORBARSLAST(JDU1)<上次JUD1距今天数时,在收盘价位置画10号图标,ALIGN4 当满足条件JUD1ORBARSLAST(JDU1)>上次JUD1距今天数时,在收盘价位置画11号图标,ALIGN5

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

源码：

Y:=(H+L)/2;
BLUE:=SMA(Y,13,1),SHIFT8,COLORBLUE;
RED:=SMA(Y,8,1),SHIFT5,COLORRED;
GREEN:=SMA(Y,5,1),SHIFT3,COLORGREEN;
B2:=REF(BLUE,8);
R2:=REF(RED,5);
G2:=REF(GREEN,3);
KU1:=IF(H=HHV(H,3),1,0);
KD1:=IF(L=LLV(L,3),1,0);
UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(H,2),REF(H,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0)));
DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(L,2),REF(L,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0)));
KU:=IF(C>B2 AND C>R2 AND C>G2,1,0);
KD:=IF(C<B2 AND C<R2 AND C<G2,-1,0);
KK:=IF(BARSLAST(KU=1 AND REF(KU,1)=0)<BARSLAST(KD=-1 AND REF(KD,1)=0),1,-1);
AO:=MA(Y ,5 )-MA(Y ,34 );
AC:=AO-MA( AO,5);
ac1:=ref(AC,1);
ao1:=ref(ao,1);
AO转:(170*MA(Y,5)-170*MA(Y,34)+165*MA(Y,33)-136*MA(Y,4))/29,linethick0;
AO零:(165*ma(Y,33)-136*ma(Y,4))/29,linethick0;
AC转:(5*34*5*AO-5*34*5*MA(AO,5)+5*34*4*MA(AO,4)+5*4*33*MA(Y,33)-4*34*4*MA(Y,4))/116,linethick0;
AC零:(5*34*MA(AO,4)-34*4*MA(Y,4)+5*33*MA(Y,33))/29,linethick0;
KAC:=IF(AC>ac1 AND Ao>ao1,1,0);
KAO:=IF(AC<ac1 AND Ao<ao1,-1,0);
蓝:SMA(Y,13,1),SHIFT8,COLORBLUE;
红:SMA(Y,8,1),SHIFT5,COLORRED;
绿:SMA(Y,5,1),SHIFT3,COLORGREEN;
上碎型:IF(H>=R2,UL,REF(UL,BARSLAST(H>R2))),COLORMAGENTA,linethick0;
下碎型:IF(L<=R2,DL,REF(DL,BARSLAST(L<=R2))),COLORYELLOW,linethick0;
STICKLINE(BARSLAST(ABS(上碎型-REF(上碎型,1)))<BARSLAST(c>上碎型 AND REF(c,1)<REF(上碎型,1)),上碎型,上碎型,3,1),COLORMAGENTA;
STICKLINE(BARSLAST(ABS(下碎型-REF(下碎型,1)))<BARSLAST(c<下碎型 AND REF(c,1)>REF(下碎型,1)),下碎型,下碎型,3,1),COLORYELLOW;
OL:=(170*MA(Y,5)-170*MA(Y,34)+165*MA(Y,33)-136*MA(Y,4))/29,shift1,color000033;
CL:=(165*ma(y,33)-136*ma(y,4)+170*(4*MA(AO,4)+5*(REF(AO,4)-MA(REF(AO,4),5)))/4)/29,shift1,color000033;
H1:=REF(H,4);
H2:=REF(H,3);
H3:=REF(H,2);
H4:=REF(H,1);
H5:=H;
L1:=REF(L,4);
L2:=REF(L,3);
L3:=REF(L,2);
L4:=REF(L,1);
L5:=L;
∥:=(H3>H2) And (H3>H1) And (H3>H4) And (H3>H5);
∥Fractal:=IF(∥,1,0);
∥Var1:=BackSet(∥Fractal,3);
∥Var2:=Filter(∥Var1,2);
∥Var3:=BackSet(∥Fractal,5);
∣:=(L3<L2) And (L3<L1) And (L3<L4) And (L3<L5);
∣Fractal:=IF(∣,1,0);
∣Var1:=BackSet(∣Fractal,3);
∣Var2:=Filter(∣Var1,2);
∣Var3:=BackSet(∣Fractal,5);
DrawIcon(∥Var2,H*1.001,'S14');
DrawIcon(∣Var2,L,'S14');
DRAWICON(c>上碎型 AND REF(c,1)<REF(上碎型,1),H*1.015,4);
DRAWICON(c<下碎型 AND REF(c,1)>REF(下碎型,1),L*0.99,5);
DRAWICON(KU=1 AND REF(KU,1)=0 and c<0,L,4);
DRAWICON(KD=-1 AND REF(KD,1)=0 and c<0,H*1.01,5);
DRAWICON(KU=0 AND REF(KU,1)=1 and c<0,H*1.01,7);
DRAWICON(KD=0 AND REF(KD,1)=-1 and c<0,L,6);
STICKLINE(KAC=1 AND C>=O,O,C,8,1),COLORRED;
STICKLINE(KAO=-1 AND C>=O,O,C,8,1),COLORGREEN;
STICKLINE(KAO=0 AND KAC=0 AND C>=O,O,C,8,1),COLORGRAY;
STICKLINE(C>=O,H,C,0.4,1),COLORRED;
STICKLINE(C>=O,O,L,0.4,1),COLORRED;
STICKLINE(KAC=1 AND C<O,O,C,8,0),COLORRED;
STICKLINE(KAO=-1 AND C<O,O,C,8,0),COLORGREEN;
STICKLINE(KAO=0 AND KAC=0 AND C<O,O,C,8,0),COLORGRAY;
STICKLINE(O>C,H,O,0.4,1),COLORCYAN;
STICKLINE(O>C,C,L,0.4,1),COLORCYAN;
DU0:=CROSS(AO,0);
UD0:=CROSS(0,AO);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:IF(TDU3<TUD3,REF(HHV(H,2),TDU3),REF(LLV(L,2),TUD3)),COLORYELLOW;
JDU0:=REF(C,1)<=REF(UDGLINE,1) AND C>UDGLINE AND TDU0<TUD0;
JUD0:=REF(C,1)>=REF(UDGLINE,1) AND C<UDGLINE AND TUD0<TDU0;
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
JUD2:=JUD1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JDU3:=JDU1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JUD3:=JUD1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
DRAWTEXT(JDU2,L*0.98,'\n空\n转\n多'),align4;
DRAWTEXT(JUD2,H*1.03,'\n多\n转\n空'),align5;
DRAWTEXT(JDU3,L*0.98,'\n多\n续\n多'),align4;
DRAWTEXT(JUD3,H*1.03,'\n空\n续\n空'),align5;
BSLINE:=IF(BARSLAST(JDU2)<BARSLAST(JUD2),IF(REF(CROSS(0,AC),1) OR REF(CROSS(0,AO),1),LLV(L,2),REF(LLV(L,2),BARSLAST(REF(CROSS(0,AC),1) OR REF(CROSS(0,AO),1)))),IF(REF(CROSS(AC,0) OR REF(CROSS(AO,0),1),1),HHV(H,2),REF(HHV(H,2),BARSLAST(REF(CROSS(AC,0),1) OR REF(CROSS(AO,0),1))))),COLORyellow;
DRAWICON(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),C,10),ALIGN4;
DRAWICON(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),C,11),ALIGN5;{程序化交易 www.cxh99.com }

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