股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[通达信] 通达信筹码底顶主图指标公式源码


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 2024-9-23 10:13:35

{指标介绍:
1、紫线为筹码顶,蓝线为筹码低,右则为筹码空间比例,80以上为高位,谨慎操作,小心被套。
2、绿线为区域顶,绿变黄,并成两条黄线,则为妖,当天股价超过绿线,但绿线未变黄则逢高减仓。
3、如果绿线变黄线后,当天股价远离黄线。则逢高减仓。}

总股本:=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.12,0,股本市值),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.17,0,当前业绩),COLORMAGENTA;
筹码顶:REFDATE(CONST(COST(99.999)),DATE),DOTLINE,COLORMAGENTA,LINETHICK2;
筹码底:REFDATE(CONST(COST(0.001)),DATE),DOTLINE,COLORCYAN,LINETHICK2;
CTA1:=((筹码顶-筹码底)/2)+筹码底;CTA2:=(筹码顶-筹码底)/10;
CTA3:=(CTA2*9)+筹码底;
CTA4:=(CTA2*7)+筹码底;
CTA5:=(CTA2*3)+筹码底;
CTA6:=(CTA2*1)+筹码底;
CTA7:=(CTA2*-1)+筹码底;
CTA8:=(EMA(CLOSE,5)*7+EMA(CLOSE,10)*3)/10;
CTA9:=IF(YEAR>=2025,0,1);
CTA10:=EMA(EMA(LOW,21)+6.8*STD(LOW,2),55);
CTA11:=EMA(CLOSE/CTA10*(1.88*CLOSE+LOW+OPEN)/2.75,3);
CTA16:=(CTA11-CTA10)/CTA10/2;
CTA18:=EMA(CTA11-CTA16*CTA11,5)*CTA9;
DRAWTEXT(CURRBARSCOUNT=1,CTA3*0.998,' 90'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,筹码顶*0.998,' 100'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,CTA4*0.998,' 70'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,CTA1*0.998,' 50'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,CTA5*0.998,' 30'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,CTA6*0.998,' 10'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,筹码底*0.998,' 0'),COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=1,CTA7*0.998,'-10'),COLORWHITE;
漏斗下:IF(CTA8>CTA18,CTA8,CTA18)*CTA9,COLORYELLOW,LINETHICK2;
漏斗上:IF(CTA18<CTA8 AND CTA18<C*0.15,EMA(C,300)-3*STD(C,300),CTA18),COLORYELLOW,LINETHICK2;
漏:IF(CTA18>CTA8,漏斗上,DRAWNULL),COLORGREEN,LINETHICK2;
开口XG:BARSLASTCOUNT(漏斗下!=漏斗上)=1,NODRAW;
生命线:IF(CURRBARSCOUNT<13,CONST(COST(67.5)),DRAWNULL),COLORWHITE,DOTLINE;





回复

举报

QQ|

GMT+8, 2024-11-13 07:05

快速回复 返回顶部 返回列表