加仓怎么写

兰延追风石

减仓这里不对呀

兰延追风石

当价格大于上一次加仓价格50点平一次仓

兰延追风石

加仓这里对的，但是减仓不对哦

技术008

if close>enterprice+50*mindiff then sell(1,1,marketr)

直接价格大于上次开仓价就行了，不需要自己记录

兰延追风石

平底仓的就是用这一句，目前的问题依次减仓问题

技术008

if close>enterprice+50*mindiff then sell(1,1,marketr)


这个就是价格比上次开仓价多50个变动价位就平仓

你看下这几个函数解释也能明白

兰延追风石

我文字描述我的整个策略。
1、开仓价格设定7500，
2、下跌50点加仓一次，即7450，在下跌50点加一次，即7400，。。。价格下就如此加仓，共加仓10次，

3、如最后一次加仓价格7000，上涨50点平一次，即7050，再上涨50点平仓一次，即7100.。。。。
4 、如果7500开仓后，价格涨了，就7050平仓

兰延追风石

VARIABLE:num:=0,oneprice=-1;

//跳动价位
diff:=50;

KCJ:7500;

kd:CLOSE<=7500;
pd:CLOSE>=7500+50*MINDIFF;
  
//首次开仓时记录开仓时是的价格
if kd and holding=0 then begin
    buy(kd and holding=0,1,marketr);
    oneprice:=ENTERPRICE;
    num:=1;//开启加仓模式
end

//加仓处理
if oneprice-c>diff*num*MINDIFF and num>0 and num<11 and  holding>0 THEN
BEGIN
    加仓:buy(1,1,marketr);
    num:=num+1;
end

//减仓处理
if oneprice-c<diff*num*MINDIFF and oneprice-C>=diff*(num-1)*MINDIFF
and  num>1 and holding>0 THEN
begin
  减仓: sell(1,1,marketr);
    num:=num-1;
end

if  CLOSE>=oneprice+50*MINDIFF; and  num=1 and holding>0 THEN
begin
    sell(1,holding,marketr);
    num:=0;
end
这个我按照8楼代码修改的
就实减仓这一段好像有问题吧
麻烦老师帮忙好好看看，麻烦了

技术008

VARIABLE:num:=0;

//跳动价位
diff:=50;

KCJ:7500;

kd:CLOSE<=7500;
pd:CLOSE>=7500+50*MINDIFF;
  
//首次开仓时记录开仓时是的价格
if kd and holding=0 then begin
    buy(kd and holding=0,1,marketr);
    num:=1;//开启加仓模式
end

if close<enterprice-50*mindiff and num<=10 then
begin
        buy(1,1,marketr);
        num:=num+1;
END

if close>enterprice+50*mindiff  then
begin
        sell(1,1,marketr);
END

兰延追风石

技术008 发表于 2024-5-29 13:20
VARIABLE:num:=0;

//跳动价位

平仓还是不对呀