龙听期货论坛's Archiver

C
+
+


 微信: QQ:

龙听 发表于 2019-3-21 15:10

今天设计一个跨周期的开关策略[MC平台],为方便家中和公司电脑源码同步,特设此贴

一、初衷是这样的:

(1)、我有一个顺势的交易策略;(均线、BOLL带,区另突破类,跑小时周期线图)
(2)、需要在更大一个周期之上做一个过滤。(日线级别做过滤,初步是5、10两均线多头排列就只多不空;空头排列就只空不多);

二、我设计的跑实盘的工作区是这样的:

我设计了一个品字型的工作区,上方是主实盘策略图,下面有两个子图,一个是同上方同一致的但是不启动自动交易,我放在左下方;在右下方我设计了一个跨周期的大周期同品种的技术图,在这里我是设置的日线图,也算是一个开关,只有这里面的开关显示可做多或做空才在上方的实盘图中进多或空。因为实盘中是不显示历史进场记录的,所以我在左下方的图中将策略与指标同时也加载上,这样我就能知道实盘中进场与策略应该操作是不是一致。

得益于我27寸的屏幕,分三区还是显示的棒棒的。{:4_131:}

[img]http://p.qhlt.cn/filestores/2019/03/21/2086caf2f76ec2f86c63e08e5bf7630c.png[/img]

龙听 发表于 2019-3-21 15:11

跨周期的思路是这样的:

因为默认主图跑的是5分钟的线图,所以大周期过滤上我选择的是日线级别;初步的思路是5、10日两均线多头排列就只多不空,空头排列就只空不多。

当多头排列时我将信号写入电脑磁盘文档中一个1,当空头排列时就-1 相等是就0;一共就三种状态;包括写到磁盘和从磁盘读出来。可是在编译时老是不显示,先弄一下再说。

不过源码写到一半不到卡住了,因为在软件无论如何也不输出。

[code]
inputs:
price(Close),sline(5),lline(10),txtpath("D:\test.txt");

variables:

ma1(0),ma2(0),signal(0),var0("");

ma1 = AverageFC(price,sline);
ma2 = AverageFC(price,lline);

var0 = txt_Read(txtpath);

signal = StrToNum(var0);

//Print(signal);


Print(.1);
[/code]

龙听 发表于 2019-3-21 16:14

刚找到问题所在,这个输出与输入要加载到图表上面才会显示。。。。。。。。。。。。。。。。。。

龙听 发表于 2019-3-21 16:52

[code]
inputs:
price(Close),sline(5),lline(10),txtpath("D:\test.txt");

variables:

ma1(0),ma2(0),signal(0),var0("");

ma1 = AverageFC(price,sline);
ma2 = AverageFC(price,lline);

if ma1 > ma2 then

begin

Print(File("d:\mc\test.txt"),CurrentTime,CurrentDate);

end

else

begin

Print(File("d:\mc\test.txt"),CurrentTime,CurrentDate);

end;
[/code]

龙听 发表于 2019-3-21 16:52

还是有问题,晚上回家再处理

龙听 发表于 2019-3-21 22:03

源自这样一个问题:[url]https://forum.multicharts.cn/forum/cat/0/thread/748?k=%E5%85%A8%E5%B1%80%E5%8F%98%E9%87%8F[/url]

龙听 发表于 2019-3-22 07:07

最后面总结一下。

龙听 发表于 2019-3-22 07:50

最后总结

龙听 发表于 2019-3-22 07:51

[code]
inputs:
price(Close),sline(5),lline(10);

variables:

ma1(0),ma2(0),signal(0),GlobalVar1(0);


ma1 = AverageFC(price,sline);
ma2 = AverageFC(price,lline);


if ma1 > ma2 then

begin

if GlobalVar1 <> 1 then GVSetNamedInt("globalvar1",1);

end

else

if ma1 < ma2 then

begin

if GlobalVar1 <> -1 then GVSetNamedInt("globalvar1",-1);

end;
[/code]

龙听 发表于 2019-3-22 10:28

上面上设置的一个开关的情况,最近几天实盘小跑一下,看看效果。

这里说一下MC的一些问题:

首先就是写入到电脑文档的问题,本来这个是最方便的方式,将开关的钥匙放到这个文档里面最好的。但是MC要在资管版才能这个权限,平常的客户是不能写入到文档里面的。

替代方案就是将这个开关设置为全局变量。然后将这个开关在其它信号里面引用。同时全局全量也要写在信号中,不能写在指标中的。

龙听 发表于 2019-3-22 10:29

上面的就是赋值给一个全局变量,在后面的其它信号策略中引用就行了。

类似这样即可。[code]
var1 = GVGetNamedInt("GlobalVar1",-1);
[/code]

龙听 发表于 2019-3-22 10:30

这几天小跑试试,套到aberration和RUMI这两个经典策略中跑一下。

龙听 发表于 2019-3-22 10:31

同时这个贴子也将转到编程圈中

页: [1]