共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：这个程序出来的都是买入信号，给我解正一下这个程序，
1楼
qq代人发帖 发表于：2015/6/8 13:48:21MA5:=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;
2楼
jinzhe 发表于：2015/6/8 13:52:54根据调试，你上面的buyk一直是1，而sell一直是0
所以就只有开多没有平多信号
3楼
shannon 发表于：2015/6/8 14:00:50我就是要搞清楚，程序为什么buy为什么一直是1，满足条件才能是1。至于sell我没让它工作。这个程序语法有错误吗？
4楼
shannon 发表于：2015/6/8 14:03:19这个程序不涉及到序列问题或逐K线的问题把？
5楼
jinzhe 发表于：2015/6/8 14:05:37中间的那一段VBS代码，请发往高级区进行讨论
6楼
shannon 发表于：2015/6/8 14:06:30你能发一个最简单的用VBS写的程序给我参考一下吗？用老的交易函数ENTERLONG等写的最最简单的一个小程序。请帮忙
7楼
jinzhe 发表于：2015/6/8 14:06:54参考我的上个回复，那里有专门的人处理
8楼
shannon 发表于：2015/6/8 14:08:09高级区怎么上，又要申请会员吗？
9楼
jinzhe 发表于：2015/6/8 14:14:39
此主题相关图片如下：1.png
10楼
shannon 发表于：2015/6/8 14:24:41知道了，谢谢
共10 条记录, 每页显示 10 条, 页签:
[1]