相關標簽:

?

?

原理解析：
輸出MA1:收盤價的5日簡單移動平均,畫黃色 輸出均線:收盤價的10日簡單移動平均,COLOR00FF00 輸出MA3:收盤價的30日簡單移動平均,COLORF00FF0 VAR1賦值:如果年份>=2034ANDMONTH>9,返回0,否則返回1 輸出江恩線: 收盤價的144日指數移動平均, 畫藍色,線寬為2 VAR2賦值:如果年份<=2003ANDMONTH<4,返回0,否則返回1 VAR3賦值:如果年份=2003ANDMONTH=5,返回0,否則返回1 VAR4賦值:如果年份<2003,返回0,否則返回1 VAR5賦值:如果年份=2002ANDMONTH=6ANDDAY=28,返回1,否則返回0 VAR6賦值:如果年份=2002ANDMONTH=3ANDDAY=21,返回1,否則返回0 VAR7賦值:如果年份=2001ANDMONTH=12ANDDAY=5,返回1,否則返回0 VAR8賦值:如果年份=2001ANDMONTH=6ANDDAY=14,返回1,否則返回0 VAR9賦值:如果年份=2001ANDMONTH=1ANDDAY=11,返回1,否則返回0 VARA賦值:如果年份=2000ANDMONTH=11ANDDAY=23,返回1,否則返回0 VARB賦值:如果年份=2000ANDMONTH=8ANDDAY=22,返回1,否則返回0 VARC賦值:如果年份=2000ANDMONTH=4ANDDAY=21,返回1,否則返回0 VARD賦值:如果年份=1999ANDMONTH=6ANDDAY=30,返回1,否則返回0 VARE賦值:如果年份=1999ANDMONTH=4ANDDAY=9,返回1,否則返回0 VARF賦值:如果年份=1998ANDMONTH=11ANDDAY=17,返回1,否則返回0 VAR10賦值:如果年份=1998ANDMONTH=6ANDDAY=4,返回1,否則返回0 VAR11賦值:如果年份=1997ANDMONTH=5ANDDAY=12,返回1,否則返回0 VAR12賦值:如果年份=1996ANDMONTH=12ANDDAY=11,返回1,否則返回0 VAR13賦值:如果年份=1994ANDMONTH=9ANDDAY=13,返回1,否則返回0 VAR14賦值:如果年份=1993ANDMONTH=2ANDDAY=16,返回1,否則返回0 VAR15賦值:如果年份=1992ANDMONTH=5ANDDAY=26,返回1,否則返回0 VAR16賦值:如果年份=2003ANDMONTH=3ANDDAY=4,返回1,否則返回0 VAR17賦值:如果年份=2003ANDMONTH=4ANDDAY=16,返回1,否則返回0 VAR18賦值:(100上穿"KDJ的J"(9,3,3) OR "KDJ的K"(9,3,3)上穿"KDJ的J"(9,3,3)) AND "KDJ的D"(9,3,3)>75 VAR19賦值:如果年份>1990ANDYEAR<2003,返回0,否則返回1 VAR1A賦值:如果年份=2003ANDMONTH=1ANDDAY=3,返回1,否則返回0 VAR1B賦值:如果年份=2002ANDMONTH=6ANDDAY=6,返回1,否則返回0 VAR1C賦值:如果年份=2002ANDMONTH=1ANDDAY=29,返回1,否則返回0 VAR1D賦值:如果年份=2001ANDMONTH=10ANDDAY=22,返回1,否則返回0 VAR1E賦值:如果年份=2001ANDMONTH=2ANDDAY=22,返回1,否則返回0 VAR1F賦值:如果年份=2000ANDMONTH=9ANDDAY=26,返回1,否則返回0 VAR20賦值:如果年份=1999ANDMONTH=12ANDDAY=28,返回1,否則返回0 VAR21賦值:如果年份=1999ANDMONTH=5ANDDAY=17,返回1,否則返回0 VAR22賦值:如果年份=1999ANDMONTH=2ANDDAY=9,返回1,否則返回0 VAR23賦值:如果年份=1998ANDMONTH=8ANDDAY=18,返回1,否則返回0 VAR24賦值:如果年份=1998ANDMONTH=3ANDDAY=26,返回1,否則返回0 VAR25賦值:如果年份=1997ANDMONTH=2ANDDAY=20,返回1,否則返回0 VAR26賦值:如果年份=1994ANDMONTH=7ANDDAY=29,返回1,否則返回0 VAR27賦值:如果年份=2000ANDMONTH=5ANDDAY=15,返回1,否則返回0 VAR28賦值:如果年份=1996ANDMONTH=1ANDDAY=19,返回1,否則返回0 VAR29賦值:如果年份=1992ANDMONTH=11ANDDAY=20,返回1,否則返回0 VAR2A賦值:如果年份=2003ANDMONTH=3ANDDAY=26,返回1,否則返回0 VAR2B賦值:如果年份=2003ANDMONTH=5ANDDAY=13ANDCLOSE>200,返回1,否則返回0 VAR2C賦值:3*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*100的5日[1日權重]移動平均-2*(收盤價-27日內最低價的最低值)/(27日內最高價的最高值-27日內最低價的最低值)*100的5日[1日權重]移動平均的3日[1日權重]移動平均的5日簡單移動平均*VAR19 VAR2D賦值:5 VAR2E賦值:VAR2C上穿VAR2D VAR2F賦值:VAR1A OR VAR1B OR VAR1C OR VAR1D OR VAR1E OR VAR1F OR VAR20 OR VAR21 OR VAR22 OR VAR23 OR VAR24 OR VAR25 OR VAR26 OR VAR27 OR VAR28 OR VAR29 OR VAR2A OR VAR2B OR VAR2E VAR30賦值:(VAR18 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC OR VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17) 當滿足條件VAR2F時,在最低價-最低價*1/100位置畫1號圖標 當滿足條件VAR2FANDCLOSE>江恩線時,在最低價位置畫1號圖標 當滿足條件VAR30時,在最高價位置畫2號圖標 當滿足條件VAR2FANDCLOSE<江恩線時,在最低價位置書寫文字, 畫黃色 當滿足條件VAR2FANDCLOSE>江恩線時,在最低價位置書寫文字, 畫紅色 當滿足條件VAR30時,在最高價位置書寫文字, COLOR00FF00 輸出秘密買點:如果VAR2FANDCLOSE<江恩線,返回1,否則返回0,線寬為0,畫黃色 輸出別忘頂下，謝謝了。通達信中，最后一句改為：秘密買點:＝IF(VAR2F AND 收盤價<江恩線,1,0),線寬為0,畫黃色 K線就不扭曲了。

