五里頭3號主圖指標公式源碼

相關標簽:通達信指標短線資金 、 通達信短線選股指標 、 通達信短線決策指標 、 短線賣出通達信指標 、 通達信短線操盤指標 、 通達信短線游資指標 、 通達信短線指標源碼 、 通達信短線上攻指標 、 通達信短線穩賺指標 、 通達信短線盈虧指標 、 通達信指標公式大全 、 通達信中樞指標公式 、 通達信短線好指標公式 、

?

金色短線,必屬精品!!
好用您必頂！！！
使用說明:
1、該指標為短、中線結合信號，牛熊線綠色下行時出現買入信號，為短線搶反彈行情，一旦買入后弱，及時止損；牛熊線紅色上行為牛市，發出買入信號，堅決介入，中線持股，直到典型頭部形成或目標位到達。
2、黃色柱狀K線（+號）為買入信號，綠色K線為止損或止贏信號；黃色彩帶持股，蘭色彩帶休息；
3、信號只是參考，決策在人腦，紀律是成功的保證！！
原碼：}

?

?

?

原理解析：
HR賦值:55日內最高價的最高值 HRY賦值:55日內最低價的最低值 HRY11賦值:HR*HRY 輸出HRY33:HRY11的開方,畫綠色,線寬為2 如果收盤價>HRY33ANDHRY33>=1日前的HRY33,返回HRY33,否則返回無效數,線寬為2,畫紅色 WLT1賦值:收盤價的3日指數移動平均 WLT2賦值:收盤價的5日指數移動平均 WLT3賦值:WLT2的5日指數移動平均 畫帶狀線 X1賦值:(收盤價+最低價+最高價)/3 BB5賦值:X1的7日指數移動平均-1日前的X1的7日指數移動平均的反正切*3.1416*10 EMA3賦值:收盤價的3日指數移動平均 當滿足條件BB5>1ANDEMA(X1,7)>1日前的X1的7日指數移動平均的10日過濾時,在最低價*0.99位置書寫文字,COLORFFFFFF TT賦值:BB5>1ANDEMA(X1,7)>1日前的X1的7日指數移動平均的10日過濾 MM賦值:WLT1>1日前的WLT1 AND 1日前的WLT1<2日前的WLT1 GG1賦值:WLT1上穿WLT2 超買賦值:收盤價的10日簡單移動平均*如果當前流通股本(手)=0,返回1.04,否則返回1.1,POINTDOT,畫綠色,線寬為2 超賣賦值:收盤價的10日簡單移動平均*如果當前流通股本(手)=0,返回0.95,否則返回0.9,POINTDOT,畫紅色,線寬為2 輸出TEND:((收盤價的21日線性回歸斜率*20)+收盤價)的42日指數移動平均,POINTDOT,COLORFF00FF,線寬為4 DD賦值:TEND>1日前的TEND AND 1日前的TEND >2日前的TEND GG2賦值:WLT1上穿TEND HRY1賦值:55日內最低價的最低值 HRY2賦值:21日內最高價的最高值 GG3賦值:收盤價<HRY2*0.8 AND 收盤價>HRY33 JJ1賦值:收盤價<HRY1*1.62 TJ1賦值:GG1 TJ2賦值:GG2 AND JJ1 TJ3賦值:GG1 AND GG3 XG賦值:TJ1 OR TJ3 當滿足條件XG時,在最低價*0.97位置畫23號圖標 當滿足條件XG時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR009999 當滿足條件XG時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00BBBB 當滿足條件XG時,在收盤價和開盤價位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR00DDDD 當滿足條件XG時,在收盤價和開盤價位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR00FFFF SAL1賦值:最高價>超買 SAL2賦值:收陰線AND (開盤價-收盤價)/收盤價>0.03 QQ賦值: 收盤價<WLT2 QQ1賦值:WLT2上穿WLT1 QQ3賦值:最高價>HRY1*1.38 SAL01賦值: SAL1 AND SAL2 AND QQ AND QQ3 SAL02賦值:QQ3 AND QQ1 SAL賦值:SAL01 OR SAL02 當滿足條件SAL時,在最高價*1.03位置畫15號圖標 當滿足條件SAL時,在收盤價和開盤價位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR009900 當滿足條件SAL時,在收盤價和開盤價位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00BB00 當滿足條件SAL時,在收盤價和開盤價位置之間畫柱狀線,寬度為1.5,0不為0則畫空心柱.,COLOR00DD00 當滿足條件SAL時,在收盤價和開盤價位置之間畫柱狀線,寬度為0.3,0不為0則畫空心柱.,COLOR00FF00 輸出GET:收盤價5%的之字轉向,COLORFFFFFF PL5賦值:收盤價5%的之字轉向 EN1賦值:收盤價5%的之字轉向>1日前的收盤價5%的之字轉向 AND 1日前的收盤價5%的之字轉向<=2日前的收盤價5%的之字轉向 AND 2日前的收盤價5%的之字轉向<=3日前的收盤價5%的之字轉向 EX1賦值:收盤價5%的之字轉向<1日前的收盤價5%的之字轉向 AND 1日前的收盤價5%的之字轉向>=2日前的收盤價5%的之字轉向 AND 2日前的收盤價5%的之字轉向>=3日前的收盤價5%的之字轉向 PL10賦值:收盤價10%的之字轉向 EN2賦值:收盤價10%的之字轉向>1日前的收盤價10%的之字轉向 AND 1日前的收盤價10%的之字轉向<=2日前的收盤價10%的之字轉向 AND 2日前的收盤價10%的之字轉向<=3日前的收盤價10%的之字轉向 EX2賦值:收盤價10%的之字轉向<1日前的收盤價10%的之字轉向 AND 1日前的收盤價10%的之字轉向>=2日前的收盤價10%的之字轉向 AND 2日前的收盤價10%的之字轉向>=3日前的收盤價10%的之字轉向 PL20賦值:收盤價20%的之字轉向 EN3賦值:收盤價20%的之字轉向>1日前的收盤價20%的之字轉向 AND 1日前的收盤價20%的之字轉向<=2日前的收盤價20%的之字轉向 AND 2日前的收盤價20%的之字轉向<=3日前的收盤價20%的之字轉向 EX3賦值:收盤價20%的之字轉向<1日前的收盤價20%的之字轉向 AND 1日前的收盤價20%的之字轉向>=2日前的收盤價20%的之字轉向 AND 2日前的收盤價20%的之字轉向>=3日前的收盤價20%的之字轉向 PL40賦值:收盤價40%的之字轉向 走強1賦值:上次PL5<1日前的PL5距今天數 走弱1賦值:上次PL5>1日前的PL5距今天數 走強2賦值:上次PL10<1日前的PL10距今天數 走弱2賦值:上次PL10>1日前的PL10距今天數 走強3賦值:上次PL20<1日前的PL20距今天數 走弱3賦值:上次PL20>1日前的PL20距今天數 ZTJZ5賦值:如果PL10>1日前的PL10,返回統計走強2日中滿足EN1的天數,否則返回0 ZTJD5賦值:如果PL10>1日前的PL10,返回統計走強2日中滿足EX1的天數,否則返回0 DTJZ5賦值:如果PL10<1日前的PL10,返回統計走弱2日中滿足EN1的天數,否則返回0 DTJD5賦值:如果PL10<1日前的PL10,返回統計走弱2日中滿足EX1的天數,否則返回0 ZTJZ10賦值:如果PL20>1日前的PL20,返回統計走強3日中滿足EN2的天數,否則返回0 ZTJD10賦值:如果PL20>1日前的PL20,返回統計走強3日中滿足EX2的天數,否則返回0 DTJZ10賦值:如果PL20<1日前的PL20,返回統計走弱3日中滿足EN2的天數,否則返回0 DTJD10賦值:如果PL20<1日前的PL20,返回統計走弱3日中滿足EX2的天數,否則返回0 當滿足條件EN1ANDDTJZ5=1時,在最低價*0.98位置書寫文字,COLORFFFF00 當滿足條件EX1ANDDTJD5=2時,在最高價*1.02位置書寫文字,COLORFF00FF 當滿足條件EN2ANDZTJZ5=1時,在最低價*0.98位置書寫文字,COLOR0000FF 當滿足條件EX1ANDPL10>1日前的PL10ANDZTJD5=1時,在最高價*1.02位置書寫文字,COLOR0000FF 當滿足條件EN1ANDPL10>1日前的PL10ANDZTJZ5=2時,在最低價*0.98位置書寫文字,COLOR0000FF 當滿足條件EX1ANDPL10>1日前的PL10ANDZTJZ5=2時,在最高價*1.02位置書寫文字,COLOR0000FF 當滿足條件EN1ANDPL10>1日前的PL10ANDZTJZ5=3時,在最低價*0.98位置書寫文字,COLOR0000FF 當滿足條件EX2ANDPL20>1日前的PL20ANDZTJD10=1時,在最高價*1.02位置書寫文字,COLOR0000FF 當滿足條件EN2ANDDTJZ10=1時,在最低價*0.93位置書寫文字,COLORFF00FF 當滿足條件EX2ANDDTJD10=2時,在最高價*1.05位置書寫文字,COLORFFFF00 當滿足條件EN3ANDZTJZ10=1時,在最低價*0.93位置書寫文字,COLOR0000FF 當滿足條件EX2ANDPL20>1日前的PL20ANDZTJD10=1時,在最高價*1.03位置書寫文字,線寬為3,COLOR00FFFF 當滿足條件EN2ANDPL20>1日前的PL20ANDZTJZ10=2時,在最低價*0.95位置書寫文字,線寬為3,COLOR00FFFF 當滿足條件EX2ANDPL20>1日前的PL20ANDZTJD10=2OR(ZTJD10=0ORZTJD10=2)ANDEX2時,在最高價*1.03位置書寫文字,線寬為3,COLOR00FFFF 當滿足條件EN2ANDPL20>1日前的PL20ANDZTJZ10=3時,在最低價*0.95位置書寫文字,線寬為3,COLOR00FFFF WLT11賦值:EN1 AND DTJZ5=1 WLT22賦值:EN2 AND ZTJZ5=1 WLT33賦值:WLT11 OR WLT22 WLT01賦值:EN2 AND DTJZ10=1 WLT02賦值:EN3 AND ZTJZ10=1 WLT03賦值:WLT01 OR WLT02 WLT賦值:WLT33 AND WLT03 當滿足條件WLT時,在最低價*0.86位置書寫文字,畫黃色 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

