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

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[通达信] 通达信天罗地网主图指标公式源码


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

年线:MA(CLOSE,250),LINETHICK1,COLORWHITE,DOTLINE;
E3:EMA(CLOSE,5),DOTLINE,COLORCYAN;
E5:EMA(CLOSE,8),DOTLINE,COLORCYAN;
E8:EMA(CLOSE,10),DOTLINE,COLORCYAN;
E10:EMA(CLOSE,12),DOTLINE,COLORCYAN;
E12:EMA(CLOSE,15),DOTLINE,COLORCYAN;
E30:EMA(CLOSE,60),DOTLINE,COLORGREEN;
E35:EMA(CLOSE,65),DOTLINE,COLORGREEN;
E40:EMA(CLOSE,70),DOTLINE,COLORGREEN;
E45:EMA(CLOSE,75),DOTLINE,COLORGREEN;
E50:EMA(CLOSE,80),DOTLINE,COLORGREEN;
VAR1:=IF(CLOSE>E3 AND LOW<E3,1,0);
VAR2:=IF(CLOSE>E5 AND LOW<E5,1,0);
VAR3:=IF(CLOSE>E8 AND LOW<E8,1,0);
VAR4:=IF(CLOSE>E10 AND LOW<E10,1,0);
VAR5:=IF(CLOSE>E12 AND LOW<E12,1,0);
VAR6:=IF(CLOSE>E30 AND LOW<E30,1,0);
VAR7:=IF(CLOSE>E35 AND LOW<E35,1,0);
VAR8:=IF(CLOSE>E40 AND LOW<E40,1,0);
VAR9:=IF(CLOSE>E45 AND LOW<E45,1,0);
VAR10:=IF(CLOSE>E50 AND LOW<E50,1,0);
VAR11:=VAR1+VAR2+VAR3+VAR4+VAR5;
VAR12:=VAR6+VAR7+VAR8+VAR9+VAR10;
VAR13:=MIN(MIN(MIN(MIN(E3,E5),E8),E10),E12);
VAR14:=MAX(MAX(MAX(MAX(E30,E35),E40),E45),E50);
VAR15:=(CLOSE/REF(CLOSE,1)-1)*100;
VAR16:=VAR11+VAR12>=8 AND VAR15>0;
VAR17:=EVERY(VAR13>VAR14,5) AND VAR11=5 AND VAR15>0;
VAR18:="rsi.RSI1#WEEK"(9);
VAR19:=crOSS(VAR18>50>REF(VAR18>50,1),0.5);
VAR20:=EMA(CLOSE,12)-EMA(CLOSE,26);
VAR21:=CROSS(VAR20,EMA(VAR20,9));
VAR22:=CROSS(EMA(VAR20,9),VAR20);
VAR23:=CONST(SUMBARS(VAR21,2)-BARSLAST(VAR22))>2;
VAR24:=SUMBARS(VAR21,2)-BARSLAST(VAR22);
VAR25:=CONST(FINDHIGHBARS(VAR20,BARSLAST(VAR22),VAR24,1))+1;
VAR26:=CONST(FINDLOWBARS(VAR20,BARSLAST(VAR21),VAR24,1))+1;
VAR28:=CONST(FINDHIGH(HIGH,BARSLAST(VAR22),VAR24,1));
VAR29:=CONST(FINDLOW(LOW,BARSLAST(VAR21),VAR24,1));
IF(E3>REF(E3,1),E3,DRAWNULL),COLORMAGENTA;
IF(E5>REF(E5,1),E5,DRAWNULL),COLORMAGENTA;
IF(E8>REF(E8,1),E8,DRAWNULL),COLORMAGENTA;
IF(E10>REF(E10,1),E10,DRAWNULL),COLORMAGENTA;
IF(E12>REF(E12,1),E12,DRAWNULL),COLORMAGENTA;
IF(E30>REF(E30,1),E30,DRAWNULL),COLORRED;
IF(E35>REF(E35,1),E35,DRAWNULL),COLORRED;
IF(E40>REF(E40,1),E40,DRAWNULL),COLORRED;
IF(E45>REF(E45,1),E45,DRAWNULL),COLORRED;
IF(E50>REF(E50,1),E50,DRAWNULL),COLORRED;
STICKLINE(VAR16,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(VAR17,OPEN,CLOSE,3,0),COLORMAGENTA;
DRAWTEXT(VAR19,LOW, '阶底'),COLORGREEN;
前高:IF(VAR23,IF(CURRBARSCOUNT<=VAR25,VAR28,DRAWNULL),DRAWNULL),COLORMAGENTA,DOTLINE;
前低:IF(VAR23,IF(CURRBARSCOUNT<=VAR26,VAR29,DRAWNULL),DRAWNULL),COLORGREEN,DOTLINE;





回复

举报

QQ|

GMT+8, 2024-11-27 19:58

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