|
通达信优化组合主图，可预测明天无未来 源码
- {优化组合主图}
- EMA13:EMA(C,13),COLORWHITE,LINETHICK2;EMA34:EMA(C,34),COLORYELLOW;
- EMA55:EMA(C,55),COLORFF00FF;EMA120:EMA(C,120),COLORFFCC66;
- AR1:=EMA55>EMA34
- AND
- EMA34>EMA13;AR2:=BARSLAST((C-EMA13)/EMA13*100<-6);
- AR3:=EMA13>=REF(EMA13,2);AR4:=COUNT(CROSS(C,EMA13),AR2)=1;
- AR5:=AR1
- AND AR2 AND AR3 AND AR4;AR6:=AR5 AND
- FILTER(AR5,10);
- DRAWTEXT(AR6,L-0.09,'红杏出墙'),COLORYELLOW;
- BR1:=COUNT(BETWEEN((C-REF(C,1))/REF(C,1)*100,0,5)
- ,5)=5;
- BR2:=ABS((EMA13-EMA34)+(EMA34-EMA55))/C<0.2;
- BR3:=C>EMA55 AND
- (REF(C,1)<REF(EMA55,1) OR REF(C,2)<REF(EMA55,2) OR
- REF(C,3)<REF(EMA55,3) OR REF(C,4)<REF(EMA55,4) OR
- REF
- (C,5)<REF(EMA55,5));BR4:=BR1 AND BR2 AND BR3;
- DRAWTEXT(BR4 AND
- FILTER(BR4,10),L-0.09,'蚂蚁上树'),COLOR00C5FF;
- STICKLINE(BR4 AND
- FILTER(BR4,10),H,L,0.5,1),COLOR00C5FF;
- CR1:=(C-REF(C,1))/REF(C,1)*100>0.5;CR2:=V>MA(V,5)*0.6;
- CR3:=COUNT(CROSS(EMA13,EMA55),3)=1;CR4:=ABS(EMA34-EMA55)/EMA55<0.03;
- CR5:=EMA55<=EMA120
- AND EMA55>=REF(EMA55,1);
- CR6:=FILTER(CR1 AND CR2 AND CR3 AND CR4 AND
- CR5,2);
- DRAWTEXT(CR6,L-0.09,'红衣侠女'),COLORF00FF0;
- DR1:=EMA13>EMA34 AND
- EMA34<EMA55;DR2:=BARSLAST(CROSS(C,EMA55)
- );DR3:=H=HHV(H,DR2);
- DR4:=BARSLAST(DR3);
- DR5:=COUNT(O>C AND
- C<REF(C,1) AND C>EMA55 AND
- BETWEEN((C-EMA55)/EMA55,0,0.02),DR4)=1;
- DR6:=C>REF(C,1) ;DR7:= DR1 AND DR5
- AND DR6 ;DR8:=DR7 AND FILTER(DR7
- ,10);
- DRAWTEXT(DR8,L-0.09,'黑客点击'),COLORD6BA63;
- STICKLINE(DR8,O,C,6,1),LINETHICK2,COLORD6BA63;
- ER:=BARSLAST(REF(CROSS(EMA55,EMA34),1))
- AND
- CROSS(EMA34,EMA55);
- DRAWTEXT(ER,L-0.09,'均线互换'),COLOR0099FF;
- FR:=BARSLAST(REF(CROSS(EMA34,EMA13),1))
- AND
- CROSS(EMA13,EMA34);
- DRAWTEXT(FR,L-0.09,'梅开二度'),COLORWHITE;STICKLINE(FR,H,L,0.5,1),COLORWHITE;
- GR1:=BARSLAST(BETWEEN("BIAS.BIAS2"(6,13,24),0,5)
- );
- GR2:=EMA13>EMA34 AND EMA34>EMA55 AND
- EMA13>REF(EMA13,1);
- GR3:=COUNT("BIAS.BIAS2"(6,13,24)>10 AND
- H=HHV(H,GR1),GR1);GR4:=H=HHV(H,GR1);
- GR5:="MACD.MACD"(12,26,9)<REF("MACD.MACD"(12,26,9),1);
- GR6:=GR2
- AND GR3 AND GR4;GR7:=GR2 AND GR3 AND GR4 AND GR5;
- DRAWTEXT(GR6 AND
- GR7,H+0.13,'见好就收!'),COLOR00FF00;
- STICKLINE(GR6 AND
- GR7,H,H+0.09,4,0),COLOR00FF00;
- HR2:=EMA13>=REF(EMA13,3) AND
- EMA34>=REF(EMA34,1) AND EMA55>=REF(EMA55,1) AND CROSS(C,EMA13) AND
- CROSS(C,EMA34) AND CROSS
- (C,EMA55) AND CROSS(C,EMA120);
- DRAWTEXT(HR2 AND
- FILTER(HR2,10),L-0.09,'三线推进'),COLORFFC8FF;
- P1:=5;
- P2:=10;
- P3:=20;
- P4:=30;
- P5:=60;
- P6:=120;
- P7:=240;
- P8:=340;
- N:=4;
- WX:=MA(CLOSE,0);
- M1:=MA(CLOSE,P1);
- M2:=(MA(CLOSE,P2) * IF((N < 2),WX,1));
- M3:=(MA(CLOSE,P3) * IF((N < 3),WX,1));
- M4:=(MA(CLOSE,P4) * IF((N < 4),WX,1));
- M5:=(MA(CLOSE,P5) * IF((N < 5),WX,1));
- M6:=(MA(CLOSE,P6) * IF((N < 6),WX,1));
- M7:=(MA(CLOSE,P7) * IF((N < 7),WX,1));
- M8:=(MA(CLOSE,P8) * IF((N < 8),WX,1));
- C1:=REF(CLOSE,1);
- C2:=HHV(C1,2);
- C3:=LLV(C1,1);
- ET:=HHV(C1,2);
- ET1:=REF(ET,1);
- XB:=LLV(C1,1);
- XB1:=REF(XB,1);
- M:=BARSLAST(((CLOSE < XB) AND (C1 >= XB1)));
- M11:=REF(M,1);
- N9:=BARSLAST(((CLOSE > ET) AND (C1 <= ET1)));
- N1:=REF(N9,1);
- M21:=(BARSLAST((((M - N9) > 0) AND (M11 <= N1))) + 1);
- N2:=(BARSLAST((((N9 - M) > 0) AND (N1 <= M11))) + 1);
- ET2:=HHV(ET,M21);
- XB2:=LLV(XB,N2);
- A:=IF((((M - N9) > 0) AND (M11 <= N1)),1,IF((((N9 - M) > 0) AND (N1 <= M11)),0,2));
- H1:=IF(((M - N9) > 0),CLOSE,ET2);
- H2:=IF((A = 1),CLOSE,C2);
- H3:=IF(((M - N9) < 0),CLOSE,XB2);
- H4:=IF((A = 1),CLOSE,XB2);
- H5:=IF((((M - N9) > 0) OR (A = 1)),CLOSE,H3);
- H6:=REF(H5,1);
- H7:=REF(H5,2);
- H8:=(H5 > H6);
- H9:=(((H4 = REF(H4,1)) AND (REF(H4,1) < REF(H4,2))) AND (H5 > REF(H5,2)));
- H10:=(((H2 = REF(H2,1)) AND (H4 = REF(H4,1))) AND (H5 = REF(H5,2)));
- W:=((H8 OR H9) OR H10);
- T9:=((H5 < H6) AND (H5 < REF(H5,2)));
- T10:=((H4 = REF(H4,1)) AND (H5 < REF(H5,2)));
- T11:=((H3 > REF(H3,1)) AND (H5 < REF(H5,1)));
- T12:=((H5 = REF(H5,1)) AND (H3 = H4));
- T13:=((H2 = REF(H2,1)) AND (H2 = H5));
- TW:=((((T9 OR T10) OR T11) OR T12) OR T13);
- PK:=((AMOUNT * (((OPEN + CLOSE) + HIGH) + LOW)) / 4);
- PK1:=IF((VOL > 0),(PK / AMOUNT),((((OPEN + CLOSE) + HIGH) + LOW) / 4));
- BBP:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
-
-
- DRAWTEXT((ISLASTBAR AND (BBP >= 96.5)),(H5 * 1.022),'明见\N 短高\N 龙头\N 除外'),COLORRED;
- DRAWTEXT((ISLASTBAR AND (BBP < 1)),((H5 + H4) / 1.96),'明见\N 短低\N 跌停\N 除外'),COLORGREEN;
- DRAWTEXT(((ISLASTBAR AND W) AND (BBP < 96.5)),(H5 * 1.022),'明日\N 看涨'),COLORYELLOW;
- DRAWTEXT(((ISLASTBAR AND TW) AND (BBP > 1)),((H5 + H4) / 2),'明日\N 看跌'),COLORGREEN;
-
- 高:=MA(REF(HIGH,1)/REF(CLOSE,2),27)*REF(CLOSE,1),LINETHICK2;
- 低:=MA(REF(LOW,1)/REF(CLOSE,2),27)*REF(CLOSE,1),LINETHICK2;
- 预测高点:高,COLORRED;
- 预测低点:低,COLORGREEN;
653288267.jpg
|
