突破鍋頂的主圖公式源碼

相關標簽:

這是妞妞老師前不久發表突破鍋頂的主圖公式源碼，我只在原基礎加了一條鍋底線，本意也同時想請老師做一個鍋底選股公式。
在未經過老師的同意下做了改動，如有冒犯，還請老師海涵。

原理解析：
輸出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.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;