分享

大智慧强势突破指标公式源码编程思路破译

 追梦文库 2022-10-25 发布于天津

编程思路破译

MA5赋值:收盘价的5日简单移动平均

MA10赋值:收盘价的10日简单移动平均

MA20赋值:收盘价的20日简单移动平均

A1赋值:如果收盘价>=MA5,返回1,否则返回-1

A2赋值:如果收盘价>=MA10,返回1,否则返回-1

A3赋值:如果收盘价>=MA20,返回1,否则返回-1

A4赋值:如果MA5>=1日前的MA5,返回1,否则返回-1

A5赋值:如果MA10>=1日前的MA10,返回1,否则返回-1

A6赋值:如果MA20>=1日前的MA20,返回1,否则返回-1

输出趋势:(A1+A2+A3+A4+A5+A6)/6*100,COLOR00FF00

输出主升浪:趋势>=50,COLOR0000FF,POINTDOT,线宽为0

输出↓:趋势<50,COLORFFFFFF,POINTDOT,线宽为0

输出周期:如果主升浪,返回上次主升浪上穿0.1距今天数+1,否则返回0,COLORFF00FF,POINTDOT,线宽为0

输出临界:如果98上穿趋势,返回1,否则返回0,COLOR00FF00,POINTDOT,线宽为0

WKQY赋值:上次50上穿趋势距今天数<上次趋势上穿1距今天数和上次趋势上穿-1距今天数的较小值

输出挖坑:趋势位于-1和50之间 AND WKQY,COLOR00FFFF,POINTDOT,线宽为0

FILLRGN(50,趋势,主升浪,自定色),LAYER7

FILLRGN(50,趋势,挖坑,自定色),LAYER7

当满足条件主升浪时,在周期*0.8和周期*0.95位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR0000FF

当满足条件主升浪时,在周期*1.05和周期*1.2位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLOR0000FF

当满足条件主升浪ANDC<1日前的收盘价时,在周期*0.9和周期*1.1位置之间画柱状线,宽度为6,1不为0则画空心柱.,COLORFFFFFF

VERTLINE(主升浪上穿0.1,2),COLOR0000FF,线宽为3

当满足条件临界时,在100位置书写文字,COLOR00FF00,ALIGN1

0,COLORFFFFFF

50,COLOR00FFFF,DOTLINE

程序源码

MA5:=MA(CLOSE,5);

MA10:=MA(CLOSE,10);

MA20:=MA(CLOSE,20);

A1:=IF(C>=MA5,1,-1);

A2:=IF(C>=MA10,1,-1);

A3:=IF(C>=MA20,1,-1);

A4:=IF(MA5>=REF(MA5,1),1,-1);

A5:=IF(MA10>=REF(MA10,1),1,-1);

A6:=IF(MA20>=REF(MA20,1),1,-1);

趋势:(A1+A2+A3+A4+A5+A6)/6*100,COLOR00FF00;

主升浪:趋势>=50,COLOR0000FF,POINTDOT,LINETHICK0;

↓:趋势<50,COLORFFFFFF,POINTDOT,LINETHICK0;

周期:IF(主升浪,BARSLAST(CROSS(主升浪,0.1))+1,0),COLORFF00FF,POINTDOT,LINETHICK0;

临界:IF(CROSS(98,趋势),1,0),COLOR00FF00,POINTDOT,LINETHICK0;

WKQY:=BARSLAST(CROSS(50,趋势))<MIN(BARSLAST(CROSS(趋势,1)),BARSLAST(CROSS(趋势,-1)));

挖坑:BETWEEN(趋势,-1,50) AND WKQY,COLOR00FFFF,POINTDOT,LINETHICK0;

{以下设置副图显示方式}

FILLRGN(50,趋势,主升浪,RGB(250,0,0)),LAYER7;

FILLRGN(50,趋势,挖坑,RGB(250,250,0)),LAYER7;

STICKLINE(主升浪,周期*0.8,周期*0.95,6,0),COLOR0000FF;

STICKLINE(主升浪,周期*1.05,周期*1.2,6,0),COLOR0000FF;

STICKLINE(主升浪 AND C<REF(C,1),周期*0.9,周期*1.1,6,1),COLORFFFFFF;

VERTLINE(CROSS(主升浪,0.1),2),COLOR0000FF,LINETHICK3;

DRAWTEXT(临界,100,'S☆'),COLOR00FF00,ALIGN1;

0,COLORFFFFFF;50,COLOR00FFFF,DOTLINE;

    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约