欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 持仓均线没有值,还有持仓也没有值

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有3420人关注过本帖平板打印复制链接

主题:持仓均线没有值,还有持仓也没有值

帅哥哟,离线,有人找我吗?
PanS
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:135 积分:161 威望:0 精华:0 注册:2012/10/25 11:37:55
  发帖心情 Post By:2015/1/27 11:30:27    Post IP:119.97.206.170[只看该作者]

//VARIABLE:DTCC=0;//当前有多头持仓
//VARIABLE:KTCC=0;//当前有空头持仓
//VARIABLE:AA=0;//使AA始终表示监控开始后的最高价
//VARIABLE:BB=0;//使BB始终表示监控开始后的最低价
//VARIABLE:CC=0;//多头开仓的价格
//VARIABLE:DD=0;//空头开仓的价格
CC:TAVGENTERPRICEEX2('803410' ,'' ,0);//买持均价
DD:TAVGENTERPRICEEX2('803410' ,'' ,1);//卖持均价

//将A赋值为1,表示当前有多头持仓
IF TBUYHOLDINGEX( '803410','' ,1 )>0 AND EXTGBDATA('DTCC' )=0 THEN BEGIN
EXTGBDATASET( 'DTCC',1 );
//EXTGBDATASET( 'CC',DYNAINFO(  7) );
END
//将B赋值为1,表示当前有空头持仓
IF TSELLHOLDINGEX('803410' ,'' ,1)>0 AND EXTGBDATA('KTCC' )=0 THEN BEGIN
EXTGBDATASET( 'KTCC',1 );
//EXTGBDATASET( 'DD',DYNAINFO(  7) );
END

//使AA始终表示监控开始后的最高价
IF DYNAINFO(  7)>CC and EXTGBDATA('DTCC' )>0 THEN BEGIN
EXTGBDATASET( 'AA',DYNAINFO(  5));
END

//使BB始终表示监控开始后的最低价
IF DYNAINFO(  7)<DD and EXTGBDATA('KTCC' )>0 THEN BEGIN
EXTGBDATASET( 'BB',DYNAINFO(  6));
END

YDZSDT:(EXTGBDATA('AA' )-DYNAINFO(  7))/(EXTGBDATA('AA')-CC) ;//最高价-最新价/多头最大盈利
YDZSKT:(DYNAINFO(  7)-EXTGBDATA('BB '))/(DD-EXTGBDATA('BB')) ;//最新价-最低价/空头最大获利

//定义固定止损

GDZSKT:=stkindi('','YAAA.A',0,1);
GDZSDT:=stkindi('','YAAA.B',0,1);


//判断止损方式

DTPD: EXTGBDATA('AA')-CC/CC;
KTPD: DD-EXTGBDATA('BB')/DD;





//平多
//发现价格回落止损,并将A赋值为0表示移动止损动作完成
IF EXTGBDATA('DTCC' )>0 THEN BEGIN
   IF DTPD >0.1 THEN BEGIN
   TSELL(YDZSDT>=0.3,0,lmt,DYNAINFO( 7),0);
   EXTGBDATASET( 'DTCC',0);
   end
END

//发现价格上涨止损,并将B赋值为0表示移动止损动作完成
IF EXTGBDATA('KTCC' )>0 THEN BEGIN
   IF KTPD >0.1 THEN BEGIN
   TSELLSHORT(YDZSKT>=0.3,0,lmt,DYNAINFO( 7),0);
   EXTGBDATASET( 'KTCC',0);
   end
END


多头最高:EXTGBDATA('AA');
空头最低:EXTGBDATA('BB');
多头持仓:EXTGBDATA('DTCC' );
空头持仓:EXTGBDATA('KTCC' );

If  IsLastBar Then Begin
    DEBUGFILE('E:\K1\debugfile.txt','多头持仓=%.2f' ,多头持仓 ) ;
    DEBUGFILE('E:\K1\debugfile.txt','空头持仓=%.2f' ,空头持仓 ) ;
    DEBUGFILE('E:\K1\debugfile.txt','多头持仓均价=%.2f' ,cc ) ;
    DEBUGFILE('E:\K1\debugfile.txt','空头持仓均价=%.2f' ,dd ) ;  
    DEBUGFILE('E:\K1\debugfile.txt','多头最高=%.2f' ,多头最高 ) ;
    DEBUGFILE('E:\K1\debugfile.txt','空头最低=%.2f' ,空头最低 ) ; 
  
end

 回到顶部
总数 20 1 2 下一页