?來源:程序化99（ www.tumamayizhan.com ）

源碼：

?

HR:=HHV(HIGH,55);
HRY:=LLV(LOW,55);
HRY11:=HR*HRY;
HRY33:SQRT(HRY11),COLORGREEN,LINETHICK2;
IF(C>HRY33 AND HRY33 >=REF(HRY33 ,1), HRY33 ,DRAWNULL),LINETHICK2,COLORRED;
WLT1:=EMA(C,3);
WLT2:=EMA(C,5);
WLT3:=EMA(WLT2,5);
DRAWBAND(WLT1,RGB(255,255,0),WLT2,RGB(0,0,220));
X1:=(C+L+H)/3;
BB5:=ATAN(EMA(X1,7)-REF(EMA(X1,7),1))*3.1416*10;
EMA3:=EMA(C,3);
DRAWTEXT(FILTER(BB5>1 AND EMA(X1,7)>REF(EMA(X1,7),1),10),
LOW*0.99,'∠45'),COLORFFFFFF;
TT:=FILTER(BB5>1 AND EMA(X1,7)>REF(EMA(X1,7),1),10);
MM:=WLT1>REF(WLT1,1) AND REF(WLT1,1)<REF(WLT1,2) ;
GG1:=CROSS(WLT1,WLT2);
超買:=MA(C,10)*IF(CAPITAL=0,1.04,1.1),POINTDOT,COLORGREEN,LINETHICK2;
超賣:=MA(C,10)*IF(CAPITAL=0,0.95,0.9),POINTDOT,COLORRED,LINETHICK2;
TEND:EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),42),POINTDOT,COLORFF00FF,LINETHICK4;
DD:=TEND>REF(TEND,1) AND REF(TEND,1) >REF(TEND,2);
GG2:=CROSS(WLT1,TEND);
HRY1:=LLV(LOW,55);
HRY2:=HHV(HIGH,21);
GG3:=C<HRY2*0.8 AND C>HRY33;
JJ1:=C<HRY1*1.62;
TJ1:=GG1;
TJ2:=GG2 AND JJ1;
TJ3:=GG1 AND GG3 ;
XG:=TJ1 OR TJ3 ;
DRAWICON(XG,LOW*0.97,23);
STICKLINE(XG,C,O,4,0),COLOR009999;
STICKLINE(XG,C,O,3,0),COLOR00BBBB;
STICKLINE(XG,C,O,1.5,0),COLOR00DDDD;
STICKLINE(XG,C,O,0.3,0),COLOR00FFFF;
SAL1:=HIGH>超買;
SAL2:=C<O AND (O-C)/C>0.03;
QQ:= C<WLT2;
QQ1:=CROSS(WLT2,WLT1);
QQ3:=HIGH>HRY1*1.38;
SAL01:= SAL1 AND SAL2 AND QQ AND QQ3;
SAL02:=QQ3 AND QQ1;
SAL:=SAL01 OR SAL02;
DRAWICON(SAL,HIGH*1.03,15);
STICKLINE(SAL,C,O,4,0),COLOR009900;
STICKLINE(SAL,C,O,3,0),COLOR00BB00;
STICKLINE(SAL,C,O,1.5,0),COLOR00DD00;
STICKLINE(SAL,C,O,0.3,0),COLOR00FF00;
GET:ZIG(3,5),COLORFFFFFF;
PL5:=ZIG(3,5);
EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);
EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);
PL10:=ZIG(3,10);
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);
EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);
PL20:=ZIG(3,20);
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);
EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);
PL40:=ZIG(3,40);
走強1:=BARSLAST(PL5<REF(PL5,1));
走弱1:=BARSLAST(PL5>REF(PL5,1));
走強2:=BARSLAST(PL10<REF(PL10,1));
走弱2:=BARSLAST(PL10>REF(PL10,1));
走強3:=BARSLAST(PL20<REF(PL20,1));
走弱3:=BARSLAST(PL20>REF(PL20,1));
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走強2),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走強2),0);
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走強3),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走強3),0);
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);
DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'(A)'),COLORFFFF00;
DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'(B)'),COLORFF00FF;
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'(C)'),COLOR0000FF;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR0000FF;
DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'Ⅰ'),COLORFF00FF;
DRAWTEXT(EX2 AND DTJD10=2,H*1.05,'Ⅱ'),COLORFFFF00;
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'Ⅲ'),COLOR0000FF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.03,'①'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.95,'②'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2)
AND EX2,H*1.03,'③'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.95,'④'),LINETHICK3,COLOR00FFFF;
WLT11:=EN1 AND DTJZ5=1;
WLT22:=EN2 AND ZTJZ5=1;
WLT33:=WLT11 OR WLT22;
WLT01:=EN2 AND DTJZ10=1;
WLT02:=EN3 AND ZTJZ10=1;
WLT03:=WLT01 OR WLT02;
WLT:=WLT33 AND WLT03;
DRAWTEXT(WLT,LOW*0.86,'買底'),COLORYELLOW;=================================================================================================={五里頭金色短線優化}DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;




