最新更新 - 网站地图 -
您的当前位置:首页 > 股票公式 > 公式技巧 > 将K线重心改为通达信

将K线重心改为通达信

来源:网络 点击: 时间:2023-01-05 16:26:58

编写要求:

麻烦老师将K线重心改成通达信的,源码: input: N(4,2,400); {K线} KLINE(O,H,L,C,0); ZF:=(C-REF(C,1))/REF(C,1); TJ:=ZF>=N/100 OR ZF<=-N/100; AA:=IF(REF(H,BARSLAST(TJ))REF(C,BARSLAST(TJ)+1),REF(C,BARSLAST(TJ)+1),REF(L,BARSLAST(TJ))); PARTLINE(BARSLAST(TJ),REF(LOW,BARSLAST(TJ))),COLORGREEN;//下限: PARTLINE(BARSLAST(TJ),REF(LOW,BARSLAST(TJ))),SHIFT1,COLORGREEN; PARTLINE(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ))),COLORYELLOW;//上限: PARTLINE(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ))),SHIFT1,COLORYELLOW; PARTLINE(BARSLAST(TJ),(AA+BB)/2),COLORWHITE;//重心: PARTLINE(BARSLAST(TJ),(AA+BB)/2),SHIFT1,COLORWHITE;

解答:

?{K线 N(4,2,400);}

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
ZF:=(C-REF(C,1))/REF(C,1);
TJ:=ZF>=N/100 OR ZF<=-N/100;
AA:=IF(REF(H,BARSLAST(TJ)) BB:=IF(REF(L,BARSLAST(TJ))>REF(C,BARSLAST(TJ)+1),REF(C,BARSLAST(TJ)+1),REF(L,BARSLAST(TJ)));
下限:IF(BARSLAST(TJ),REF(LOW,BARSLAST(TJ)),DRAWNULL),colorgreen;
上限:IF(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ)),DRAWNULL),coloryellow;
重心:IF(BARSLAST(TJ),(AA+BB)/2,DRAWNULL),colorwhite;

    Copyright 2018- www.dyjian.com/ 大宇股票知识网 海口美兰韩哲棚百货商行 版权所有 琼ICP备2023001966号

    免责声名:本站所发表的内容仅用于学术交流和学习,内容所带来的一切后果均与本站无关。若您发现本站存在您非授权的原创作品,请第一时间联系本站删除!

    Top