相關標簽:

?

?

原理解析：
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距今天數日前的最低價 HV賦值:最高價>UL AND 最高價>1日前的最高價 LV賦值:最低價<DL AND 最低價<1日前的最低價 GP賦值:上次HV距今天數 DP賦值:上次LV距今天數 IP賦值:如果GP=0,返回DP,否則返回GP>3 HV1賦值:HV AND IP AND 最高價>=上次LV距今天數日內最高價的最高值 LV1賦值:LV AND IP AND 最低價<=上次HV距今天數日內最低價的最低值 當滿足條件LV1時,在最低價位置畫直線起點，當滿足條件HV1時,在最高價位置畫直線終點,0表示是否延長.,畫黃色,線寬為2 當滿足條件HV1時,在最高價位置畫直線起點，當滿足條件LV1時,在最低價位置畫直線終點,0表示是否延長.,畫洋紅色,線寬為2 簡化版N1賦值:10 N2賦值:10 DISP賦值:2 K賦值:1 P1賦值:最高價K*N1%之字轉向的前1個波峰值 P2賦值:最高價K*N1%之字轉向的前2個波峰值 WP1賦值:最高價K*N1%之字轉向的前1個波峰位置 WP2賦值:最高價K*N1%之字轉向的前2個波峰位置 T1賦值:最低價K*N2%之字轉向的前1個波谷值 T2賦值:最低價K*N2%之字轉向的前2個波谷值 WT1賦值:最低價K*N2%之字轉向的前1個波谷位置 WT2賦值:最低價K*N2%之字轉向的前2個波谷位置 TJ1賦值:P1>T1 AND P2>T2 ZD賦值:T1和T2的較大值 ZG賦值:P1和P2的較小值 LL賦值:T1和T2的較小值 HH賦值:P1和P2的較大值 TJ2賦值:ZG>ZD的2日過濾 TJ3賦值:ZG=上次TJ2距今天數日前的ZG OR ZD=上次TJ2距今天數日前的ZD TJ4賦值:TJ1 AND TJ2 AND 取反 TJ5賦值:ZD位于1日前的上次TJ4距今天數日前的ZD和1日前的上次TJ4距今天數日前的ZG之間 TJ6賦值:ZG位于1日前的上次TJ4距今天數日前的ZD和1日前的上次TJ4距今天數日前的ZG之間 TJ7賦值:ZG>1日前的上次TJ4距今天數日前的ZG AND ZD<1日前的上次TJ4距今天數日前的ZD TJ8賦值:TJ4 AND 取反 ZSD賦值:如果TJ8,返回ZD,否則返回1日前的ZD //,畫黃色 ZSG賦值:如果TJ8,返回ZG,否則返回1日前的ZG //,畫洋紅色 ZSH賦值:如果TJ8,返回HH,否則返回1日前的HH //,畫藍色 ZSL賦值:如果TJ8,返回LL,否則返回1日前的LL //,畫綠色 當滿足條件TJ8時,在ZSH和ZSL位置之間畫柱狀線,寬度為0,-1不為0則畫空心柱.,畫洋紅色 當滿足條件TJ8時,在ZSD和ZSG位置之間畫柱狀線,寬度為如果DISP=1,返回3,否則返回0,1不為0則畫空心柱.,畫洋紅色 當滿足條件DISP=2時,在ZSH位置書寫文字,畫白色 輸出//中樞高中樞高:ZSG,畫洋紅色 POLYLINE(DISP=2,上次TJ8距今天數日前的ZSG),CIRCLEDOT,畫洋紅色 輸出輸出//中樞低:中樞低:ZSD,畫黃色 POLYLINE(DISP=2,上次TJ8距今天數日前的ZSD),CIRCLEDOT,畫黃色 輸出輸出//中樞最高:中樞最高:ZSH,畫紅色 POLYLINE(DISP=2,上次TJ8距今天數日前的ZSH),POINTDOT,畫紅色 輸出輸出//中樞最低:中樞最低:ZSL,畫綠色 POLYLINE(DISP=2,上次TJ8距今天數日前的ZSL),POINTDOT,畫綠色 輸出輸出//趨勢高://QSGD1:POLYLINE(DISP=3,最高價K*N1%的之字轉向),畫藍色 輸出輸出//趨勢低://QSDD1:POLYLINE(DISP=3,最低價K*N2%的之字轉向),畫藍色 輸出MA5:收盤價的5日簡單移動平均,COLORFF00FF,線寬為1 //COLORFF00FF,線寬為2 命真好賦值:MA5>1日前的MA5 命真壞賦值:MA5<1日前的MA5 輸出//判定:PARTLINE(MA5,命真好,畫黃色,命真壞,畫藍色,MA5,COLORFF00FF),線寬為3 輸出//F1:如果MA5<1日前的MA5,返回MA5,否則返回NULL,畫白色,線寬為2 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

