【原】季月周箱体主图指标公式程序源码和编程思路破译

追梦文库 2023-05-01 发布于天津

展开全文

编程思路破译

WO赋值:开盘价[取周线数据]

WC赋值:收盘价[取周线数据]

WH赋值:最高价[取周线数据]

WL赋值:最低价[取周线数据]

T赋值:上次年内星期不等于1日前的年内星期距今天数

T1赋值:若T=0则将最近2周期置为1上穿0.5

YO赋值:开盘价[取月线数据]

YC赋值:收盘价[取月线数据]

YH赋值:最高价[取月线数据]

YL赋值:最低价[取月线数据]

YT赋值:上次月份不等于1日前的月份距今天数

YT1赋值:若YT=0则将最近2周期置为1上穿0.5

A0赋值:月份关于3的模

JD赋值:上次A0上穿0.5距今天数

JT赋值:上次JD<1日前的JD距今天数

JT1赋值:若JT=0则将最近2周期置为1上穿0.5

JO赋值:开盘价[取季线数据]

JC赋值:收盘价[取季线数据]

JH赋值:最高价[取季线数据]

JL赋值:最低价[取季线数据]

当满足条件如果是否最后一个周期,返回JT1=1,否则返回JC>=JOANDJT>0ANDJT1=0时,在JH和JH位置之间画柱状线,宽度为8,0不为0则画空心柱.,画红色

当满足条件如果是否最后一个周期,返回JT1=1,否则返回JC>=JOANDJT>0ANDJT1=0时,在JL和JL位置之间画柱状线,宽度为8,0不为0则画空心柱.,画红色

当满足条件JC>=JOAND(JT=0ORJT1=1ORISLASTBAR)时,在JH和JL位置之间画柱状线,宽度为0,0不为0则画空心柱.,画红色

当满足条件如果是否最后一个周期,返回JT1=1,否则返回JC<JOANDJT>0ANDJT1=0时,在JH和JH位置之间画柱状线,宽度为8,0不为0则画空心柱.,画绿色

当满足条件如果是否最后一个周期,返回JT1=1,否则返回JC<JOANDJT>0ANDJT1=0时,在JL和JL位置之间画柱状线,宽度为8,0不为0则画空心柱.,画绿色

当满足条件JC<JOAND(JT=0ORJT1=1ORISLASTBAR)时,在JH和JL位置之间画柱状线,宽度为0,0不为0则画空心柱.,画绿色

当满足条件如果是否最后一个周期,返回T1=1,否则返回WC>=WOANDT>0ANDT1=0时,在WH和WH位置之间画柱状线,宽度为8,-1不为0则画空心柱.,画红色

当满足条件如果是否最后一个周期,返回T1=1,否则返回WC>=WOANDT>0ANDT1=0时,在WL和WL位置之间画柱状线,宽度为8,-1不为0则画空心柱.,画红色

当满足条件WC>=WOAND(T=0ORT1=1ORISLASTBAR)时,在WH和WL位置之间画柱状线,宽度为0,-1不为0则画空心柱.,画红色

当满足条件如果是否最后一个周期,返回T1=1,否则返回WC<WOANDT>0ANDT1=0时,在WH和WH位置之间画柱状线,宽度为8,-1不为0则画空心柱.,画绿色

当满足条件如果是否最后一个周期,返回T1=1,否则返回WC<WOANDT>0ANDT1=0时,在WL和WL位置之间画柱状线,宽度为8,-1不为0则画空心柱.,画绿色

当满足条件WC<WOAND(T=0ORT1=1ORISLASTBAR)时,在WH和WL位置之间画柱状线,宽度为0,-1不为0则画空心柱.,画绿色

当满足条件如果是否最后一个周期,返回YT1=1,否则返回YC>=YOANDYT>0ANDYT1=0时,在YH和YH位置之间画柱状线,宽度为8,-1不为0则画空心柱.,画红色

当满足条件如果是否最后一个周期,返回YT1=1,否则返回YC>=YOANDYT>0ANDYT1=0时,在YL和YL位置之间画柱状线,宽度为8,-1不为0则画空心柱.,画红色

当满足条件YC>=YOAND(YT=0ORYT1=1ORISLASTBAR)时,在YH和YL位置之间画柱状线,宽度为0,-1不为0则画空心柱.,画红色

当满足条件如果是否最后一个周期,返回YT1=1,否则返回YC<YOANDYT>0ANDYT1=0时,在YH和YH位置之间画柱状线,宽度为8,-1不为0则画空心柱.,画绿色