HR:=HHV(HIGH,55);
HRY:=LLV(LOW,55);
HRY11:=HR*HRY;
HRY33:SQRT(HRY11),COLORGREEN,LINETHICK2;
IF(C>HRY33 AND HRY33 >=REF(HRY33 ,1), HRY33 ,DRAWNULL),LINETHICK2,COLORRED;
WLT1:=EMA(C,3);
WLT2:=EMA(C,5);
WLT3:=EMA(WLT2,5);
DRAWBAND(WLT1,RGB(255,255,0),WLT2,RGB(0,0,220));
HP:=(HHV(CLOSE,10)-LLV(CLOSE,10))/CLOSE<0.10;
LB:=VOL/MA(VOL,5);
X1:=(C+L+H)/3;
BB5:=ATAN(EMA(X1,7)-REF(EMA(X1,7),1))*3.1416*10;
EMA3:=EMA(C,3);
DRAWTEXT(FILTER(BB5>1 AND EMA(X1,7)>REF(EMA(X1,7),1),10),
LOW*0.99,'∠45'),COLORFFFFFF;
TT:=FILTER(BB5>1 AND EMA(X1,7)>REF(EMA(X1,7),1),10);
MM:=WLT1>REF(WLT1,1) AND REF(WLT1,1)<REF(WLT1,2) ;
GG1:=CROSS(WLT1,WLT2);
TYP:= (HIGH + LOW + CLOSE)/3;
CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,5));
差值1:=ABS(REF(CCI1,1)-CCI1),LINETHICK0;
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));
差值2:=ABS(REF(CCI2,1)-CCI2),LINETHICK0;
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));
差值3:=ABS(REF(CCI3,1)-CCI3),LINETHICK0;
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));
差值4:=ABS(REF(CCI4,1)-CCI4),LINETHICK0;
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));
差值5:=ABS(REF(CCI5,1)-CCI5),LINETHICK0;
CCI:=(CCI1+CCI2+CCI3+CCI4+CCI5)/2,COLORRED,LINETHICK2;
WLT91:=HHV(CCI,13);
WLT92:=LLV(CCI,13)<-100;
WLT95:=COUNT(WLT92,13)>=3;
WLT93:=CCI>WLT91;
WLT96:=CROSS(CCI,100);
TJ91:=WLT95 AND WLT96;
JLP:=FILTER(TJ91,5);
超買:=MA(C,10)*IF(CAPITAL=0,1.04,1.1),POINTDOT,COLORGREEN,LINETHICK2;
超賣:=MA(C,10)*IF(CAPITAL=0,0.95,0.9),POINTDOT,COLORRED,LINETHICK2;
TEND:EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),42),POINTDOT,COLORFF00FF,LINETHICK4;
DD:=TEND>REF(TEND,1) AND REF(TEND,1) >REF(TEND,2);
GG2:=CROSS(WLT1,TEND);
HRY1:=LLV(LOW,55);
HRY2:=HHV(HIGH,21);
GG3:=C<HRY2*0.8 AND C>HRY33;
JJ1:=C<HRY1*1.62;
TJ1:=GG1;
TJ2:=GG2 AND JJ1;
TJ3:=GG1 AND GG3 ;
XG:=TJ1 OR TJ3 ;
XG2:=C<HRY2*0.86 OR LB>1;
XG1:=XG AND XG2 AND C>HRY33 AND JLP;
XG3:=XG AND C<HHV(HIGH,250)*0.3;
XG11:=XG1 OR XG3;
DRAWICON(XG11,LOW*0.97,23);
DRAWTEXT(XG1,LOW*0.95,'全'),COLORRED;
DRAWTEXT(XG1,LOW*0.93,'倉'),COLORRED;
STICKLINE(XG,C,O,4,0),COLOR009999;
STICKLINE(XG,C,O,3,0),COLOR00BBBB;
STICKLINE(XG,C,O,1.5,0),COLOR00DDDD;
STICKLINE(XG,C,O,0.3,0),COLOR00FFFF;
SAL1:=HIGH>超買;
SAL2:=C<O AND (O-C)/C>0.03;
QQ:= C<WLT2;
QQ1:=CROSS(WLT2,WLT1);
QQ3:=HIGH>HRY1*1.38;
SAL01:= SAL1 AND SAL2 AND QQ AND QQ3;
SAL02:=QQ3 AND QQ1;
SAL:=SAL01 OR SAL02;
DRAWICON(SAL,HIGH*1.03,15);
STICKLINE(SAL,C,O,4,0),COLOR009900;
STICKLINE(SAL,C,O,3,0),COLOR00BB00;
STICKLINE(SAL,C,O,1.5,0),COLOR00DD00;
STICKLINE(SAL,C,O,0.3,0),COLOR00FF00;
=================================================================================================={五里頭金色短線簡化}DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;




