 |
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
STICKLINE((C-REF(C,1))/REF(C,1)>=0.099,C,O,3,1),COLORMAGENTA;
利润总额（亿）:FINANCE(28)/100000000,NODRAW,COLORGREEN;
主营利润（亿）:FINANCE(21)/100000000,NODRAW,COLORCYAN;
营业利润（亿）:FINANCE(23)/100000000,NODRAW,COLORRED;
税后利润（亿）:FINANCE(29)/100000000,NODRAW,COLORWHITE;
未分利润（亿）:FINANCE(31)/100000000,NODRAW,COLORMAGENTA;
净利润（亿）:FINANCE(30)/100000000,NODRAW,COLORRED;
净资产（亿）:FINANCE(19)/100000000,NODRAW,COLORGREEN;
主营收入（亿）:FINANCE(20)/100000000,NODRAW,COLORRED;
季报:FINANCE(37),NODRAW,COLORCYAN;
孤影走势:MA(C,5),COLORFF00FF,LINETHICK2;
NOTEXTU:IF(孤影走势>REF(孤影走势,1),孤影走势,DRAWNULL),COLORFF00FF,LINETHICK2;
NOTEXTN:IF(孤影走势<REF(孤影走势,1),孤影走势,DRAWNULL),COLOR00FF00,LINETHICK2;
X:=(3*C+O+H+L)/6;
天堂之路:WMA(X,20),COLOR80FFFF,LINETHICK2;
NOTEXT地:IF(天堂之路<REF(天堂之路,1),天堂之路,DRAWNULL),CIRCLEDOT,COLOR400000,LINETHICK2;
NOTEXT天:IF(孤影走势>天堂之路,天堂之路,DRAWNULL),CIRCLEDOT,COLOR000080,LINETHICK2;
短线:=WMA(X,8);
短6:=(LLV(短线,2)+LLV(短线,4)+LLV(短线,6))/3;
下跌:=IF(短线=短6,短6,DRAWNULL);
TYP :=(H+L+C)/3;
CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,5));
差值1:=ABS(REF(CCI1,1)-CCI1);
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));
差值4:=ABS(REF(CCI4,1)-CCI4);
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));
差值5:=ABS(REF(CCI5,1)-CCI5);
CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;
TJ1:=CCI1>差值4;
BBF:=MA(LLV(L,34),4);
LC:=REF(C,1);
RSI:=SMA(MAX(C-LC,0),3,1)/SMA(ABS(C-LC),3,1)*100;
FF:=EMA(C,3);
MA15:=EMA(C,21);
DRAWTEXT(CROSS(FF,MA15),BBF,'底背离'),COLOR00FF00;
DRAWTEXT(CROSS(88,RSI),H,'顶背离'),DRAWABOVE,COLORFFFFFF;
BB13:=ATAN(EMA(TYP,13)-REF(EMA(TYP,13),1))*3.1416*10;
EMA8:=EMA(C,8);
DRAWTEXT(FILTER(BB13>1 AND EMA(TYP,13)>REF(EMA(TYP,8),1),10),EMA8,'∠45'),COLORFFFFFF;
所属板块:=STRCAT('所属板块: ',STRCAT(STRCAT(STRCAT('[行业]-',HYBLOCK),STRCAT(' [地域]-',DYBLOCK)),STRCAT(' [概念]-',GNBLOCK)));
总股本:=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(FINANCE(42),0));
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市天数));
主收同比:=STRCAT(' 主收同比: ',CON2STR(FINANCE(44),2));
市盈率:=STRCAT('市盈率: ',CON2STR(C/FINANCE(33),2));
市销率:=STRCAT(' 市销率: ',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
市净率:=STRCAT(' 市净率: ',CON2STR(C/FINANCE(34),2));
毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
净利润率:=STRCAT(' 净利润率: ',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
现金流:=STRCAT(' 现金流: ',CON2STR(FINANCE(25)/FINANCE(1),2));
利润同比:=STRCAT(' 利润同比: ',CON2STR(FINANCE(43),2));
DRAWTEXT_FIX(ISLASTBAR,0.003,0.26,0,市盈率);
DRAWTEXT_FIX(ISLASTBAR,0,0.31,0,市销率);
DRAWTEXT_FIX(ISLASTBAR,0,0.36,0,市净率);
DRAWTEXT_FIX(ISLASTBAR,0,0.41,0,毛利率);
DRAWTEXT_FIX(ISLASTBAR,0,0.46,0,现金流);
DRAWTEXT_FIX(ISLASTBAR,0.1,0.26,0,主收同比);
DRAWTEXT_FIX(ISLASTBAR,0.1,0.31,0,净利润率);
DRAWTEXT_FIX(ISLASTBAR,0.1,0.36,0,利润同比);
净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(29)/FINANCE(19)*100,2));
主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(净资收益率,毛利率),主营利润率));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.00,0,所属板块),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,股本市值),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,当前业绩),COLORGREEN;
买:=IF(O=C AND (C/REF(C,1)-1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));
买%:=买/AMOUNT*100;
流入:=AMOUNT*买%/10000000000;
流出:=AMOUNT/100000000-流入;
净流:=(流入-流出);
总额3:=SUM(AMOUNT,3);
流入3:=SUM(流入,3);
流出3:=SUM(流出,3);
净流3:=SUM(流入-流出,3);
总额5:=SUM(AMOUNT,5);
流入5:=SUM(流入,5);
流出5:=SUM(流出,5);
净流5:=SUM(流入-流出,5);
总额10:=SUM(AMOUNT,10);
流入10:=SUM(流入,10);
流出10:=SUM(流出,10);
净流10:=SUM(流入-流出,10);
画:=CONST(FINDHIGH(总额10,0,190,1));
DRAWTEXT_FIX(1,0.71,0.07,0,'净流(亿):'),COLOR8080FF,COLORWHITE;
DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLOR8080FF,COLORWHITE;
DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLOR8080FF,COLORWHITE;
DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLOR8080FF,COLORWHITE;
DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLOR8080FF,COLORWHITE;
DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((净流))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((净流3))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((净流5))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((净流10))),COLORYELLOW;
DRAWICON(CROSS(C1,C2),L,1);
DRAWICON(CROSS(C2,C1),H,2);
现价:REFDATE(C,DATE),DOTLINE,COLORLIGRAY;
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;
最高%:(H/REF(C,1)-1)*100,COLORLIMAGENTA,NODRAW;
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;
LB:=REF(EVERY(ZT,3),2) AND REF(H=HHV(H,20),1) AND H<REF(H,1);
LBQ:=BARSLAST(LB);
量能饱和:100*(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)),NODRAW;