KU1:=IF(HIGH=HHV(HIGH,3),1,0);
KD1:=IF(LOW=LLV(LOW,3),1,0);
UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0
AND KU1=0,REF(HIGH,2),REF(HIGH,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(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1
AND REF(KD1,1)=0 AND KD1=0)));
HV:=H>UL AND H>REF(H,1) ;
LV:=L<DL AND L<REF(L,1) ;
GP:=BARSLAST(HV);
DP:=BARSLAST(LV);
IP:=IF(GP=0,DP,GP)>3;
HV1:=HV AND IP AND H>=HHV(H,BARSLAST(LV));
LV1:=LV AND IP AND L<=LLV(L,BARSLAST(HV));
DRAWLINE(LV1,LOW,HV1, HIGH,0),coloryellow,LINETHICK2;
DRAWLINE(HV1,HIGH,LV1, LOW,0),colormagenta,LINETHICK2;
///加入中樞判定
//簡化版
N1:=10;N2:=10;DISP:=2;K:=1;
P1:=PEAK(1,K*N1,1);
P2:=PEAK(1,K*N1,2);
WP1:=PEAKBARS(1,K*N1,1);
WP2:=PEAKBARS(1,K*N1,2);
T1:=TROUGH(2,K*N2,1);
T2:=TROUGH(2,K*N2,2);
WT1:=TROUGHBARS(2,K*N2,1);
WT2:=TROUGHBARS(2,K*N2,2);
TJ1:=P1>T1 AND P2>T2 ;
ZD:=MAX(T1,T2);
ZG:=MIN(P1,P2);
LL:=MIN(T1,T2);
HH:=MAX(P1,P2);
TJ2:=FILTER(ZG>ZD,2);
TJ3:=ZG=REF(ZG,BARSLAST(TJ2)) OR ZD=REF(ZD,BARSLAST(TJ2));
TJ4:=TJ1 AND TJ2 AND NOT(TJ3);
TJ5:=BETWEEN(ZD,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4),1)));
TJ6:=BETWEEN(ZG,REF(ZD,REF(BARSLAST(TJ4),1)),REF(ZG,REF(BARSLAST(TJ4),1)));
TJ7:=ZG>REF(ZG,REF(BARSLAST(TJ4),1)) AND ZD<REF(ZD,REF(BARSLAST(TJ4),1));
TJ8:=TJ4 AND NOT(TJ5 OR TJ6 OR TJ7);
ZSD:=IF(TJ8,ZD,REF(ZD,1));//,coloryellow;
ZSG:=IF(TJ8,ZG,REF(ZG,1));//,colormagenta;
ZSH:=IF(TJ8,HH,REF(HH,1));//,colorblue;
ZSL:=IF(TJ8,LL,REF(LL,1));//,colorgreen;
STICKLINE(TJ8,ZSH,ZSL,0,-1),colormagenta;
STICKLINE(TJ8,ZSD,ZSG,IF(DISP=1,3,0),1),colormagenta;
DRAWTEXT(DISP=2,ZSH,''),colorwhite;
//中樞高
中樞高:ZSG,colormagenta;
POLYLINE(DISP=2,REF(ZSG,BARSLAST(TJ8))),CIRCLEDOT,colormagenta;
//中樞低:
中樞低:ZSD,coloryellow;
POLYLINE(DISP=2,REF(ZSD,BARSLAST(TJ8))),CIRCLEDOT,coloryellow;
//中樞最高:
中樞最高:ZSH,colorred;
POLYLINE(DISP=2,REF(ZSH,BARSLAST(TJ8))),POINTDOT,colorred;
//中樞最低:
中樞最低:ZSL,colorgreen;
POLYLINE(DISP=2,REF(ZSL,BARSLAST(TJ8))),POINTDOT,colorgreen;
//趨勢高:
//QSGD1:POLYLINE(DISP=3,ZIG(1,K*N1)),colorblue;
//趨勢低:
//QSDD1:POLYLINE(DISP=3,ZIG(2,K*N2)),colorblue;
MA5:MA(CLOSE,5),COLORFF00FF,Linethick1;
//COLORFF00FF,LINETHICK2;
命真好:=MA5>REF(MA5,1);
命真壞:=MA5<REF(MA5,1);
//判定:
PARTLINE(MA5,命真好,coloryellow,命真壞,colorblue,MA5,COLORFF00FF),linethick3;
//F1:IF(MA5<REF(MA5,1),MA5,NULL),colorwhite,LINETHICK2;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?