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

标题：请老师帮忙将文华模型改写成金字塔模型，谢谢了！

1楼

云潇逸士 发表于：2019/2/25 16:36:44

请老师帮忙将下面文华跨周期模型改写成金字塔模型，在此谢谢了！

TXYHXJSJK（被引用指标）

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;//收盘价与N周期最低值做差，N周期最高值与N周期最低值做差，两差之间做比值。
K:=SMA(RSV,3,1);//RSV的移动平均值
D:=SMA(K,3,1);//K的移动平均值

PB1:=(EMA(CLOSE,4)+MA(CLOSE,4*2)+MA(CLOSE,4*4))/3;
PB2:(EMA(CLOSE,6)+MA(CLOSE,6*2)+MA(CLOSE,6*4))/3;
PB3:(EMA(CLOSE,9)+MA(CLOSE,9*2)+MA(CLOSE,9*4))/3;
PB4:(EMA(CLOSE,13)+MA(CLOSE,13*2)+MA(CLOSE,13*4))/3;
PB5:=(EMA(CLOSE,18)+MA(CLOSE,18*2)+MA(CLOSE,18*4))/3;
PB6:=(EMA(CLOSE,24)+MA(CLOSE,24*2)+MA(CLOSE,24*4))/3;
BK1:= (PB2>PB3 && PB3>PB4) || K>D || (PB2>REF(PB2,1) && PB3>REF(PB3,1) && PB4>REF(PB4,1));
SK1:=(PB2<PB3 && PB3<PB4) || K<D || (PB2<REF(PB2,1) && PB3<REF(PB3,1) && PB4<REF(PB4,1));

------------------------------------------------------

跨周期指标

#IMPORT [ DAY,1,TXYHXJSJK ] AS VAR1
ZD:=VAR1.BK1;
ZK:=VAR1.SK1;
RSV:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,8)-LLV(LOW,54))*100;
K:=SMA(RSV,1,80);
D:=SMA(K,9,58);
MA1:=MA(C,19);
MA2:=MA(C,15);
ATR:=ABS(CLOSE-REF(CLOSE,22))/(HHV(HIGH,6)-LLV(L,55))*100;
AA1:=ABS(C-REF(C,1))>=REF(HHV(ABS(H-L),42),1);//
AA2:=ABS(C-REF(C,2))>= REF(HHV(ABS(C-REF(C,2)),48),1);
TMP:=STD(C,17);
KPJ:=VALUEWHEN(DATE<>REF(DATE,1),O);
SPJ:=VALUEWHEN(DATE<>REF(DATE,1),C);
SG:=MAX(KPJ,SPJ)+10/100*12*TMP;
XG:=MIN(KPJ,SPJ)-10/100*8*TMP;
ISUP&&(AA1||AA2)&& BARSSK>4&&D>1&&ATR>21 AND LASTSIG=201,BP;
ISUP&&(AA1||AA2)&& BARSSK>9&&D>1&&ATR>51 AND LASTSIG<>201&&ZD,BK;
ISDOWN&&(AA1||AA2)&& BARSBK>15&&D<99&&ATR>4 AND LASTSIG=200 ,SP;
ISDOWN&&(AA1||AA2)&& BARSBK>21&&D<99&&ATR>1 AND LASTSIG<>200&&ZK ,SK;
C>SG&&ATR>24 && MA1>MA2&&C>SKPRICE AND LASTSIG=201,BP;
C>SG&&ATR>38 && MA1>MA2&&C>SKPRICE AND LASTSIG<>201&&ZD,BK;
C<XG&&ATR>6 && MA1<MA2&&C<BKPRICE AND LASTSIG=200,SP;
C<XG&&ATR>9 && MA1<MA2&&C<BKPRICE AND LASTSIG<>200&&ZK,SK;
C>=SKPRICE*(1+0.0001*132),BP;
C<=BKPRICE*(1-0.0001*137),SP;
C<SKPRICE*(1-0.001*149),BP;
C>BKPRICE*(1+0.001*150),SP;
C<BKHIGH*(1-0.001*105) ,SP;
C>SKLOW*(1+0.001*105),BP;
SETALLSIGPRICETYPE(LIMIT_ORDER);
TRADE_OTHER('AUTO');
AUTOFILTER;

再次谢谢老师了！

2楼

FireScript 发表于：2019/2/25 17:15:51

处理中，请注意本帖的回复。

3楼

FireScript 发表于：2019/2/26 9:55:29

被引用指标代码不需要动。把代码复制到一个单独指标中编译下即可：

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

第二部分:

