Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers
Joined: 7/25/2005(UTC)
Posts: 1,042
Was thanked: 57 time(s) in 54 post(s)
|
Hi turtlet
I can't solve your problem unless ALL system parameters are available. I have to be able to set up the system the way you have before I can track down the problem. The code part is easy; it's one or more of the many other settings that that's the problem. Can you print the System page when looking at results (print to PDF if possible - CutePDF should do that). Printing all other result pages should also work, though from memory I think all formatting of those pages gets lost in when printed.
Here's an indicator that plots an equity curve for you system. Getting the EST to plot an identical equity curve is something of a mission but it can be done when both this indicator and the EST are set up appropriately. The Global Variable version of the Trade Equity LE indicator enables the use of the Explorer for multiple securities, and the results can be displayed as an Expert Commentary. email me at rlarsen@quik.co.nz and I'll see what other help I can give. Keep in mind that my time is limited and I'm probably in a quite different time zone as well.
The first formula is yours with bits added to provide both entry and exit signals where TE inputs are restricted to just one formula.
Roy
{Slope of EMA System}
{code converted to TE format }
M:=Mov(C,13,E)>Ref(Mov(C,13,E),-1) AND Ref(Mov(C,13,E),-1)>Ref(Mov(C,13,E),-2);
Entry:=M*Alert(M=0,2);
Exit:=(M=0)*Alert(M,2);
Entry-Exit;
{Trade Equity LE}
{Roy Larsen, 2003-2015, 27/1/15, v8.5.4}
{Inputs}
A:=Input("Trade Equity LE, 0=Long, 100=short, ",0,100,0);
B:=Input("Entry, 1=O 2=C 3=H 4=L 5=Stop",1,5,2);
Z:=Input("Exit, 1=O 2=C 3=H 4=L 5=Stop",1,5,2);
G:=Input("Entry Cost",0,999,0);
J:=Input("Exit Cost",0,999,0);
D:=Input("Entry/Exit Delays 00-99",0,99,11);
K:=1000; F:=-1;{Equity/Factor}
{Signals}
I:=Fml("Slope of EMA System");
N:=I>0; {Binary entry signal}
Ns:= 0; {Price entry signal}
X:=I<0; {Binary exit signal}
Xs:= 0; {Price exit signal}
{Code}
Xd:=LastValue(Int(Frac(D/9.9)*10));
D:=LastValue(Int(D/10));Ns:=(B=5)*Ns;
F:=ValueWhen(1+D,1,If(Abs(F)>1,Abs(F),-F));
M:=If(Ns>0,Min(H,Max(L,Ns)),If(B=1,O,If(B=3,H,If(B=4,L,C))));
N:=N*(Alert(N=0,2)+(Cum(N>-1)=1));
X:=X*Alert(X=0,2)*(Z<5);
N:=ValueWhen(1+D,1,N);N:=If(B<5,N,Ns>0);
N:=If((F<=1)*(F>0)*(F*K<M),(K=0)*N,N);
Xs:=(Xs>0)*Min(H,Max(L,Xs));
Y:=If(Xs>0,Xs,If(Z=1,O,If(Z=3,H,If(Z=4,L,C))));
X:=ValueWhen(1+Xd,1,X);X:=X+Xs>0;
Y:=If((Z<5)*(X=0),C{Y},Y);Y:=If((Xs>0)*N*X,Xs,Y);
I:=Cum(Abs(F)+K+N+X>-1)=1;N:=(I>-1)*N;
Y:=If((N+X=0)*Alert(N*X,2),ValueWhen(2,1,Y),Y);
R:=BarsSince(I+N)<(BarsSince(I+X)+(Cum(N)=1 AND Cum(I+X)=1));
R:=If((N+X>1)*(Alert(R,2)+((D+Xd<1)
*(B<>2)*(Z>1)*(Max(B,Z)>4 OR B<>Z))),1,R);
U:=R*Alert(R=0,2)+I;{M:=If(I*(N=0),C,M);}
Rx:=Alert(R,2);Q:=Rx*(LastValue(Cum(1))=Cum(1));
Z:={Q+}(R=0)*Rx;
D:=A<99;
A:=ValueWhen(1,U,If(M,M,1));
F:=ValueWhen(1,U,If(F<0,K*Abs(F),
If(F<=1,Int((F*K-G)/A)*A+G,F*A+G)))*(K>0);
B:=Rx*(1+BarsSince(U));
I:=(F-G)*Y/A-F;U:=(F-G)*(A-Y)/A-G;
N:=(Z+Q>0)*If(D,If(K,I-J*Z,Y-A),If(K,U-J*Z,A-Y));
Xs:=Rx*If(D,If(K,I-Z*J,Y-A),If(K,U-Z*J,A-Y));
X:=Cum((Z+Q>0)*(N>0)*(B-1));Xd:=Cum((Z+Q>0)*(N<=0)*(B-1));
Cum(N)+K+R*(Q=0)*If(D,If(K,I,Y-A),If(K,U,A-Y));
|
