相關標簽:

?

飛狐混沌鱷魚線副圖指標源碼

?

原理解析：
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.kzuj.com.cn ）

源碼：

?

?

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.kzuj.com.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?