- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 公式模型编写问题提交 (http://weistock.com/bbs/list.asp?boardid=4)
---- 这个程序出来的都是买入信号，给我解正一下这个程序， (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=79504)
-- 发布时间：2015/6/8 13:48:21
-- 这个程序出来的都是买入信号，给我解正一下这个程序，
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
kpj:=OPEN;
spj:=close;
buyk:=0;
sellk:=0;
<%
vkpj=ffl.VarData("kpj")
vspj=ffl.VarData("SPJ")
vma5=ffl.VarData("MA5")
vma10=ffl.VarData("MA10")
vma20=ffl.VarData("MA20")
last=UBOUND(vspj)
last5=UBOUND(vma5)
lastbuyprice=0
lastsellprice=0
mybuy=0
mysell=0
closelj=0
for i=0 to last
if lastbuyprice=0 AND vspj(last)>vma5(last5) then
mybuy=1
else
mysell=1
end if
next
ffl.VarData("buyk")=mybuy
ffl.VarData("sellk")=mysell
%>
ENTERLONG:buyk;
ENTERSHORT:sellk;
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
kpj:=OPEN;
spj:=close;
buyk:=0;
sellk:=0;
<%
vkpj=ffl.VarData("kpj")
vspj=ffl.VarData("SPJ")
vma5=ffl.VarData("MA5")
vma10=ffl.VarData("MA10")
vma20=ffl.VarData("MA20")
last=UBOUND(vspj)
last5=UBOUND(vma5)
lastbuyprice=0
lastsellprice=0
mybuy=0
mysell=0
closelj=0
for i=0 to last
if lastbuyprice=0 AND vspj(last)>vma5(last5) then
mybuy=1
else
mysell=1
end if
next
ffl.VarData("buyk")=mybuy
ffl.VarData("sellk")=mysell
%>
ENTERLONG:buyk;
ENTERSHORT:sellk;
-- 发布时间：2015/6/8 13:52:54
--
根据调试，你上面的buyk一直是1，而sell一直是0
所以就只有开多没有平多信号
-- 发布时间：2015/6/8 14:00:50
--
我就是要搞清楚，程序为什么buy为什么一直是1，满足条件才能是1。至于sell我没让它工作。这个程序语法有错误吗？
-- 发布时间：2015/6/8 14:03:19
--
这个程序不涉及到序列问题或逐K线的问题把？
-- 发布时间：2015/6/8 14:05:37
--
中间的那一段VBS代码，请发往高级区进行讨论
-- 发布时间：2015/6/8 14:06:30
--
你能发一个最简单的用VBS写的程序给我参考一下吗？用老的交易函数ENTERLONG等写的最最简单的一个小程序。请帮忙
-- 发布时间：2015/6/8 14:06:54
--
参考我的上个回复，那里有专门的人处理
-- 发布时间：2015/6/8 14:08:09
--
高级区怎么上，又要申请会员吗？
-- 发布时间：2015/6/8 14:14:39
--
此主题相关图片如下：1.png
-- 发布时间：2015/6/8 14:24:41
--
知道了，谢谢