共9 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：添加缺失的代码
1楼
苦麻菜真好吃 发表于：2016/8/29 10:58:59麻烦老师帮我写下代码、用后台的写
ZH:='';
PZ1:='PP09';
PZ2:='PP01';
globalvariable:Y=0;
KK1:C1>C2;
KK2:C1<C2;
tt:TIME>131500 AND TIME<185500;
//盈利计算（对于这个模型监控品种的盈利计算）
盈利>500;
//盈利平仓
IF 盈利>500 THEN BEGIN
pz1平仓反手；
pz平仓反手；
end
//按条件开仓
IF KK1 AND tt and 没有持仓 then begin
多PZ1;
空pz2；
end
IF KK2 AND tt and 没有持仓 then begin
多PZ2;
空pz1；
end
2楼
jinzhe 发表于：2016/8/29 11:11:40有两个地方我写一下，用户照着写剩下的地方
1.
盈利:=topenprofit;
2.
然后品种1开平仓
tbuy(1,1,lmt,dynainf2(7,pz1),0,'',pz1);
tsell(1,1,lmt,dynainf2(7,pz1),0,'',pz1);
tbuyshort(1,1,lmt,dynainf2(7,pz1),0,'',pz1);
tsellshort(1,1,lmt,dynainf2(7,pz1),0,'',pz1);
pz1改成pz2就是pz2的开平仓
加入持仓判断：
tbuy(tbuyholdingex('',pz1,0)=0,1,lmt,dynainf2(7,pz1),0,'',pz1);
tsell(1,1,lmt,dynainf2(7,pz1),0,'',pz1);
tbuyshort(tsellholdingex('',pz2,0)=0,1,lmt,dynainf2(7,pz1),0,'',pz1);
tsellshort(1,1,lmt,dynainf2(7,pz1),0,'',pz1);
同样是只要把pz1改成pz2就是pz2的开平仓里面加上持仓判断
[此贴子已经被作者于2016-8-29 11:11:52编辑过]
3楼
苦麻菜真好吃 发表于：2016/8/29 13:58:31tt:TIME>130500 AND TIME<185500;
//盈利平仓
YLPC:taccount(4)>=1000;
if YLPC THEN BEGIN
tbuy(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tsell(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuyshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tsellshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuy(1,14,lmt,dynainfo2(7,pz2),0,'',pz2);
tsell(1,14,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuyshort(1,14,lmt,dynainfo2(7,pz2),0,'',pz2);
tsellshort(1,14,lmt,dynainfo2(7,pz2),0,'',pz2);
END
IF KK1 AND tt then begin
tbuy(tbuyholdingex('',pz1,0)=0,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tsell(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuyshort(tsellholdingex('',pz2,0)=0,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tsellshort(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
end
IF KK2 AND tt then begin
tbuy(tbuyholdingex('',pz2,0)=0,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tsell(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuyshort(tsellholdingex('',pz1,0)=0,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tsellshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
end
这样写对吗？
4楼
苦麻菜真好吃 发表于：2016/8/29 14:07:51我的想法是、满足条件K1，品种1开多、品种2开空
满足条件K2，品种1开空、品种2开多
当盈利>500时，平仓并且反手、
在日内用条件K1、K2条件开仓一次，之后反手也只能开一次仓、若收盘前盈利>0那么清仓、若收盘前盈利<0,那么继续持仓
5楼
jinzhe 发表于：2016/8/29 14:10:16if YLPC and tbuyholdingex('',pz1,0)>0 and tsellholdingex('','pz2',0)>0THEN BEGIN
tsell(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tsellshort(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuy(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuyshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
end
if YLPC and tbuyholdingex('',pz2,0)>0 and tsellholdingex('','pz1',0)>0THEN BEGIN
tsell(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tsellshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuy(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuyshort(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
end
IF KK1 AND tt then begin
tbuy(tbuyholdingex('',pz1,0)=0,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuyshort(tsellholdingex('',pz2,0)=0,10,lmt,dynainfo2(7,pz2),0,'',pz2);
end
IF KK2 AND tt then begin
tbuy(tbuyholdingex('',pz2,0)=0,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuyshort(tsellholdingex('',pz1,0)=0,10,lmt,dynainfo2(7,pz1),0,'',pz1);
end
6楼
苦麻菜真好吃 发表于：2016/8/29 14:54:52为啥不能执行平仓反手呢？
此主题相关图片如下：cb3tom%d_{byh`an5n4qim.png
YLPC:topenprofit>=500;
if YLPC and tbuyholdingex('',pz1,0)>0 and tsellholdingex('','pz2',0)>0 THEN BEGIN
tsell(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tsellshort(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuy(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuyshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
end
if YLPC and tbuyholdingex('',pz2,0)>0 and tsellholdingex('','pz1',0)>0 THEN BEGIN
tsell(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tsellshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuy(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuyshort(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
end
7楼
jinzhe 发表于：2016/8/29 14:59:06浮动盈亏要用上面的帐号函数
8楼
苦麻菜真好吃 发表于：2016/8/30 9:33:53这两个函数、都试过了、都不行、怎么回事呢？
此主题相关图片如下：6cr5134ke5`x4xnna}y96.png
此主题相关图片如下：6cr5134ke5`x4xnna}y96.pngYLPC:=taccount(4)>=500;
//YLPC:topenprofit>=500;
if YLPC and tbuyholdingex('',pz1,0)>0 and tsellholdingex('','pz2',0)>0 THEN BEGIN
tsell(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tsellshort(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuy(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuyshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
end
if YLPC and tbuyholdingex('',pz2,0)>0 and tsellholdingex('','pz1',0)>0 THEN BEGIN
tsell(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tsellshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuy(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuyshort(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
end
IF KK1 AND tt then begin
tbuy(tbuyholdingex('',pz1,0)=0,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuyshort(tsellholdingex('',pz2,0)=0,10,lmt,dynainfo2(7,pz2),0,'',pz2);
end
IF KK2 AND tt then begin
tbuy(tbuyholdingex('',pz2,0)=0,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuyshort(tsellholdingex('',pz1,0)=0,10,lmt,dynainfo2(7,pz1),0,'',pz1);
end
9楼
jinzhe 发表于：2016/8/30 9:46:39if YLPC and tbuyholdingex('',pz1,0)>0 and tsellholdingex('',pz2,0)>0 THEN BEGIN
tsell(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tsellshort(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuy(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tbuyshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
end
if YLPC and tbuyholdingex('',pz2,0)>0 and tsellholdingex('',pz1,0)>0 THEN BEGIN
tsell(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
tsellshort(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuy(1,10,lmt,dynainfo2(7,pz1),0,'',pz1);
tbuyshort(1,10,lmt,dynainfo2(7,pz2),0,'',pz2);
end
把每段第一行多的单引号删除了
共9 条记录, 每页显示 10 条, 页签:
[1]