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

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
上一主题 下一主题

[通达信] 台阶生命线(源码 主图 贴图)


    [-----复制链接-----]
楼主
 通达信源码安装路径:1,工具栏点击公式选项。2,弹出公式窗口点击新建。3,把源码复制到指标编辑器保存。4,回到K线图界面安装建立好的公式 || 2024-3-9 14:26:55
台阶生命线(源码 主图 贴图)介绍

台阶生命线(源码 主图 贴图)

说明:涨跌台阶与生命线的结合。

{台阶生命线}
CON1:=IF(SW=1,IF(L=LLV(L,8*CL),L,DRAWNULL),IF(H=HHV(H,8*CL),H,DRAWNULL));
CON2:=IF(SW=1,CONST(BARSLAST(CON1=L))+1,CONST(BARSLAST(CON1=H))+1);
BLIN:IF(CURRBARSCOUNT<=CON2,CONST(IF(SW=1,IF(CON2=1,L,REF(L,CON2-1)),IF(CON2=1,H,REF(H,CON2-1)))),DRAWNULL);
ST0.5:IF(SW=1,BLIN*1.0809,BLIN/1.0809),COLOR89615F;
ST1:IF(SW=1,BLIN*1.1618,BLIN/1.1618),COLOR89615F;
ST1.5:IF(SW=1,IF(CONST(EXIST(C>ST1,CON2)),ST1*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST1,CON2)),ST1/1.0809,DRAWNULL)),COLOR89615F;
ST2:IF(SW=1,IF(CONST(EXIST(C>ST1.5,CON2)),ST1*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST1.5,CON2)),ST1/1.1618,DRAWNULL)),COLOR89615F;
ST2.5:IF(SW=1,IF(CONST(EXIST(C>ST2,CON2)),ST2*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST2,CON2)),ST2/1.0809,DRAWNULL)),COLOR89615F;
ST3:IF(SW=1,IF(CONST(EXIST(C>ST2.5,CON2)),ST2*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST2.5,CON2)),ST2/1.1618,DRAWNULL)),COLOR89615F;
ST3.5:IF(SW=1,IF(CONST(EXIST(C>ST3,CON2)),ST3*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST3,CON2)),ST3/1.0809,DRAWNULL)),COLOR89615F;
ST4:IF(SW=1,IF(CONST(EXIST(C>ST3.5,CON2)),ST3*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST3.5,CON2)),ST3/1.1618,DRAWNULL)),COLOR89615F;
ST4.5:IF(SW=1,IF(CONST(EXIST(C>ST4,CON2)),ST4*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST4,CON2)),ST4/1.0809,DRAWNULL)),COLOR89615F;
ST5:IF(SW=1,IF(CONST(EXIST(C>ST4.5,CON2)),ST4*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST4.5,CON2)),ST4/1.1618,DRAWNULL)),COLOR89615F;
ST5.5:IF(SW=1,IF(CONST(EXIST(C>ST5,CON2)),ST5*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST5,CON2)),ST5/1.0809,DRAWNULL)),COLOR89615F;
ST6:IF(SW=1,IF(CONST(EXIST(C>ST5.5,CON2)),ST5*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST5.5,CON2)),ST5/1.1618,DRAWNULL)),COLOR89615F;
ST6.5:IF(SW=1,IF(CONST(EXIST(C>ST6,CON2)),ST6*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST6,CON2)),ST6/1.0809,DRAWNULL)),COLOR89615F;
ST7:IF(SW=1,IF(CONST(EXIST(C>ST6.5,CON2)),ST6*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST6.5,CON2)),ST6/1.1618,DRAWNULL)),COLOR89615F;
ST7.5:IF(SW=1,IF(CONST(EXIST(C>ST7,CON2)),ST7*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST7,CON2)),ST7/1.0809,DRAWNULL)),COLOR89615F;
ST8:IF(SW=1,IF(CONST(EXIST(C>ST7.5,CON2)),ST7*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST7.5,CON2)),ST7/1.1618,DRAWNULL)),COLOR89615F;
ST8.5:IF(SW=1,IF(CONST(EXIST(C>ST8,CON2)),ST8*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST8,CON2)),ST8/1.0809,DRAWNULL)),COLOR89615F;
ST9:IF(SW=1,IF(CONST(EXIST(C>ST8.5,CON2)),ST8*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST8.5,CON2)),ST8/1.1618,DRAWNULL)),COLOR89615F;
ST9.5:IF(SW=1,IF(CONST(EXIST(C>ST9,CON2)),ST9*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST9,CON2)),ST9/1.0809,DRAWNULL)),COLOR89615F;
ST10:IF(SW=1,IF(CONST(EXIST(C>ST9.5,CON2)),ST9*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST9.5,CON2)),ST9/1.1618,DRAWNULL)),COLOR89615F;
ST10.5:IF(SW=1,IF(CONST(EXIST(C>ST10,CON2)),ST10*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST10,CON2)),ST10/1.0809,DRAWNULL)),COLOR89615F;
ST11:IF(SW=1,IF(CONST(EXIST(C>ST10.5,CON2)),ST10*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST10.5,CON2)),ST10/1.1618,DRAWNULL)),COLOR89615F;
ST11.5:IF(SW=1,IF(CONST(EXIST(C>ST11,CON2)),ST11*1.0809,DRAWNULL),IF(CONST(EXIST(C<ST11,CON2)),ST11/1.0809,DRAWNULL)),COLOR89615F;
ST12:IF(SW=1,IF(CONST(EXIST(C>ST11.5,CON2)),ST11*1.1618,DRAWNULL),IF(CONST(EXIST(C<ST11.5,CON2)),ST11/1.1618,DRAWNULL)),COLOR89615F;

VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));

VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));

VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));

{DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),1);

DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.013),2);}

DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.984),'进 '),COLORFF00FF;

DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.035),'出 '),COLOR3AFF00;

分界线:MA(CLOSE,21),COLORYELLOW;

STICKLINE(C>=分界线 AND C>=O,C,O,5,0),COLORRED;

STICKLINE(C>=分界线 AND C>=O,H,L,0,0),COLORRED;

STICKLINE(C>=分界线 AND C<O,C,O,5,1),COLORRED;

STICKLINE(C>=分界线 AND C<O,O,H,0,0),COLORRED;

STICKLINE(C>=分界线 AND C<O,C,L,0,0),COLORRED;

STICKLINE(C<分界线 AND C>O,C,O,5,1),COLORFFFF00;

STICKLINE(C<分界线 AND C<=O,C,O,5,1),COLORFFFF00;

STICKLINE(C<分界线 AND C<=O,H,L,0,1),COLORFFFF00;

STICKLINE(C<分界线 AND C>O,C,H,0,1),COLORFFFF00;

STICKLINE(C<分界线 AND C>O,O,L,0,1),COLORFFFF00;
 


 




 



gd17689

回复

举报

GMT+8, 2025-1-10 18:43

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