ZD:STKINDI('','TXYHXJSJK.BK1',0,6,0);
ZK:STKINDI('','TXYHXJSJK.SK1',0,6,0);

RSV:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,8)-LLV(LOW,54))*100;
K:=SMA(RSV,1,80);
D:=SMA(K,9,58);
MA1:=MA(C,19);
MA2:=MA(C,15);
ATR:=ABS(CLOSE-REF(CLOSE,22))/(HHV(HIGH,6)-LLV(L,55))*100;
AA1:=ABS(C-REF(C,1))>=REF(HHV(ABS(H-L),42),1);//
AA2:=ABS(C-REF(C,2))>= REF(HHV(ABS(C-REF(C,2)),48),1);
TMP:=STD(C,17);
KPJ:=VALUEWHEN(DATE<>REF(DATE,1),O);
SPJ:=VALUEWHEN(DATE<>REF(DATE,1),C);
SG:=MAX(KPJ,SPJ)+10/100*12*TMP;
XG:=MIN(KPJ,SPJ)-10/100*8*TMP;

if ISUP&&(AA1||AA2)&& (ENTERBARS+1)>4&&D>1&&ATR>21 AND TYPE(1)=3 then sellshort(holding<0,holding,market);
if ISUP&&(AA1||AA2)&& ((ENTERBARS+1)>9 or ENTERBARS=-1)&&D>1&&ATR>51 AND (TYPE(1)<>3 or type(1)=0)&&ZD then buy(holding=0,1,market);
if ISDOWN&&(AA1||AA2)&& (ENTERBARS+1)>15&&D<99&&ATR>4 AND TYPE(1)=1 then sell(holding>0,holding,market);
if ISDOWN&&(AA1||AA2)&& ((ENTERBARS+1)>21 or ENTERBARS=-1)&&D<99&&ATR>1 AND (TYPE(1)<>1 or type(1)=0)&&ZK then buyshort(holding=0,1,market);
if C>SG&&ATR>24 && MA1>MA2&&C>ENTERPRICE AND TYPE(1)=3 then sellshort(holding<0,holding,market);
if C>SG&&ATR>38 && MA1>MA2&&C>ENTERPRICE AND TYPE(1)<>3&&ZD then buy(holding=0,1,market);
if C<XG&&ATR>6 && MA1<MA2&&C<ENTERPRICE AND TYPE(1)=1 then sell(holding>0,holding,market);;
if C<XG&&ATR>9 && MA1<MA2&&C<ENTERPRICE AND TYPE(1)<>1&&ZK then buyshort(holding=0,1,market);
if C>=ENTERPRICE*(1+0.0001*132)then sellshort(holding<0,holding,market);
if C<=ENTERPRICE*(1-0.0001*137) then sell(holding>0,holding,market);
if C<ENTERPRICE*(1-0.001*149)then sellshort(holding<0,holding,market);;
if C>ENTERPRICE*(1+0.001*150) then sell(holding>0,holding,market);;
if C<hhv(h,ENTERBARS+1)*(1-0.001*105) then sell(holding>0,holding,market);
if C>llv(l,ENTERBARS+1)*(1+0.001*105) then sellshort(holding<0,holding,market);

仅供参考。

4楼

云潇逸士 发表于：2019/2/26 10:42:42

谢谢老师！

5楼

云潇逸士 发表于：2019/2/26 16:16:40

#IMPORT[DAY,1,RCOMAI] AS VAR2
RC:=VAR2.RC;
RO:=VAR2.RO;
DD:=VAR2.D;
DB:=VAR2.B;

老师您好，我模仿您将上面文华语句改成下面的形式，15分钟跨周期模型，请问对吗？

RC:=STKINDI('',' RCOMAI.RC',0,6,0);
RO:=STKINDI('',' RCOMAI.RO',0,6,0);
DD:=STKINDI('',' RCOMAI.D',0,6,0);
DB:=STKINDI('',' RCOMAI.B',0,6,0);

6楼

FireScript 发表于：2019/2/26 16:18:24

对的。是这样的。不过 RCOMAI这个必须单独建个指标才行，否则你引用不到。

7楼

云潇逸士 发表于：2019/2/26 16:19:22

我改了一个文华15分钟跨周期模型成金字塔的，可交易信号有点乱，和文华的不一致，晕。。

8楼

FireScript 发表于：2019/2/26 16:50:17

软件不一样，代码逻辑一样情况下也可能有差异，因为软件的实现机制本身肯定有差异的。并且信号之类情况的可能还收到数据量，复权以及其他设置的影响。

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