相關標簽: 通達信最好波浪公式 、 通達信波浪公式 、 通達信波浪畫線公式 、 股票波浪自動畫線公式 、 波浪學時間之窗 公式 、 波浪理論公式 、 通達信波浪均線公式 、 一條大河波浪寬 、 波浪理論 、

大智慧波浪公式源碼

GET:ZIG(3,5),colorred;
PL5:=ZIG(3,5);
EN1:=pl5>ref(pl5,1) AND ref(pl5,1)<=ref(pl5,2) AND ref(pl5,2)<=ref(pl5,3);
EX1:=pl5<ref(pl5,1) AND ref(pl5,1)>=ref(pl5,2) AND ref(pl5,2)>=ref(pl5,3);
PL10:=ZIG(3,10);
EN2:=pl10>ref(pl10,1) AND ref(pl10,1)<=ref(pl10,2) AND ref(pl10,2)<=ref(pl10,3);
EX2:=pl10<ref(pl10,1) AND ref(pl10,1)>=ref(pl10,2) AND ref(pl10,2)>=ref(pl10,3);
PL20:=ZIG(3,20);
EN3:=pl20>ref(pl20,1) AND ref(pl20,1)<=ref(pl20,2) AND ref(pl20,2)<=ref(pl20,3);
EX3:=pl20<ref(pl20,1) AND ref(pl20,1)>=ref(pl20,2) AND ref(pl20,2)>=ref(pl20,3);
 

CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=2 OR CXH=7));
DRAWTEXTREL(10 ,10 ,'指標公式');

