当前位置:分析家公式网 → 股票公式 → 通达信公式 → 一键转帖:硬气K线主图(通达信公式 主图 源码 测试图)
软件名称:[B]硬气K线主图(通达信公式 主图 源码 测试图)[/B]
软件类型:国产软件
运行环境:Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言:简体中文
授权方式:免费版
软件大小:3.00 KB
官方主页:Home Page
更新时间:2023-07-08 09:07:51
软件简介:
硬气K线主图
MA5:MA(CLOSE,5),COLORCCCCCC;
MA10:MA(CLOSE,10),COLOR00BBBB;
{MA20:MA(CLOSE,20),COLOR00AA00;}
MA30:MA(CLOSE,30),COLOR990099;
{MA60:MA(CLOSE,60),COLOR000088;
MA120:MA(CLOSE,120),COLOR777700;}
MA250:MA(CLOSE,250),COLORRED;
CONST(CLOSE),COLOR009955,POINTDOT;
每股公积:FINANCE(18)/1,NODRAW,COLORGREEN;
未分利润:FINANCE(32)/1,NODRAW,COLORGREEN;
所属板块:=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(净资收益率,毛利率),主营利润率));
{主图显示}
DRAWTEXT_FIX(ISLASTBAR,0.005,0.06,0,所属板块),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,股本市值),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.18,0,当前业绩),COLORGREEN;
主力成本:COST(5),POINTDOT;
了结: COST(98),POINTDOT;
STICKLINE(LOW>SAR(3,1,20)AND 0>C,HIGH,OPEN,0,1),COLORRED;
STICKLINE(LOW>SAR(3,1,20)AND 0>C,CLOSE,OPEN,2.5,1),COLORRED;
STICKLINE(LOW>SAR(3,1,20)AND 0>C,CLOSE,LOW,0,1),COLORRED;
STICKLINE(HIGH<SAR(3,1,20)AND C>0,HIGH,CLOSE,0,1),COLORCYAN;
STICKLINE(HIGH<SAR(3,1,20)AND C>0,CLOSE,OPEN,2.5,1),COLORCYAN;
STICKLINE(HIGH<SAR(3,1,20)AND C>0,OPEN,LOW,0,1),COLORCYAN;
AA:=REF(H,10)=HHV(H,2*10+1.5);
QY:=BACKSET(AA,10+1.5);
CC:=FILTER(QY,10) AND H=HHV(H,10+1.5);
DRAWTEXT(CC,H+0.1,'卖'),COLORGREEN;
BB:=REF(L,10)=LLV(L,2*10+1.5);
QZ:=BACKSET(BB,10+1.5);
DD:=FILTER(QZ,10) AND L=LLV(L,10+1.5);
DRAWTEXT(DD,L-0.1,'买'),COLORFF00FF;
![](http://www.70822.com/soft/UploadPic/2023-7/2023789193386379.png)
[url=http://www.70822.com/soft/sort013/sort05/down-168337.html]硬气K线主图(通达信公式 主图 源码 测试图)[/url]