金字塔决策交易系统

 找回密码
 

微信登录

微信扫一扫,快速登录

搜索
查看: 1975|回复: 13

请教老师:我想限制最大买进股票个数,但没能成功,请您帮解决

[复制链接]

50

主题

203

帖子

213

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
发表于 2023-3-27 10:02 | 显示全部楼层 |阅读模式
请教老师:我想限制最大买进股票个数为16,但没能成功,不知道哪里出问题,请您帮解决,谢谢
开多:(KD5  or 开多1 and not(kd5));          //开多信号
平多:PD5  or (平多1 and not(kd5) );                       //平多信号
kd:开多;
pd:平多;
HC:THOLDCOUNT('');
xj:TACCOUNT( 3);
xj19:TACCOUNT(19);
a:=xj19/(16-HC);
gushu:100*INTPART(45000/(close*100));
GLOBALVARIABLE:flag=0;
if   kd and  tbuyholding(1)<gushu  and  HC<=16 then
begin

回复

使用道具 举报

50

主题

203

帖子

213

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
 楼主| 发表于 2023-3-27 10:03 | 显示全部楼层
限制最大持有股票数量为16个
回复

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-3-27 10:11 | 显示全部楼层
开多:(KD5  or 开多1 and not(kd5));          //开多信号
平多:PD5  or (平多1 and not(kd5) );                       //平多信号
kd:开多;
pd:平多;
HC:THOLDCOUNT('');
xj:TACCOUNT( 3);
xj19:TACCOUNT(19);
a:=xj19/(16-HC);
gushu:100*INTPART(45000/(close*100));
GLOBALVARIABLE:flag=0;

//用一个全局变量记录,每次有开仓记录+1
if   kd and  tbuyholding(1)<gushu  and  EXTGBDATA('num')+HC<=16 then
begin
        EXTGBDATASET( 'num',EXTGBDATA('num')+1);
        tbuy();
END

if currenttime>093000 and currenttime<093100 then
BEGIN
        EXTGBDATASET( 'num',0);
END
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-3-27 10:12 | 显示全部楼层
因为同时下单时候,持仓数量并不会买到,所以此时判断上是没办法精准的
一个替代方案就是自己用一个全局变量作为已开仓的记录,开仓后变量+1。

金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

50

主题

203

帖子

213

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
 楼主| 发表于 2023-3-27 12:11 | 显示全部楼层
好,谢谢老师!
回复

使用道具 举报

50

主题

203

帖子

213

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
 楼主| 发表于 2023-3-27 15:11 | 显示全部楼层
老师,‘num’应该填写什么内容?
回复

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-3-27 15:12 | 显示全部楼层
不用填写。,这是一个全局变量,变量名是num用来每次开仓增加数字1的
https://www.weistock.com/docs/PE ... 8F%98%E9%87%8F.html
这里有一个有关全局变量的介绍,你可以看下了解下
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

50

主题

203

帖子

213

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
 楼主| 发表于 2023-3-27 15:31 | 显示全部楼层
谢谢老师
回复

使用道具 举报

50

主题

203

帖子

213

积分

Rank: 4

等级: 专业版

注册:
2022-8-5
曾用名:
 楼主| 发表于 2023-3-27 22:11 | 显示全部楼层
老师,这样改正确了吗?麻烦老师帮看看
kd:=
pd:=
HC:THOLDCOUNT('');
xj:TACCOUNT( 3);
xj19:TACCOUNT(19);
a:=xj19/(16-HC);

gushu:100*INTPART(4500/(close*100));
GLOBALVARIABLE:flag=0;

if   kd and  tbuyholding(1)<gushu  and  EXTGBDATA('num')+HC<=16 then
begin
        EXTGBDATASET( 'num',EXTGBDATA('num')+1);
        tbuy(1,gushu-tbuyholding(1),lmt,DYNAINFO(28)+0.03);
END

if  pd and tbuyholding(1)>0 then
begin
        tsell(1,tbuyholding(1),lmt,DYNAINFO(34));
END


if  flag=0 and  100*TOPENPROFIT/(close*tbuyholding(1)*MULTIPLIER)>=4  and tbuyholding(1)>0 then
begin
        tsell(1,50%,lmt,DYNAINFO(34)),PERTRADER;
        flag:=1;
END

if currenttime>093000 and currenttime<093100 then
BEGIN
        EXTGBDATASET( 'num',0);
END
回复

使用道具 举报

3

主题

2万

帖子

2万

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-24
曾用名:
发表于 2023-3-28 09:06 | 显示全部楼层
kd:=
pd:=
HC:THOLDCOUNT('');
xj:TACCOUNT( 3);
xj19:TACCOUNT(19);
a:=xj19/(16-HC);

gushu:100*INTPART(4500/(close*100));
GLOBALVARIABLE:flag=0;

if   kd and  tbuyholding(1)<gushu  and  EXTGBDATA('num')+HC<=16 then
begin
        EXTGBDATASET( 'num',EXTGBDATA('num')+1);
        tbuy(1,gushu-tbuyholding(1),lmt,DYNAINFO(28)+0.03);
END

if  pd and tbuyholding(1)>0 then
begin
        tsell(1,tbuyholding(1),lmt,DYNAINFO(34));
        EXTGBDATASET( 'num',EXTGBDATA('num')-1);
END


if  flag=0 and  100*TOPENPROFIT/(close*tbuyholding(1)*MULTIPLIER)>=4  and tbuyholding(1)>0 then
begin
        tsell(1,50%,lmt,DYNAINFO(34)),PERTRADER;
        flag:=1;
END

if currenttime>093000 and currenttime<093100 then
BEGIN
        EXTGBDATASET( 'num',0);
END
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 微信登录

本版积分规则

手机版|小黑屋|上海金之塔信息技术有限公司 ( 沪ICP备13035422号 )

GMT+8, 2024-9-20 11:45 , Processed in 0.315847 second(s), 22 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表