[求助]改写成后台代码的问题 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

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

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → [求助]改写成后台代码的问题

共有2716人关注过本帖树形打印复制链接主题：[求助]改写成后台代码的问题

期海中的一夜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：43 积分：0 威望：0 精华：0 注册：2016/1/7 15:00:18

[求助]改写成后台代码的问题 发帖心情

Post By：2016/3/22 10:11:19 Post IP：222.185.123.230[只看该作者]

帮忙改下后台的代码，想找个规范...

M1:6;

m2:7;

//把仓位定下即可实盘

//30分钟K线

SS:=6;//开仓固定手数；

N1:=5;//ATR固定参数；

F1:=(M1/1000)*REF(C,1);

F2:=(M2/1000)*REF(C,1);

MA20:=STKINDIEX('','MAVAR.MA20',0,6,-1,1000);

HH12:=HHV(REF(H,1),12);

LL12:=LLV(REF(L,1),12);

TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));

ATR:=MA(TR1,25);

ARTRANG:=N1*ATR;

TURERANGE:=MAX(HH12-LL12,ARTRANG);

BKLINE:LL12+(7/10)*TURERANGE;

SKLINE:LL12+(3/10)*TURERANGE;

BKCONDITION:=H>BKLINE&&REF(L,1)<BKLINE&&ABS(C-O)<3*ATR&&REF(C,1)>MA20;

SKCONDITION:=L<SKLINE&&REF(H,1)>SKLINE&&ABS(C-O)<3*ATR&&REF(C,1)<MA20;

IF HOLDING=0 THEN BEGIN

BUY(BKCONDITION,SS,THISCLOSE);

BUYSHORT(SKCONDITION,SS,THISCLOSE);

END

ENTERHIGH:=HHV(H,ENTERBARS+1);

ENTERLOW:=LLV(L,ENTERBARS+1);

//处理多单

IF HOLDING>0 THEN

BEGIN

IF C-ENTERPRICE>0 THEN

BEGIN

SELL(C-ENTERPRICE>=F1*MINDIFF&&HOLDING=SS,SS/3,THISCLOSE);

SELL(ENTERHIGH-C>=F2*MINDIFF,HOLDING,THISCLOSE);

END

IF C-ENTERPRICE<0 THEN

BEGIN

SELL(ENTERPRICE-C>=F1*MINDIFF&&HOLDING=SS,SS/2,THISCLOSE);

SELL(ENTERPRICE-C>=2*F1*MINDIFF||C-ENTERLOW>=F2*MINDIFF,HOLDING,THISCLOSE);

END

//处理空单

IF HOLDING<0 THEN

BEGIN

IF ENTERPRICE-C>0 THEN

BEGIN

SELLSHORT(ENTERPRICE-C>=F1*MINDIFF&&HOLDING=SS,SS/3,THISCLOSE);

SELLSHORT(C-ENTERLOW>=F2*MINDIFF,HOLDING,THISCLOSE);

END

IF ENTERPRICE-C<0 THEN

BEGIN

SELLSHORT(C-ENTERPRICE>=F1*MINDIFF&&HOLDING=SS,SS/2,THISCLOSE);

SELLSHORT(C-ENTERPRICE>=2*F1*MINDIFF||ENTERHIGH-C>=F2*MINDIFF,HOLDING,THISCLOSE);

END

jinzhe

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25

Post By：2016/3/22 10:25:49 Post IP：58.246.57.26[只看该作者]

IF HOLDING=0 THEN BEGIN

BUY(BKCONDITION,SS,THISCLOSE);

BUYSHORT(SKCONDITION,SS,THISCLOSE);

END

这一句在图表上想要表达什么意思？

金字塔—专业程序化交易量化投资平台

客户服务部

----------------------------------------------------------- 欢迎您参加我公司的技术培训，具体培训需求请发邮件到service@weistock.com

您的宝贵建议或者投诉，请发往邮箱:weiwei@weistock.com

期海中的一夜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：43 积分：0 威望：0 精华：0 注册：2016/1/7 15:00:18

Post By：2016/3/22 10:36:50 Post IP：222.185.123.230[只看该作者]

在没有持仓的情况，达到多单条件开多，达到空单条件开空。

jinzhe

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：46311 积分：50819 威望：0 精华：2 注册：2011/3/23 8:50:25

Post By：2016/3/22 10:43:43 Post IP：58.246.57.26[只看该作者]

M1:6;
m2:7;
//把仓位定下即可实盘
//30分钟K线
SS:=6;//开仓固定手数；
N1:=5;//ATR固定参数；
F1:=(M1/1000)*REF(C,1);
F2:=(M2/1000)*REF(C,1);
MA20:=STKINDIEX('','MAVAR.MA20',0,6,-1,1000);
HH12:=HHV(REF(H,1),12);
LL12:=LLV(REF(L,1),12);
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,25);
ARTRANG:=N1*ATR;
TURERANGE:=MAX(HH12-LL12,ARTRANG);
BKLINE:LL12+(7/10)*TURERANGE;
SKLINE:LL12+(3/10)*TURERANGE;
BKCONDITION:=H>BKLINE&&REF(L,1)<BKLINE&&ABS(C-O)<3*ATR&&REF(C,1)>MA20;
SKCONDITION:=L<SKLINE&&REF(H,1)>SKLINE&&ABS(C-O)<3*ATR&&REF(C,1)<MA20;
IF TBUYHOLDING(0)=0 THEN BEGIN
TBUY(BKCONDITION,SS,MKT);
END

IF TSELLHOLDING(0)=0 THEN BEGIN
TBUYSHORT(SKCONDITION,SS,MKT);
END

ENTERHIGH:=HHV(H,TENTERBARS+1);
ENTERLOW:=LLV(L,TENTERBARS+1);
//处理多单

IF TBUYHOLDING(0)>0 THEN
BEGIN
IF C-TENTERPRICE>0 THEN
BEGIN
  TSELL(C-TENTERPRICE>=F1*MINDIFF&&TBUYHOLDING(0)=SS,SS/3,MKT);
  TSELL(ENTERHIGH-C>=F2*MINDIFF,TBUYHOLDING(0),MKT);
END
IF C-TENTERPRICE<0 THEN
BEGIN
  TSELL(TENTERPRICE-C>=F1*MINDIFF&&TBUYHOLDING(0)=SS,SS/2,MKT);
  TSELL(TENTERPRICE-C>=2*F1*MINDIFF||C-ENTERLOW>=F2*MINDIFF,TBUYHOLDING(0),MKT);
END
END
//处理空单

IF TSELLHOLDING(0)>0 THEN
BEGIN
IF TENTERPRICE-C>0 THEN
BEGIN
  TSELLSHORT(TENTERPRICE-C>=F1*MINDIFF&&TSELLHOLDING(0)=SS,SS/3,MKT);
  TSELLSHORT(C-ENTERLOW>=F2*MINDIFF,TSELLHOLDING(0),MKT);
END
IF TENTERPRICE-C<0 THEN
BEGIN
  TSELLSHORT(C-TENTERPRICE>=F1*MINDIFF&&TSELLHOLDING(0)=SS,SS/2,MKT);
  TSELLSHORT(C-TENTERPRICE>=2*F1*MINDIFF||ENTERHIGH-C>=F2*MINDIFF,TSELLHOLDING(0),MKT);
END
END