共19 条记录, 每页显示 10 条, 页签: [1] [2]

[浏览完整版]

标题：文华代码改写

1楼

waimm2020 发表于：2015/5/28 19:27:36

TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));//定义TR

ATR:=MA(TR,20),NODRAW,PRECIS0;//ATR定义

TC:=INTPART((MONEYTOT*0.005/(UNIT*ATR)));//头寸计算

MTC:=4*TC; //最大头寸

H20:HV(H,20),COLORRED;

L10:LV(L,10),COLORCYAN;

L20:LV(L,20),COLORGREEN;

H10:HV(H,10),COLORMAGENTA;

MA13:EMA(C,13),COLORYELLOW,NODRAW;

FL:=HHV(MA13,2);

FS:=MA13-(FL-MA13);

PARTLINE(C>0, FL,RGB(0,255,0));

PARTLINE(C>0, MA13,RGB(255,255,0));

PARTLINE(C>0, FS,RGB(255,0,255));

ND:=BARSLAST(BKVOL>0&&REF(BKVOL,1)=0);//第一次开仓的距离

ATRD:REF(ATR,ND),PRECIS0,NODRAW;

NK:=BARSLAST(SKVOL>0&&REF(SKVOL,1)=0);//第一次开仓的距离

ATRK:REF(ATR,NK),PRECIS0,NODRAW;

多单止损点:BKPRICE-ATRD*2,NODRAW,PRECIS0;

空单止损点:SKPRICE+ATRK*2,NODRAW,PRECIS0;

CROSSUP(C,REF(H20,1))&&ISLASTBK=0&&ISLASTSK=0,BK(TC);//价格突破前20周期高点，买开仓

CROSSDOWN(C,REF(L20,1))&&ISLASTBK=0&&ISLASTSK=0,SK(TC);//价格突破前20周期低点，卖开仓

C>=BKPRICE+0.5*ATR&&BKVOL<MTC&&ISLASTBK,BK(TC);//价格上涨0.5倍ATR加仓

C>=BKPRICE+1.0*ATR&&BKVOL<MTC&&ISLASTBK,BK(TC);//价格上涨1.0倍ATR加仓

C>=BKPRICE+1.5*ATR&&BKVOL<MTC&&ISLASTBK,BK(TC);//价格上涨1.5倍ATR加仓

C<=SKPRICE-0.5*ATR&&SKVOL<MTC&&ISLASTSK,SK(TC);//价格下跌0.5倍ATR加仓

C<=SKPRICE-1.0*ATR&&SKVOL<MTC&&ISLASTSK,SK(TC);//价格下跌1.0倍ATR加仓

C<=SKPRICE-1.5*ATR&&SKVOL<MTC&&ISLASTSK,SK(TC);//价格下跌1.5倍ATR加仓

CROSSDOWN(C,REF(MA13,1))&&BKVOL>0,SP(BKVOL2/2);//价格下穿13周期的均线减仓一半

CROSSUP(C,REF(MA13,1))&&BKVOL>0,BP(BKVOL2/2);//价格上穿13周期的均线减仓一半

C<=(BKPRICE-2*ATR)&&BKVOL>0,SP(BKVOL2);//价格下跌2倍ATR止损

C>=(SKPRICE+2*ATR)&&SKVOL>0,BP(SKVOL2);//价格上涨2倍ATR止损

CROSSUP(C,REF(H10,1))&&SKVOL>0,BP(SKVOL2);//价格突破前10周期高点，空单出场

CROSSDOWN(C,REF(L10,1))&&BKVOL>0,SP(BKVOL2);//价格突破前10周期低点，多单出场

SETSIGPRICETYPE(BK,ACTIVE_ORDER);//BK信号以信号发出时的对手价进行委托

SETSIGPRICETYPE(SP,TRACING_ORDER);//SP信号以信号发出时的自动连续追价进行委托

SETSIGPRICETYPE(SK,ACTIVE_ORDER);//SK信号以信号发出时的对手价进行委托

SETSIGPRICETYPE(BP,TRACING_ORDER);//BP信号以信号发出时的自动连续追价进行委托

MULTSIG_SEC(0,0,3);

请老师帮忙改写成金字塔图表交易系统的代码。谢谢！！！

2楼

jinzhe 发表于：2015/5/29 9:01:13

MULTSIG_SEC(0,0,3);

请问这段是什么意思？

3楼

waimm2020 发表于：2015/5/29 9:55:51

单根K线允许最多出现三个信号。这个模型是出信号就下单，不复核。

[此贴子已经被作者于2015/5/29 9:56:22编辑过]

4楼

jinzhe 发表于：2015/5/29 10:13:59

