股票策略编写

jzt001

模拟交易4各账户，每个账户有20各股票交易标底。监控一定数量的股票。如果监控的股票在交易标底的范围内，则调整仓位至账户资产总值的1/20；如果该股票不是交易标底，则全部平仓。交易标底，通过手动录入。

技术009

以下后台程序化范例仅供参考，多账户需要机构版，以下代码暂时只考虑单账户的情况，多账户情况则需要进一步微调。

[PEL] 复制代码

// 交易标底板块 是你自建的板块，需要你手工把 交易标的的品种加入到这个自选板块里去
bkname:='交易标底板块';

if  inblock(bkname) then 
begin 

品种市值:tbuyholdingex('','',2)*tavgenterpriceex2('','',0)*100;

//这里是当前动态权益的总市值，这个是受到浮动盈亏影响的
目标市值:20*taccount( 6);	

市值差:品种市值-目标市值;

//如果市值差 不足最低加仓或者减仓（100股）手数，那么这里也是不会进行仓位调整的
 
调整的手数:100*intpart(市值差/(c*100));

if 调整的手数>0 then tsell(1,调整的手数,mkt);//减仓
if 调整的手数<0 then tbuy(1,abs(调整的手数),mkt);//补仓


		
end else 
begin 
//如果不在标的板块内，则进行卖出
if tbuyholdingex('','',0)>0 then tsell(1,tbuyholdingex('','',0),mkt);	
end 

刘延友

多账户交易，指定账户交易，是不是应该改成：

IF 调整的手数>0 THEN TSELL(1,调整的手数,MKT,0,0,'13980404448',STKLABEL);//减仓
IF 调整的手数<0 THEN TBUY(1,ABS(调整的手数),MKT,0,0,'13980404448',STKLABEL);//补仓
         
END ELSE
BEGIN
//如果不在标的板块内，则进行卖出
IF TBUYHOLDINGEX('','',0)>0 THEN TSELL(1,TBUYHOLDINGEX('','',0),MKT,0,0,'13980404448',STKLABEL);   
END

技术006

是的。把账号作为字符串填写在开平仓函数中的账号参数位置就行。

刘延友

就是这样？IF 调整的手数>0 THEN TSELL(1,调整的手数,MKT,0,0,'13980404448',STKLABEL);//减仓

技术009

1.是的。账户是这样传递进去的。

2.前面写错了一个地方

//这里是当前动态权益的总市值，这个是受到浮动盈亏影响的
目标市值:0.2*taccount( 6);   

技术009

再调整下吧：

[PEL] 复制代码

ac:='';//账户
// 交易标底板块 是你自建的板块，需要你手工把 交易标的的品种加入到这个自选板块里去
bkname:='交易标底板块';
 
if  inblock(bkname) then
begin
 
品种市值:tbuyholdingex(ac,'',2)*tavgenterpriceex2(ac,'',0)*100;
 
//这里是当前动态权益的总市值，这个是受到浮动盈亏影响的
目标市值:0.05*taccount2( 6,ac);   
 
市值差:品种市值-目标市值;
 
//如果市值差 不足最低加仓或者减仓（100股）手数，那么这里也是不会进行仓位调整的
  
调整的手数:100*intpart(市值差/(c*100));
 
if 调整的手数>0 and tbuyholdingex(ac,'',0)>0 then tsell(1,min(调整的手数,tbuyholdingex(ac,'',0)),mkt,0,0,ac);//减仓
if 调整的手数<0 then tbuy(1,abs(调整的手数),mkt,0,0,ac);//补仓
     
end else  
begin
//如果不在标的板块内，则进行卖出
 if tbuyholdingex(ac,'',0)>0 then tsell(1,tbuyholdingex(ac,'',0),mkt,0,0,ac);    
end