input:y(2010,1991,2099),m(7,1,12),d(1,1,31),y1(2011,1992,2099),m1(7,1,12),d1(31,1,31);
mm:=(y-1900)*10000+m*100+d;{最早日期}
mn:=(y1-1900)*10000+m1*100+d1;{最晚日期}
zz:=LAST(DATE>mm)+1;
zc:=LAST(DATE>mn)+1;
VERTLINE(zz=2,1),co

N:=26;P:=1;
DRAWTEXTABS(30,0,BKNAME );
DRAWTEXTABS(30,15,'流通盘：'+CAPITAL/100+'万股，利润增长：'+FINANCE2(10)+'%。每股收益：'+FINANCE2(3)+'元。' ),colorwhite;
DRAWTEXTABS(30,30,'B买入，S卖出。' ),colorwhite;
MID : MA(CLOSE,N),CIRCLEDOT,COLORyellow,lineth

季天数:=BARSLAST(cross(MONTH=1 or MONTH=4 or MONTH=7 or MONTH=10,0.5) or barpos=1);
月天数:=BARSLAST(MONTH<>ref(MONTH,1) or barpos=1);
年天数:=1+BARSLAST(year<>ref(year,1) or barpos=1);
周天数:=1+BARSLAST(DAYS1970-ref(DAYS1970,1)

n11:=1;
STICKLINE(((CROSS(((V*N11/100-EMA(V/100,5))/EMA(V/100,5)*2+(V*N11/100-EMA(V/100,10))/EMA(V/100,10))*
10,10) OR (((V*N11/100-EMA(V/100,5))/EMA(V/100,5)*2+(V*N11/100-EMA(V/100,10))/EMA(V/100,10))*10-REF
(((V*N11/100-EMA(V/100,5))/E

MMS:=MA(SMA((L+H+2*C)/4-REF((L+H+2*C)/4,1),5,1)/SMA(ABS((L+H+2*C)/4-REF((L+H+2*C)/4,1)),5,1)*100,1)+50;
G1:=IF(-MMS>95,0,20);
UOO:=(-(((CLOSE-LLV(CLOSE,7))/(HHV(CLOSE,7)-LLV(CLOSE,7))*100=100)>0 AND G1)+1);
明日均线:REF(C,2)*2-REF(C,5)

V1:=(C*2+H+L)/4*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5);
V4:=2*(V2-V3)*5.5;
庄秘撤: IF(V4<=0,V4,0),COLORblue,LINETHICK2;
庄秘进: IF(V4>=0,V4,0),COLORFF00FF,LINETHICK2;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(

AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买量:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
卖量:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2));
进出量:=买量+卖量;

partline(VOL/(SUM(VOL,0)/Barscount(C)),VOL/(SUM(VOL,0)/Barscount(C))>=1,RGB(255,0,0),VOL/(SUM(VOL,0)/Barscount(C))<1,RGB(0,255,0));

k3:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(k3,HIGH,LOW,0,0),colorred;
STICKLINE(k3,OPEN,CLOSE,4.5,1),colorred;
STICKLINE(NOT(k3),HIGH,LOW,0,0),color00ff00;
STICKLINE(NOT(k3),CLOSE,OPEN,4.5,0),color0

M1:=3;
a:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);
b:=capital;
aa:=90+(100-90)/2;
bb:=(100-90)/2;
cc:=cost(aa);
dd:=cost(bb);
ee:=(cc-dd)/(cc+dd)*100;
zlnl:(a/b*(VOL/3)/b+ee)/10

VAR1:=SMA(AMOUNT,10,1)/1000000;
VAR2:=REF(VAR1,1);
VAR3:=MA(REF(CLOSE,1),5);
最高:VAR1*HIGH/VAR3*1/10,POINTDOT,COLORGRAY;
最低:VAR1*LOW/VAR3*1/10,POINTDOT,COLORYELLOW;
开盘:VAR1*OPEN/VAR3*1/10,POINTDOT,COLORMAGENTA;
收盘:VAR1*C

x:=c-ref(ma(c,20),11);
lgl:=IF(EMA(C,5)/EMA(EMA(C,9),16)<=0.85 and c/ref(c,1)>0.905 and c/ref(c,1)<1.05 and VOL/CAPITAL*100<5,50,0);
wr1:=-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))+100*x;
wr2:=-100*(HHV(HIGH,50)-CLO

VAR1:=EMA(EMA(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,2,0),COLORWHITE;
A10:=CROSS(控盘,0);
无控盘:IF(控盘<0,控盘,0),COLORWHITE;
始控盘:IF(A10,5,0),LINETHICK1,COLOR0066FF;
STICKLINE(控盘>REF(

量:=v;
换手:=V/CAPITAL*100;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
卖盘:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN

DRAWGBKLAST(DATE>900101,STRIP(RGB(5,5,5),RGB(5,4,100),1));
现价: if (DYNAINFO(4)=0,C,DYNAINFO(7)),color0077FF,POINTDOT;
X:=BARSLAST(DISPSTATUS=1)+1;
DRAWTEXTABS(500,10,'★['+STKLABEL+']'+ STKNAME+':【可视:'+X+'天,】'),Color00FFFF,LINETHICK7,L

INPUT:M1(5,0,30),M2(10,0,60),M3(20,0,120);
DRAWGBK(C,Strip(RGB(0,40,0),RGB(0,0,60),1));0,COLOR00FFff;
MA1:=EMA(C,M1);
N1:=(MA1-REF(MA1,1))/REF(MA1,1)*100;
MV1:=EMA(V,M1);
价量比1:=100*N1/MV1*1.5;
STICKLINE(价量比1>0,价量比1,0

C01:=(h+l+c)/3;
C11:=HHV(C01,16*15);C21:=LLV(C01,16*15);C31:=C11-C21;
C41:=ema((C01-C21)/C31,11)*230+190;
茂荣趋势线:C41,COLORBLUE,linethick2;
C02:=(h+l+c)/3;
C12:=HHV(C02,16*15);C22:=LLV(C02,16*15);C32:=C12-C22;
C42:=ema((C

p1:=13;
p2:=26;
p3:=135;
p4:=156;
p5:=321;
短期盈利13线:MA(CLOSE,P1),PRECIS2;
短期盈利26线:MA(CLOSE,P2),PRECIS2;
上涨确认135线:MA(CLOSE,P3),PRECIS2,linethick2;
多空止损156线:MA(CLOSE,P4),PRECIS2;
牛熊分界321线:MA(CLOSE,P5),PRE

ema13:ema(c,13),Colorred,POINTDOT,linethick1;
ema17:ema(c,17),Colorgray;
ema34:ema(c,34),Color5E5E5E;
ema156:ema(c,156),Colorblue,POINTDOT,linethick1;
DRAWTEXT(C-O>=0 AND O/L>1.05 AND L<=LLV(L,30),L,'★<-绝底'),COLORMAGENT

Var1:=REF(CLOSE,2);
A2: SMA(MAX(CLOSE-Var1,0),7,1)/SMA(ABS(CLOSE-Var1),7,1)*100, COLORGREEN;
车弩机: IF(A2<12,30,0);
Var2:=REF(CLOSE,1);
Var3:=SMA(MAX(CLOSE-Var2,0),7,1)/SMA(ABS(CLOSE-Var2),7,1)*100;
弯弓: IF(Var3<12,30,0);