gspt1:=C > REF(C,1) AND C > REF(C,2);{第一根起始多头K线:收盘价大于前1、前2日收盘}
gspt2:=REF(gspt1,1) AND C <=REF(C,1) AND C >=REF(C,2);{第二根震荡K线:前一日是gspt1,今日收盘介于前2、前1之间}
gspt3:=REF(gspt2,1) AND C >=REF(C,1) AND C <=REF(C,2);{第三根震荡K线:前一日gspt2,收盘在前后两日区间}
gspt4:=REF(gspt3,1) AND C <=REF(C,1) AND C >=REF(C,2);{第四根震荡K线:延续gspt3结构震荡}
gspt5:=REF(gspt4,1) AND C >=REF(C,1) AND C <=REF(C,2);{第五根震荡K线}
gspt6:=REF(gspt5,1) AND C <=REF(C,1) AND C >=REF(C,2);{第六根震荡K线}
gspt7:=REF(gspt6,1) AND C >=REF(C,1) AND C <=REF(C,2);{第七根震荡K线}
gspt8:=REF(gspt7,1) AND C <=REF(C,1) AND C >=REF(C,2);{第八根震荡K线}
gspt9:=REF(gspt8,1) AND C >=REF(C,1) AND C <=REF(C,2);{第九根震荡K线}
gsptA:=REF(gspt9,1) AND C <=REF(C,1) AND C >=REF(C,2);{第十根震荡K线}
gsptB:=REF(gsptA,1) AND C >=REF(C,1) AND C <=REF(C,2);{第十一根震荡K线}
gsptC:=REF(gsptB,1) AND C <=REF(C,1) AND C >=REF(C,2);{第十二根震荡K线,多头序列完结}
STICKLINE(gspt1||gspt2||gspt3||gspt4||gspt5||gspt6||gspt7||gspt8||gspt9||gsptA||gsptB||gsptC,C,REF(C,1),3,1),COLOR0000FF;{多头序列区间红蓝柱标记}
gsptD:=C < REF(C,1) AND C < REF(C,2);{第一根起始空头K线:收盘小于前1、前2日}
gsptE:=REF(gsptD,1) AND C >=REF(C,1) AND C <=REF(C,2);{空头第二根震荡K线}
gsptF:=REF(gsptE,1) AND C <=REF(C,1) AND C >=REF(C,2);{空头第三根震荡K线}
gspt10:=REF(gsptF,1) AND C >=REF(C,1) AND C <=REF(C,2);{空头第四根震荡K线}
gspt11:=REF(gspt10,1) AND C <=REF(C,1) AND C >=REF(C,2);{空头第五根震荡K线}
gspt12:=REF(gspt11,1) AND C >=REF(C,1) AND C <=REF(C,2);{空头第六根震荡K线}
gspt13:=REF(gspt12,1) AND C <=REF(C,1) AND C >=REF(C,2);{空头第七根震荡K线}
gspt14:=REF(gspt13,1) AND C >=REF(C,1) AND C <=REF(C,2);{空头第八根震荡K线}
gspt15:=REF(gspt14,1) AND C <=REF(C,1) AND C >=REF(C,2);{空头第九根震荡K线}
gspt16:=REF(gspt15,1) AND C >=REF(C,1) AND C <=REF(C,2);{空头第十根震荡K线}
gspt17:=REF(gspt16,1) AND C <=REF(C,1) AND C >=REF(C,2);{空头第十一根震荡K线}
gspt18:=REF(gspt17,1) AND C >=REF(C,1) AND C <=REF(C,2);{空头第十二根震荡K线,空头序列完结}
STICKLINE(gsptD||gsptE||gsptF||gspt10||gspt11||gspt12||gspt13||gspt14||gspt15||gspt16||gspt17||gspt18,C,REF(C,1),3,1),COLORFFFF00;{空头序列黄色柱标记}
gspt19:=REF(gsptD||gsptE||gsptF||gspt10||gspt11||gspt12||gspt13||gspt14||gspt15||gspt16||gspt17||gspt18,1) AND gspt1;{空头序列结束后出现首根多头启动K线}
DRAWTEXT_FIX(1,0.980,20,1,'公式平台,公式源码 http://www.gspt.com'),COLOR333333;
STICKLINE(gspt19,REF(C,1),REF(C,2),3,1),COLOR0066FF;{空转多渐变粗蓝柱第一层}
STICKLINE(gspt19,REF(C,1),REF(C,2),2,0),COLOR0099FF;{空转多渐变蓝柱第二层}
STICKLINE(gspt19,REF(C,1),REF(C,2),1,0),COLOR00CCFF;{空转多渐变蓝柱第三层}
STICKLINE(gspt19,REF(C,1),REF(C,2),0,0),COLOR00FFFF;{空转多渐变浅蓝芯柱}
gspt1A:=REF(gspt1||gspt2||gspt3||gspt4||gspt5||gspt6||gspt7||gspt8||gspt9||gsptA||gsptB||gsptC,1) AND gsptD;{多头序列结束后出现首根空头启动K线}
STICKLINE(gspt1A,REF(C,1),REF(C,2),3,1),COLOR006600;{多转空粗绿柱第一层}
STICKLINE(gspt1A,REF(C,1),REF(C,2),2,0),COLOR009900;{多转空绿柱第二层}
STICKLINE(gspt1A,REF(C,1),REF(C,2),1,0),COLOR00CC00;{多转空绿柱第三层}
STICKLINE(gspt1A,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);{短期强弱指标1,4周期指数平均}
C2:=EMA(((0.667*REF(C1,1))+(0.333*C1)),2);{强弱平滑均线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;{强势K线高低点紫轮廓线}
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;{弱势K线高低点黄轮廓线}
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);{还原标准K线底色骨架}
STICKLINE((C-REF(C,1))/REF(C,1) >=0.099,C,O,3,1),COLORMAGENTA;{涨停K线实体加粗洋红标记}
利润总额(亿):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;{5日均线命名绝尘走势粗紫线}
NOTEXTU:IF(绝尘走势 > REF(绝尘走势,1),绝尘走势,DRAWNULL),COLORFF00FF,LINETHICK2;{5日线上行段保留紫色显示}
NOTEXTN:IF(绝尘走势 < REF(绝尘走势,1),绝尘走势,DRAWNULL),COLOR00FF00,LINETHICK2;{5日线下行段切换绿色显示}
X:=(3*C+O+H+L)/6;{均价加权基础价格}
天堂之路:WMA(X,20),COLOR80FFFF,LINETHICK2;{20周期加权均线命名天堂之路浅青粗线}
NOTEXT地:IF(天堂之路 < REF(天堂之路,1),天堂之路,DRAWNULL),CIRCLEDOT,COLOR400000,LINETHICK2;{20日线走弱段实心黑点深灰}
NOTEXT天:IF(绝尘走势 > 天堂之路,天堂之路,DRAWNULL),CIRCLEDOT,COLOR000080,LINETHICK2;{5日线站上20日线时20日线变深蓝圆点}
短线:=WMA(X,8);{8周期加权短线均线}
短6:=(LLV(短线,2)+LLV(短线,4)+LLV(短线,6))/3;{短线低位均值支撑线}
下跌:=IF(短线=短6,短6,DRAWNULL);{短线触及支撑位显示支撑值}
TYP :=(H+L+C)/3;{经典CCI标准典型价格}
CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,5));{6周期CCI指标}
差值1:=ABS(REF(CCI1,1)-CCI1);{6周期CCI当日与昨日差值绝对值}
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));{10周期CCI}
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));{20周期CCI}
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));{30周期CCI}
差值4:=ABS(REF(CCI4,1)-CCI4);{30周期CCI两日差值}
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));{60周期CCI长线}
差值5:=ABS(REF(CCI5,1)-CCI5);{60周期CCI两日差值}
CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;{多周期CCI叠加合成综合CCI}
TJ1:=CCI1 > 差值4;{6周期CCI强度大于30周期波动差值条件}
BBF:=MA(LLV(L,34),4);{34日最低价4周期均线,底部基准位}
LC:=REF(C,1);{昨日收盘价简化变量}
RSI:=SMA(MAX(C-LC,0),3,1)/SMA(ABS(C-LC),3,1)*100;{3周期短期相对强弱RSI}
FF:=EMA(C,3);{3日指数均线}
MA15:=EMA(C,21);{21日指数均线}
DRAWTEXT(CROSS(FF,MA15),BBF,'底背离'),COLOR00FF00;{3日均线上穿21日线,底部标注底背离绿字}
DRAWTEXT(CROSS(88,RSI),H,'顶背离'),DRAWABOVE,COLORFFFFFF;{RSI上穿88超买区,最高价上方标顶背离白字}
BB13:=ATAN(EMA(TYP,13)-REF(EMA(TYP,13),1))*3.1416*10;{13周期均价均线斜率角度换算}
EMA8:=EMA(C,8);{8日指数均线}
DRAWTEXT(FILTER(BB13 > 1 AND EMA(TYP,13) > REF(EMA(TYP,8),1),10),EMA8,'∠45'),COLORFFFFFF;{斜率大于1、13均价稳站8均,过滤10周期标45度白字}
所属板块:=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));{(营收-主营成本)/营收×100毛利率}
净利润率:=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,市盈率);{固定位置显示市盈率,仅最后一根K线渲染}
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));{净资产收益率ROE百分比}
主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));{营业利润/营收主营利润率}
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(净资收益率,毛利率),主营利润率));{合并ROE、毛利、主营利润率文本}
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));{锁定190周期内十日成交额峰值常量}
DRAWTEXT_FIX(1,0.71,0.07,0,'净流(亿):'),COLOR8080FF,COLORWHITE;{右上角标题净流亿}
DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLOR8080FF,COLORWHITE;{1日净流标签}
DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLOR8080FF,COLORWHITE;{3日净流标签}
DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLOR8080FF,COLORWHITE;{5日净流标签}
DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLOR8080FF,COLORWHITE;{10日净流标签}
DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((净流))),COLORYELLOW;{固定位置显示1日净流数值黄色}
DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((净流3))),COLORYELLOW;{3日净流数值}
DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((净流5))),COLORYELLOW;{5日净流数值}
DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((净流10))),COLORYELLOW;{10日净流数值}
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;{自动适配科创/创业板/ST主板涨停价}
跌停: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);{三连涨停后一日创20新高,当日冲高回落见顶信号}
LBQ:=BARSLAST(LB);{记录见顶信号出现距离当前K线周期数}
量能饱和:100*(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)),NODRAW;{量能饱和度百分比,对比20日均量价匹配度};