通达信启富主图+启富主力趋势套装指标公式源码
通达信启富主图+启富主力趋势套装指标公式源码
启富主力趋势 启富主图】（含：启富主力趋势副图，启富主图，B点选股，S点选股
{主力趋势}副图源码
DRAWGBK(C>0, RGB(0,10,10),RGB(48,0,0),0,'11',0);
AA1:=(CLOSE-LLV(LOW,43))/(HHV(HIGH,43)-LLV(LOW,43))*100;
AA2:=SMA(AA1,2,1);
主力趋势:SMA(AA2,2,1),LINETHICK3,COLORFFCC66;
压力位:100,COLORRED;
支撑位:0,COLORGREEN;
中界:50,COLORFFAA00;
DRAWTEXT(ISLASTBAR,中界,'中界'),COLORFFAA00;
A:92,COLOR3399FF;
B:8,COLOR3399FF;
买:STICKLINE(CROSS(主力趋势,4),0,50,0,0),COLORRED;
DRAWICON(CROSS(主力趋势,4),58,1);
DRAWICON(CROSS(主力趋势,4),70,26);
卖:STICKLINE(CROSS(96,主力趋势),100,50,0,0),COLORGREEN;
DRAWICON(CROSS(96,主力趋势),40,2);
DRAWICON(CROSS(96,主力趋势),30,15);
IF(主力趋势>REF(主力趋势,1),主力趋势,DRAWNULL),COLORMAGENTA,LINETHICK3;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=2*(DIF-DEA);
MACD空头A:=MACD>0 AND MACD<REF(MACD,1) AND REF(MACD,1)>=REF(MACD,2);
均线空头A:=C<REF(C,1) AND REF(C ,1)>=REF(C,2) AND REF(C,2)>=REF(C,3);
趋势空头A:=主力趋势>89 AND (主力趋势<=REF(主力趋势,1));
空头买点:=趋势空头A AND MACD空头A AND 均线空头A;
MACD多头B:=MACD<0 AND MACD>REF(MACD,1) AND REF(MACD,1)<=REF(MACD,2);
均线多头B:=C>=REF(C,1) AND REF(C ,1)<=REF(C,2) AND REF(C,2)<=REF(C,3);
趋势多头B:=主力趋势<11 AND (主力趋势>=REF(主力趋势,1));
多头买点:=趋势多头B AND MACD多头B AND 均线多头B;
DRAWICON(多头买点,30,1);
DRAWICON(多头买点,40,7);
STICKLINE(多头买点,0,20,0.01,0),COLORRED;
DRAWICON(空头买点,70,2);
DRAWICON(空头买点,60,8);
STICKLINE(空头买点,100,80,0.01,0),COLORGREEN;
启富主图源码
M60:=MA(C,60);
M120:=MA(C,120);
DRAWBAND(MA(CLOSE,5),RGB(160,0,0),MA(CLOSE,10),RGB(0,168,0));
DRAWBAND(MA(CLOSE,5),RGB(55,0,0),MA(CLOSE,20),RGB(0,91,0));
DRAWBAND(MA(CLOSE,60),RGB(155,50,50),MA(CLOSE,120),RGB(83,123,68));
DRAWKLINE(H,O,L,C);
变线:=EMA(MA(CLOSE,30),5),LINETHICK0;
STICKLINE(C>=变线 AND C>=O,H,L,0,0),COLORRED;
STICKLINE(C>=变线 AND C>=O,C,O,2.7,1),COLORRED;
STICKLINE(C>变线 AND C<=O,H,L,0,1),COLORCYAN;STICKLINE(C>变线 AND C<=O,C,O,3,0),COLORCYAN;
STICKLINE(C<变线 AND C<=O,H,L,0,1),COLORCYAN;STICKLINE(C<变线 AND C<=O,C,O,3,0),COLORCYAN;
PM:MA(C,5),COLORGRAY,LINETHICK1;
IF(PM<REF(PM,1),PM,DRAWNULL),COLORGRAY,LINETHICK0;
IF(PM>=REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2;
IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2;
A:=MA(CLOSE,12)+ABS(MA(CLOSE,12)-REF(MA(CLOSE,12),1));
B:=MA(CLOSE,12)+MA(CLOSE,12)-REF(MA(CLOSE,12),1);
分水岭:=IF(MA(CLOSE,12)<B,B,MA(CLOSE,12));
操作线:=分水岭-(EMA(C,3)-分水岭);
AA:=CROSS(分水岭,操作线);
STICKLINE(AA,C,O,3,0),COLOR0000AA;
STICKLINE(AA,C,O,2,0),COLOR0033CC;
STICKLINE(AA,C,O,1,0),COLOR0055EE;
STICKLINE(AA,C,O,0.3,0),COLOR0099FF;
STICKLINE(AA,H,L,0,1),COLOR0099FF;
RR:=CROSS((MA(VOL,5)),(MA(VOL,10))) AND MA(C,2)>=MA(C,4); {AND VOL>=REF(VOL,1)}
STICKLINE(RR,C,O,3,0),COLOR0000AA;
STICKLINE(RR,C,O,2,0),COLOR0033CC;
STICKLINE(RR,C,O,1,0),COLOR0055EE;
STICKLINE(RR,C,O,0.3,0),COLOR0099EE;
STICKLINE(RR,H,L,0,1),COLOR0099FF;
MA5:MA(CLOSE,5),NODRAW;
MA10:MA(CLOSE,10),COLORCC66FF;
MA20:MA(CLOSE,20),COLORFFCC66,LINETHICK2;
MA60:MA(CLOSE,60),COLOR00FF99,LINETHICK2;
MA120:MA(C,120),COLORGRAY;
MA250:MA(CLOSE,250),COLORBLUE;
DRAWICON(CROSS(MA60,MA120),MA60,25); {60日上穿120日做记号}
DRAWICON(CROSS(MA120,MA60),MA60,15); {120日下穿60日做记号}
STICKLINE(C<0.90*REF(C,1),C,O,3,0),COLORGREEN;
STICKLINE(C>1.099*REF(C,1),C,O,3,0),COLORYELLOW;
AY2:=EMA(CLOSE,12)-EMA(CLOSE,26);
AZ2:=EMA(AY2,9);
LT2:=(AY2-AZ2);
L211:=IF(LT2,LLV(L,21),DRAWNULL),COLOR217158,CIRCLEDOT;
ZGD:=HHV(H,80)*0.99;
ZGD2:=CONST(ZGD);
ZDD:=LLV(L211,80);
ZDD2:=CONST(ZDD);
YYA4:=MA(CLOSE,20);
YYA5:=(CLOSE > MA(CLOSE,5));
YYA6:=(MA(CLOSE,5) > MA(CLOSE,10));
YYA7:=(CLOSE > MA(CLOSE,10));
YYA8:=(MA(CLOSE,5) > MA(CLOSE,20));
YYA9:=(CLOSE > MA(CLOSE,20));
YYA10:=REF(YYA4,1);
YYA11:=(YYA4 > YYA10);
YYAVX:=(((((IF(YYA5,10,(0 - 10)) + IF(YYA6,10,(0 - 10))) + IF(YYA7,10,(0 - 10))) + IF(YYA8,10,(0 - 10))) + IF(YYA9,10,(0 - 10))) + IF(YYA11,10,(0 - 10)));
DSLX:=(CLOSE / INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
YYV1:=MA(VOL,5);
YYV2:=MA(VOL,10);
J1:=CONST(IF( YYAVX > 0,200,100));
J2:=CONST(IF( YYAVX > 0,00,100));
J3:=CONST(IF( YYAVX > 0,100,100));
ZGD3:=ZGD2;
ZDD3:=ZDD2;
ZGD4:=ZGD2;
情况1:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0)),NODRAW;
情况2:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情况3:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 > YYV2)) AND (DSLX < DSLX1)),1,0));
情况4:=CONST(IF(((CROSS(YYAVX,1) AND (YYV1 <= YYV2)) AND (DSLX < DSLX1)),1,0));
情况5:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
情况6:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情况7:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
情况8:=CONST(IF(((CROSS(1,YYAVX) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
情况9:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
情况10:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情况11:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0)),NODRAW;
情况12:=CONST(IF(((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
情况13:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX >= DSLX1)),1,0));
情况14:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX >= DSLX1)),1,0));
情况15:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)) AND (DSLX < DSLX1)),1,0));
情况16:=CONST(IF(((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)) AND (DSLX < DSLX1)),1,0));
大盘1:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 >= YYV2)),1,0));
大盘2:=CONST(IF((CROSS(YYAVX,1) AND (YYV1 < YYV2)),1,0));
大盘3:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 >= YYV2)),1,0));
大盘4:=CONST(IF((CROSS(1,YYAVX) AND (YYV1 < YYV2)),1,0));
大盘5:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 >= YYV2)),1,0));
大盘6:=CONST(IF((((YYAVX >= 1) AND (REF(YYAVX,1) > 0)) AND (YYV1 < YYV2)),1,0));
大盘7:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 >= YYV2)),1,0));
大盘8:=CONST(IF((((YYAVX < 1) AND (REF(YYAVX,1) < 0)) AND (YYV1 < YYV2)),1,0));
TS1:=IF(情况1=1,0.06+0.06,0.06);
TS2:=IF(情况2=1,TS1+0.06,TS1);
TS3:=IF(情况3=1,TS2+0.06,TS2);
TS4:=IF(情况4=1,TS3+0.06,TS3);
TS5:=IF(情况5=1,TS4+0.06,TS4);
TS6:=IF(情况6=1,TS5+0.06,TS5);
TS7:=IF(情况7=1,TS6+0.06,TS6);
TS8:=IF(情况8=1,TS7+0.06,TS7);
TS9:=IF(情况9=1,TS8+0.06,TS8);
TS10:=IF(情况10=1,TS9+0.06,TS9);
TS11:=IF(情况11=1,TS10+0.06,TS10);
TS12:=IF(情况12=1,TS11+0.06,TS11);
TS13:=IF(情况13=1,TS12+0.06,TS12);
TS14:=IF(情况14=1,TS13+0.06,TS13);
TS15:=IF(情况15=1,TS14+0.06,TS14);
TS16:=IF(情况16=1,TS15+0.06,TS15);
DRAWTEXT_FIX(情况1=1 ,0.005,TS1,0,'【智能解盘】 量能理想，明显走强，中线参与，仓位在2/3左右'),COLORFF00FF;
DRAWTEXT_FIX(情况2=1 ,0.005,TS2,0,'【智能解盘】 势趋强，量能不足，短线进场，仓位在1/2左右'),COLORFF00FF;
DRAWTEXT_FIX(情况3=1 ,0.005,TS3,0,'【智能解盘】 量价良好，并没有明显走强，短线进场，仓位1/2左右。'),COLORFF00FF;
DRAWTEXT_FIX(情况4=1 ,0.005,TS4,0,'【智能解盘】 形态尚可，量能不足，未完全走强，短线参与，仓位1/3左右。'),COLORFF00FF;
DRAWTEXT_FIX(情况5=1 ,0.005,TS5,0,'【智能解盘】 形态变坏，走势尚可，重仓减大半，清仓者观望。'),COLOR00FFFF;
DRAWTEXT_FIX(情况6=1 ,0.005,TS6,0,'【智能解盘】 随大盘一起下跌，明显缩量走势，考虑大盘风险，减持或清仓。'),COLOR00FFFF;
DRAWTEXT_FIX(情况7=1 ,0.005,TS7,0,'【智能解盘】 该股放量下跌，走势明显偏弱，离场观望。'),COLORFFFFFF;
DRAWTEXT_FIX(情况8=1 ,0.005,TS8,0,'【智能解盘】 该股缩量下跌，走势偏弱，离场观望。'),COLORFFFF00;
DRAWTEXT_FIX(情况9=1 ,0.005,TS9,0,'【智能解盘】 该股形态良好，强势明显，量能充足，可以继续持有。'),COLOR00FFFF;
DRAWTEXT_FIX(情况10=1,0.005,TS10,0,'【智能解盘】 该股上行趋势不变，强势依然，但量能开始转弱，注意风险'),COLOR00FFFF;
DRAWTEXT_FIX(情况11=1,0.005,TS11,0,'【智能解盘】 该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。'),COLORFFFFFF;
DRAWTEXT_FIX(情况12=1,0.005,TS12,0,'【智能解盘】 该股走势趋弱，量能不足，减持大部分筹码'),COLORFFFF00;
DRAWTEXT_FIX(情况13=1,0.005,TS13,0,'【智能解盘】 该股形态不佳，注意成交量的变化，但目前不适合参与。'),COLORFFFF00;
DRAWTEXT_FIX(情况14=1,0.005,TS14,0,'【智能解盘】 该股趋势不明，股价偏弱，注意量能变化，目前不宜参与。'),COLORFFFF00;
DRAWTEXT_FIX(情况15=1,0.005,TS15,0,'【智能解盘】 有走强迹象，但量能不足，趋势不明，不适合操作'),COLORFFFF00;
DRAWTEXT_FIX(情况16=1,0.005,TS16,0,'【智能解盘】 该股走势太弱，没有参与价值。'),COLORFFFFFF;
{板块地区概念}
所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK)));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,所属板块),COLOR00C0C0;
{均线标记}
DRAWTEXT(ISLASTBAR,MA5,'MA5'),COLORRED;
DRAWTEXT(ISLASTBAR,MA10,'MA10'),COLORCC66FF;
DRAWTEXT(ISLASTBAR,MA20,'MA20'),COLORFFCC66;
DRAWTEXT(ISLASTBAR,MA60,'MA60'),COLOR00FF99;
DRAWTEXT(ISLASTBAR,MA120,'MA120'),COLORGRAY;
DRAWTEXT(ISLASTBAR,MA250,'MA250'),COLORBLUE;
