input:N(6,0,9999),M(18,0,9999);
DRAWGBK(CLOSE,COLORRGB(50,100,120),0,1);
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
压力位:IF(CROSS(j24,j),HIGH,REF(HIGH,BARSLAST(CROSS(j24,j)))),ColorFFFFFF,LINETHICK1;
支撑位:IF(CROSS(j,j24),LOW,REF(LOW,BARSLAST(CROSS(j,j24)))),Color0000FF,,LINETHICK1;
MA3:=MA(CLOSE,N);
MA30:=MA(CLOSE,M);
k3:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(k3,HIGH,LOW,0.1,0),colorred;
STICKLINE(k3,OPEN,CLOSE,7,1),colorred;
STICKLINE(NOT(k3),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(k3),CLOSE,OPEN,7,0),colorcyan;
DRAWLINE(LOW=SYSPARAM(5),LOW,BARPOS=SYSPARAM(3)-1,LOW,1),Colorgreen;
DRAWLINE(HIGH=SYSPARAM(4),HIGH,BARPOS=SYSPARAM(3)-1,HIGH,1),Coloryellow;
STICKLINE((BARSTATUS = 2),(MA30 * 1.004),(MA30 * 1.004),10,0),colorFF00FF;
STICKLINE((BARSTATUS = 2),(MA30 * 1.004),(MA30 * 1.004),10,0),SHIFT1,colorFF00FF;
STICKLINE((BARSTATUS = 2),(MA30 * 1.004),(MA30 * 1.004),10,0),SHIFT2,colorFF00FF;
DRAWNUMBER(((BARSTATUS = 2) AND BETWEEN(CLOSE,(MA30 * 0.95),(MA30 * 1.05))
),(MA30 * 1.004),(MA30 * 1.004),2),ALIGN1;
AA:=REF(HIGH,5)=HHV(HIGH,2*5+1);
BB:=BACKSET(AA,5+1);
CC:=FILTER(BB,5) AND HIGH=HHV(HIGH,5+1);
DRAWICON(CC and BARSTATUS=2,HIGH*1.01,10);
AA2:=REF(LOW,5)=LLV(LOW,2*5+1);
BB2:=BACKSET(AA2,5+1);
CC2:=FILTER(BB2,5) AND LOW=LLV(LOW,5+1);
DRAWICON(CC2 and BARSTATUS=2,LOW*0.998,11);
GG:=BARSTATUS=2 AND REF(CC,BARSLAST(CC));
HH:=BACKSET(GG,BARSLAST(CC)+1);
II:=HH>REF(HH,1);
JJ:=REF(BARSLAST(CC),1);
KK:=BACKSET(II,JJ+2);
LL:=KK>REF(KK,1);
DRAWLINE(LL,HIGH,II,HIGH,1),POINTDOT;
GG2:=BARSTATUS=2 AND REF(CC2,BARSLAST(CC2));
HH2:=BACKSET(GG2,BARSLAST(CC2)+1);
II2:=HH2>REF(HH2,1);
JJ2:=REF(BARSLAST(CC2),1);
KK2:=BACKSET(II2,JJ2+2);
LL2:=KK2>REF(KK2,1);
DRAWLINE(LL2,LOW,II2,LOW,1),POINTDOT;
hh:=SYSPARAM(4);
ll:=SYSPARAM(5);
q809:=ll+(hh-ll)*0.809;
q618:=ll+(hh-ll)*0.618;
q500:=ll+(hh-ll)*0.5;
q382:=ll+(hh-ll)*0.382;
q191:=ll+(hh-ll)*0.191;
qqqq:=CLOSE>0;
nnl:=ISLASTBAR;
PARTLINE(qqqq,hh),Color000099,POINTDOT;
PARTLINE(qqqq,q191),Color000099,POINTDOT;
PARTLINE(qqqq,q382),Color000099,POINTDOT;
PARTLINE(qqqq,q500),Color000099;
PARTLINE(qqqq,q618),Color000099,POINTDOT;
PARTLINE(qqqq,q809),Color000099,POINTDOT;
PARTLINE(qqqq,ll),Color000099,POINTDOT;
DRAWTEXT(nnl,hh*0.998,'最高价'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q809,'19.1%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q618,'38.2%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q500,'50%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q382,'61.8%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,q191,'80.9%'),ALIGN2,ColorC0C0C0;
DRAWTEXT(nnl,ll*1.01,'最低价'),ALIGN2,ColorC0C0C0;
流通:=FINANCE(37)/10000;
市盈率:=DYNAINFO(39);
F111:=COST(5 );J111:=COST(95 );
M111:=COST(15 );X111:=COST(85 );
F112:=(J111-F111)/(F111+J111)*100;M112:=(X111-M111)/(X111+M111)*100;
获利盘:=WINNER(CLOSE)*100;
套牢盘:=100*(1-WINNER(CLOSE));
集中度90:=F112;
集中度70:=M112;
收益:=FINANCE(3);
浮筹比:=(WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))/WINNER(HHV(HIGH,0))*100;
Aa3:=SUMBARS(VOL,CAPITAL);
换手成本:=IF(CAPITAL>0,SUM(AMOUNT,Aa3)/SUM(VOL,Aa3)/100,EMA(CLOSE,120));{99.99%换手平均成本线};
当日换手率:=SUM(100*VOL/CAPITAL,1);
五日换手率:=SUM(100*VOL/CAPITAL,5);
十日换手率:=SUM(VOL,10)*100/CAPITAL;
DRAWTEXT(SYSPARAM(2)=BARPOS,CLOSE,'代码: '+STKLABEL+':'+ ' 名称:'+STKNAME+':'+'板块:'+BLKNAME+'\n浮筹比:'+NUMTOSTR(浮筹比,0)+'% '+'
总股本:'+NUMTOSTR(FINANCE(1),2)+'万股'+' 流通A股:'+NUMTOSTR(FINANCE( 7),0)+' 市盈率: '+NUMTOSTR(市盈率,2)+'\n集中度70:'+NUMTOSTR(集中度70,0)+'
集中度90:'+NUMTOSTR(集中度90,0)+' 获利盘:'+NUMTOSTR(获利盘,2)+'% '+' 套牢盘:'+NUMTOSTR(套牢盘,2)+'% '+'
每股收益:'+NUMTOSTR(FINANCE(33),3)+'元 '+'\n净资产:'+NUMTOSTR(FINANCE(34),2)+'元'+' 换手成本:'+NUMTOSTR(换手成本,2)+'
5日换手率:'+NUMTOSTR(五日换手率,2)+'%'+' 10日换手率:'+NUMTOSTR(十日换手率,2)+'%'),COLORYELLOW,ALIGN4,COLORFFEEBB; |