以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  麻烦老师给改一下  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=269)
--  作者：wtx128153
--  发布时间：2009/11/25 15:28:56
--  麻烦老师给改一下

NN:=BARSLAST(DATE<>REF(DATE,1))+1;
KH:=HHV(NN,300);

VERTLINE(DATE<>REFX(DATE,1)&&ISLASTBAR<>1&&KH<>1,COLORBLUE);
QQ:=OPI-REF(OPI,1);
K1:=IFELSE(CLOSE>OPEN&&QQ>=0,QQ,0);
KK1:=IFELSE(CLOSE<OPEN&&QQ<0,QQ,0);

KKK1:=IFELSE(CLOSE=OPEN,QQ*0.5,0);

K2:=IFELSE(CLOSE<OPEN&&QQ>=0,QQ,0);

KK2:=IFELSE(CLOSE>OPEN&&QQ<0,QQ,0);

DO:=SUM(K1,NN)+SUM(KK1,NN)+SUM(KKK1,NN);
KO:=SUM(K2,NN)+SUM(KK2,NN)+SUM(KKK1,NN);
N4:=IFELSE(NN<=4,NN,4);
VK1:=IFELSE(CLOSE>=OPEN,VOL,0);

VK2:=IFELSE(CLOSE<=OPEN,VOL,0);

VDO:=SUM(VK1,N4);
VKO:=SUM(VK2,N4);
VDK:=VDO-VKO;
STICKLINE(VDK>=0,VDK,0,COLORRED,0);

STICKLINE(VDK<=0,VDK,0,COLORCYAN,0);

CC:=SUM(QQ,NN);

DRAWNUMBER(ISLASTBAR&&CC>0,0,CC,0,COLORMAGENTA);

DRAWNUMBER(ISLASTBAR&&CC<0,0,CC,0,COLORBLUE);

W:=MOD(NN,5);
J:=BACKSET(ISLASTBAR,5);
文华码改成金字塔码,谢谢!
--  作者：金字塔
--  发布时间：2009/11/25 15:45:55
--  

NN:=BARSLAST(DATE<>REF(DATE,1))+1;
KH:=HHV(NN,300);

VERTLINE(DATE<>REFX(DATE,1) and ISLASTBAR<>1 and KH<>1,COLORBLUE);
QQ:=OPENINT-REF(OPENINT,1);
K1:=IF(CLOSE>OPEN and QQ>=0,QQ,0);
KK1:=IF(CLOSE<OPEN and QQ<0,QQ,0);

KKK1:=IF(CLOSE=OPEN,QQ*0.5,0);

K2:=IF(CLOSE<OPEN and QQ>=0,QQ,0);

KK2:=IF(CLOSE>OPEN and QQ<0,QQ,0);

DO:=SUM(K1,NN)+SUM(KK1,NN)+SUM(KKK1,NN);
KO:=SUM(K2,NN)+SUM(KK2,NN)+SUM(KKK1,NN);
N4:=IF(NN<=4,NN,4);
VK1:=IF(CLOSE>=OPEN,VOL,0);

VK2:=IF(CLOSE<=OPEN,VOL,0);

VDO:=SUM(VK1,N4);
VKO:=SUM(VK2,N4);
VDK:=VDO-VKO;
STICKLINE(VDK>=0,VDK,0,8,0)COLORRED;

STICKLINE(VDK<=0,VDK,0,8,0)COLORCYAN;

CC:=SUM(QQ,NN);

DRAWNUMBER(ISLASTBAR&&CC>0,0,CC,0),COLORMAGENTA;

DRAWNUMBER(ISLASTBAR&&CC<0,0,CC,0),COLORBLUE;

W:=MOD(NN,5);
J:=BACKSET(ISLASTBAR,5);

 
--  作者：金字塔
--  发布时间：2009/11/25 15:48:06
--  
希望还是自己改
--  作者：wtx128153
--  发布时间：2009/11/25 15:54:48
--  
谢谢老师!