一、【箱体周期主图】升级版——3主图3幅图——箱体思路追忆！

注意： 本文属于八戒 改编 指标公式，源码可以用于通达信软件，第一部分源码属于主图或副图；第二部分属于选股公式源码（多个选股公式请分别使用）； 第三部分属于图片示例。

注意2：防止源码复制粘贴出错，请先把源码复制到WORD文档排序，再从WORD文档中复制源码！

【箱体周期主图】升级版，是在 【箱体周期主图】+【MACD仿KDJ幅图】——箱体思路追忆！{链接入口} 的基础上加入 “K线标注”、 “本轮周期关键箱体标注”。

第一部分 【主图公式】 手机/电脑

【箱体周期主图】由紫色的季线箱体、黄色的月线箱体、红色的周线箱体构成。

箱体 是形态学中的一种理论，箱体理论的优势在于它不仅仅是以所有K线数据作为研究对象，而且以一天或几天的K线数据为研究对象，因而决策的信息量更大、数据更加准确和详细。

但是金融市场，对箱体有价值的描述很少，所以需要引入数学模型，用来互相比较，因为只有那种出现在关键时机里面的箱体突破才是有参与价值的。

箱体理论 数学模型 公式：

①支撑价=原箱体底部支撑价-（原箱体顶部压力价-原箱体底部支撑价）

②价差箱体的高度=最高价-最底价=价差(箱体的高度)

③向下突破箱体,第二个箱体的底部=第一个箱体的底部-价差；

④向上突破箱体，第二个箱体的顶部（压力位）=原箱体最高价+价差。

⑤突破箱体，顶与底互换。

⑥支撑价 = N周期最低的收盘价

⑦阻力价 = N周期最高的收盘价

⑧箱体高度 = 阻力 价 - 支撑价

【箱体周期主图】升级版

【箱体周期主图】

【箱体周期主图】升级版 编写如下：

所属板块:=STRCAT('【【伀|衆|号】游资八戒源码分享】',STRCAT(STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK)));

DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,所属板块),COLOR00FFFF;

周线开盘价:=O#WEEK;

周线收盘价:=C#WEEK;

周线蕞高价:=H#WEEK;

周线蕞低价:=L#WEEK;

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

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

月线开盘价:=O#MONTH;

月线收盘价:=C#MONTH;

月线蕞高价:=H#MONTH;

月线蕞低价:=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

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

季线开盘价:=O#SEASON;

季线收盘价:=C#SEASON;

季线蕞高价:=H#SEASON;

季线蕞低价:=L#SEASON;

{季}

STICKLINE(IF(ISLASTBAR,JT1=1,季线收盘价>=季线开盘价 AND JT>0 AND JT1=0 ),季线蕞高价,季线蕞高价,8,0),COLORFF00FF,LINETHICK3;

STICKLINE(IF(ISLASTBAR,JT1=1,季线收盘价>=季线开盘价 AND JT>0 AND JT1=0 ),季线蕞低价,季线蕞低价,8,0),COLORFF00FF,LINETHICK3;

STICKLINE(季线收盘价>=季线开盘价 AND (JT=0 OR JT1=1 OR ISLASTBAR),季线蕞高价,季线蕞低价,0,0),COLORFF00FF,LINETHICK3;

STICKLINE(IF(ISLASTBAR,JT1=1,季线收盘价0 AND JT1=0),季线蕞高价,季线蕞高价,8,0),COLORFF00FF,LINETHICK3;

STICKLINE(IF(ISLASTBAR,JT1=1,季线收盘价0 AND JT1=0),季线蕞低价,季线蕞低价,8,0),COLORFF00FF,LINETHICK3;

