相關標簽:

?

當白線低位扭頭向上時間可以積極關注，當白線高位扭頭向下時準備賣出。

?

?

原理解析：
賦值: 最高價-最低價和最高價-1日前的收盤價的絕對值的較大值和最低價-1日前的收盤價的絕對值的較大值的12日累和 賦值: 最高價-1日前的最高價 賦值: 1日前的最低價-最低價 DMP賦值: 如果HD>0ANDHD>LD,返回HD,否則返回0的12日累和 DMM賦值: 如果LD>0ANDLD>HD,返回LD,否則返回0的12日累和 輸出DI: =DMP*100/真實波幅 輸出DI1: =DMM*100/真實波幅 ADX賦值: -DI1-DI的絕對值/(DI1+DI)*100的6日簡單移動平均 ADXR賦值:(ADX+6日前的ADX)/2 VAR1賦值:DMP VAR2賦值:DMM VAR3賦值:VAR1>65 AND VAR1>1日前的VAR1 VAR4賦值:0日內VAR1的最低值 VAR5賦值:上次VAR4=VAR1距今天數 VAR6賦值:(0-4日前的VAR2)/(VAR4-VAR5日前的VAR2)>2 VAR7賦值:VAR1>1日前的VAR1 VAR8賦值:成交量(手)>2*成交量(手)的30日簡單移動平均 VAR9賦值:ADX VARA賦值:ADXR VARB賦值:收盤價>收盤價的30日簡單移動平均 AND 收盤價<收盤價的30日簡單移動平均*1.04 VARC賦值:收盤價的30日簡單移動平均>1日前的收盤價的30日簡單移動平均 VARD賦值:上次收盤價的5日簡單移動平均上穿收盤價的10日簡單移動平均距今天數<上次收盤價的10日簡單移動平均上穿收盤價的5日簡單移動平均距今天數 VARE賦值:0-"平滑異同平均的DIFF"(7,21,3) VARF賦值:收盤價15%之字轉向的前1個波谷位置<4 VAR10賦值:收盤價的30日指數移動平均>2日前的收盤價的30日指數移動平均 VAR11賦值:如果VARF=1,返回50,否則返回0 VAR12賦值:VAR2上穿VAR1 AND VARA上穿VAR9 VAR13賦值:VAR2上穿VAR1 AND VAR9上穿VARA VAR14賦值:VARB AND VARC AND VARD AND VAR10 AND VAR6 AND VAR7 AND VAR8*50 VAR15賦值:上次VAR2上穿VAR1=1距今天數 VAR16賦值:上次VAR1上穿VAR2=1距今天數 VAR17賦值:VAR16日內VAR1的最高值 VAR18賦值:上次VAR1=VAR17距今天數 輸出多空:(收盤價-(2*收盤價+最高價+最低價)/4的30日簡單移動平均)/(2*收盤價+最高價+最低價)/4的30日簡單移動平均*100的3日指數移動平均,畫白色 0,畫紅色 當滿足條件VARF=1的5日過濾AND多空<-10時,在50和0位置之間畫柱狀線,寬度為15,0不為0則畫空心柱.,COLORF00FF0 當滿足條件VARF=1的5日過濾時,在50和0位置之間畫柱狀線,寬度為8,0不為0則畫空心柱.,畫黃色 VAR19賦值:VAR3 OR VAR12 OR VAR13*100 VAR1A賦值:VAR13*100 當滿足條件VARF=1的3日過濾時,在25位置書寫文字,畫紅色 當滿足條件多空<-10時,在0和多空位置之間畫柱狀線,寬度為0.85,0不為0則畫空心柱.,畫黃色 當滿足條件多空>10時,在0和多空位置之間畫柱狀線,寬度為0.95,0不為0則畫空心柱.,畫紅色 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),12);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),12);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),12);
DI: =DMP*100/TR;
DI1: =DMM*100/TR;
ADX:= MA(ABS(-DI1-DI)/(DI1+DI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;
VAR1:=DMP;
VAR2:=DMM;
VAR3:=VAR1>65 AND VAR1>REF(VAR1,1);
VAR4:=LLV(VAR1,0);
VAR5:=BARSLAST(VAR4=VAR1);
VAR6:=(0-REF(VAR2,4))/(VAR4-REF(VAR2,VAR5))>2;
VAR7:=VAR1>REF(VAR1,1);
VAR8:=VOL>2*MA(VOL,30);
VAR9:=ADX;
VARA:=ADXR;
VARB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
VARC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
VARD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
VARE:=0-"MACD.DIFF"(7,21,3);
VARF:=TROUGHBARS(3,15,1)<4;
VAR10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2);
VAR11:=IF(VARF=1,50,0);
VAR12:=CROSS(VAR2,VAR1) AND CROSS(VARA,VAR9);
VAR13:=CROSS(VAR2,VAR1) AND CROSS(VAR9,VARA);
VAR14:=VARB AND VARC AND VARD AND VAR10 AND VAR6 AND VAR7 AND VAR8*50;
VAR15:=BARSLAST(CROSS(VAR2,VAR1)=1);
VAR16:=BARSLAST(CROSS(VAR1,VAR2)=1);
VAR17:=HHV(VAR1,VAR16);
VAR18:=BARSLAST(VAR1=VAR17);
多空:EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,30))/MA((2*CLOSE+HIGH+LOW)/4,30)*100,3),colorwhite;
0,colorred;
STICKLINE(FILTER(VARF=1,5) AND 多空<-10,50,0,15,0),colorf00ff0;
STICKLINE(FILTER(VARF=1,5),50,0,8,0),coloryellow;
VAR19:=VAR3 OR VAR12 OR VAR13*100;
VAR1A:=VAR13*100;
DRAWTEXT(FILTER(VARF=1,3),25,''),colorred ;
STICKLINE(多空<-10,0,多空,0.85,0),coloryellow;
STICKLINE(多空>10,0,多空,0.95,0),colorred;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?