短线顶底通达信公式 主图 源码附图

所属板块:=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('股本市值: ',STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值));

{业绩}

市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2));

净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(29)/FINANCE(19)*100,2));

毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));

主营利润率:=STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2));

当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(净资收益率,毛利率),主营利润率));

MA120:MA(CLOSE,120),COLOR777700;

MA250:MA(CLOSE,250),COLORRED;

 

NX:=(3*CLOSE+LOW+OPEN+HIGH)/6;    

牛线:=(20*NX+19*REF(NX,1)+18*REF(NX,2)+17*REF(NX,3)+16*REF(NX,4) 

+15*REF(NX,5)+14*REF(NX,6)+13*REF(NX,7)+12*REF(NX,8)+11*REF(NX,9)    

+10*REF(NX,10)+9*REF(NX,11)+8*REF(NX,12)+7*REF(NX,13)+6*REF(NX,14)    

+5*REF(NX,15)+4*REF(NX,16)+3*REF(NX,17)    

+2*REF(NX,18)+REF(NX,20))/210;

牛熊线:MA(牛线,6),COLORGREEN,LINETHICK0;

重心线:(H+L+O+C*3)/6,LINETHICK0;

简底:=H>REF(H,1) AND REF(H,1)<REF(H,2) AND L>REF(L,1) AND REF(L,1)<REF(L,2);

简顶:=H<REF(H,1) AND REF(H,1)>REF(H,2) AND L<REF(L,1) AND REF(L,1)>REF(L,2);

包含1:=REF(H,1)>=REF(H,2) AND REF(L,1)<=REF(L,2);

包含2:=REF(H,1)<=REF(H,2) AND REF(L,1)>=REF(L,2);

包底1:=H>REF(H,2) AND REF(H,2)<REF(H,3) AND L>REF(L,1) AND REF(L,1)<REF(L,3);

包底2:=H>REF(H,1) AND REF(H,1)<REF(H,3) AND L>REF(L,2) AND REF(L,2)<REF(L,3);

包顶1:=H<REF(H,1) AND REF(H,1)>REF(H,3) AND L<REF(L,2) AND REF(L,2)>REF(L,3);

包顶2:=H<REF(H,2) AND REF(H,2)>REF(H,3) AND L<REF(L,1) AND REF(L,1)>REF(L,3);

复底:=IF(包含1,包底1,IF(包含2,包底2,简底));

复顶:=IF(包含1,包顶1,IF(包含2,包顶2,简顶));

底分型:=IF(BARSLAST(CROSS(牛熊线,重心线))>3,FILTER(BACKSET(FILTER(复底 AND 重心线<牛熊线,3),2),1),0);

顶分型:=IF(BARSLAST(CROSS(重心线,牛熊线))>3,FILTER(BACKSET(FILTER(复顶 AND 重心线>牛熊线,3),2),1),0);

STICKLINE(底分型,C,O,2,0),COLORRED;

STICKLINE(底分型,C,O,0,0),COLORRED;

STICKLINE(底分型,H,L,0,0),COLORRED;

STICKLINE(顶分型,C,O,2,0),COLORYELLOW;

STICKLINE(顶分型,C,O,0,0),COLORYELLOW;

STICKLINE(顶分型,H,L,0,0),COLORYELLOW;

DRAWTEXT(底分型,L*0.99,'底'),COLORRED;

DRAWTEXT(顶分型,H*1.02,'顶'),COLORGREEN;

 

原理解析：
所属板块:=STRCAT('所属板块: ',STRCAT(STRCAT(STRCAT('[行业]-',HYBLOCK),STRCAT(' [地域]-',DYBLOCK)),STRCAT(' [概念]-',GNBLOCK)))
总股本:=STRCAT(STRCAT('总股本: ',CON2STR(TOTAL当前流通股本/1000000,2)),'亿')
流通盘:=STRCAT(STRCAT(' 流通盘: ',CON2STR(当前流通股本/1000000,2)),'亿')
全流通:=STRCAT(' 全流通: ',CON2STR((当前流通股本/1000000)/(TOTAL当前流通股本/1000000),2))
市值:=STRCAT(STRCAT(' 流通市值: ',CON2STR((当前流通股本/1000000)*C,2)),'亿')
股本市值:=STRCAT('股本市值: ',STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值))
{业绩}
市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2))
净资收益率:=STRCAT(' 净资收益率: ',CON2STR(FINANCE(29)/FINANCE(19)*100,2))
毛利率:=STRCAT(' 毛利率: ',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2))
主营利润率赋值:STRCAT(' 主营利润率 ',CON2STR(FINANCE(23)/FINANCE(20)*100,2))
当前业绩:=STRCAT('当前业绩: ',STRCAT(STRCAT(净资收益率,毛利率),主营利润率))
输出MA120:收盘价的120日简单移动平均,COLOR777700
输出MA250:收盘价的250日简单移动平均,画红色
 
NX赋值:(3*收盘价+最低价+开盘价+最高价)/6
    
牛线赋值:(20*NX+19*1日前的NX+18*2日前的NX+17*3日前的NX+16*4日前的NX 
+15*5日前的NX+14*6日前的NX+13*7日前的NX+12*8日前的NX+11*9日前的NX    
+10*10日前的NX+9*11日前的NX+8*12日前的NX+7*13日前的NX+6*14日前的NX    
+5*15日前的NX+4*16日前的NX+3*17日前的NX    
+2*18日前的NX+20日前的NX)/210
输出牛熊线:牛线的6日简单移动平均,画绿色,LINETHICK0
输出重心线:(H+L+O+C*3)/6,LINETHICK0
简底赋值:H>1日前的H AND 1日前的H<2日前的H AND L>1日前的L AND 1日前的L<2日前的L
简顶赋值:H<1日前的H AND 1日前的H>2日前的H AND L<1日前的L AND 1日前的L>2日前的L
包含1赋值:1日前的H>=2日前的H AND 1日前的L<=2日前的L
包含2赋值:1日前的H<=2日前的H AND 1日前的L>=2日前的L
包底1赋值:H>2日前的H AND 2日前的H<3日前的H AND L>1日前的L AND 1日前的L<3日前的L
包底2赋值:H>1日前的H AND 1日前的H<3日前的H AND L>2日前的L AND 2日前的L<3日前的L
包顶1赋值:H<1日前的H AND 1日前的H>3日前的H AND L<2日前的L AND 2日前的L>3日前的L
包顶2赋值:H<2日前的H AND 2日前的H>3日前的H AND L<1日前的L AND 1日前的L>3日前的L
复底赋值:IF(包含1,包底1,IF(包含2,包底2,简底))
复顶赋值:IF(包含1,包顶1,IF(包含2,包顶2,简顶))
底分型赋值:IF(上次牛熊线上穿重心线距今天数>3,FILTER(BACKSET(FILTER(复底 AND 重心线<牛熊线,3),2),1),0)
顶分型赋值:IF(上次重心线上穿牛熊线距今天数>3,FILTER(BACKSET(FILTER(复顶 AND 重心线>牛熊线,3),2),1),0)
当满足条件底分型时,在C和O之间画柱状线
当满足条件底分型时,在C和O之间画柱状线
当满足条件底分型时,在H和L之间画柱状线
当满足条件顶分型时,在C和O之间画柱状线
当满足条件顶分型时,在C和O之间画柱状线
当满足条件顶分型时,在H和L之间画柱状线
当满足条件底分型时,在L*0.99和'底'位置书写文字
当满足条件顶分型时,在H*1.02和'顶'位置书写文字