MA30:=MA(C,30),POINTDOT,COLORRED,LINETHICK2;
MA60:=MA(C,60),POINTDOT,COLORYELLOW,LINETHICK2;
MA120:=MA(C,120),POINTDOT,COLORGREEN,LINETHICK2;
MB1:=MA(CLOSE,1),COLOR111111;
X_1:=EMA(CLOSE,3);
X_2:=EMA(CLOSE,26);
X_3:=X_1-X_2;
牵牛线:=EMA(EMA(EMA(CLOSE,3),3),3)+X_3,DOTLINE,COLORGREEN;
X_4:=IF(REF(CLOSE,1)*1.1-CLOSE<0.01,1,0);
STICKLINE(X_4,OPEN,CLOSE,2,0),COLOR66EEEE;
STICKLINE(X_4,OPEN,CLOSE,1,0),COLORMAGENTA;
STICKLINE(X_4,OPEN,CLOSE,0,1),COLOR8B8BFF;
寻牛线:=MA(MA(LOW,3),3),COLORMAGENTA;
{上箱顶:HHV(寻牛线,60),COLORRED,LINETHICK2;
下箱底:LLV(寻牛线,20),COLORGREEN,LINETHICK2;}
上箱顶:MA(REF(HHV(CLOSE,30),1),2),COLORRED,LINETHICK2;
下箱底:MA(REF(LLV(CLOSE,30),1),2),COLORGREEN,LINETHICK2;
IF(寻牛线>=REF(上箱顶,1),寻牛线,DRAWNULL),COLORRED,LINETHICK3;
长底:LLV(MA((CLOSE),3),120),COLORFFBB00,LINETHICK2;
DRAWGBK(C>0,RGB(0,0,0),RGB(00,0,0),0,'BJT5',0);
月:REF(O,BARSLAST(MONTH!=REF(MONTH,1))),COLORFFFF00,NODRAW,LINETHICK6;
STICKLINE(C>月,月,月,5,0),COLORRED;
STICKLINE(C<月,月,月,5,0),COLORFFFF00;
STICKLINE(C=月,月,月,5,0),COLORWHITE;
MCST:=DMA(AMOUNT/(100*V),V/CAPITAL),COLORFC9F99;
N:=100;
高1:=REFDATE(HHV(H,N),DATE);
低1:=REFDATE(LLV(L,N),DATE);
H3:=高1-(高1-低1)*0.5;
分水岭:REFDATE(H3,DATE),COLORFFFF00,DOTLINE;
QA:=SUMBARS(V,CAPITAL*1);
QA1:=SUM(COST(10),QA)/QA;
QA2:=SUM(COST(20),QA)/QA;
QA3:=SUM(COST(30),QA)/QA;
QA4:=SUM(COST(40),QA)/QA;
QA5:=SUM(COST(50),QA)/QA;
E:=LLV(L,250)=L;
E1:=BARSLAST(E);
获利线:=(5*QA1+4*QA2+3*QA3+2*QA4+QA5)/15,COLORWHITE,LINETHICK3;
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;DRAWTEXT_FIX(1,0.980,20,1,'★好股网'),COLORYELLOW;
主力成本:=EMA(X,13),LINETHICK1,COLORLIGRAY;
妖线:=EMA(EMA(C,9)*1.11,5),COLORLIMAGENTA,LINETHICK2;
DRAWKLINE(H,O,L,C);
现价:REFDATE(C,DATE),DOTLINE,COLORLIGRAY;
昨半:REF((C+O)/2,1),COLORYELLOW,NODRAW;
半分:(C+O)/2,NODRAW,COLORWHITE;
高:=REF(HHV(H,72),5);
龙门:REFDATE(高,DATE),COLORWHITE,LINETHICK2;
TM:=1200823;
涨停:IF(DATE<TM,ZTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORRED;
跌停:IF(DATE<TM,DTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORGREEN;
明涨停:IF(DATE<TM,C*IF(CODELIKE('688'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)),C*(IF(CODELIKE('688') OR CODELIKE('300'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)))),NODRAW,COLORLIMAGENTA;
明跌停:IF(DATE<TM,C*IF(CODELIKE('688'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)),C*(IF(CODELIKE('688') OR CODELIKE('300'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)))),NODRAW,COLORFFFF00;
ZT:=C=涨停 AND PERIOD=5 AND H=C;
ZT1:=H=涨停 AND PERIOD=5 AND H>C;
DT:=C=跌停 AND PERIOD=5 AND L=C;
DT1:=L=跌停 AND PERIOD=5 AND L<C;
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA55:=MA(C,55);
低K:=O<MA5 AND O<MA10 AND O<MA20 AND L<MA30 AND L<MA55;
高K:=C>MA5 AND C>MA10 AND H>MA20 AND H>MA30 AND H>MA55;
选股:=低K AND 高K;
STICKLINE(选股,CLOSE,OPEN,3,0),COLOR000099;
STICKLINE(选股,CLOSE,OPEN,2.2,0),COLOR0000CC;
STICKLINE(选股,CLOSE,OPEN,1.5,0),COLOR0000FF;
STICKLINE(选股,CLOSE,OPEN,0.5,0),COLORCC66FF;
STICKLINE(选股,OPEN,CLOSE,0.5,0),COLORYELLOW;
DRAWTEXT(选股,L*0.99,'↖一穿五'),COLORYELLOW;
HH:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6)
+13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12)
+7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+
REF(H,20))/210,COLORBLUE,LINETHICK1;
LL:=(20*L+19*REF(L,1)+18*REF(L,2)+17*REF(L,3)+16*REF(L,4)+15*REF(L,5)+14*REF(L,6)
+13*REF(L,7)+12*REF(L,8)+11*REF(L,9)+10*REF(L,10)+9*REF(L,11)+8*REF(L,12)
+7*REF(L,13)+6*REF(L,14)+5*REF(L,15)+4*REF(L,16)+3*REF(L,17)+2*REF(L,18)+
REF(L,20))/210,COLORBLUE,LINETHICK1;
VAR80:=3*SMA((C-LLV(L,180))/(HHV(H,180)-LLV(L,180))*100,5,1)-2*SMA(SMA((C-LLV(L,180))/(HHV(H,180)-LLV(L,180))*100,180,1),15,1);
疯牛潜力股:=EMA(VAR80,5), NODRAW,COLOR6600FF;
牛熊线:=EMA(HH,90),COLORGREEN,LINETHICK2;
{涨停K线颜色设置}
STICKLINE(ZT,C,(O+C)/2,3,0),COLOR000099;
STICKLINE(ZT,C,(O+C)/2,2.2,0),COLOR0000CC;
STICKLINE(ZT,C,(O+C)/2,1.5,0),COLOR0000FF;
STICKLINE(ZT,C,(O+C)/2,0.5,0),COLORCC66FF;
STICKLINE(ZT,O,(O+C)/2,3,0),COLOR999999;
STICKLINE(ZT,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(ZT,O,(O+C)/2,1.5,0),COLORDDDDDD;
STICKLINE(ZT,O,(O+C)/2,0.5,0),COLORFFFFFF;
STICKLINE(DT,O,(O+C)/2,3,0),COLOR999999;
STICKLINE(DT,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(DT,O,(O+C)/2,1.5,0),COLORDDDDDD;
STICKLINE(DT,O,(O+C)/2,0.5,0),COLORFFFFFF;
STICKLINE(DT,C,(O+C)/2,3,0),COLOR009900;
STICKLINE(DT,C,(O+C)/2,2.2,0),COLOR00BB00;
STICKLINE(DT,C,(O+C)/2,1.5,0),COLOR00DD00;
STICKLINE(DT,C,(O+C)/2,0.5,0),COLOR00FF00;
{曾涨跌停打开K线颜色设置}
STICKLINE(ZT1,C,(O+C)/2,3,0),COLORFF00FF;
STICKLINE(ZT1,C,(O+C)/2,2.2,0),COLORFF00FF;
STICKLINE(ZT1,C,(O+C)/2,1.5,0),COLOR0000FF;
STICKLINE(ZT1,O,(O+C)/2,3,0),COLOR999999;
STICKLINE(ZT1,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(ZT1,O,(O+C)/2,1.5,0),COLORDDDDDD;
STICKLINE(DT1,O,(O+C)/2,3,0),COLOR888888;
STICKLINE(DT1,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(DT1,O,(O+C)/2,1.5,0),COLORDDDDDD;
STICKLINE(DT1,C,(O+C)/2,3,0),COLOR009900;
STICKLINE(DT1,C,(O+C)/2,2.2,0),COLOR00BB00;
STICKLINE(DT1,C,(O+C)/2,1.5,0),COLOR00DD00;
STICKLINE(DT1,C,(O+C)/2,0.5,0),COLOR00FF00;
DRAWTEXT(ZT AND DT1 AND PERIOD=5,L-0.03,'地天板'),COLORCC00CC;{从跌停到涨停}
DRAWTEXT(DT AND ZT1 AND PERIOD=5,H+0.03,'天地板'),COLOR00CC00;{从涨停到跌停};
DRAWTEXT(DT1,L-0.09,'撬板'),COLORCC00CC;{从涨停到跌停};
DRAWTEXT(ZT1,H+0.03,'炸板'),COLOR00CC00;{从涨停到跌停};
假阴:=REF(C>=O,1) AND AMOUNT/V/100>REF(C,1) AND C<O;
假阳:=REF(C<=O,1) AND H<REF(O,1) AND C<(REF(O-C,1))/3+REF(C,1) AND AMOUNT/V/100<REF(C,1) AND C>O;
STICKLINE(假阴,O,C,0.2,0),COLORRED;{假阴柱};
STICKLINE(假阳,O,C,0.7,0),COLORLIGREEN;{假阳柱};
连阴:=COUNT((C<REF(C,1) OR L<REF(L,1)),10)>=5;
间谍柱:=REF(连阴,1) AND (DT OR DT1) ;
DRAWLINE(间谍柱>2,(C+O)/2,REF(间谍柱,1),REF((C+O)/2,1),1),COLOR55FFCC;
筹码峰:'破峰而起主图.顶#DAY',COLORMAGENTA;
首板:=ZT AND COUNT(ZT,2)=1;
二板:=REF(首板,1) AND ZT;
三板:=REF(二板,1) AND ZT;
四板:=REF(三板,1) AND ZT;
五板:=REF(四板,1) AND ZT;
六板:=REF(五板,1) AND ZT;
七板:=REF(六板,1) AND ZT;
八板:=REF(七板,1) AND ZT;
九板:=REF(八板,1) AND ZT;
十板:=REF(九板,1) AND ZT;
DRAWTEXT(首板,0.1+(C+O)/2,'1'),COLORWHITE;
DRAWTEXT(二板,0.1+(C+O)/2,'2'),COLORYELLOW;
DRAWTEXT(三板,0.1+(C+O)/2,'3'),COLOR00CC99;
DRAWTEXT(四板,0.1+(C+O)/2,'4'),COLORGREEN;
DRAWTEXT(五板,0.1+(C+O)/2,'5'),COLORLIGRAY;
DRAWTEXT(六板,0.1+(C+O)/2,'6'),COLORLIRED;
DRAWTEXT(七板,0.1+(C+O)/2,'7'),COLORLIBLUE;
DRAWTEXT(八板,0.1+(C+O)/2,'8'),COLORBLUE;
DRAWTEXT(九板,0.1+(C+O)/2,'9'),COLORWHITE;
DRAWTEXT(十板,0.1+(C+O)/2,'10'),COLORYELLOW;
{风险系数}
XXX1:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;
XXX2:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替}
XXX3:=FINANCE(23)/FINANCE(10)*3.3;
XXX4:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}
XXX5:=FINANCE(20)/FINANCE(15)*0.999;
Z值:=XXX1+XXX2+XXX3+XXX4+XXX5;
DRAWTEXT_FIX(Z值<1.2,0.52,0.20,1,' ●重 警●'),COLORFFFF00;
DRAWTEXT_FIX( BETWEEN(Z值,1.2,2.6),0.52,0.20,1,' ◇轻 警◇'),COLORFFFF00;
DRAWTEXT_FIX(Z值>2.6,0.52,0.20,1,' ◎无 警◎'),COLORFFFF00;
收阴:=(C<REF(C,1) OR L<REF(L,1) OR AMOUNT/V/100<REF((C+O)/2,1)) AND O<=REF(C,1);
多阴:=EVERY(收阴,2);
小阳:=O-L<=0.03 AND H>C AND C>O AND O<REF(C,1) AND C<REF(MAX(C,O),1) AND V<REF(V,1);
宝莲灯:=REF(多阴,1) AND 小阳;
STICKLINE(宝莲灯,O,C,2.5,0),COLORCC22FF;
STICKLINE(宝莲灯,(O+C)/2-0.02,(O+C)/2+0.02,2,0),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,L*0.995,EXTERNSTR(0,4)); { 涨停原因};
{仪表盘}{全部仪表图放在T0002/SIGNALS文件夹里}
{设置均线}
范围高:=REFDATE(HHV(H,120),DATE)*1.05;
范围低:=REFDATE(LLV(L,120),DATE)*0.95;
均线5:=MA(C,5);
均线25:=MA(C,25);
均线75:=MA(C,75);
均线200:=IF((MA(C,200)<=范围高 AND MA(C,200)>=范围低) OR C>=MA(C,200),MA(C,200),DRAWNULL);
{设置仪表}
显示仪表盘1:=1;
{选择图片}
主升浪:=ISLASTBAR AND 均线5>均线25 AND 均线25>均线75 AND 均线75>IF(均线200=DRAWNULL,0,均线200);
主浪回调:=ISLASTBAR AND 均线25>均线5 AND 均线5>均线75 AND 均线75>IF(均线200=DRAWNULL,0,均线200);
主浪深调:=ISLASTBAR AND 均线25>均线75 AND 均线75>均线5 AND 均线5>IF(均线200=DRAWNULL,0,均线200);
初升浪:=ISLASTBAR AND IF(均线200=DRAWNULL,300,均线200)>MAX(均线25,均线75) AND 均线5>均线25 AND 均线25>均线75;
底部反弹:=ISLASTBAR AND IF(均线200=DRAWNULL,300,均线200)>均线75 AND 均线75>均线25 AND 均线5>均线25;
探底阶段:=ISLASTBAR AND IF(均线200=DRAWNULL,300,均线200)>均线75 AND 均线75>均线25 AND 均线25>均线5;
观望:=ISLASTBAR AND IF(均线200=DRAWNULL,均线25>均线75 AND C<均线75,均线75>均线200 AND C<均线200);
有牛:=ISLASTBAR AND IF(均线200=DRAWNULL,均线25<均线75 AND C>=均线75,均线75<均线200 AND C>=均线200);
放弃:=ISLASTBAR AND IF(均线200=DRAWNULL,均线25<均线75 AND C<均线75,均线75<均线200 AND C<均线200);
DRAWGBK(显示仪表盘1=1 AND 主升浪=0 AND 主浪回调=0 AND 主浪深调=0 AND 初升浪=0 AND 底部反弹=0 AND 探底阶段=0 AND 观望=0 AND 有牛=0 AND 放弃=0,0,0,0,'观望',0);
DRAWGBK(显示仪表盘1=1 AND 主升浪,0,0,0,'主升浪',0);
DRAWGBK(显示仪表盘1=1 AND 主浪回调,0,0,0,'主浪回调',0);
DRAWGBK(显示仪表盘1=1 AND 主浪深调,0,0,0,'主浪深调',0);
DRAWGBK(显示仪表盘1=1 AND 初升浪,0,0,0,'初升浪',0);
DRAWGBK(显示仪表盘1=1 AND 底部反弹,0,0,0,'底部反弹',0);
DRAWGBK(显示仪表盘1=1 AND 探底阶段,0,0,0,'探底阶段',0);
DRAWGBK(显示仪表盘1=1 AND 观望,0,0,0,'观望',0);
DRAWGBK(显示仪表盘1=1 AND 有牛,0,0,0,'有牛',0);
DRAWGBK(显示仪表盘1=1 AND 放弃,0,0,0,'放弃',0);
T1:=FINDLOWBARS(L,0,60,1);
T2:=FINDLOWBARS(L,T1,120,1);
{DRAWLINE(CURRBARSCOUNT=CONST(T2)+1,L,CURRBARSCOUNT=CONST(T1)+1,L,1),COLORGREEN,DOTLINE;}
T3:=BARSLAST(CURRBARSCOUNT=CONST(T1)+1);
T4:=BARSLAST(CURRBARSCOUNT=CONST(T2)+1);
D1:=REF(L,T3);
D2:=REF(L,T4);
T5:=FINDHIGHBARS(H,20,60,1);
T6:=FINDHIGHBARS(H,T1,120,1);
SG:=DRAWLINE(CURRBARSCOUNT=CONST(T6)+1,H,CURRBARSCOUNT=CONST(T5)+1,H,1),COLORRED,DOTLINE;
GOODGUPIAO:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
T7:=BARSLAST(CURRBARSCOUNT=CONST(T5)+1);
T8:=BARSLAST(CURRBARSCOUNT=CONST(T6)+1);
G1:REF(H,T7),COLORYELLOW,LINETHICK2;
G2:REF(H,T8),COLORYELLOW,LINETHICK2;
{板块排名}
TAX:=HORCALC(HYBLOCK,105,1,DRAWNULL);
TAA:=STRCAT(HYBLOCK,' 排名 ：');
DRAWTEXT_FIX(ISLASTBAR,0.70,0.005,0,STRCAT(TAA,CON2STR(TAX,0)));
日:=50;
昨前:=3;
高2:=REF(HHV(H,日),昨前);
低2:=REF(LLV(L,日),昨前);
H4:=高2-(高2-低2)*0.618;
H5:=高2-(高2-低2)*0.809;
圆底支撑:=REFDATE(H5,DATE);
黄金支撑:=REFDATE(H4,DATE);
TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1);
B1:=FILTER(A1,10);
C1:=BACKSET(B1,10+1);
HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1);
B2:=FILTER(A2,10);
C2:=BACKSET(B2,10+1);
LD:=FILTER(C2,10);
前期高位:=REF(C,BARSLAST(HD));
A0:=REF(TY,7)=HHV(TY,2*7+1);
B0:=FILTER(A0,7);
C0:=BACKSET(B0,7+1);
HD0:=FILTER(C0,7);
前期高位0:=REF(C,BARSLAST(HD0));
PHD:=FILTER(BACKSET(FILTER(REF(H,10)=HHV(H,2*10+1),10),10+1),10);
PLD:=FILTER(BACKSET(FILTER(REF(L,10)=LLV(L,2*10+1),10),10+1),10);
PA:=REF(H,BARSLAST(PHD));
PT1:=BARSLAST(PHD)<BARSLAST(PLD) AND NOT(PHD);
波顶:=IF(PT1,PA,PA);
突破:=(CROSS(C,前期高位0) OR CROSS(C,前期高位) OR CROSS(C,黄金支撑) OR CROSS(C,圆底支撑) OR CROSS(C,波顶)) AND C/O>1.05;
STICKLINE(突破,OPEN,CLOSE,4.5,0),COLORFF0099;
STICKLINE(突破,OPEN,CLOSE,3,0),COLORFF00CC;
STICKLINE(突破,OPEN,CLOSE,2,0),COLORFF00FF;
DRAWTEXT(突破,MA(H,3),'↙突破'),COLORYELLOW;