AAF:=LLV(LOW,34);
BBF:=MA(AAF,4);TYP := (HIGH + LOW + CLOSE)/3;
CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,5));
差值1:=ABS(REF(CCI1,1)-CCI1),LINETHICK0;
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));
差值2:=ABS(REF(CCI2,1)-CCI2),LINETHICK0;
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));
差值3:=ABS(REF(CCI3,1)-CCI3),LINETHICK0;
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));
差值4:=ABS(REF(CCI4,1)-CCI4),LINETHICK0;
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));
差值5:=ABS(REF(CCI5,1)-CCI5),LINETHICK0;CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;
AAA:=(3*C+H+L+O)/6;
VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)
+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;下跌:IF(VAR1=VAR6,VAR6, DRAWNULL),COLORGREEN;
TJ1:=CCI1>差值4;
立樁量:=FILTER(TJ1,0),NODRAW;
TJ2:=IF(BARSLAST(立樁量)=1 ,1,0);
成立1:=TJ2=1;
條件成立1:=FILTER(成立1,5);
TJ11:= CCI1<-差值4 ;
立樁量2:=FILTER(TJ11,0),NODRAW;
TJ22:=IF(BARSLAST(立樁量2)=1 AND CLOSE>REF(HIGH,1),1,
IF(BARSLAST(立樁量2)=2 AND CLOSE>REF(HIGH,2),1,
IF(BARSLAST(立樁量2)=3 AND CLOSE>REF(HIGH,3),1,0)));
TJ:=IF(BARSLAST(立樁量2)=1 AND CLOSE>REF(LOW,1),1,0);
成立2:=TJ=1;
條件成立2:=FILTER(成立2,5);
TJ111:=(ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5))
OR (VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1);
立樁量3:=FILTER(TJ111,5);
TJ3:=IF(BARSLAST(立樁量3)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立樁量3)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立樁量3)=3 AND CLOSE>REF(LOW,3),1,0)));
成立:=TJ3=1;
條件成立:=FILTER(成立,5);
DRAWICON(條件成立 AND 下跌!= VAR6{ AND BB13>0},L*0.97,23);
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWICON(CROSS(FF,MA15),LOW*0.97,23);
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.01),'R背'),COLOR00FF00;
X1:=(C+L+H)/3;
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;
EMA8:=EMA(C,8);
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'∠'),COLORWHITE;
超買:MA(C,10)*IF(CAPITAL=0,1.04,1.1),POINTDOT,COLORGREEN,LINETHICK2;
超賣:MA(C,10)*IF(CAPITAL=0,0.95,0.9),POINTDOT,COLORRED,LINETHICK2;QQ:= C<3;
MM:=3>REF(3,1) AND REF(3,1)<REF(3,2) ;
V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
V2:=(1-7/100)*(DMA(CLOSE,V1));
V3:=(1+7/100)*(DMA(CLOSE,V1));
V5:=MA((LOW+HIGH+CLOSE)/3,5);VAR01:=CLOSE=HHV(C,4) AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3))
OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4) AND
REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND
C>=REF(C,1) AND C>=REF(C,2);
{收盤價=4日內收盤價的最高值 AND 昨收>=2日前的收盤價}
VAR02:=CLOSE=HHV(C,4) AND REF(C,1)=LLV(C,4);
{收盤價=4日內收盤價的最高值 AND 昨收=4日內收盤價的最低值}
VAR03:=CLOSE=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR
REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND
REF(C,1)=HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND
C<REF(C,1) AND C<REF(C,2);
{收盤價=4日內收盤價的最低值 AND (昨收<2日前的收盤價}
VAR04:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND
REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);
{昨收=4日內收盤價的最低值 AND 收盤價>=2日前的收盤價}
VAR05:=REF(C,1)=HHV(C,4) AND C<REF(C,2) OR (REF(C,2)=HHV(C,4) AND
REF(C,1)>REF(C,3) OR REF(C,3)=HHV(C,4) AND REF(C,1)>REF(C,2)) AND
REF(C,2)>=REF(C,4) AND C<REF(C,1);
{昨收=4日內收盤價的最高值 AND 收盤價<2日前的收盤價}
VAR06:=V5>REF(V5,1) AND REF(V5,1)<REF(V5,2);
{今日V5向上形成拐點}
VAR07:=LOW<HHV(V5,13) AND HIGH>HHV(V5,13) AND CLOSE>REF(C,1) AND CLOSE>OPEN;
VAR08:=VAR07 AND COUNT(VAR06,2);
VAR09:=100*EMA(EMA(C-REF(C,1),6),6)/EMA(EMA(ABS(C-REF(C,1)),6),6);
VAR10:=EMA(MA(C,13),13);
VAR11:=FILTER((LLV(VAR09,2)=LLV(VAR09,7) AND COUNT(VAR09<0,2) AND
CROSS(VAR09,MA(VAR09,2)))=1,5);
VAR12:=FILTER((HHV(VAR09,2)=HHV(VAR09,7) AND COUNT(VAR09>50,2) AND
CROSS(MA(VAR09,2),VAR09))=1,1);
VAR13:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;
VAR14:=FILTER(((CROSS(VAR13,0) OR CROSS(C,VAR10)) AND VAR11)=1,3);
VAR15:=MA(C,18)>=REF(MA(C,18),3) AND CROSS(C,MA(C,18));
VAR16:=VAR08 AND NOT(REF(VAR08,1));
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
金叉:=CROSS(J,D);
死叉:=CROSS(D,J);
買1:=(VAR14 OR VAR15) AND VAR11;
買2:=(VAR14 OR VAR15) AND VAR4;
買3:=(VAR14 OR VAR15) AND VAR2;
買4:=(VAR2 AND VAR11) OR (VAR4 AND VAR11);
買5:=(金叉 AND VAR04) OR (金叉 AND VAR02) OR (金叉 AND VAR11);
TTJ:=CROSS(FF,MA15);
TTJ0:=VAR16;
TTJ1:=買1 OR 買2 OR 買3 OR 買4 OR 買5 AND MM;
XG0:=TTJ AND TTJ0;
XG1:=TTJ AND TTJ1;
XG:=XG0 OR XG1;
DRAWTEXT(XG,LOW*0.93,'全'),COLORRED;
DRAWTEXT(XG,LOW*0.90,'倉'),COLORRED;GET:ZIG(3,3),COLORYELLOW;
PL5:=ZIG(3,5);
EN1:=ZIG(3,5)>REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)<=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)<=REF(ZIG(3,5),3);
EX1:=ZIG(3,5)<REF(ZIG(3,5),1) AND REF(ZIG(3,5),1)>=REF(ZIG(3,5),2) AND REF(ZIG(3,5),2)>=REF(ZIG(3,5),3);
PL10:=ZIG(3,10);
EN2:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)<=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)<=REF(ZIG(3,10),3);
EX2:=ZIG(3,10)<REF(ZIG(3,10),1) AND REF(ZIG(3,10),1)>=REF(ZIG(3,10),2) AND REF(ZIG(3,10),2)>=REF(ZIG(3,10),3);
PL20:=ZIG(3,20);
EN3:=ZIG(3,20)>REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)<=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)<=REF(ZIG(3,20),3);
EX3:=ZIG(3,20)<REF(ZIG(3,20),1) AND REF(ZIG(3,20),1)>=REF(ZIG(3,20),2) AND REF(ZIG(3,20),2)>=REF(ZIG(3,20),3);
PL40:=ZIG(3,40);走強1:=BARSLAST(PL5<REF(PL5,1));
走弱1:=BARSLAST(PL5>REF(PL5,1));
走強2:=BARSLAST(PL10<REF(PL10,1));
走弱2:=BARSLAST(PL10>REF(PL10,1));
走強3:=BARSLAST(PL20<REF(PL20,1));
走弱3:=BARSLAST(PL20>REF(PL20,1));
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走強2),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走強2),0);
DTJZ5:=IF(PL10<REF(PL10,1),COUNT(EN1,走弱2),0);
DTJD5:=IF(PL10<REF(PL10,1),COUNT(EX1,走弱2),0);
ZTJZ10:=IF(PL20>REF(PL20,1),COUNT(EN2,走強3),0);
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走強3),0);
DTJZ10:=IF(PL20<REF(PL20,1),COUNT(EN2,走弱3),0);
DTJD10:=IF(PL20<REF(PL20,1),COUNT(EX2,走弱3),0);
DRAWTEXT(EN1 AND DTJZ5=1,L*0.98,'(A)'),COLORFFFF00;
DRAWTEXT(EX1 AND DTJD5=2,H*1.02,'(B)'),COLORFF00FF;
DRAWTEXT(EN2 AND ZTJZ5=1,L*0.98,'(C)'),COLOR0000FF;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJD5=1,H*1.02,'⑴'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=2,L*0.98,'⑵'),COLOR0000FF;
DRAWTEXT(EX1 AND PL10>REF(PL10,1) AND ZTJZ5=2,H*1.02,'⑶'),COLOR0000FF;
DRAWTEXT(EN1 AND PL10>REF(PL10,1) AND ZTJZ5=3,L*0.98,'⑷'),COLOR0000FF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.02,'⑸'),COLOR0000FF;
DRAWTEXT(EN2 AND DTJZ10=1,L*0.93,'Ⅰ'),COLORFF00FF;
DRAWTEXT(EX2 AND DTJD10=2,H*1.05,'Ⅱ'),COLORFFFF00;
DRAWTEXT(EN3 AND ZTJZ10=1,L*0.93,'Ⅲ'),COLOR0000FF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.03,'①'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.95,'②'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2)
AND EX2,H*1.03,'③'),LINETHICK3,COLOR00FFFF;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=3,L*0.95,'④'),LINETHICK3,COLOR00FFFF;
WLT1:=EN1 AND DTJZ5=1;
WLT2:=EN2 AND ZTJZ5=1;
WLT3:=WLT1 OR WLT2;
WLT01:=EN2 AND DTJZ10=1;
WLT02:=EN3 AND ZTJZ10=1;
WLT03:=WLT01 OR WLT02;
WLT:=WLT3 AND WLT03;
DRAWTEXT(WLT,LOW*0.86,'買底');DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.tumamayizhan.com '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?