编程思路破译 输出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的天数统计}; 注: 馆内各种公式为学习编程而保存,实战使用前一定要看其中是否有未来函数并自己亲自测试成功率,决不能依据公式名称的描述和形容去投资,据此入市造成投资损失由投资者自己承担。 发文不易,如获益,欢迎赞赏,赞赏必复! |
|