|
PureBytes Links
Trading Reference Links
|
This inicator is for long only (there is a short version too) and has several plots and many
options. Slippage/brokerage costs can also be entered. I admit this is overkill for what you want
but that's probably better than something that doesn't work at all. This stop was designed to be
used in tandem with Trade Equity LE (long, equal position sixe) to give percentage profit and
stop-loss targets that can easily be read directly off the indicator. These roughly equate to
similar stops in the pre-8.0 System Tester, and give exit prices adjusted to realistically tradeable
ASX prices.
Entry and exit prices can be intrabar (any legitimate price in the HIGH/LOW range).
This example is set to enter and exit on the CLOSE of the bar on which the signal is derived, no
delays. Entry and exit commissions are set to zero so the trade capital value 'Cp' is of no
consequence. Profit and loss targets are both set to 10%.
Roy
{Trade Stop LE V4} {V4.1 long equal}
{Copyright© 2003 Roy Larsen}
No:=Input("Entry 1=O 2=C 3=H 4=L 5=Stop",1,5,2);
Xo:=Input("Exit 1=O 2=C 3=H 4=L 5=Stop" ,1,5,2);
Nd:=Input("Entry Delay",0,3,0);
Xd:=Input("Exit Delay" ,0,3,0);
Cm:=Input("Entry Commission $",0,99,00);
Cx:=Input("Exit Commission $" ,0,99,00);
Cp:=1000; {* trade capital, 0 = points only *}
Xa:=2; {* profit/loss trigger/price options *}
Xc:=2; {* 1=C/Next-O 2=C/C 3=Stop/C 4=Stop *}
Pt:=10; {* profit target % *}
Ls:=10; {* stop loss % *}
N:= Cross(Mov(C,15,E),Mov(C,25,E));
Ns:=0;
X:= 0;
Xs:=0;
{* end of user area *}
Pt:=Pt/100; Ls:=Ls/100;
N:=N AND Alert(N=0,2);X:=X AND Alert(X=0,2);
N:=If(Nd=0,N,Alert(N,Nd+1) AND Alert(N,Nd)=0);
N:=If(N>0,If(No=1,O,If(No=3,H,If(No=4,L,C))),0);
N:=If(No=5,If(Ns>0,Max(L,Ns),0),N);
X:=If(Xd=0,X,Alert(X,Xd+1) AND Alert(X,Xd)=0);
X:=If(X>0,If(Xo=1,O,If(Xo=3,H,If(Xo=4,L,C))),0);
X:=If(Xs>0 AND Xo=5,Max(L,Xs),X);
I:=Cum(N+X>-1)=1;
Cp:=If(Cp=0,ValueWhen(1,I OR N>0,N),Cp);
Cm:=If(IsUndefined(Cp) OR Cp=0,1,Cm);
Pf:=(Cp*(1+Pt)+Cx)/(Cp-Cm);
Lf:=Min(1,(Cp*(1-Ls)+Cx)/(Cp-Cm));
Tr:=If(PREV=0,If(N>0 AND X=0 AND (No=2 OR
(If(Xa<3,C,H)<Pf*N AND If(Xc<3,C,L)>Lf*N)),N,0), If(X>0 OR
(If(Xa<3,C,H)>=Pf*PREV AND Pt<>.99) OR
(If(Xc<3,C,L)<=Lf*PREV AND Ls<>.99),0,PREV));
Tr:=If(Alert(Tr>0,2)=0 AND N>0 AND
(((If(Xa<3,C,H)>=Pf*N OR If(Xc<3,C,L)<=Lf*N)
AND No<>2) OR (X>0 AND Nd+Xd<1 AND No<>2 AND
Xo>1 AND (Max(No,Xo)>4 OR No<>Xo))),-N,Tr);
Xd:=(Tr=0 AND Alert(Tr>0,2)) OR (Tr<0 AND Alert(Tr=0,2));
Cx:=ValueWhen(1,Cum((N+Ns+X+Xs)>-1)=1 OR Tr<>0,Abs(Tr));
Cp:=If(Xd,If(Xa<3 AND C>=Cx*Pf,C,If(Xa>2 AND H>=Cx*Pf,Cx*Pf,0)),0);
Cp:=If(Cp>0,If(Cp>=.5,PREC(Cp,2),If(Cp<.1,PREC(Cp,3),PREC(Cp*2,2)/2)),0);
Cp:=If(Xa=4 AND Cp>0,If(Tr<0,Cp,Max(O,Cp)),Cp);
Cp:=If((Xa=2 OR Xa=3) AND Cp>0,C,If(Xa=1 AND Xo<5,Ref(Cp,-1),Cp));
Cp:=If(Xa=1 AND Cp>0 AND Xo<5,O,Cp);
Cm:=If(Xd,If(Xc<3 AND C<=Cx*Lf,C,If(Xc>2 AND L<=Cx*Lf,Cx*Lf,0)),0);
Cm:=If(Cm>0,If(Cm>=.5,PREC(Cm,2),If(Cm<.1,PREC(Cm,3),PREC(Cm*2,2)/2)),0);
Cm:=If(Xc=4 AND Cm>0,Max(L,Min(If(Tr<0,H,O),Cm)),Cm);
Cm:=If((Xc=2 OR Xc=3) AND Cm>0,C,If(Xc=1 AND Xo<5,Ref(Cm,-1),Cm));
Cm:=If(Xc=1 AND Cm>0 AND Xo<5,O,Cm);
Cx*Alert(Tr<>0,2); Cx*Pf*Alert(Tr<>0,2); Cx*Lf*Alert(Tr<>0,2);
If(Cm>0,Cm,If(Cp>0,Cp,If(Xs>0 AND Xo=5,X,0)));
----- Original Message -----
From: "mickie_pitts" <jaguarvp@xxxxxxxxxxxxxxxx>
To: <equismetastock@xxxxxxxxxxxxxxx>
Sent: Thursday, January 29, 2004 11:37 AM
Subject: [EquisMetaStock Group] Writing an Indicator
> I would like to write an Indicator for stock entry price.
>
> I would like for it to ask the "Entry Price", "Long or Short" and
> then plot a horzional green line for LONGS and a red line for
> Shorts. Also display a yellow line as a stop indicator. The stop
> indicator would be a % of the Entry price. Would need to program
> that in say a 5%.
>
> Thanks for anyones help.
>
>
>
>
>
> Yahoo! Groups Links
>
> To visit your group on the web, go to:
> http://groups.yahoo.com/group/equismetastock/
>
> To unsubscribe from this group, send an email to:
> equismetastock-unsubscribe@xxxxxxxxxxxxxxx
>
> Your use of Yahoo! Groups is subject to:
> http://docs.yahoo.com/info/terms/
>
>
>
>
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/BefplB/TM
---------------------------------------------------------------------~->
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/equismetastock/
To unsubscribe from this group, send an email to:
equismetastock-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
|