{填充背景}DRAWGBK(C>1,RGB(0,0,0),RGB(1,1,1),1,0,0);DRAWKLINE(H,O,L,C);
TS:=CURRBARSCOUNT;TS1:=BARSSINCE(C)+1;常数:=CONST(BARSSINCE(C));H1:=REFX(H,常数-TS1*2+2);H2:=REF(H,常数-TS*2+2);L1:=REFX(L,常数-TS1*2+2);L2:=REF(L,常数-TS*2+2);LL:=IF(TS>TS1,L1,L2);HH:=IF(TS>TS1,H1,H2);上跳空:=HH<REF(LL,1);上跳空成立:=上跳空 AND HH<REF(LLV(LL,0),1);上跳条件:=SUM(上跳空成立,BARSSINCE(C))=1 AND 上跳空成立;上跳高点:CONST(REF(IF(上跳条件,REF(LLV(LL,0),1),0),BARSLAST(上跳条件))),NODRAW;HD:=CONST(上跳高点);上跳:=REF(上跳条件,常数-TS*2+2) OR REFX(上跳条件,常数-TS1*2+2);LD:=CONST(REF(H,BARSLAST(上跳)));上跳低点:REF(H,BARSLAST(上跳)),NODRAW;STICKLINE(ISLASTBAR,上跳高点,REF(H,BARSLAST(上跳)),BARSLAST(上跳)*8,0),COLOR00009B;{画线延长段，若不需要此行删除};DRAWBAND(上跳高点,RGB(155,0,0),REF(H,BARSLAST(上跳)),0);PD1:=ABS(HD-LD)/MIN(HD,LD)*100<3AND L<=CONST(MAX(HD,LD))*1.01 AND L>CONST(MAX(HD,LD)) AND 上跳低点<>DRAWNULL AND C<O;下跳空:=LL>REF(HH,1);下跳空成立:=下跳空 AND LL>REF(HHV(HH,0),1);下跳条件:=SUM(下跳空成立,BARSSINCE(C))=1 AND 下跳空成立;下跳高点:=CONST(REF(IF(下跳条件,REF(HHV(HH,0),1),0),BARSLAST(下跳条件))),NODRAW;下跳:=REF(下跳条件,常数-TS*2+2) OR REFX(下跳条件,常数-TS1*2+2);STICKLINE(ISLASTBAR,下跳高点,REF(L,BARSLAST(下跳)),BARSLAST(下跳)*8,0),COLOR54AD02;{画线延长段，若不需要此行删除};PD2:=ABS(HD-LD)/MIN(HD,LD)*100<3 AND L=CONST(MAX(HD,LD)) AND C<O AND 上跳低点<>DRAWNULL;DRAWBAND(REF(L,BARSLAST(下跳)),RGB(2,173,84),下跳高点,0);DRAWKLINE(H,O,L,C);PD3:=BARSLASTCOUNT(上跳低点<>DRAWNULL);DRAWICON((PD1 OR PD2) AND PD3>4,L,3);
{收盘价和开盘价划线}开盘价:DYNAINFO(4),DOTLINE,COLORMAGENTA;收盘价:DYNAINFO(7),DOTLINE,COLORYELLOW;DRAWTEXT_FIX(1,0,70,0,'~★~公式指标公众号~★~'),COLOR00FFFF;{基本资料}所属板块:=STRCAT('【所属板块】：',STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [概念]—',GNBLOCK)));风格板块:=STRCAT('【风格板块】：',STRCAT(STRCAT(' [地域]—',DYBLOCK),STRCAT(' [风格]—',FGBLOCK)));总股本:=STRCAT(STRCAT(' 总股本:',CON2STR(TOTALCAPITAL/1000000,2)),'亿');流通盘:=STRCAT(STRCAT(' 流通盘:',CON2STR(CAPITAL/1000000,2)),'亿');全流通:=STRCAT(STRCAT(' 流通比:',CON2STR(CAPITAL/TOTALCAPITAL*100,2)),'％');市值:=STRCAT(STRCAT(' 流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'亿');股本市值:=STRCAT('【股本市值】：',STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值));市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2));净资收益率:=STRCAT(' 净资收益率:',CON2STR(FINANCE(33)/FINANCE(34)*100,2));主营利润率:=STRCAT(' 主营利润率:',CON2STR(FINANCE(23)/FINANCE(20)*100,2));当前业绩:=STRCAT('【当前业绩】：',STRCAT(STRCAT(市盈率,净资收益率),主营利润率));DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,所属板块),COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR ,0.005,0.07,0,风格板块),COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,股本市值),COLORMAGENTA;DRAWTEXT_FIX(ISLASTBAR,0.005,0.17,0,当前业绩),COLORMAGENTA;
{统计周期振幅用到未来函数"BACKSET"不影响使用结果}GN:=12;GDG:=1.2;GYLX:=0;GZCX:=0;GA1:=REF(C,GN)=HHV(C,2*GN+1); GB1:=FILTER(GA1,GN); GC1:=BACKSET(GB1,GN+1); GHD:=FILTER(GC1,GN);GA2:=REF(C,GN)=LLV(C,2*GN+1); GB2:=FILTER(GA2,GN); GC2:=BACKSET(GB2,GN+1); GLD:=FILTER(GC2,GN);GUU:=BACKSET(BARSTATUS=2,BARSLAST(GHD)+1);GVV:=GUU>REF(GUU,1);前高:REF(C,BARSLAST(GVV)),COLORRED,LINETHICK2;DRAWTEXT(ISLASTBAR,前高,'前高'),LINETHICK2;GPTZQ:=BARSLAST(GVV);GPTZF:=(HHV(H,GPTZQ)-LLV(L,GPTZQ))/LLV(L,GPTZQ)*100;DRAWTEXT_FIX(ISLASTBAR,0.005,0.27,0,STRCAT(STRCAT('【平台周期】：',CON2STR(GPTZQ,0)),' 天')),COLORRED;DRAWTEXT_FIX(ISLASTBAR,0.005,0.22,0,STRCAT(STRCAT('【平台振幅】：',CON2STR(GPTZF,0)),' %')),COLORRED;
PH:=TROUGHBARS(2,5,1);GL:=HHV(H,PH);TJ1:=GL=HIGH AND GL<REF(GL,1);{//=1}GS:=SUMBARS(TJ1,2);TJ:=PEAKBARS(2,5,1)=1 AND GS>=PH;DRAWICON(TJ,HIGH*1.01+0.02,2);警告灯:IF(TJ,HIGH*1.008,DRAWNULL),CROSSDOT,LINETHICK2,COLORCYAN;PL:=BARSLAST(TJ);支撑位:IF(BARSLAST(TJ1),REF(LOW,BARSLAST(TJ1)),DRAWNULL),COLOREA91B5;压力位:IF(BARSLAST(TJ),REF(HIGH,PL),DRAWNULL),COLORYELLOW;TJ_2:=LOW>REF(REF(LOW,GS),PL);DRAWTEXT(ISLASTBAR,压力位,'压力位'),COLORYELLOW;DRAWTEXT(ISLASTBAR,支撑位,'支撑位'),COLOREA91B5;
第三部分主图/幅图公式源码说明
填充背景K线TS赋值:到最后交易的周期TS1赋值:首次收盘价距今天数+1常数赋值:首次收盘价距今天数的最后一日取值设为常数H1赋值:常数-TS1*2+2日后的最高价H2赋值:常数-TS*2+2日前的最高价L1赋值:常数-TS1*2+2日后的最低价L2赋值:常数-TS*2+2日前的最低价LL赋值:如果TS>TS1,返回L1,否则返回L2HH赋值:如果TS>TS1,返回H1,否则返回H2上跳空赋值:HH<1日前的LL上跳空成立赋值:上跳空 AND HH<1日前的0日内LL的最低值上跳条件赋值:上跳空成立的首次收盘价距今天数日累和=1 AND 上跳空成立输出上跳高点:上次上跳条件距今天数日前的如果上跳条件,返回1日前的0日内LL的最低值,否则返回0的最后一日取值设为常数,NODRAWHD赋值:上跳高点的最后一日取值设为常数上跳赋值:常数-TS*2+2日前的上跳条件 OR 常数-TS1*2+2日后的上跳条件LD赋值:上次上跳距今天数日前的最高价的最后一日取值设为常数输出上跳低点:上次上跳距今天数日前的最高价,NODRAW当满足条件是否最后一个周期时,在上跳高点和上次上跳距今天数日前的最高价位置之间画柱状线,宽度为上次上跳距今天数*8,0不为0则画空心柱.,COLOR00009B
画带状线PD1赋值:HD-LD的绝对值/HD和LD的较小值*100<3AND 最低价<=HD和LD的较大值的最后一日取值设为常数*1.01 AND 最低价>HD和LD的较大值的最后一日取值设为常数 AND 上跳低点不等于无效数 AND 收阴线下跳空赋值:LL>1日前的HH下跳空成立赋值:下跳空 AND LL>1日前的0日内HH的最高值下跳条件赋值:下跳空成立的首次收盘价距今天数日累和=1 AND 下跳空成立下跳高点赋值:上次下跳条件距今天数日前的如果下跳条件,返回1日前的0日内HH的最高值,否则返回0的最后一日取值设为常数,NODRAW下跳赋值:常数-TS*2+2日前的下跳条件 OR 常数-TS1*2+2日后的下跳条件当满足条件是否最后一个周期时,在下跳高点和上次下跳距今天数日前的最低价位置之间画柱状线,宽度为上次下跳距今天数*8,0不为0则画空心柱.,COLOR54AD02
PD2赋值:HD-LD的绝对值/HD和LD的较小值*100<3 AND 最低价=HD和LD的较大值的最后一日取值设为常数 AND 收阴线AND 上跳低点不等于无效数画带状线K线PD3赋值:条件连续成立次数当满足条件(PD1ORPD2)ANDPD3>4时,在最低价位置画3号图标输出开盘价:开盘价,DOTLINE,画洋红色输出收盘价:现价,DOTLINE,画黄色当满足条件1时,在横轴0纵轴70位置书写文字,COLOR00FFFF所属板块赋值:字符串相加风格板块赋值:字符串相加总股本赋值:字符串相加流通盘赋值:字符串相加全流通赋值:字符串相加市值赋值:字符串相加股本市值赋值:字符串相加市盈率赋值:字符串相加净资收益率赋值:字符串相加主营利润率赋值:字符串相加当前业绩赋值:字符串相加当满足条件是否最后一个周期时,在横轴0.005纵轴0.02位置书写文字,画黄色当满足条件是否最后一个周期时,在横轴0.005纵轴0.07位置书写文字,画黄色当满足条件是否最后一个周期时,在横轴0.005纵轴0.12位置书写文字,画洋红色当满足条件是否最后一个周期时,在横轴0.005纵轴0.17位置书写文字,画洋红色GN赋值:12GDG赋值:1.2GYLX赋值:0GZCX赋值:0GA1赋值:GN日前的收盘价=2*GN+1日内收盘价的最高值GB1赋值:GA1的GN日过滤GC1赋值:若GB1则将最近GN+1周期置为1GHD赋值:GC1的GN日过滤GA2赋值:GN日前的收盘价=2*GN+1日内收盘价的最低值GB2赋值:GA2的GN日过滤GC2赋值:若GB2则将最近GN+1周期置为1GLD赋值:GC2的GN日过滤GUU赋值:若数据位置状态=2则将最近上次GHD距今天数+1周期置为1GVV赋值:GUU>1日前的GUU输出前高:上次GVV距今天数日前的收盘价,画红色,线宽为2当满足条件是否最后一个周期时,在前高位置书写文字,线宽为2GPTZQ赋值:上次GVV距今天数GPTZF赋值:(GPTZQ日内最高价的最高值-GPTZQ日内最低价的最低值)/GPTZQ日内最低价的最低值*100当满足条件是否最后一个周期时,在横轴0.005纵轴0.27位置书写文字,画红色当满足条件是否最后一个周期时,在横轴0.005纵轴0.22位置书写文字,画红色PH赋值:最低价5%之字转向的前1个波谷位置GL赋值:PH日内最高价的最高值TJ1赋值:GL=最高价 AND GL<1日前的GLGS赋值:TJ1累加至2的天数TJ赋值:最低价5%之字转向的前1个波峰位置=1 AND GS>=PH当满足条件TJ时,在最高价*1.01+0.02位置画2号图标输出警告灯:如果TJ,返回最高价*1.008,否则返回无效数,CROSSDOT,线宽为2,画青色PL赋值:上次TJ距今天数输出支撑位:如果上次TJ1距今天数,返回上次TJ1距今天数日前的最低价,否则返回无效数,COLOREA91B5输出压力位:如果上次TJ距今天数,返回PL日前的最高价,否则返回无效数,画黄色TJ_2赋值:最低价>PL日前的GS日前的最低价当满足条件是否最后一个周期时,在压力位位置书写文字,画黄色当满足条件是否最后一个周期时,在支撑位位置书写文字,COLOREA91B5