走強1:=BARSLAST(PL5<ref(PL5,1));
走弱1:=BARSLAST(PL5>ref(PL5,1));
走強2:=BARSLAST(PL10<ref(PL10,1));
走弱2:=BARSLAST(PL10>ref(PL10,1));
走強3:=BARSLAST(PL20<ref(PL20,1));
走弱3:=BARSLAST(PL20>ref(PL20,1));
ZTJZ5:=IF(PL10>ref(PL10,1),COUNT(EN1,走強2),0);
ZTJD5:=IF(PL10>ref(PL10,1),COUNT(EX1,走強2),0);
DTJZ5:=IF(PL10<ref(PL10,1),COUNT(EN1,走弱2),0);
DTJD5:=IF(PL10<ref(PL10,1),COUNT(EX1,走弱2),0);
ZTJZ10:=IF(PL20>ref(PL20,1),COUNT(EN2,走強3),0);
ZTJD10:=IF(PL20>ref(PL20,1),COUNT(EX2,走強3),0);
DTJZ10:=IF(PL20<ref(PL20,1),COUNT(EN2,走弱3),0);
DTJD10:=IF(PL20<ref(PL20,1),COUNT(EX2,走弱3),0);
DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'㈠'),COLORFFFF00;
DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'㈡'),COLORFFFF00;
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'㈢'),COLORFFFF00;
DRAWTEXT(EX1 AND PL10>ref(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>ref(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF; {本文來至程序化交易網 cxh99.com}
DRAWTEXT(EX1 AND PL10>ref(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>ref(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF;
DRAWTEXT(EX2 AND PL20>ref(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR0000FF;
DRAWTEXT(EN2 AND DTJZ10=1,L*0.9,'Ⅰ'),colorred;
DRAWTEXT(EX2 AND DTJD10=2,H*0.9,'Ⅱ'),colorred;
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.9,'Ⅲ'),colorred;
DRAWTEXT(EX2 AND PL20>ref(PL20,1) AND ZTJD10=1,H*1.06,'①'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>ref(PL20,1) AND ZTJZ10=2,L*0.94,'②'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EX2 AND PL20>ref(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.06,'③'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>ref(PL20,1) AND ZTJZ10=3,L*0.94,'④'),LINETHICK3,COLOR00FFFF;

源碼解析：

輸出GET:收盤價5%的之字轉向,畫紅色
PL5賦值:收盤價5%的之字轉向
EN1賦值:PL5>昨日PL5 AND 昨日PL5<=2日前的PL5 AND 2日前的PL5<=3日前的PL5
EX1賦值:PL5<昨日PL5 AND 昨日PL5>=2日前的PL5 AND 2日前的PL5>=3日前的PL5
PL10賦值:收盤價10%的之字轉向
EN2賦值:PL10>昨日PL10 AND 昨日PL10<=2日前的PL10 AND 2日前的PL10<=3日前的PL10
EX2賦值:PL10<昨日PL10 AND 昨日PL10>=2日前的PL10 AND 2日前的PL10>=3日前的PL10
PL20賦值:收盤價20%的之字轉向
EN3賦值:PL20>昨日PL20 AND 昨日PL20<=2日前的PL20 AND 2日前的PL20<=3日前的PL20
EX3賦值:PL20<昨日PL20 AND 昨日PL20>=2日前的PL20 AND 2日前的PL20>=3日前的PL20
CXH賦值:STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1))
輸出WARNING('HTTP://www.kzuj.com.cn',CURRENTTIME>180000 AND (CXH=2 OR CXH=7))
DRAWTEXTREL(10 ,10 ,'指標公式')
走強1賦值:上次PL5<昨日PL5距今天數
走弱1賦值:上次PL5>昨日PL5距今天數
走強2賦值:上次PL10<昨日PL10距今天數
走弱2賦值:上次PL10>昨日PL10距今天數
走強3賦值:上次PL20<昨日PL20距今天數
走弱3賦值:上次PL20>昨日PL20距今天數
ZTJZ5賦值:如果PL10>昨日PL10,返回統計走強2日中滿足EN1的天數,否則返回0
ZTJD5賦值:如果PL10>昨日PL10,返回統計走強2日中滿足EX1的天數,否則返回0
DTJZ5賦值:如果PL10<昨日PL10,返回統計走弱2日中滿足EN1的天數,否則返回0
DTJD5賦值:如果PL10<昨日PL10,返回統計走弱2日中滿足EX1的天數,否則返回0
ZTJZ10賦值:如果PL20>昨日PL20,返回統計走強3日中滿足EN2的天數,否則返回0
ZTJD10賦值:如果PL20>昨日PL20,返回統計走強3日中滿足EX2的天數,否則返回0
DTJZ10賦值:如果PL20<昨日PL20,返回統計走弱3日中滿足EN2的天數,否則返回0
DTJD10賦值:如果PL20<昨日PL20,返回統計走弱3日中滿足EX2的天數,否則返回0
當滿足條件EN1ANDDTJZ5=1時,在最低價*0.98位置書寫文字,COLORFFFF00
當滿足條件EX1ANDDTJD5=2時,在最高價*1.02位置書寫文字,COLORFFFF00
當滿足條件EN2ANDZTJZ5=1時,在最低價*0.98位置書寫文字,COLORFFFF00
當滿足條件EX1ANDPL10>昨日PL10ANDZTJD5=1時,在最高價*1.02位置書寫文字,COLOR0000FF
當滿足條件EN1ANDPL10>昨日PL10ANDZTJZ5=2時,在最低價*0.98位置書寫文字,COLOR0000FF
 當滿足條件EX1ANDPL10>昨日PL10ANDZTJZ5=2時,在最高價*1.02位置書寫文字,COLOR0000FF
當滿足條件EN1ANDPL10>昨日PL10ANDZTJZ5=3時,在最低價*0.98位置書寫文字,COLOR0000FF
當滿足條件EX2ANDPL20>昨日PL20ANDZTJD10=1時,在最高價*1.02位置書寫文字,COLOR0000FF
當滿足條件EN2ANDDTJZ10=1時,在最低價*0.9位置書寫文字,畫紅色
當滿足條件EX2ANDDTJD10=2時,在最高價*0.9位置書寫文字,畫紅色
當滿足條件EN3ANDZTJZ10=1時,在最低價*0.9位置書寫文字,畫紅色
當滿足條件EX2ANDPL20>昨日PL20ANDZTJD10=1時,在最高價*1.06位置書寫文字,線寬為3,COLOR00FFFF
當滿足條件EN2ANDPL20>昨日PL20ANDZTJZ10=2時,在最低價*0.94位置書寫文字,線寬為3,COLOR00FFFF
當滿足條件EX2ANDPL20>昨日PL20ANDZTJD10=2OR(ZTJD10=0ORZTJD10=2)ANDEX2時,在最高價*1.06位置書寫文字,線寬為3,COLOR00FFFF
當滿足條件EN2ANDPL20>昨日PL20ANDZTJZ10=3時,在最低價*0.94位置書寫文字,線寬為3,COLOR00FFFF