編程思路破譯

輸出NOTEXT1:400,COLORFF9933

當(dāng)滿足條件是否最后一個周期=1時,在700位置書寫文字,COLORFF9933

輸出NOTEXT2:1000,畫綠色

當(dāng)滿足條件是否最后一個周期=1時,在1450位置書寫文字,畫淡綠色

輸出NOTEXTX:2000,畫淡藍(lán)色

當(dāng)滿足條件是否最后一個周期=1時,在2230位置書寫文字,畫淡藍(lán)色

輸出NOTEXT3:2500,畫深灰色,DOTLINE

當(dāng)滿足條件是否最后一個周期=1時,在2750位置書寫文字,畫淡紅色

輸出NOTEXT4:3000,畫淡紅色

當(dāng)滿足條件是否最后一個周期=1時,在3450位置書寫文字,畫紅色

當(dāng)滿足條件是否最后一個周期=1時,在4250位置書寫文字,畫洋紅色

輸出NOTEXT5:4000,畫紅色

輸出NOTEXT6:4600,COLORFF00FF

輸出NOTEXT7:"880005$收盤價(jià)",COLOR15B2DD

輸出NOTEXT8:"880005$收盤價(jià)",CIRCLEDOT,COLOR15B2DD,線寬為1

SJ賦值:是否最后一個周期 AND 當(dāng)前系統(tǒng)的時間>085000 AND 當(dāng)前系統(tǒng)的時間<170000 AND 當(dāng)前系統(tǒng)的星期<6 AND 當(dāng)前系統(tǒng)的星期不等于0

N賦值:月份

YF賦值:如果收盤價(jià)不等于0,返回月份,否則返回?zé)o效數(shù)

CZ賦值:YF不等于1日前的YF

JJ0賦值:上次CZ距今天數(shù)

QS1賦值:統(tǒng)計(jì)JJ0+1日中滿足"880005$收盤價(jià)">=3000的天數(shù)

輸出　下跌:當(dāng)滿足條件收盤價(jià)不等于0時,在0位置書寫文字,畫綠色,NODRAW

輸出　漲幅≥3%:當(dāng)滿足條件收盤價(jià)不等于0時,在0位置書寫文字,畫淡紅色,NODRAW

輸出　跌幅≥3%:當(dāng)滿足條件收盤價(jià)不等于0時,在0位置書寫文字,畫淡綠色,NODRAW

輸出　漲停:當(dāng)滿足條件收盤價(jià)不等于0時,在0位置書寫文字,NODRAW,畫洋紅色

輸出　跌停:當(dāng)滿足條件收盤價(jià)不等于0時,在0位置書寫文字,NODRAW,畫青色

程序源碼

NOTEXT1:400,COLORFF9933;

DRAWTEXT(ISLASTBAR=1,700,'冰點(diǎn)'),COLORFF9933;

NOTEXT2:1000,COLORGREEN;

DRAWTEXT(ISLASTBAR=1,1450,'弱勢'),COLORLIGREEN;

NOTEXTX:2000,COLORLIBLUE;

DRAWTEXT(ISLASTBAR=1,2230,'偏弱'),COLORLIBLUE;

NOTEXT3:2500,COLORGRAY,DOTLINE;

DRAWTEXT(ISLASTBAR=1,2750,'稍強(qiáng)'),COLORLIRED;

NOTEXT4:3000,COLORLIRED;

DRAWTEXT(ISLASTBAR=1,3450,'強(qiáng)勢'),COLORRED;

DRAWTEXT(ISLASTBAR=1,4250,'過熱'),COLORMAGENTA;

NOTEXT5:4000,COLORRED;

NOTEXT6:4600,COLORFF00FF;

NOTEXT7:"880005$C",COLOR15B2DD;

NOTEXT8:"880005$C",CIRCLEDOT,COLOR15B2DD,LINETHICK1;

SJ:=ISLASTBAR AND MACHINETIME>085000 AND MACHINETIME<170000 AND MACHINEWEEK<6 AND MACHINEWEEK<>0;

N:=MONTH;

YF:=IF(C<>0,MONTH,DRAWNULL);

CZ:=YF<>REF(YF,1);

JJ0:=BARSLAST(CZ);

{JJ1:=BARSLASTS(CZ,N-(N-1));}

{JJ2:=BARSLASTS(CZ,N-(N-1)+1);}

QS1:=COUNT("880005$C">=3000,JJ0+1);

{QS2:=COUNT("880005$C">=3000,JJ2-JJ1+1);}

{　上漲:DRAWTEXT(C<>0,0,VARCAT(VAR2STR("880005$C",0),'家')),COLORRED,NODRAW;}

　下跌:DRAWTEXT(C<>0,0,VARCAT(VAR2STR("880005$O",0),'家')),COLORGREEN,NODRAW;

　漲幅≥3%:DRAWTEXT(C<>0,0,VARCAT(VAR2STR("880005$C"-"880005$ADVANCE"-"880006$C",0),'家')),COLORLIRED,NODRAW;{不包含漲停}

　跌幅≥3%:DRAWTEXT(C<>0,0,VARCAT(VAR2STR("880005$O"-"880005$DECLINE"-"880006$O",0),'家')),COLORLIGREEN,NODRAW;{不包含跌停}

　漲停:DRAWTEXT(C<>0,0,VARCAT(VAR2STR(IF(SJ,"880006$C",SCJYVALUE(24,1,0)),0),'家')),NODRAW,COLORMAGENTA;{交易日8:50-17:00返回停板家數(shù)里的數(shù)據(jù),其余時間返回不包含ST漲停的漲停家數(shù)}

　跌停:DRAWTEXT(C<>0,0,VARCAT(VAR2STR(IF(SJ,"880006$O",SCJYVALUE(24,2,0)),0),'家')),NODRAW,COLORCYAN;{交易日8:50-17:00返回停板家數(shù)里的數(shù)據(jù),其余時間返回不包含ST跌停的跌停家數(shù)};

{　上漲≥3000家:DRAWTEXT(C<>0,0,VARCAT(VAR2STR(IF(YF<>0,QS1,QS2),0),'天')),COLOR09C9E0,NODRAW; }  {當(dāng)月或往月上漲家數(shù)>=3000的天數(shù)統(tǒng)計(jì)};

注：

       館內(nèi)各種公式為學(xué)習(xí)編程而保存,，實(shí)戰(zhàn)使用前一定要看其中是否有未來函數(shù)并自己親自測試成功率,，決不能依據(jù)公式名稱的描述和形容去投資，據(jù)此入市造成投資損失由投資者自己承擔(dān),。

       發(fā)文不易，如獲益,，歡迎贊賞,，贊賞必復(fù)！