?

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

源碼：

?

?

MA1:MA(C,5),COLORYELLOW;
MA2:MA(C,10),COLOR00FF00;
MA3:MA(C,30),COLORF00FF0;
VAR1:=IF(YEAR>=2034 AND MONTH>9,0,1);
江恩線: EMA(CLOSE,144), COLORBLUE,LINETHICK2;
VAR2:=IF(YEAR<=2003 AND MONTH<4,0,1);
VAR3:=IF(YEAR=2003 AND MONTH=5,0,1);
VAR4:=IF(YEAR<2003,0,1);
VAR5:=IF(YEAR=2002 AND MONTH=6 AND DAY=28,1,0);
VAR6:=IF(YEAR=2002 AND MONTH=3 AND DAY=21,1,0);
VAR7:=IF(YEAR=2001 AND MONTH=12 AND DAY=5,1,0);
VAR8:=IF(YEAR=2001 AND MONTH=6 AND DAY=14,1,0);
VAR9:=IF(YEAR=2001 AND MONTH=1 AND DAY=11,1,0);
VARA:=IF(YEAR=2000 AND MONTH=11 AND DAY=23,1,0);
VARB:=IF(YEAR=2000 AND MONTH=8 AND DAY=22,1,0);
VARC:=IF(YEAR=2000 AND MONTH=4 AND DAY=21,1,0);
VARD:=IF(YEAR=1999 AND MONTH=6 AND DAY=30,1,0);
VARE:=IF(YEAR=1999 AND MONTH=4 AND DAY=9,1,0);
VARF:=IF(YEAR=1998 AND MONTH=11 AND DAY=17,1,0);
VAR10:=IF(YEAR=1998 AND MONTH=6 AND DAY=4,1,0);
VAR11:=IF(YEAR=1997 AND MONTH=5 AND DAY=12,1,0);
VAR12:=IF(YEAR=1996 AND MONTH=12 AND DAY=11,1,0);
VAR13:=IF(YEAR=1994 AND MONTH=9 AND DAY=13,1,0);
VAR14:=IF(YEAR=1993 AND MONTH=2 AND DAY=16,1,0);
VAR15:=IF(YEAR=1992 AND MONTH=5 AND DAY=26,1,0);
VAR16:=IF(YEAR=2003 AND MONTH=3 AND DAY=4,1,0);
VAR17:=IF(YEAR=2003 AND MONTH=4 AND DAY=16,1,0);
VAR18:=(CROSS(100,"KDJ.J"(9,3,3)) OR CROSS("KDJ.K"(9,3,3),"KDJ.J"(9,3,3))) AND "KDJ.D"(9,3,3)>75;
VAR19:=IF(YEAR>1990 AND YEAR<2003,0,1);
VAR1A:=IF(YEAR=2003 AND MONTH=1 AND DAY=3,1,0);
VAR1B:=IF(YEAR=2002 AND MONTH=6 AND DAY=6,1,0);
VAR1C:=IF(YEAR=2002 AND MONTH=1 AND DAY=29,1,0);
VAR1D:=IF(YEAR=2001 AND MONTH=10 AND DAY=22,1,0);
VAR1E:=IF(YEAR=2001 AND MONTH=2 AND DAY=22,1,0);
VAR1F:=IF(YEAR=2000 AND MONTH=9 AND DAY=26,1,0);
VAR20:=IF(YEAR=1999 AND MONTH=12 AND DAY=28,1,0);
VAR21:=IF(YEAR=1999 AND MONTH=5 AND DAY=17,1,0);
VAR22:=IF(YEAR=1999 AND MONTH=2 AND DAY=9,1,0);
VAR23:=IF(YEAR=1998 AND MONTH=8 AND DAY=18,1,0);
VAR24:=IF(YEAR=1998 AND MONTH=3 AND DAY=26,1,0);
VAR25:=IF(YEAR=1997 AND MONTH=2 AND DAY=20,1,0);
VAR26:=IF(YEAR=1994 AND MONTH=7 AND DAY=29,1,0);
VAR27:=IF(YEAR=2000 AND MONTH=5 AND DAY=15,1,0);
VAR28:=IF(YEAR=1996 AND MONTH=1 AND DAY=19,1,0);
VAR29:=IF(YEAR=1992 AND MONTH=11 AND DAY=20,1,0);
VAR2A:=IF(YEAR=2003 AND MONTH=3 AND DAY=26,1,0);
VAR2B:=IF(YEAR=2003 AND MONTH=5 AND DAY=13 AND CLOSE>200,1,0);
VAR2C:=MA(3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),5)*VAR19;
VAR2D:=5;
VAR2E:=CROSS(VAR2C,VAR2D);
VAR2F:=VAR1A OR VAR1B OR VAR1C OR VAR1D OR VAR1E OR VAR1F OR VAR20 OR VAR21 OR VAR22 OR VAR23 OR VAR24 OR VAR25 OR VAR26 OR VAR27 OR VAR28 OR VAR29 OR VAR2A OR VAR2B OR VAR2E;
VAR30:=(VAR18 OR VAR5 OR VAR6 OR VAR7 OR VAR8 OR VAR9 OR VARA OR VARB OR VARC OR VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17){ AND CLOSE>200};
DRAWICON(VAR2F,LOW-LOW*1/100,1);
DRAWICON(VAR2F AND CLOSE>江恩線,LOW,1);
DRAWICON(VAR30,HIGH,2);
DRAWTEXT(VAR2F AND CLOSE<江恩線,LOW,'秘密買點！'), COLORYELLOW;
DRAWTEXT(VAR2F AND CLOSE>江恩線,LOW,'強勢買點！'), COLORRED;
DRAWTEXT(VAR30,HIGH,'秘密拋點'), COLOR00FF00;
秘密買點:IF(VAR2F AND CLOSE<江恩線,1,0),LINETHICK0,COLORYELLOW;

?

?

?

別忘頂下，謝謝了。通達信中，最后一句改為：

秘密買點:IF(VAR2F AND CLOSE<江恩線,1,0),NODRAW,COLORYELLOW;
?

?

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

?