MONEYTOT,UNIT,ISLASTBK,ISLASTSK

这些函数是什么意思？

[此贴子已经被作者于2015/5/29 10:14:05编辑过]

5楼

waimm2020 发表于：2015/5/29 18:33:26

MONEYTOT返回当前模组子账户权益，

ISLASTSK 判断上一个交易信号是否是SK。

ISLASTBK 判断上一个交易信号是否是BK。

UNIT 取加载数据合约的交易单位。

6楼

jinzhe 发表于：2015/6/1 8:52:26

TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));//定义TR
ATR:=MA(TR1,20),NODRAW,PRECIS0;//ATR定义
TC:=INTPART((asset*0.005/(MULTIPLIER*ATR)));//头寸计算
MTC:=4*TC; //最大头寸
H20:HhV(H,20),COLORRED;
L10:LlV(L,10),COLORCYAN;
L20:LlV(L,20),COLORGREEN;
H10:HhV(H,10),COLORMAGENTA;
MA13:EMA(C,13),COLORYELLOW,NODRAW;
FL:=HHV(MA13,2);
FS:=MA13-(FL-MA13);
PARTLINE(C>0, FL,RGB(0,255,0));
PARTLINE(C>0, MA13,RGB(255,255,0));
PARTLINE(C>0, FS,RGB(255,0,255));
ND:=BARSLAST(holding>0&&REF(holding,1)=0);//第一次开仓的距离
ATRD:REF(ATR,ND),PRECIS0,NODRAW;
NK:=BARSLAST(holding<0&&REF(holding,1)=0);//第一次开仓的距离
ATRK:REF(ATR,NK),PRECIS0,NODRAW;
多单止损点:enterprice-ATRD*2,NODRAW,PRECIS0;
空单止损点:enterprice+ATRK*2,NODRAW,PRECIS0;
if C>REF(H20,1) then buy(holding=0,tc,thisclose);//价格突破前20周期高点，买开仓
if CROSS(REF(L20,1),C) then buyshort(holding=0,tc,thisclose);//价格突破前20周期低点，卖开仓
if C>=enterprice+0.5*ATR&&holding<MTC&&typebar(1,1) then buy(1,0.5*tc,thisclose);//价格上涨0.5倍ATR加仓
if C>=enterprice+1.0*ATR&&holding<MTC&&typebar(1,1) then buy(1,tc,thisclose);//价格上涨1.0倍ATR加仓
if C>=enterprice+1.5*ATR&&holding<MTC&&typebar(1,1) then buy(1,1.5*tc,thisclose);//价格上涨1.5倍ATR加仓
if C<=enterprice-0.5*ATR&&holding<MTC&&typebar(1,3) then buyshort(1,0.5*tc,thisclose);//价格下跌0.5倍ATR加仓
if C<=enterprice-1.0*ATR&&holding<MTC&&typebar(1,3) then buyshort(1,tc,thisclose);;//价格下跌1.0倍ATR加仓
if C<=enterprice-1.5*ATR&&holding<MTC&&typebar(1,3) then buy(1,1.5*tc,thisclose);;//价格下跌1.5倍ATR加仓
if CROSS(REF(MA13,1),C)&&holding>0 then sell(1,50%,market);//价格下穿13周期的均线减仓一半
if CROSS(C,REF(MA13,1))&&holding>0 then sellshort(1,50%,market);//价格上穿13周期的均线减仓一半
if C<=(enterprice-2*ATR)&&holding>0 then sell(1,0,market);;//价格下跌2倍ATR止损
if C>=(enterprice+2*ATR)&&holding>0 then sellshort(1,0,market);;//价格上涨2倍ATR止损
if CROSS(C,REF(H10,1))&&holding>0 then sellshort(1,0,market);;//价格突破前10周期高点，空单出场
if CROSS(REF(L10,1),c)&&holding>0 then sell(1,0,market);;//价格突破前10周期低点，多单出场

7楼

waimm2020 发表于：2015/6/1 14:11:56

老师，加载在公司里面模型通不过，请老师给改成交易模型。谢谢！！！刚学习金字塔程序化交易，多指教。

[此贴子已经被作者于2015/6/1 14:12:55编辑过]

8楼

jinzhe 发表于：2015/6/1 14:20:49

上面的就是了，你把全部代码赋值到交易公式里面，放在k线图上看

9楼

waimm2020 发表于：2015/6/1 15:31:19

没交易信号，该怎么赋值？刚接触金字塔。
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20150601152837.png

10楼

jinzhe 发表于：2015/6/1 15:32:04

你把k线图往前拉一下，看看是不是有历史信号

共19 条记录, 每页显示 10 条, 页签: [1] [2]