编程思路破译

输出NOTEXT1:400,COLORFF9933

当满足条件是否最后一个周期=1时,在700位置书写文字,COLORFF9933

输出NOTEXT2:1000,画绿色

当满足条件是否最后一个周期=1时,在1450位置书写文字,画淡绿色

输出NOTEXTX:2000,画淡蓝色

当满足条件是否最后一个周期=1时,在2230位置书写文字,画淡蓝色

输出NOTEXT3:2500,画深灰色,DOTLINE

当满足条件是否最后一个周期=1时,在2750位置书写文字,画淡红色

输出NOTEXT4:3000,画淡红色

当满足条件是否最后一个周期=1时,在3450位置书写文字,画红色

当满足条件是否最后一个周期=1时,在4250位置书写文字,画洋红色

输出NOTEXT5:4000,画红色

输出NOTEXT6:4600,COLORFF00FF

输出NOTEXT7:"880005$收盘价",COLOR15B2DD

输出NOTEXT8:"880005$收盘价",CIRCLEDOT,COLOR15B2DD,线宽为1

SJ赋值:是否最后一个周期 AND 当前系统的时间>085000 AND 当前系统的时间<170000 AND 当前系统的星期<6 AND 当前系统的星期不等于0

N赋值:月份

YF赋值:如果收盘价不等于0,返回月份,否则返回无效数

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

JJ0赋值:上次CZ距今天数

QS1赋值:统计JJ0+1日中满足"880005$收盘价">=3000的天数

输出　下跌:当满足条件收盘价不等于0时,在0位置书写文字,画绿色,NODRAW

输出　涨幅≥3%:当满足条件收盘价不等于0时,在0位置书写文字,画淡红色,NODRAW

输出　跌幅≥3%:当满足条件收盘价不等于0时,在0位置书写文字,画淡绿色,NODRAW

输出　涨停:当满足条件收盘价不等于0时,在0位置书写文字,NODRAW,画洋红色

输出　跌停:当满足条件收盘价不等于0时,在0位置书写文字,NODRAW,画青色

程序源码

NOTEXT1:400,COLORFF9933;

DRAWTEXT(ISLASTBAR=1,700,'冰点'),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,'稍强'),COLORLIRED;

NOTEXT4:3000,COLORLIRED;

DRAWTEXT(ISLASTBAR=1,3450,'强势'),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返回停板家数里的数据,其余时间返回不包含ST涨停的涨停家数}

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

{　上涨≥3000家:DRAWTEXT(C<>0,0,VARCAT(VAR2STR(IF(YF<>0,QS1,QS2),0),'天')),COLOR09C9E0,NODRAW; }  {当月或往月上涨家数>=3000的天数统计};

注：

       馆内各种公式为学习编程而保存，实战使用前一定要看其中是否有未来函数并自己亲自测试成功率，决不能依据公式名称的描述和形容去投资，据此入市造成投资损失由投资者自己承担。

       发文不易，如获益，欢迎赞赏，赞赏必复！