 |
VAR1:=C>REF(C,1) AND C>REF(C,2);
VAR2:=REF(VAR1,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR3:=REF(VAR2,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR4:=REF(VAR3,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR5:=REF(VAR4,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR6:=REF(VAR5,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR7:=REF(VAR6,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR8:=REF(VAR7,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR9:=REF(VAR8,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARA:=REF(VAR9,1) AND C<=REF(C,1) AND C>=REF(C,2);
VARB:=REF(VARA,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARC:=REF(VARB,1) AND C<=REF(C,1) AND C>=REF(C,2);
STICKLINE(VAR1||VAR2||VAR3||VAR4||VAR5||VAR6||VAR7||VAR8||VAR9||VARA||VARB||VARC,C,REF(C,1),3,1),COLOR0000FF;
VARD:=C<REF(C,1) AND C<REF(C,2);
VARE:=REF(VARD,1) AND C>=REF(C,1) AND C<=REF(C,2);
VARF:=REF(VARE,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR10:=REF(VARF,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR11:=REF(VAR10,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR12:=REF(VAR11,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR13:=REF(VAR12,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR14:=REF(VAR13,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR15:=REF(VAR14,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR16:=REF(VAR15,1) AND C>=REF(C,1) AND C<=REF(C,2);
VAR17:=REF(VAR16,1) AND C<=REF(C,1) AND C>=REF(C,2);
VAR18:=REF(VAR17,1) AND C>=REF(C,1) AND C<=REF(C,2);
STICKLINE(VARD||VARE||VARF||VAR10||VAR11||VAR12||VAR13||VAR14||VAR15||VAR16||VAR17||VAR18,C,REF(C,1),3,1),COLORFFFF00;
VAR19:=REF(VARD||VARE||VARF||VAR10||VAR11||VAR12||VAR13||VAR14||VAR15||VAR16||VAR17||VAR18,1) AND VAR1;
STICKLINE(VAR19,REF(C,1),REF(C,2),3,1),COLOR0066FF;
STICKLINE(VAR19,REF(C,1),REF(C,2),2,0),COLOR0099FF;
STICKLINE(VAR19,REF(C,1),REF(C,2),1,0),COLOR00CCFF;
STICKLINE(VAR19,REF(C,1),REF(C,2),0,0),COLOR00FFFF;
VAR1A:=REF(VAR1||VAR2||VAR3||VAR4||VAR5||VAR6||VAR7||VAR8||VAR9||VARA||VARB||VARC,1) AND VARD;
STICKLINE(VAR1A,REF(C,1),REF(C,2),3,1),COLOR006600;
STICKLINE(VAR1A,REF(C,1),REF(C,2),2,0),COLOR009900;
STICKLINE(VAR1A,REF(C,1),REF(C,2),1,0),COLOR00CC00;
STICKLINE(VAR1A,REF(C,1),REF(C,2),0,0),COLOR00FF00;
C1:=EMA(((2*C+H+L)/4-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,4);
C2:=EMA(((0.667*REF(C1,1))+(0.333*C1)),2);
STICKLINE(C1>=C2,C,O,3,0),COLOR000033;
STICKLINE(C1>=C2,C,O,2,0),COLOR000077;
STICKLINE(C1>=C2,C,O,1,0),COLOR0000BB;
STICKLINE(C1>=C2,H,L,0,0),COLOR9900FF;
STICKLINE(C2>C1,C,O,3,0),COLORF22200;
STICKLINE(C2>C1,C,O,2,0),COLORF55500;
STICKLINE(C2>C1,C,O,1,0),COLORF99900;
STICKLINE(C2>C1,H,L,0,0),COLORFFFF00;
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;