 | |  |  |
本帖最后由 shinyi 于 2015-6-14 20:04 编辑
DRAWGBK(C>0, RGB(40,120,20),RGB(00,00,00),0,0,1),LINETHICK2;
MA1:MA(C,1),LINETHICK1;
MA7:MA(C,7),COLORWHITE ,LINETHICK2;
MA14:MA(C,14),COLORYELLOW,LINETHICK3;
MA17:IF(MA(C,17) >MA(C,89),MA(C,21),MA(C,89))COLOR00AAFF,LINETHICK3;
MA89:MA(C,89),POINTDOT,COLORFFFFFF,LINETHICK4;
DRAWICON(CROSS(MA14,MA89),MA14,1);
DRAWICON(CROSS(MA7,MA89),MA7,1);
HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
AA01:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
QY:=(AA01,HIGHN+1);
CC01:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
DDDD1:=BARSLAST(CC01);
GDTS:=IF(CC01,CURRBARSCOUNT,0);
DINGBUTS:=IF(DDDD1,REF(GDTS,DDDD1),GDTS);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDDD1+1);
GDCS2:=CONST(DINGBUTS1);
AA111:=REF(L,LOWN)=LLV(L,2*LOWN+1);
QY1:=(AA111,LOWN+1);
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);
DD1:=(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) ,COLOR8080FF,LINETHICK3;
低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1),COLOR8080FF,LINETHICK3;
{压力一}
TY:=C,LINETHICK2;
A001:=REF(TY,10)=HHV(TY,2*10+1),LINETHICK2;
B1:=FILTER(A001,10),LINETHICK2;
C001:=(B1,10+1),LINETHICK2; HD:=FILTER(C001,10),LINETHICK2;
A002:=REF(TY,10)=LLV(TY,2*10+1),LINETHICK2; B2:=FILTER(A002,10),LINETHICK2;
C2:=(B2,10+1),LINETHICK2; LD:=FILTER(C2,10),LINETHICK2;
前期高位:REF(C,BARSLAST(HD)),COLOR00FF00,POINTDOT,LINETHICK2;
STICKLINE(C,前期高位,前期高位,8,0),COLORYELLOW,LINETHICK2;
{压力支撑}
N2:=5;N3:=5;
M:=INTPART(3*N2/5);{压力线取}
AAAA:=REF(H,M)=HHV(H,2*M+1);
QYY:=(AAAA,M+1);
CCC:=FILTER(QYY,M) AND H=HHV(H,M+1);
DDDD:=BARSLAST(CCC),NODRAW;
GDTSS:=IF(CCC,CURRBARSCOUNT,0),NODRAW;
DINGBUTSS:=IF(DDDD,REF(GDTSS,DDDD),GDTSS),NODRAW;
GDCS11:=CONST(DINGBUTSS),NODRAW;
DINGBUTS11:REF(DINGBUTSS,DDDD+1),NODRAW;
GDCS22:=CONST(DINGBUTS11);
高点压力M:DRAWLINE(CURRBARSCOUNT=GDCS22,H,CURRBARSCOUNT=GDCS11,H,1),COLORLIBLUE,LINETHICK3;
W:=INTPART(3*N3/5);
AA11:=REF(L,W)=LLV(L,2*W+1);
QY11:=(AA11,W+1);
CC11:=FILTER(QY11,W) AND L=LLV(L,W+1);
DD11:=BARSLAST(CC11);
DDTSS:=IF(CC11,CURRBARSCOUNT,0);
DDTS11:=IF(DD11,REF(DDTSS,DD11),DDTSS);
DDCS11:=CONST(DDTS11);
DDTS22:=REF(DDTS11,DD11+1);
DDCS22:=CONST(DDTS22);
低点支撑M:DRAWLINE(CURRBARSCOUNT=DDCS22,L,CURRBARSCOUNT=DDCS11,L,1),,COLORFF8000 ,LINETHICK2;
T1B:=CONST(LLVBARS(LOW,10));
T1HIGH:=CONST(REF(HIGH,T1B));
CC001:=CONST(CURRBARSCOUNT);
T2B:=CONST(BARSLAST(CURRBARSCOUNT>CC001+T1B AND H>T1HIGH));
T2HIGH:=CONST(REF(HIGH,T2B));
T3:=CONST(BARSLAST(CURRBARSCOUNT>CC001+T2B AND HIGH>T2HIGH));
T3HIGH:=CONST(REF(HIGH,T3));
必杀线:DRAWLINE(CURRBARSCOUNT=T3+1, T3HIGH, ISLASTBAR, T3HIGH, 1),COLORRED,LINETHICK3;
DRAWTEXT(ISLASTBAR, T3HIGH, '必杀线')LINETHICK1,COLOR0000FF;
MA5K:必杀线,COLORYELLOW,LINETHICK1;
{启动分界线组件————————————————————————}
M1:=EMA(C,5);M2:=EMA(C,13);M3:=EMA(C,34);
MC1:=EMA(C,55);MC2:=EMA(C,89);MA4:=EMA(C,144);
判势线:=NEWSAR(1,100),COLORYELLOW,LINETHICK2;
{跳空缺口组件——————————————————————————}
N:=30;
LL:=REF(L,1);
HH:=REF(H,1);
SQK:=L>HH;
XQK:=H<LL;
向上跳几元:IF(SQK=1,L-HH,DRAWNULL),COLORGREEN,CROSSDOT,LINETHICK3,NODRAW;
逃命跳空元:IF(XQK=1,H-LL,DRAWNULL),COLORYELLOW,CROSSDOT,LINETHICK3,NODRAW;
DRAWTEXT(SQK,L*0.92,' 向上跳空'),COLOR00F0F0,LINETHICK2;
DRAWTEXT(XQK,H*1.08,' 逃命跳空'),COLOR0000FF,LINETHICK2;
{主图中的倍量K线如何变黄色}
V2V:=V/REF(V,1)>=1.9 AND C>REF(C,1);
STICKLINE(V2V,O,C,-1,0),COLORYELLOW;
{高低标注}
DDD:=(4,5 );
DRAWTEXT(H=DDD ,H*1.02 ,'高='+DDD),COLORD3A9FF;
DRAWTEXT(L=DDD ,L ,'低='+DDD);
VARA:=(MA(C,13)+MA(C,17))/2;
VARB:=(STD(C,13)+STD(C,17))/2;
VARC:=IF((C>REF(C,1)),88,0);
VARD:=VARA+0.72*VARB;
VARF:=IF(((C)/(REF(C,1))>1.05) AND H/C<1.01 AND VARC>0,91,0);
VARE:=IF(VARB>1.88 ,MA(VARD,3),VARD);
VARG:=EMA(EMA(C,9),9);
CON:=(VARG-REF(VARG,1))/REF(VARG,1)*1000;
HCON:=100*(C*0.95);
VAR1:=EMA(EMA(EMA(C,5),5),5);
VAR2:=VAR1-REF(VAR1,1)+VAR1;
VAR3:=CROSS(VAR2,MA(VAR2,26));
VAR4:=CROSS(MA(C,13),MA(C,21));
VAR5:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
VAR6:=3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1);
VAR7:=IF(VAR6<=10,30,0);
VARJ:=SMA(VAR5,3,1);
VARK:=SMA(VARJ,3,1);
VARL:=EMA(SMA((C-LLV(L,19))/(HHV(H,19)-LLV(L,19))*100,8,1),3);
VARM:=SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100;
VAR8:=(VARL>20 AND VARL<80);
VAR9:=((VARL-REF(VARL,1))>3 AND VAR8);
VAR10:=EMA(((C-LLV(L,22))/(HHV(H,22)-LLV(L,22)))*100,5);
VAR11:=EMA(((C-LLV(L,22))/(HHV(H,22)-LLV(L,22)))*50,13);
止赢卖出线:VARE*1.1,COLORRED,LINETHICK2;
{K线}
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),LOW,HIGH,0.0,0),COLORRED;
STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),LOW,HIGH,0.0,0),COLORCYAN;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR000088;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000AA;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000DD;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLOR0000FF;
{
11,DOTLINE,COLORBLUE;
25,DOTLINE,COLORBLUE;
4,DOTLINE,COLORBLUE;
40,DOTLINE,COLORBLUE;
64,DOTLINE,COLORBLUE;
}
DRAWTEXT_FIX(1,0.00,0.00,0,'主题投资：')COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.00,0,EXTERNSTR(0,1))COLOR0000FF;
DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务：')COLORFF00FF;
DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2))COLORYELLOW;
{14上穿89 条件选股预警公式}
{胆子小的用周线月线选股安全一点}
MAA7:=IF(MA(C,7) >MA(C,89),MA(C,7),MA(C,89)),LINETHICK3;
MAA14:=MA(C,14),COLORYELLOW,LINETHICK3;
MAA17:=IF(MA(C,17) >MA(C,89),MA(C,21),MA(C,89)),COLORFF0000,LINETHICK3;
MAA89:=MA(C,89),LINETHICK3;
多头排列:=MA7>MA14 AND MA14>MA17 AND MA17>MA89;
当日成交量:=C>O AND V>REF(V,1) AND V>MA(V,5) AND V>MA(V,10);
流通盘:=CAPITAL/1000000<=4.53;
选股:上穿 OR 上穿1 AND 大于,NODRAW; |
| |  | |  |
|
