[PEL] 复制代码
A00:=0;
VARIABLE:A01:=0,A02:=0,A03:=0,A04:=0,A05:=1,A06:=0,A07:=0,A08:=0,A09:=0,A10:=0,A11:=0,A12:=0,A13:=0,A14:=0,A15:=0,A16:=0,A17:=0,A18:=0,A19:=0,A20:=0,A21:=0,A22:=0,A23:=0,A24:=0,A25:=0,A26:=0,A27:=0,A28:=0,A29:=0,A30:=0,A31:=0,A32:=0,A33:=0,A34:=0,A35:=0,A37:=0,A38:=0,A39:=0,A40:=0,A41:=0,A42:=0,A43:=0,B01:=0,B02:=0,A44:=HIGH,A45:=LOW,A46:=HIGH,A47:=LOW,JZ:=OPEN,ZXJZ:=0,NN:=0,FDXS:=1;
KXS:=TODAYBAR;
DAYOPEN:=VALUEWHEN((DATE <> REF(DATE,1)),OPEN);
JZ:=REF(DAYOPEN,(KXS - 1));
GD:=MA(HIGH,1);
DD:=MA(LOW,1);
ZXTJ0:=(COUNT((((GD - JZ) > 21) OR ((JZ - DD) >= 13)),3) >= 6);
ZXTJ:=(COUNT(ZXTJ0,KXS) >= 1);
参数转换:=ZXTJ;
TZZQ:=1000;
B03:=REF(MA(TR,29),0.1);
C01:=DATE;
B04:=1;//修改交易数量
A16:=(((10 * 10) * 10) * 5);
A03:=6;
A04:=1;
B09:=50;
A21:=0;
C02:=IF(ZXTJ,1.01,1.01);
A19:=0.6;
C03:=IF(ZXTJ,12.6,9.9);
A17:=6;
NN:=ENTERBARS;
FDYK:=REF(OPENPROFIT,1);
FDDS:=(INTPART((FDYK / 300)) / B04);
OTIME:=(OPENTIME(1) + (A21 * 100));
CTIME:=(CLOSETIME(0) - (A03 * 100));
C05:=((TIME >= OTIME) AND (TIME <= CTIME));
ZHKX:=IF(ISLASTBAR,DYNAINFO(207),TIME);
TQXD:=(TIME0 - TIMETOT0(ZHKX));
KXSJ:=(B09 - TQXD);
D02:=(EMA(HIGH,11) - EMA(HIGH,21.6));
D03:=EMA(D02,0.1);
D04:=(2 * (D02 - D03));
D07:=(EMA(LOW,12) - EMA(LOW,22));
D08:=EMA(D07,9);
D09:=(2 * (D07 - D08));
D10:=MA(((D04 * 2) + D02),1);
D11:=MA(D10,2);
D12:=MA(((D09 * 2) + D07),1);
D13:=MA(D12,2);
E01:=(SLOPE(HIGH,2) * 5);
E02:=(SLOPE(LOW,2) * 5);
JYCS:=TOTALDAYTRADE;
E12:=(ASSET - REF(ASSET,(BARSLAST((DATE <> REF(DATE,1))) + 1)));
E14:=REF(E12,1);
IF (E12 = 0) THEN
BEGIN
A14:=0;
END
IF (ZXTJ = 0) THEN
BEGIN
END
IF (ZXTJ = 1) THEN
BEGIN
DRAWTEXTEX(1,1,20,5,'');
END
IF (E12 <= (-(A31) * B04)) THEN
BEGIN
A14:=-(1);
C06L:=1;
DRAWTEXTEX(1,1,120,990,'大学士-祝您投资顺利!'),COLORWHITE;
END
IF (E12 >= (A35 * B04)) THEN
BEGIN
C02:=(C02 * 0.75);
DRAWTEXTEX(1,1,120,900,'大学士-祝您投资顺利!'),COLORWHITE;
END
倒计时:=TQXD;
XDSJ:=B09;
A46:=((MA(HIGH,6) + (REF(HIGH,1) + ((0.1 / C02) + A11))) / 2);
A47:=((MA(LOW,6) + (REF(LOW,1) - ((0.1 / C02) + A11))) / 2);
FDXS:=IF((NN <= TZZQ),2,(1 + (FDDS * 0.015)));
F01:=((D10 - D11) * C02);
F02:=((D12 - D13) * C02);
B01:=((D10 > D11) AND (F01 >= FDXS));
B02:=((D12 < D13) AND (F02 <= -(FDXS)));
IF (BARPOS = 1) THEN
BEGIN
A43:=0;
END
A07:=IF(ISLASTBAR,15,0.1);
A08:=IF(ISLASTBAR,15,0.1);
IF (((A43 = 0) AND (BARPOS > 1)) AND (HIGH > LOW)) THEN
BEGIN
JGK:=A47;
SHORT:=(LOW <= (JGK + 0.2));
JGD:=A46;
LONG:=(HIGH >= (JGD - 0.2));
LONGZS:=(A17 * B03);
IF ((((((LONG AND (SHORT = 0)) AND (A14 >= 0)) AND C05) AND (HOLDING = 0)) AND (TIME > 91400)) AND ((A15 >= 0) OR (EXITBARS >= 3))) THEN
BEGIN
A01:=IF((OPEN > JGD),(OPEN + (A07 * MINDIFF)),(JGD + (A07 * MINDIFF)));
A开多:BUY(1,B04,LIMITR,A01,1);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\A开多.wav');
A43:=1;
N:=B03;
A00:=1;
A09:=ENTERPRICE;
A06:=(A09 - LONGZS);
END
JGK:=A47;
SHORT:=(LOW <= (JGK + 0.2));
SHORTZS:=(A17 * B03);
IF ((((((SHORT AND (A14 >= 0)) AND (TIME > 91400)) AND C05) AND (A43 = 0)) AND (HOLDING = 0)) AND ((A15 <= 0) OR (EXITBARS >= 3))) THEN
BEGIN
A01:=IF((OPEN < JGK),(OPEN - (A07 * MINDIFF)),(JGK - (A07 * MINDIFF)));
A开空:BUYSHORT(1,B04,LIMITR,A01,1);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\A开空.wav');
A43:=-(1);
N:=B03;
A00:=1;
A09:=ENTERPRICE;
A06:=(A09 + SHORTZS);
END
GOTO CONTINUELINE@;
END
IF (((A43 = 1) AND (BARPOS > 1)) AND (HIGH > LOW)) THEN
BEGIN
DRLC:=A47;
LONGX1:=(LOW < (DRLC + 1));
IF ((LONGX1 AND (A00 = 0)) AND B02) THEN
BEGIN
A02:=IF((OPEN < DRLC),(OPEN - (A07 * MINDIFF)),(DRLC - (A07 * MINDIFF)));
D平多:SELL(1,B04,LIMITR,A02,1);
A43:=0;
A15:=0;
JGK:=A47;
SHORT1:=(LOW <= JGK);
IF ((((((SHORT1 AND (A15 <= 0)) AND (A14 >= 0)) AND C05) AND (A43 = 0)) AND (HOLDING >= 0)) AND (A15 <= 0)) THEN
BEGIN
A01:=IF((OPEN < IF((A15 = 0),DRLC,A06)),(OPEN - (A07 * MINDIFF)),(IF((A15 = 0),DRLC,A06) - (A07 * MINDIFF)));
D开空:BUYSHORT(1,B04,LIMITR,A01,1);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\D开空.wav');
A43:=-(1);
A00:=1;
N:=B03;
A09:=ENTERPRICE;
A06:=(A09 + (A17 * N));
END
END
LONGX2:=(LOW < A06);
IF ((LONGX2 AND (HOLDING >= 0)) AND (A00 = 0)) THEN
BEGIN
A02:=(MIN(OPEN,A06) - (A08 * MINDIFF));
平多S:SELL(1,B04,LIMITR,A02,1);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\平多S.wav');
A43:=0;
A15:=-(1);
JGK:=A47;
SHORT1:=(LOW <= JGK);
IF ((((((SHORT1 AND (A15 <= 0)) AND (A14 >= 0)) AND C05) AND (A43 = 0)) AND (HOLDING >= 0)) AND (A15 <= 0)) THEN
BEGIN
A01:=IF((OPEN < IF((A15 = 0),DRLC,A06)),(OPEN - (A07 * MINDIFF)),(IF((A15 = 0),DRLC,A06) - (A07 * MINDIFF)));
C开空:BUYSHORT(1,B04,LIMITR,A01,1);
A43:=-(1);
A00:=1;
N:=B03;
A09:=ENTERPRICE;
A06:=(A09 + (A17 * N));
END
END
IF ((C06L AND (HOLDING >= 0)) AND (A14 < 0)) THEN
BEGIN
平多Z:SELL(1,B04,marketr);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\停盘.wav');
A43:=0;
A14:=-(1);
END
IF (TQXD <= XDSJ) THEN
BEGIN
平多T:SELL(1,B04,marketr);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\平多t.wav');
A43:=0;
A14:=0;
A15:=0;
END
IF ((A43 = 1) AND (HIGH > A09)) THEN
BEGIN
A09:=HIGH;
A06:=(A09 - (C03 * N));
END
END
IF (((A43 = -(1)) AND (BARPOS > 1)) AND (HIGH > LOW)) THEN
BEGIN
KTLC:=A46;
SHORTX1:=(HIGH > (KTLC - 1));
IF ((SHORTX1 AND (A00 = 0)) AND B01) THEN
BEGIN
A02:=IF((OPEN > KTLC),(OPEN + (A07 * MINDIFF)),(KTLC + (A07 * MINDIFF)));
C平空:SELLSHORT(1,B04,LIMITR,A02,1);
A43:=0;
A15:=0;
JGD:=A46;
LONG1:=(HIGH >= JGD);
IF ((((((LONG1 AND (A15 >= 0)) AND (A14 >= 0)) AND C05) AND (HOLDING <= 0)) AND (A15 >= 0)) AND (A43 = 0)) THEN
BEGIN
A01:=IF((OPEN > IF((A15 = 0),KTLC,A06)),(OPEN + (A07 * MINDIFF)),(IF((A15 = 0),KTLC,A06) + (A07 * MINDIFF)));
C开多:BUY(1,B04,LIMITR,A01,1);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\C开多.wav');
A43:=1;
A00:=1;
N:=B03;
A09:=ENTERPRICE;
A06:=(A09 - (A17 * N));
END
END
SHORTX2:=(HIGH > A06);
IF ((SHORTX2 AND (HOLDING <= 0)) AND (A00 = 0)) THEN
BEGIN
A02:=(MAX(OPEN,A06) + (A08 * MINDIFF));
平空S:SELLSHORT(1,B04,LIMITR,A02,1);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\平空S.wav');
A43:=0;
A15:=1;
JGD:=A46;
LONG1:=(HIGH >= JGD);
IF ((((((LONG1 AND (A15 >= 0)) AND (A14 >= 0)) AND C05) AND (HOLDING <= 0)) AND (A15 >= 0)) AND (A43 = 0)) THEN
BEGIN
A01:=IF((OPEN > IF((A15 = 0),KTLC,A06)),(OPEN + (A07 * MINDIFF)),(IF((A15 = 0),KTLC,A06) + (A07 * MINDIFF)));
D开多:BUY(1,B04,LIMITR,A01,1);
A43:=1;
A00:=1;
N:=B03;
A09:=ENTERPRICE;
A06:=(A09 - (A17 * N));
END
END
IF ((C06L AND (HOLDING <= 0)) AND (A14 < 0)) THEN
BEGIN
平空Z:SELLSHORT(1,B04,marketr);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\停盘.wav');
A43:=0;
A14:=-(1);
END
IF TQXD <= XDSJ THEN
BEGIN
平空T:SELLSHORT(1,B04,marketr);
PLAYSOUND(1,'D:\Weisoft Stock\WAV\平空t.wav');
A43:=0;
A14:=0;
A15:=0;
END
IF ((A43 = -(1)) AND (LOW < A09)) THEN
BEGIN
A09:=LOW;
A06:=(A09 + (C03 * N));
END
END
CONTINUELINE@;