公式模型编写问题提交-显示函数的问题金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  显示函数的问题  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=59880)

--  作者：zhuwuyun
--  发布时间：2013/12/13 0:14:27
--  显示函数的问题

VARIABLE:MINGAN=-1,TOWERO=0,TOWERC=0,YANSE=1,Y0=0;

IF BARSCOUNT(C)=1 THEN BEGIN
TOWERO:=OPEN; TOWERC:=CLOSE;
END;

IF TOWERC>TOWERO AND NOT(BETWEEN(MINGAN,TOWERO,TOWERC)) THEN
YANSE:=1;
ELSE IF TOWERC<TOWERO AND NOT(BETWEEN(MINGAN,TOWERO,TOWERC)) THEN
YANSE:=0;
ELSE YANSE:=REF(YANSE,1);
AA:=BETWEEN(MINGAN,TOWERO,TOWERC);
BB:=NOT(REF(AA,1));
IF BB THEN BEGIN
TOWERO:=REF(TOWERC,1);
TOWERC:=C;
MINGAN:=REF(TOWERO,1);
END ELSE BEGIN
TOWERO:=REF(TOWERC,1);
TOWERC:=C;
MINGAN:=REF(MINGAN,1);
END;

IF BETWEEN(MINGAN,TOWERO,TOWERC) THEN BEGIN
STICKLINE(BETWEEN(MINGAN,TOWERO,TOWERC),MAX(TOWERO,TOWERC),MINGAN,5,0), COLORRED;
STICKLINE(BETWEEN(MINGAN,TOWERO,TOWERC),MIN(TOWERO,TOWERC),MINGAN,5,0), COLORGREEN;
END ELSE BEGIN
STICKLINE(MINGAN<TOWERC,TOWERO,TOWERC,5,0), COLORRED;
STICKLINE(MINGAN>TOWERC,TOWERO,TOWERC,5,0), COLORGREEN;
END;
STICKLINE((TOWERC=TOWERO OR MINGAN=TOWERC) AND YANSE=1,TOWERO,TOWERC,5,0),COLORRED;
STICKLINE((TOWERC=TOWERO OR MINGAN=TOWERC) AND YANSE=0,TOWERO,TOWERC,5,0),COLORGREEN;
写在源码框里没有提示非法函数，也能运行，为什么不能正常显示，是什么原因？

--  作者：jinzhe
--  发布时间：2013/12/13 8:54:09
--
你用的是3.0以前的版本？代码编译时会没有提示？
此主题相关图片如下：1.png

--  作者：zhuwuyun
--  发布时间：2013/12/13 9:55:19
--
我用的序列模式，逐K线模式根本没有试。在序列模式下，不是应该和其他软件兼容？
在序列模式下调试没看到警告和类似的对话框。

--  作者：jinzhe
--  发布时间：2013/12/13 9:56:55
--
这个代码是要在逐k线模式下运行的，有提示的啊

--  作者：zhuwuyun
--  发布时间：2013/12/13 9:57:08
--
而且看图形明显是显示问题。

--  作者：jinzhe
--  发布时间：2013/12/13 10:12:27
--

按照下面的链接把你认为正确的图像帖一下

http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=31614&page=3

--  作者：zhuwuyun
--  发布时间：2013/12/13 12:40:47
--
图形中有其他指标，调
此主题相关图片如下：d0`uzhn18it}8oeq939`w.jpg

用了前一周的周线。和画了两条均线。与问题无关。

--  作者：jinzhe
--  发布时间：2013/12/13 13:12:57
--

你怎么还在坚持。。。系统都告诉你要用逐k线了

用了逐k线之后，代码修改如下：

VARIABLE:MINGAN=-1,TOWERO=0,TOWERC=0,YANSE=1,Y0=0;

IF BARSCOUNT(C)=1 THEN BEGIN
     TOWERO:=OPEN;     TOWERC:=CLOSE;
END;

r1:=REF(YANSE,1);
r2:=REF(TOWERC,1);
r3:=REF(TOWERO,1);
r4:=REF(MINGAN,1);
IF TOWERC>TOWERO AND NOT(BETWEEN(MINGAN,TOWERO,TOWERC)) THEN
     YANSE:=1;
ELSE IF TOWERC<TOWERO AND NOT(BETWEEN(MINGAN,TOWERO,TOWERC)) THEN
     YANSE:=0;
ELSE YANSE:=r1;
AA:=BETWEEN(MINGAN,TOWERO,TOWERC);
BB:=NOT(REF(AA,1));
IF BB THEN BEGIN
     TOWERO:=r2;
     TOWERC:=C;
     MINGAN:=r3;
END ELSE BEGIN
     TOWERO:=r2;
     TOWERC:=C;
     MINGAN:=r4;
END;

IF BETWEEN(MINGAN,TOWERO,TOWERC) THEN BEGIN
     STICKLINE(BETWEEN(MINGAN,TOWERO,TOWERC),MAX(TOWERO,TOWERC),MINGAN,5,0), COLORRED;
     STICKLINE(BETWEEN(MINGAN,TOWERO,TOWERC),MIN(TOWERO,TOWERC),MINGAN,5,0), COLORGREEN;
END ELSE BEGIN
     STICKLINE(MINGAN<TOWERC,TOWERO,TOWERC,5,0), COLORRED;
     STICKLINE(MINGAN>TOWERC,TOWERO,TOWERC,5,0), COLORGREEN;
END;
STICKLINE((TOWERC=TOWERO OR MINGAN=TOWERC) AND YANSE=1,TOWERO,TOWERC,5,0),COLORRED;
STICKLINE((TOWERC=TOWERO OR MINGAN=TOWERC) AND YANSE=0,TOWERO,TOWERC,5,0),COLORGREEN;

--  作者：zhuwuyun
--  发布时间：2013/12/13 15:00:23
--
不是你让我把我认为对的图形上传的吗？怎么还不耐烦了？
我怎么坚持了，软件说明书告诉我使用历史数据使用K线模式效率低，再说了，我就叠加显示，也不交易，没有使用逐k线模式的需求，只是软件设计不容许在序列模式下使用罢了。
再说了，你这样改，改变了原意，也不是原来的图形吧。我来提问题要求解答，你们是金字塔的客服。我又不欠你钱，你服务客户难道都要呵斥客户吗？你要是不想听意见，我天天来这里给你唱赞歌。
你技术再高，与软件发展无益。
现在软件都很复杂，使用软件都需要学习。不能掌握使用方法，谁能去掏腰包买软件？说到底你是为你公司服务，不仅仅是为我服务！也是为你自己的工资服务。年龄不大，火气不小。算了，下次不来就是了。心脏病犯了，不值得

--  作者：fly
--  发布时间：2013/12/13 15:22:15
--

VARIABLE定义的全局变量,必须用逐K线模式,

8楼的已经给您提供了代码修改,希望您可以仔细看看