通达信抄底买和启动买点主副图指标 资金抢筹即将暴涨选 源码
通达信抄底买和启动买点主副图指标 两个买点一个指标搞定 源码
{启动点买主图源码如下}
VAR1:=CONST(LLV((IF(C<300,(AMOUNT/V/100),EMA(C,1))),2));
VAR2:=CONST(LLV((IF(C<300,(AMOUNT/V/100),EMA(C,1))),4));
VAR3:=EMA(MA(((C-MA(C,13))*100),7),1);
VAR4:=(CROSS(VAR3,EMA(VAR3,7)) AND VAR3<-0.1);
今重心:LLV((IF(C<300,(AMOUNT/V/100),EMA(C,1))),2),COLORGREEN,NODRAW;
DRAWBAND(SMA(C,6.5,1),RGB(255,97,0),SMA(C,13.5,1),RGB(0,128,0));
长期趋势:EMA(EMA(C,34),13),COLORRED,LINETHICK3;
VAR5:=REF(MA(C,5),1)<REF(MA(C,10),1)AND MA(C,10)>REF(MA(C,10),1);
VAR6:=C>MA(C,10) OR H>=MA(C,10);
VAR7:=C>O AND REF(C,1)<MA(C,10) AND VAR6 AND VAR5 AND MA(C,21)<MA(C,10);
VAR8:=VAR7 AND (CROSS(C,长期趋势) OR CROSS(L,长期趋势) OR CROSS(H,长期趋势));
VAR9:=((C>REF(C,1)) AND (C>REF(C,2)));
VAR10:=((REF(VAR9,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR11:=((REF(VAR10,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR12:=((REF(VAR11,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR13:=((REF(VAR12,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR14:=((REF(VAR13,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR15:=((REF(VAR14,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR16:=((REF(VAR15,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR17:=((REF(VAR16,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR18:=((REF(VAR17,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR19:=((REF(VAR18,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR20:=((REF(VAR19,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR21:=((((VAR9 OR VAR10) OR VAR11) OR VAR12) OR VAR13);
VAR22:=((((VAR21 OR VAR14) OR VAR15) OR VAR16) OR VAR17);
VAR23:=((C<REF(C,1)) AND (C<REF(C,2)));
VAR24:=((REF(VAR23,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR25:=((REF(VAR24,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR26:=((REF(VAR25,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR27:=((REF(VAR26,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR28:=((REF(VAR27,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR29:=((REF(VAR28,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR30:=((REF(VAR29,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR31:=((REF(VAR30,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR32:=((REF(VAR31,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR33:=((REF(VAR32,1) AND (C<=REF(C,1))) AND (C>=REF(C,2)));
VAR34:=((REF(VAR33,1) AND (C>=REF(C,1))) AND (C<=REF(C,2)));
VAR35:=((((VAR23 OR VAR24) OR VAR25) OR VAR26) OR VAR27);
VAR36:=((((VAR35 OR VAR28) OR VAR29) OR VAR30) OR VAR31);
VAR37:=(REF((((VAR36 OR VAR32) OR VAR33) OR VAR34),1) AND VAR9);
VAR38:=(REF((((VAR22 OR VAR18) OR VAR19) OR VAR20),1) AND VAR23);
VAR39:=CROSS(EMA(C,5),EMA(C,30))AND CROSS(EMA(C,10),EMA(C,20));
VAR40:=HHV((EMA(((((O+L)+H)+C)/4),5)),60);
VAR41:=(((C-LLV(L,13))/(HHV(H,13)-LLV(L,13)))*100);
VAR42:=EMA((((((3*C)+H)+L)+O)/6),10);
VAR43:=((3*SMA(VAR41,3,1))-(2*SMA(SMA(VAR41,3,1),3,1)));
VAR44:=(((C-LLV(L,55))/(HHV(H,55)-LLV(L,55)))*100);
VAR45:=((3*SMA(VAR44,3,1))-(2*SMA(SMA(VAR44,3,1),3,1)));
VAR46:=IF(CROSS(VAR45,VAR43),H,REF(H,BARSLAST(CROSS(VAR45,VAR43))));
VAR47:=CROSS(C,MA(C,20)) AND H<VAR46 AND O<MA(C,20) AND H<VAR40;
VAR48:=VAR47 AND (SMA(H,21,2)*1.05)-REF((SMA(H,21,2)*1.05),1)>0;
VAR49:=VAR48 AND VAR42-REF(VAR42,1)>0 AND VAR43<63 AND MA(C,20)-REF(MA(C,20),1)>0;
VAR58:=IF(ISLASTBAR,VAR46,DRAWNULL);
VAR59:=IF(ISLASTBAR,LLV(H,30),DRAWNULL);
买入:IF(VAR4,L*0.98,DRAWNULL),COLORMAGENTA,LINETHICK9,CROSSDOT;
DRAWTEXT(CROSS(VAR3,EMA(VAR3,7)) AND VAR3<-0.1,买入,' 启动点 买'),COLORYELLOW;
DRAWTEXT(VAR8,L*0.98,'●'),COLORGREEN;
STICKLINE((((VAR22 OR VAR18) OR VAR19) OR VAR20),C,O,3,0),COLOR000099;
STICKLINE((((VAR22 OR VAR18) OR VAR19) OR VAR20),C,O,2,0),COLOR0000BB;
STICKLINE((((VAR22 OR VAR18) OR VAR19) OR VAR20),C,O,1,0),COLOR0000DD;
STICKLINE((((VAR36 OR VAR32) OR VAR33) OR VAR34),C,O,3,0),COLOR00BB00;
STICKLINE((((VAR36 OR VAR32) OR VAR33) OR VAR34),C,O,2,0),COLOR00DD00;
STICKLINE((((VAR36 OR VAR32) OR VAR33) OR VAR34),C,O,1,0),COLOR00FF00;
STICKLINE(VAR37,(MAX(REF(C,2),REF(C,1))),O,3,0),COLORBB11BB;
STICKLINE(VAR37,(MAX(REF(C,2),REF(C,1))),O,2,0),COLORDD44DD;
STICKLINE(VAR37,(MAX(REF(C,2),REF(C,1))),O,1,0),COLORFF66FF;
STICKLINE(VAR38,(MIN(REF(C,2),REF(C,1))),O,3,0),COLOR00AAFF;
STICKLINE(VAR38,(MIN(REF(C,2),REF(C,1))),O,2,0),COLOR00CCFF;
STICKLINE(VAR38,(MIN(REF(C,2),REF(C,1))),O,1,0),COLOR00EEFF;
DRAWICON(VAR39,LOW*0.99,13);
STICKLINE(1,(EMA(SLOPE(C,21)*20+C,42)),(EMA(SLOPE(C,21)*20+C,42)),1,0),COLORYELLOW;
DRAWTEXT(VAR49,L,'●牛浮面'),COLORWHITE;
STICKLINE(C>=O,C,H,0,0),COLOR0000FF;
STICKLINE(C>=O,O,L,0,0),COLOR0000FF;
STICKLINE(C<O,O,H,0,0),COLOR00FF00;
STICKLINE(C<O,C,L,0,0),COLOR00FF00;
STICKLINE(ISLASTBAR,VAR1,VAR1,120,0),LINETHICK1,COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=15,VAR1*1.02,'关键价位'),COLORGREEN;
DRAWNUMBER(ISLASTBAR,VAR1*1.02,VAR1+1000),COLORGREEN;
STICKLINE(ISLASTBAR,VAR2,VAR2,120,0),LINETHICK1,COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=15,VAR2*0.99,'支撑价位'),COLORYELLOW;
DRAWNUMBER(ISLASTBAR,VAR2*0.99,VAR2+1000),COLORYELLOW;
STICKLINE(ISLASTBAR,VAR58,VAR58,60,1),LINETHICK3,COLORFFFFFF;
STICKLINE(ISLASTBAR,VAR59,VAR59,60,1),LINETHICK3,COLORRED;
STICKLINE(ISLASTBAR,REF(LLV(今重心,2),1),REF(LLV(今重心,2),1),10,0),COLORGREEN;
{启动点买副图源码如下}
NGZBS1:=3;
NGZBS2:=(3)*(SMA(((C - LLV(L,34))/(HHV(H,34) - LLV(L,34)))*(100),5,1)) - (2)*(SMA(SMA(((C - LLV(L,34))/(HHV(H,34) - LLV(L,34)))*(100),5,1),3,1));
NGZBS6:=34;
NGZBS7:=1;
NGZBS8:=REF(LLV(L,NGZBS6),NGZBS7);
NGZBS9:=REFDATE(NGZBS8,DATE);
主力诱空:IF((NGZBS2 < 8),30,0),COLORLIRED,NODRAW;
资金抢筹:IF((NGZBS2 <= 5),60,0),COLORRED,NODRAW;
即将暴涨:IF(CROSS(NGZBS2,NGZBS1),100,0),COLORMAGENTA,NODRAW;
网2:=资金抢筹;
好股:=即将暴涨;
好股网3:=主力诱空;
STICKLINE(网2,0,60,3.0,0),COLORRED;
STICKLINE(网2,0,60,2.4,0),COLORRED;
STICKLINE(网2,0,60,1.8,0),COLORRED;
STICKLINE(网2,0,60,1.2,0),COLORRED;
STICKLINE(网2,0,60,0.6,0),COLORRED;
STICKLINE(网2,0,60,0.1,0),COLORRED;
STICKLINE(好股网3,0,30,3.0,0),COLORLIRED;
STICKLINE(好股网3,0,30,2.4,0),COLORLIRED;
STICKLINE(好股网3,0,30,1.8,0),COLORLIRED;
STICKLINE(好股网3,0,30,1.2,0),COLORLIRED;
STICKLINE(好股网3,0,30,0.6,0),COLORLIRED;
STICKLINE(好股网3,0,30,0.1,0),COLORLIRED;
STICKLINE(好股,0,80,3.0,0),COLORMAGENTA;
STICKLINE(好股,0,80,2.4,0),COLORMAGENTA;
STICKLINE(好股,0,80,1.8,0),COLORMAGENTA;
STICKLINE(好股,0,80,1.2,0),COLORMAGENTA;
STICKLINE(好股,0,80,0.6,0),COLORMAGENTA;
STICKLINE(好股,0,80,0.1,0),COLORMAGENTA;
买入:IF(NGZBS9=L AND ((C-L)>(0-C) OR (O-L)>(C-O)),45,0),LINETHICK2,COLORYELLOW;
DRAWTEXT(NGZBS9=L AND ((C-L)>(0-C) OR (O-L)>(C-O)),41,'←抄底买'),COLORYELLOW;
