突破锅顶的主图公式源码[通达信公式]

相关标签:

这是妞妞老师前不久发表突破锅顶的主图公式源码，我只在原基础加了一条锅底线，本意也同时想请老师做一个锅底选股公式。
在未经过老师的同意下做了改动，如有冒犯，还请老师海涵。

原理解析：
输出MA1:收盘价的M1日简单移动平均 输出均线:收盘价的M2日简单移动平均 输出MA3:收盘价的M3日简单移动平均 输出MA4:收盘价的M4日简单移动平均 输出MA5:收盘价的M5日简单移动平均 输出MA6:收盘价的M6日简单移动平均 LT赋值:60日内最低价距今天数 LT1赋值:60日内最低价距今天数 LTT赋值:上次到最后交易的周期=LT的最后一日取值设为常数+1距今天数 HT赋值:最高价在LT+1日前的60天内第1个最高价到当前周期的周期数 DT赋值:最低价在LT1+1日前的60天内第1个最低价 输出锅顶:当满足条件到最后交易的周期=HT的最后一日取值设为常数+1时,在最高价位置画直线起点，当满足条件是否最后一个周期时,在HT日前的最高价位置画直线终点,0表示是否延长.,画黄色,线宽为2 TT赋值:上次到最后交易的周期=HT的最后一日取值设为常数+1距今天数 AA赋值:收盘价上穿锅顶的最后一日取值设为常数 TJ赋值:统计TT+1日中满足AA的天数=1 AND AA TJ1赋值:统计TT+1日中满足成交量(手)<成交量(手)的277日简单移动平均的天数 BL赋值:TJ1/(TT+1)*100 XG赋值:TJ AND TT>40 AND BL>70 XGT赋值:上次到最后交易的周期=上次XG距今天数的最后一日取值设为常数+1距今天数 ZH赋值:TT日前的最高价 YL赋值:LTT日前的最低价 XC赋值:XGT日前的收盘价 YZ赋值:(XC-YL)/YL*100 ZBL赋值:YZ/XGT日前的LTT XGA赋值:XG AND ZBL<2.95 输出布林极限:当满足条件TT=0时,在最高价位置画直线起点，当满足条件LTT=0时,在最低价位置画直线终点,0表示是否延长.,画红色,线宽为2 输出锅底:当满足条件到最后交易的周期>LT1的最后一日取值设为常数+0时,在最低价位置画直线起点，当满足条件是否最后一个周期时,在LT1日前的最低价位置画直线终点,0表示是否延长.,画白色,线宽为3 B赋值:当满足条件到最后交易的周期>不定周期最低价时,在最低价位置画直线起点，当满足条件是否最后一个周期时,在不定周期最低价日前的最高价位置画直线终点,0表示是否延长.,画红色,线宽为2 当满足条件LTT=0时,在最低价位置画直线起点，当满足条件XGT=0时,在最低价位置画直线终点,0表示是否延长.,画红色 当满足条件XGA时,在最低价*0.95位置画9号图标

源码：

MA1:MA(CLOSE,M1);
MA2:MA(CLOSE,M2);
MA3:MA(CLOSE,M3);
MA4:MA(CLOSE,M4);
MA5:MA(CLOSE,M5);
MA6:MA(CLOSE,M6);
LT:=LLVBARS(L,60);
LT1:=LLVBARS(L,60);
LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);
HT:=FINDHIGHBARS(H,LT+1,60,1);
DT:=FINDLOW(L,LT1+1,60,1);
锅顶:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORYELLOW,LINETHICK2;TT:=BARSLAST(CURRBARSCOUNT=CONST(HT)+1);
AA:=CROSS(C,CONST(锅顶));
TJ:=COUNT(AA,TT+1)=1 AND AA;
TJ1:=COUNT(V<MA(V,277),TT+1) ;
BL:=TJ1/(TT+1)*100;
XG:=TJ AND TT>40 AND BL>70;
XGT:=BARSLAST(CURRBARSCOUNT=CONST(BARSLAST(XG))+1);
ZH:=REF(H,TT);
YL:=REF(L,LTT);
XC:=REF(C,XGT);
YZ:=(XC-YL)/YL*100;
ZBL:=YZ/REF(LTT,XGT);
XGA:=XG AND ZBL<2.95;
BB:DRAWLINE(TT=0,H,LTT=0,L,0),COLORRED,LINETHICK2;
锅底:DRAWLINE(CURRBARSCOUNT>CONST(LT1)+0,L,ISLASTBAR,REF(L,LT1),0),COLORWHITE,LINETHICK3;
B:=DRAWLINE(CURRBARSCOUNT>DLOW,L,ISLASTBAR,REF(H,DLOW),0),COLORRED,LINETHICK2;
DRAWLINE(LTT=0,L,XGT=0,L,0),COLORRED;
DRAWICON(XGA,L*0.95,9);
XG1:=TJ AND TT>40 AND BL>20;DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;