STICKLINE(季线收盘价

{周}

STICKLINE(IF(ISLASTBAR,T1=1,周线收盘价>=周线开盘价 AND T>0 AND T1=0 ),周线蕞高价,周线蕞高价,8,-1),COLORRED;

STICKLINE(IF(ISLASTBAR,T1=1,周线收盘价>=周线开盘价 AND T>0 AND T1=0 ),周线蕞低价,周线蕞低价,8,-1),COLORRED;

STICKLINE(周线收盘价>=周线开盘价 AND (T=0 OR T1=1 OR ISLASTBAR),周线蕞高价,周线蕞低价,0,-1),COLORRED;

STICKLINE(IF(ISLASTBAR,T1=1,周线收盘价0 AND T1=0),周线蕞高价,周线蕞高价,8,-1),COLORRED;

STICKLINE(IF(ISLASTBAR,T1=1,周线收盘价0 AND T1=0),周线蕞低价,周线蕞低价,8,-1),COLORRED;

STICKLINE(周线收盘价

{月}

STICKLINE(IF(ISLASTBAR,YT1=1,月线收盘价>=月线开盘价 AND YT>0 AND YT1=0 ),月线蕞高价,月线蕞高价,8,-1),COLORYELLOW;

STICKLINE(IF(ISLASTBAR,YT1=1,月线收盘价>=月线开盘价 AND YT>0 AND YT1=0 ),月线蕞低价,月线蕞低价,8,-1),COLORYELLOW;

STICKLINE(月线收盘价>=月线开盘价 AND (YT=0 OR YT1=1 OR ISLASTBAR),月线蕞高价,月线蕞低价,0,-1),COLORYELLOW;

STICKLINE(IF(ISLASTBAR,YT1=1,月线收盘价0 AND YT1=0),月线蕞高价,月线蕞高价,8,-1),COLORYELLOW;

STICKLINE(IF(ISLASTBAR,YT1=1,月线收盘价0 AND YT1=0),月线蕞低价,月线蕞低价,8,-1),COLORYELLOW;

STICKLINE(月线收盘价

三日高点:=IF(H=HHV(H,3),H,L);

十五日高点:=CONST(MAX(TROUGHBARS(三日高点,15,1),PEAKBARS(三日高点,15,1)));

前期大箱顶:IF(CURRBARSCOUNT

前期大箱底:IF(CURRBARSCOUNT

STICKLINE(CURRBARSCOUNT

N:=13;

BC:=(H*0.382+L*0.618+O*0.382+C*0.618)/2;

LJ:=IF(INDEXC=C,BC,(BC+AMOUNT/(V*100))/2),COLORGRAY;

HT:=REF((HHV(LJ,N*0.691)+HHV(LJ,N)+HHV(LJ,N*1.309))/3,1),LINETHICK,COLORRED;

LT:=REF((LLV(LJ,N*0.691)+LLV(LJ,N)+LLV(LJ,N*1.309))/3,1),LINETHICK,COLORGREEN;

ZT:=(HT+LT)/2,LINETHICK,COLORYELLOW;

STICKLINE(ISLASTBAR=1 AND LJ

STICKLINE(ISLASTBAR=1 AND LJ=ZT,HT,LT,N*8,0),COLORGRAY;

STICKLINE(ISLASTBAR=1 AND LJ>ZT,HT,LT,N*8,1),COLOR6600FF;

STICKLINE(ISLASTBAR=1,ZT,ZT,N*8,0),COLORGRAY;

箱顶:HT,COLORGREEN,NODRAW,LINETHICK1;

箱中:ZT,COLORGRAY,NODRAW,LINETHICK1;

箱底:LT,COLORA943FF,NODRAW,LINETHICK1;

DRAWKLINE(H,O,L,C);

昨日收盘:=IF(C>REF(C,1),REF(C,1),DRAWNULL);

收盘价:=IF(C>REF(C,1),C,DRAWNULL);

昨日收盘价:=IF(C<=REF(C,1),REF(C,1),DRAWNULL);

今日收盘价:=IF(C<=REF(C,1),C,DRAWNULL);

DRAWKLINE(H,昨日收盘价,L,今日收盘价);

STICKLINE(C<=REF(C,1),昨日收盘价,今日收盘价,2.4,0),COLORBLUE;

STICKLINE(C<=REF(C,1),昨日收盘价,今日收盘价,1.8,0),COLORFF7700;

STICKLINE(C<=REF(C,1),昨日收盘价,今日收盘价,1.2,0),COLORFF9900;

STICKLINE(C<=REF(C,1),昨日收盘价,今日收盘价,0.6,0),COLORFFBB00;

DRAWKLINE(H,昨日收盘,L,收盘价);

STICKLINE(C>REF(C,1),昨日收盘,收盘价,2.4,0),COLOR000099;

STICKLINE(C>REF(C,1),昨日收盘,收盘价,1.8,0),COLOR0000CC;

STICKLINE(C>REF(C,1),昨日收盘,收盘价,1.2,0),COLOR0000FF;

STICKLINE(C>REF(C,1),昨日收盘,收盘价,0.6,0),COLORCC66FF;

STICKLINE(V/REF(V,1)>2 AND CLOSE>=OPEN,昨日收盘,收盘价,0.8,0),COLORYELLOW;

三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3);

三日量缩:=(MAX(MAX(V,REF(V,1)),REF(V,2))

三日价涨A:=C>=REF(C,1);

三日价涨B:=C

三日价涨C:=MIN(MIN(C,REF(C,1)),REF(C,2))>=REF(L,3);

TIM:=IF(DATE<1140214,1,0);

倍量柱:=C>REF(C,1)*1.04 AND (VOL>=1.9*REF(VOL,1))*TIM;

四日前倍量柱:=(REF(VOL,3)>1.9*REF(VOL,4))*TIM;

四日前高量柱:=(REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND 三日量缩)*TIM;

前三引用不成立:=COUNT(REF(四日前倍量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0 AND COUNT(REF(四日前高量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0;

倍量将军柱:=四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立;

高量将军柱:=四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立;

将军柱:=倍量将军柱 OR 高量将军柱;

次倍量将军柱:=NOT(将军柱) AND 四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;

次高量将军柱:=NOT(将军柱) AND 四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;

次将军柱:=次倍量将军柱 OR 次高量将军柱;

准倍量将军柱:=NOT(将军柱 OR 次将军柱) AND 四日前倍量柱 AND ((三日量缩 AND 三日价涨C) OR (COUNT(倍量柱,3)>=1 AND 三日不破)) AND 前三引用不成立;

准高量将军柱:=NOT(将军柱 OR 次将军柱) AND 四日前高量柱 AND (三日量缩 AND 三日价涨C) AND 前三引用不成立;

准将军柱:=准倍量将军柱 OR 准高量将军柱;

倍量将军柱A:=NOT(将军柱 OR 次将军柱 OR 准将军柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;

高量将军柱A:=NOT(将军柱 OR 次将军柱 OR 准将军柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;

将军柱A:=倍量将军柱A OR 高量将军柱A;

BACKSET101:=BACKSET(将军柱,4);

FILTER101:=FILTER(BACKSET101,3);

BACKSET104:=BACKSET(将军柱A,4);

FILTER104:=FILTER(BACKSET104,3);

K1:=SUMBARS(FILTER104,1);

STICKLINE(K1,REF(L,K1-2),REF(L,K1-2),0.506,0),COLORWHITE;

K2:=SUMBARS(FILTER101,1);

STICKLINE(K2,REF(L,K2-2),REF(L,K2-2),0.506,0),COLORWHITE;

DRAWTEXT(ISLASTBAR,REF(L,K1-2)*0.99,CON2STR(REF(L,K1-2),2)),COLORRED,LINETHICK1;

DRAWTEXT(ISLASTBAR,REF(L,K2-2)*0.99,CON2STR(REF(L,K2-2),2)),COLORGREEN,LINETHICK1;

第二部分 【振幅率】 幅图 手机/电脑

【 振幅率 】 幅图 编写如下：