当满足条件如果是否最后一个周期,返回YT1=1,否则返回YC<YOANDYT>0ANDYT1=0时,在YL和YL位置之间画柱状线,宽度为8,-1不为0则画空心柱.,画绿色

当满足条件YC<YOAND(YT=0ORYT1=1ORISLASTBAR)时,在YH和YL位置之间画柱状线,宽度为0,-1不为0则画空心柱.,画绿色

程序源码

WO:=O#WEEK;

WC:=C#WEEK;

WH:=H#WEEK;

WL:=L#WEEK;

T:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1));

T1:=CROSS(BACKSET(T=0,2),0.5);

YO:=O#MONTH;

YC:=C#MONTH;

YH:=H#MONTH;

YL:=L#MONTH;

YT:=BARSLAST(MONTH!=REF(MONTH,1));

YT1:=CROSS(BACKSET(YT=0,2),0.5);

A0:=MOD(MONTH,3);

JD:=BARSLAST(CROSS(A0,0.5));

JT:=BARSLAST(JD<REF(JD,1));

JT1:=CROSS(BACKSET(JT=0,2),0.5);

JO:=O#SEASON;

JC:=C#SEASON;

JH:=H#SEASON;

JL:=L#SEASON;

{季}

STICKLINE(IF(ISLASTBAR,JT1=1,JC>=JO AND JT>0 AND JT1=0 ),JH,JH,8,0),COLORRED;

STICKLINE(IF(ISLASTBAR,JT1=1,JC>=JO AND JT>0 AND JT1=0 ),JL,JL,8,0),COLORRED;

STICKLINE(JC>=JO AND (JT=0 OR JT1=1 OR ISLASTBAR),JH,JL,0,0),COLORRED;

STICKLINE(IF(ISLASTBAR,JT1=1,JC<JO AND JT>0 AND JT1=0),JH,JH,8,0),COLORGREEN;

STICKLINE(IF(ISLASTBAR,JT1=1,JC<JO AND JT>0 AND JT1=0),JL,JL,8,0),COLORGREEN;

STICKLINE(JC<JO AND (JT=0 OR JT1=1 OR ISLASTBAR),JH,JL,0,0),COLORGREEN;

{月}

STICKLINE(IF(ISLASTBAR,T1=1,WC>=WO AND T>0 AND T1=0 ),WH,WH,8,-1),COLORRED;

STICKLINE(IF(ISLASTBAR,T1=1,WC>=WO AND T>0 AND T1=0 ),WL,WL,8,-1),COLORRED;

STICKLINE(WC>=WO AND (T=0 OR T1=1 OR ISLASTBAR),WH,WL,0,-1),COLORRED;

STICKLINE(IF(ISLASTBAR,T1=1,WC<WO AND T>0 AND T1=0),WH,WH,8,-1),COLORGREEN;

STICKLINE(IF(ISLASTBAR,T1=1,WC<WO AND T>0 AND T1=0),WL,WL,8,-1),COLORGREEN;

STICKLINE(WC<WO AND (T=0 OR T1=1 OR ISLASTBAR),WH,WL,0,-1),COLORGREEN;

{周}

STICKLINE(IF(ISLASTBAR,YT1=1,YC>=YO AND YT>0 AND YT1=0 ),YH,YH,8,-1),COLORRED;

STICKLINE(IF(ISLASTBAR,YT1=1,YC>=YO AND YT>0 AND YT1=0 ),YL,YL,8,-1),COLORRED;

STICKLINE(YC>=YO AND (YT=0 OR YT1=1 OR ISLASTBAR),YH,YL,0,-1),COLORRED;

STICKLINE(IF(ISLASTBAR,YT1=1,YC<YO AND YT>0 AND YT1=0),YH,YH,8,-1),COLORGREEN;

STICKLINE(IF(ISLASTBAR,YT1=1,YC<YO AND YT>0 AND YT1=0),YL,YL,8,-1),COLORGREEN;

STICKLINE(YC<YO AND (YT=0 OR YT1=1 OR ISLASTBAR),YH,YL,0,-1),COLORGREEN;

该公式包含未来函数:BACKSET
未发现:WINNER...
未发现:LWINNER...
未发现:PWINNER...
未发现:COST...
未发现:CAPITAL...
未发现:DYNAINFO...
未发现:FINANCE...
未发现:XMA...
该公式包含未来函数:#MONTH
该公式包含未来函数:#WEEK