以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  同花顺帮改成金字塔的  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=137986)
--  作者：zhou
--  发布时间：2016/8/15 10:37:55
--  同花顺帮改成金字塔的
I = 0;
PSUM = 0.5;
NSUM = 1;
WHILE (I < ZN) {
    I = I + 1;
    LC = REF(CLOSE, I);
    IF (LC = CLOSE) {
        CONTINUE;
    }
    W1 = LOG( 1 / (ABS(CLOSE - LC)/CLOSE) );
    W2 = LOG(1 + I) / LOG(1 + ZN);
    IF (LC > CLOSE) {
        PSUM = PSUM + REF(VOL, I) * W1 * W2;
    } ELSE {
        NSUM = NSUM + REF(VOL, I) * W1 * W2;
    }
}
Z = PSUM / NSUM;
IF (Z > 1) Z = 1;

ZULI : Z;
R055 : 0.55;
R090 : 0.90;
--  作者：jinzhe
--  发布时间：2016/8/15 10:40:48
--  
ZN的初值是多少？
--  作者：zhou
--  发布时间：2016/8/15 10:43:51
--  
默认120，最小1，最大300，设成参数 
--  作者：jinzhe
--  发布时间：2016/8/15 10:47:22
--  

zn:=120;
I： = 0;
PSUM： = 0.5;
NSUM： = 1;
WHILE (I < ZN) do begin
    I: = I + 1;
    LC: = REF(CLOSE, I);
    IF (LC = CLOSE) then
        CONTINUE;
   
    W1: = LOG( 1 / (ABS(CLOSE - LC)/CLOSE) );
    W2: = LOG(1 + I) / LOG(1 + ZN);
    IF (LC > CLOSE) then
        PSUM := PSUM + REF(VOL, I) * W1 * W2;
    ELSE
        NSUM := NSUM + REF(VOL, I) * W1 * W2;
   

Z: = PSUM / NSUM;
IF (Z > 1) then  Z: = 1;
end
ZULI : Z;
R055 : 0.55;
R090 : 0.90;