今天设计一个跨周期的开关策略[MC平台],为方便家中和公司电脑源码同步,特设此贴
一、初衷是这样的:(1)、我有一个顺势的交易策略;(均线、BOLL带,区另突破类,跑小时周期线图)
(2)、需要在更大一个周期之上做一个过滤。(日线级别做过滤,初步是5、10两均线多头排列就只多不空;空头排列就只空不多);
二、我设计的跑实盘的工作区是这样的:
我设计了一个品字型的工作区,上方是主实盘策略图,下面有两个子图,一个是同上方同一致的但是不启动自动交易,我放在左下方;在右下方我设计了一个跨周期的大周期同品种的技术图,在这里我是设置的日线图,也算是一个开关,只有这里面的开关显示可做多或做空才在上方的实盘图中进多或空。因为实盘中是不显示历史进场记录的,所以我在左下方的图中将策略与指标同时也加载上,这样我就能知道实盘中进场与策略应该操作是不是一致。
得益于我27寸的屏幕,分三区还是显示的棒棒的。{:4_131:}
[img]http://p.qhlt.cn/filestores/2019/03/21/2086caf2f76ec2f86c63e08e5bf7630c.png[/img] 跨周期的思路是这样的:
因为默认主图跑的是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] 刚找到问题所在,这个输出与输入要加载到图表上面才会显示。。。。。。。。。。。。。。。。。。 [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] 还是有问题,晚上回家再处理 源自这样一个问题:[url]https://forum.multicharts.cn/forum/cat/0/thread/748?k=%E5%85%A8%E5%B1%80%E5%8F%98%E9%87%8F[/url] 最后面总结一下。 最后总结 [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] 上面上设置的一个开关的情况,最近几天实盘小跑一下,看看效果。
这里说一下MC的一些问题:
首先就是写入到电脑文档的问题,本来这个是最方便的方式,将开关的钥匙放到这个文档里面最好的。但是MC要在资管版才能这个权限,平常的客户是不能写入到文档里面的。
替代方案就是将这个开关设置为全局变量。然后将这个开关在其它信号里面引用。同时全局全量也要写在信号中,不能写在指标中的。 上面的就是赋值给一个全局变量,在后面的其它信号策略中引用就行了。
类似这样即可。[code]
var1 = GVGetNamedInt("GlobalVar1",-1);
[/code] 这几天小跑试试,套到aberration和RUMI这两个经典策略中跑一下。 同时这个贴子也将转到编程圈中
页:
[1]