ZKA:=H<REF(L,1) AND (REF(L,1)-H)*100/H>0.3;
ZKB:=IF(L>REF(H,1), (L-REF(H,1))*100/REF(H,1),0);
DS:=IF(BARSLASTCOUNT(BARSLAST(ZKA)>1 AND BARSLAST(ZKA)<34 AND L>REF(H,1))=1,1,0);
STICKLINE(DS=1 AND C>=O,L*0.99,H*1.01,8,0),COLOR00FFFF;
DRAWKLINE(H,O,L,C);
MA7:MA(C,7),COLORYELLOW;
M7斜度:ATAN((MA(C,7)/REF(MA(C,7),1)-1)*100)*57.3,NODRAW;
MA10:=MA(C,10);
MA30:MA(C,30),COLOR00FF00;
M30斜度:ATAN((MA(C,30)/REF(MA(C,30),1)-1)*100)*57.3,NODRAW;
MA120:MA(C,120),DOTLINE,COLORFF8000;
IF(MA10>MA30,MA10,MA30),COLORRED;
ZDF:=(C-REF(C,1))/REF(C,1)*100;
{STICKLINE(ZDF>9.8,O,C,3,0),COLORRED;}
STICKLINE(ZDF<-9.8,O,C,3,0),COLOR00FF00;
涨停:=(C-REF(C,1))/REF(C,1)*100>9.5;
STICKLINE(涨停,CLOSE,O,3,0),COLOR0000FF;
{顶底信号}
LC:=REF(C,1);
RSI5:=SMA(MAX(CLOSE-LC,0),5,1)/SMA(ABS(CLOSE-LC),5,1)*100;
逃命:=CROSS(80,RSI5);
DRAWICON(逃命,H*1.005,15);
TJ1:=REF("CCI.CCI",1)>90 AND "CCI.CCI"<REF("CCI.CCI",1);
TJ2:=REF("KDJ.J"(9,3,3),1)>90 AND "KDJ.J"(9,3,3)<REF( "KDJ.J"(9,3,3),1);
TJ3:=REF("RSI.RSI1",1)>70 AND "RSI.RSI1"<REF("RSI.RSI1",1);
TJ4:=COUNT(TJ1,5) AND COUNT(TJ2,5) AND COUNT(TJ3,5);
大顶:=CROSS(TJ4,0.5);
DRAWTEXT(大顶,H*1.01,'顶');
TJ5:=REF("CCI.CCI",1)<-100 AND "CCI.CCI">REF("CCI.CCI",1);
TJ6:=REF("KDJ.J"(9,3,3),1)<20 AND "KDJ.J"(9,3,3)>REF( "KDJ.J"(9,3,3),1);
TJ7:=REF("RSI.RSI1",1)<20 AND "RSI.RSI1">REF("RSI.RSI1",1);
TJ8:=COUNT(TJ5,5) AND COUNT(TJ6,5) AND COUNT(TJ7,5);
大底:=CROSS(TJ8,0.5);
DRAWTEXT(大底,L*0.991,'底');
DRAWTEXT_FIX(1,0.7,0,0,'所属板块:'),COLOR00FF00;
DRAWTEXT_FIX(1,0.77,0,0,HYBLOCK),COLORRED;
DRAWTEXT_FIX(1,0.835,0,0,DYBLOCK),COLORYELLOW;
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT(' 全流通: ',CON2STR((CAPITAL/1000000)/(TOTALCAPITAL/1000000),2));
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((CAPITAL/1000000)*C,2)),'亿');
上市日期:=STRCAT(' 上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期));
{}
市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));
市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));
净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
净利润率:=STRCAT(' 净利润率 ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));
每股收益:=STRCAT('每股收益: ',CON2STR(FINANCE(33),2));
每股净资:=STRCAT('每股净资: ',CON2STR(FINANCE(34),2));
每股未分:=STRCAT('每股未分: ',CON2STR(FINANCE(32),2));
每股公积:=STRCAT('每股公积: ',CON2STR(FINANCE(18),2));
每股现金:=STRCAT('每股现金: ',CON2STR(FINANCE(25)/FINANCE(1),2));
每股指标:=STRCAT('每股指标: ',STRCAT(STRCAT(STRCAT(STRCAT(每股收益,每股净资),每股未分),每股公积),每股现金));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.05,0,当前业绩),COLORFFFFFF;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.09,0,每股指标),COLORFFFF80;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.01,0,股本市值),COLOR00FF80;
DRAWTEXT_FIX(1,0.00,0.13,0,'主题投资:')COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.13,0,EXTERNSTR(0,6))COLOR0000FF;
DRAWTEXT_FIX(1,0.00,0.17,0,'主营业务:')COLORFF00FF;
DRAWTEXT_FIX(1,0.07,0.17,0,EXTERNSTR(0,2))COLORFF00FF;
DRAWTEXT_FIX(1,0.00,0.21,0,'出千概念:')COLORFF88FF;
DRAWTEXT_FIX(1,0.07,0.21,0,EXTERNSTR(0,3))COLORFF88FF;
DRAWTEXT_FIX(1,0,0.25,0,'愚民主题概念:'),COLOR00FFFF;
DRAWTEXT_FIX(1,0.09,0.25,0,EXTERNSTR(0,5)),COLOR00FFFF;
DRAWTEXT_FIX(1,0,0.29,0,'星 级:'),COLOR4080FF;
DRAWTEXT_FIX(1,0.04,0.29,0,EXTERNSTR(0,4)),COLOR4080FF;
DRAWTEXT_FIX(1,0.01,0.89,0,'千股千论:')COLOR0000FF;
DRAWTEXT_FIX(1,0.07,0.89,0,EXTERNSTR(0,1))COLOR0000FF;
X17:=EMA(C,20);
X27:=REF(X17,1);
廿日均线斜率:=(X17-X27)/X27*100,NODRAW;
DRAWTEXT_FIX(1,0.01,0.98,0,'MA20斜率:'),COLOR80FF80;
DRAWNUMBER_FIX(1,0.08,0.98,0,CONST(廿日均线斜率)),COLORFFFFFF;
DRAWTEXT_FIX(1,0.13,0.98,0,'莸利比例:'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.19,0.98,0,CONST(WINNER(C )*100)),COLORFFFFFF;
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),(0 - (VAR1 * (HIGH - LOW))),(0 - (VOL / 2))));
买卖差:=(买盘+卖盘)/1000;
DDX:=-(卖盘-买盘)/(买盘+卖盘)*100;
D19:=EMA(ABS(DDX),60);
B77:=MIN(DDX/D19,10)*5;
DRAWTEXT_FIX(1,0.25,0.98,0,'超级量能:'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.31,0.98,0,CONST(B77)),COLORFFFFFF;
SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100);
DRAWTEXT_FIX(1,0.01,0.93,0,'量能饱和度:')COLOR00FFFF;
DRAWNUMBER_FIX(1,0.08,0.93,0,CONST(SAT)),COLORFFFFFF;
换:=VOL/CAPITAL*100,POINTDOT;
廿换:=SUM(换,20);
DRAWTEXT_FIX(1,0.13,0.93,0,'月换手:')COLOR00FFFF;
DRAWNUMBER_FIX(1,0.18,0.93,0,CONST(廿换)),COLORFFFFFF;
B7:=EMA(100+WINNER(C)*100-HHV(WINNER(C)*100,20),3);
DRAWTEXT_FIX(1,0.25,0.93,0,'筹码分布:')COLOR00FFFF;
DRAWNUMBER_FIX(1,0.31,0.93,0,CONST(B7)),COLORFFFFFF;
DFG:(FINANCE(20)-FINANCE(21))/FINANCE(20)*100,NODRAW,COLOR00FFFF; |