|
PureBytes Links
Trading Reference Links
|
AB
gets confused when using subscripts with Quick AFL enabled. I suspect the reason
is that Quick AFL is designed to speed up array processing by limiting the
calculations to that section of the array that is displayed or within AA range
settings. When using subscripts you can access all parts of the arrays and you
may be processing bars outside the displayed part of the array, hence you
can get Subscript Out Of Range messages. For now I think there is no way to
use Quick-AFL with subscripts. This problem has been reported to bugs @ ab
<FONT
face=Arial color=#0000ff size=2>Perhaps TJ can give a better explanation. I now
always turn OFF Quick AFL when using subscripts.
<FONT face=Arial color=#0000ff
size=2>
<FONT face=Arial color=#0000ff
size=2>herman
<FONT face=Tahoma
size=2>-----Original Message-----From: Bob Jagow
[mailto:bjagow@xxxxxxxxxxxxx]Sent: Sunday, May 02, 2004 6:08
PMTo: amibroker@xxxxxxxxxxxxxxxSubject: RE: [amibroker]
Test Request
Hi
MSG,
<SPAN
class=457443721-02052004><FONT face=Arial color=#0000ff
size=2>
With
Quick AFL enabled, it dies as soon as I click on a bar or switch
tickers.
In
case you don't observe that, the error is
x1 =
SelectedBar; y1=C[SelectedBar];
<FONT face=Arial color=#0000ff
size=2>
^
<FONT face=Arial color=#0000ff
size=2> |
<FONT face=Arial color=#0000ff
size=2>------------------------------
<FONT face=Arial color=#0000ff
size=2>error 7
<FONT face=Arial color=#0000ff
size=2>Subscript out of range
<FONT face=Arial color=#0000ff
size=2>
<FONT face=Arial color=#0000ff
size=2>Haven't seen any crashes with Quick AFL disabled, but know not
what to test.
<FONT face=Arial color=#0000ff
size=2>[Like Ken, I'm flying nearly blind.]
<FONT face=Arial color=#0000ff
size=2>
<FONT face=Arial color=#0000ff
size=2>Bob
<FONT face=Arial color=#0000ff
size=2>
-----Original
Message-----From: Michael.S.G.
[mailto:OzFalcon@xxxxxxxxxx]Sent: Saturday, May 01, 2004 8:07
PMTo: amibroker@xxxxxxxxxxxxxxxSubject: [amibroker] Test
Request
Hi Everyone,
I
have just completed "Manual Stop Entry" indicator which may be usefull for
others. (If even just to examine the code to see how it works).Also,
I need some people to just let me know if it works for them - Before I
post it to the AFL archive. Use the parameters dialog
(CTRL-R) to adjust settings.Code: (And Attached)<FONT
face="Courier New, Courier" color=#008000 size=2>// Manual Stop Entry
V1.00//
Created 1/5/04//
Author OzFalcon
(Michael.S.G.).//
Purpose Manualy
Enter & Track Trades.//
Type Indicator//
Notes Use
Parameters (CTRL-R) to Set & Save.//
Notes
(Buybar is set with Currently Selected Bar.)// Set Trade
EquityCash =
<FONT face="Courier New, Courier" color=#0000ff
size=2>Param(<FONT
face="Courier New, Courier" color=#ff00ff size=2>"6.Cash"<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0<FONT face="Courier New, Courier"
size=2>,<FONT face="Courier New, Courier" color=#ff00ff
size=2>0,<FONT
face="Courier New, Courier" color=#ff00ff size=2>10000<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0.01<FONT face="Courier New, Courier"
size=2>);Comm = <FONT face="Courier New, Courier" color=#0000ff
size=2>Param(<FONT
face="Courier New, Courier" color=#ff00ff size=2>"7.Comm"<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0<FONT face="Courier New, Courier"
size=2>,<FONT face="Courier New, Courier" color=#ff00ff
size=2>0,<FONT
face="Courier New, Courier" color=#ff00ff size=2>50<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0.01<FONT face="Courier New, Courier"
size=2>);<FONT face="Courier New, Courier" color=#008000
size=2>// Plot Price & Turnover.<FONT
face="Courier New, Courier" size=2>Color = <FONT
face="Courier New, Courier" color=#0000ff size=2>IIf<FONT
face="Courier New, Courier" size=2>(O > C,
colorBlack, colorLightYellow);<FONT
face="Courier New, Courier" color=#0000ff size=2>Plot<FONT
face="Courier New, Courier" size=2>( Close, <FONT
face="Courier New, Courier" color=#ff00ff size=2>"Price"<FONT
face="Courier New, Courier" size=2>, color, styleCandle
);<FONT face="Courier New, Courier" color=#0000ff
size=2>PlotForeign(
<FONT face="Courier New, Courier" color=#0000ff
size=2>GetBaseIndex(),
<FONT face="Courier New, Courier" color=#0000ff
size=2>GetBaseIndex(),
colorAqua, styleLine | styleThick |
styleOwnScale); Turnover = (V*C);BarColor =
<FONT face="Courier New, Courier" color=#0000ff
size=2>IIf( Turnover >
<FONT face="Courier New, Courier" color=#0000ff
size=2>Ref<FONT face="Courier New, Courier"
size=2>(Turnover,-<FONT face="Courier New, Courier" color=#ff00ff
size=2>1),
colorRed , <FONT face="Courier New, Courier" color=#008000
size=2>/* up volume */
<FONT face="Courier New, Courier" color=#0000ff
size=2>IIf( Turnover <
<FONT face="Courier New, Courier" color=#0000ff
size=2>Ref<FONT face="Courier New, Courier"
size=2>(Turnover,-<FONT face="Courier New, Courier" color=#ff00ff
size=2>1),
colorOrange, <FONT face="Courier New, Courier" color=#008000
size=2>/* down volume */<FONT face="Courier New, Courier"
size=2>
colorGreen <FONT face="Courier New, Courier" color=#008000
size=2>/*otherwise*/
));<FONT face="Courier New, Courier" color=#0000ff
size=2>Plot( Turnover,
<FONT face="Courier New, Courier" color=#ff00ff
size=2>"Turnover", BarColor,
styleHistogram | styleThick |
styleOwnScale);<FONT face="Courier New, Courier"
color=#008000 size=2>// Set Global Variables.<FONT
face="Courier New, Courier" size=2>BC = BarCount-<FONT
face="Courier New, Courier" color=#ff00ff size=2>1<FONT
face="Courier New, Courier" size=2>;BNUM = <FONT
face="Courier New, Courier" color=#0000ff size=2>BarIndex<FONT
face="Courier New, Courier" size=2>();<FONT
face="Courier New, Courier" color=#008000 size=2>// Set Default BuyBar &
BuyAt etc.SelectedBar =
<FONT face="Courier New, Courier" color=#0000ff
size=2>SelectedValue(BNUM);
BuyBar = SelectedBar;BuyAt = <FONT
face="Courier New, Courier" color=#0000ff size=2>Param<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"1.BuyAt"<FONT face="Courier New, Courier"
size=2>,<FONT face="Courier New, Courier" color=#ff00ff
size=2>0,<FONT
face="Courier New, Courier" color=#ff00ff size=2>0<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>100<FONT face="Courier New, Courier"
size=2>,<FONT face="Courier New, Courier" color=#ff00ff
size=2>0.01);EvenStop =
<FONT face="Courier New, Courier" color=#0000ff
size=2>Param(<FONT
face="Courier New, Courier" color=#ff00ff size=2>"2.EvenStop"<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>1<FONT face="Courier New, Courier"
size=2>,<FONT face="Courier New, Courier" color=#ff00ff
size=2>0,<FONT
face="Courier New, Courier" color=#ff00ff size=2>100<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0.01);
//Percentage
Of Buy PriceProfitStop =
<FONT face="Courier New, Courier" color=#0000ff
size=2>Param(<FONT
face="Courier New, Courier" color=#ff00ff size=2>"3.ProfitStop"<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>2<FONT face="Courier New, Courier"
size=2>,<FONT face="Courier New, Courier" color=#ff00ff
size=2>0,<FONT
face="Courier New, Courier" color=#ff00ff size=2>100<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0.01);
//Percentage
of Buy Price.LossStop =
<FONT face="Courier New, Courier" color=#0000ff
size=2>Param(<FONT
face="Courier New, Courier" color=#ff00ff size=2>"4.LossStop"<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>2<FONT face="Courier New, Courier"
size=2>,<FONT face="Courier New, Courier" color=#ff00ff
size=2>0,<FONT
face="Courier New, Courier" color=#ff00ff size=2>100<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0.01);
//Percentage
of Buy Price.TrailStop =
<FONT face="Courier New, Courier" color=#0000ff
size=2>Param(<FONT
face="Courier New, Courier" color=#ff00ff size=2>"5.TrailStop"<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>2<FONT face="Courier New, Courier"
size=2>,<FONT face="Courier New, Courier" color=#ff00ff
size=2>0,<FONT
face="Courier New, Courier" color=#ff00ff size=2>100<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0.01);
//Percentage
from Highest High since BuyBar.// Overide Default BuyBar & BuyAt
if previously Set or Write setup.<FONT
face="Courier New, Courier" size=2>LockSet = <FONT
face="Courier New, Courier" color=#0000ff size=2>Param<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"Lock/Set"<FONT face="Courier New, Courier"
size=2>,False,False,True,<FONT
face="Courier New, Courier" color=#ff00ff size=2>1<FONT
face="Courier New, Courier" size=2>);TrailName = <FONT
face="Courier New, Courier" color=#ff00ff size=2>"Data/"<FONT
face="Courier New, Courier" size=2> + <FONT
face="Courier New, Courier" color=#0000ff size=2>Name<FONT
face="Courier New, Courier" size=2>()+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"~Stop.txt"<FONT
face="Courier New, Courier" size=2>;<FONT
face="Courier New, Courier" color=#800000 size=2>if<FONT
face="Courier New, Courier" size=2> (LockSet ==
False) { fh
= <FONT face="Courier New, Courier" color=#0000ff
size=2>fopen( TrailName,
<FONT face="Courier New, Courier" color=#ff00ff
size=2>"r");
<FONT
face="Courier New, Courier" color=#800000 size=2>if<FONT
face="Courier New, Courier" size=2>( fh )
{
BuyBar
= <FONT face="Courier New, Courier" color=#0000ff
size=2>StrToNum(<FONT
face="Courier New, Courier" color=#0000ff size=2>fgets<FONT
face="Courier New, Courier" size=2>( fh ));
BuyAt
= <FONT face="Courier New, Courier" color=#0000ff
size=2>StrToNum(<FONT
face="Courier New, Courier" color=#0000ff size=2>fgets<FONT
face="Courier New, Courier" size=2>( fh
)); EvenStop
= <FONT face="Courier New, Courier" color=#0000ff
size=2>StrToNum(<FONT
face="Courier New, Courier" color=#0000ff size=2>fgets<FONT
face="Courier New, Courier" size=2>( fh
)); ProfitStop
= <FONT face="Courier New, Courier" color=#0000ff
size=2>StrToNum(<FONT
face="Courier New, Courier" color=#0000ff size=2>fgets<FONT
face="Courier New, Courier" size=2>( fh
)); LossStop
= <FONT face="Courier New, Courier" color=#0000ff
size=2>StrToNum(<FONT
face="Courier New, Courier" color=#0000ff size=2>fgets<FONT
face="Courier New, Courier" size=2>( fh
)); TrailStop
= <FONT face="Courier New, Courier" color=#0000ff
size=2>StrToNum(<FONT
face="Courier New, Courier" color=#0000ff size=2>fgets<FONT
face="Courier New, Courier" size=2>( fh
)); Cash
= <FONT face="Courier New, Courier" color=#0000ff
size=2>StrToNum(<FONT
face="Courier New, Courier" color=#0000ff size=2>fgets<FONT
face="Courier New, Courier" size=2>( fh
)); Comm
= <FONT face="Courier New, Courier" color=#0000ff
size=2>StrToNum(<FONT
face="Courier New, Courier" color=#0000ff size=2>fgets<FONT
face="Courier New, Courier" size=2>( fh
)); <FONT
face="Courier New, Courier" color=#0000ff size=2>fclose<FONT
face="Courier New, Courier" size=2>( fh
); TitleS=<FONT
face="Courier New, Courier" color=#ff00ff size=2>"ReadFile"<FONT
face="Courier New, Courier" size=2>;
} <FONT
face="Courier New, Courier" color=#800000 size=2>else<FONT
face="Courier New, Courier" size=2>
{
<FONT
face="Courier New, Courier" color=#0000ff size=2>printf<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"Trail Not Set\n"<FONT
face="Courier New, Courier"
size=2>); BuyBar=BC; BuyAt=C[BuyBar]; TitleS=<FONT
face="Courier New, Courier" color=#ff00ff size=2>"NoFile"<FONT
face="Courier New, Courier"
size=2>; } } <FONT
face="Courier New, Courier" color=#800000 size=2>else<FONT
face="Courier New, Courier"
size=2> { BuyBar
= <FONT face="Courier New, Courier" color=#0000ff
size=2>IIf ((BuyBar ==
0<FONT
face="Courier New, Courier"
size=2>),BC,BuyBar); BuyAt
= <FONT face="Courier New, Courier" color=#0000ff
size=2>IIf ((BuyAt ==
0<FONT
face="Courier New, Courier"
size=2>),C[BuyBar],BuyAt); TitleS
= <FONT face="Courier New, Courier" color=#ff00ff
size=2>"SaveFile"<FONT face="Courier New, Courier"
size=2>; fh
= <FONT face="Courier New, Courier" color=#0000ff
size=2>fopen( TrailName,
<FONT face="Courier New, Courier" color=#ff00ff
size=2>"w");
<FONT
face="Courier New, Courier" color=#800000 size=2>if<FONT
face="Courier New, Courier" size=2>( fh )
{
<FONT
face="Courier New, Courier" color=#0000ff size=2>fputs<FONT
face="Courier New, Courier" size=2>( <FONT
face="Courier New, Courier" color=#0000ff size=2>StrFormat<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"%.00f\n"<FONT face="Courier New, Courier"
size=2>,BuyBar), fh );
<FONT
face="Courier New, Courier" color=#0000ff size=2>fputs<FONT
face="Courier New, Courier" size=2>( <FONT
face="Courier New, Courier" color=#0000ff size=2>StrFormat<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"%.02f\n"<FONT face="Courier New, Courier"
size=2>,BuyAt ), fh
); <FONT
face="Courier New, Courier" color=#0000ff size=2>fputs<FONT
face="Courier New, Courier" size=2>( <FONT
face="Courier New, Courier" color=#0000ff size=2>StrFormat<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"%.02f\n"<FONT face="Courier New, Courier"
size=2>,EvenStop ), fh );
<FONT
face="Courier New, Courier" color=#0000ff size=2>fputs<FONT
face="Courier New, Courier" size=2>( <FONT
face="Courier New, Courier" color=#0000ff size=2>StrFormat<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"%.02f\n"<FONT face="Courier New, Courier"
size=2>,ProfitStop ), fh );
<FONT
face="Courier New, Courier" color=#0000ff size=2>fputs<FONT
face="Courier New, Courier" size=2>( <FONT
face="Courier New, Courier" color=#0000ff size=2>StrFormat<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"%.02f\n"<FONT face="Courier New, Courier"
size=2>,LossStop ), fh );
<FONT
face="Courier New, Courier" color=#0000ff size=2>fputs<FONT
face="Courier New, Courier" size=2>( <FONT
face="Courier New, Courier" color=#0000ff size=2>StrFormat<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"%.02f\n"<FONT face="Courier New, Courier"
size=2>,TrailStop ), fh );
<FONT
face="Courier New, Courier" color=#0000ff size=2>fputs<FONT
face="Courier New, Courier" size=2>( <FONT
face="Courier New, Courier" color=#0000ff size=2>StrFormat<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"%.02f\n"<FONT face="Courier New, Courier"
size=2>,Cash ), fh );
<FONT
face="Courier New, Courier" color=#0000ff size=2>fputs<FONT
face="Courier New, Courier" size=2>( <FONT
face="Courier New, Courier" color=#0000ff size=2>StrFormat<FONT
face="Courier New, Courier" size=2>(<FONT face="Courier New, Courier"
color=#ff00ff size=2>"%.02f\n"<FONT face="Courier New, Courier"
size=2>,Comm ), fh );
<FONT
face="Courier New, Courier" color=#0000ff size=2>fclose<FONT
face="Courier New, Courier" size=2>( fh );
} }<FONT
face="Courier New, Courier" color=#008000 size=2>// Plot Vertical &
Horizontal Buy Bar/Price. (Blue/Yellow)<FONT
face="Courier New, Courier" size=2>VLine = <FONT
face="Courier New, Courier" color=#0000ff size=2>IIf<FONT
face="Courier New, Courier" size=2>(BuyBar==BNUM,<FONT
face="Courier New, Courier" color=#ff00ff size=2>1<FONT
face="Courier New, Courier" size=2>,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0<FONT face="Courier New, Courier"
size=2>); <FONT
face="Courier New, Courier" color=#0000ff size=2>Plot<FONT
face="Courier New, Courier" size=2> (VLine ,<FONT
face="Courier New, Courier" color=#ff00ff size=2>"BuyBar"<FONT
face="Courier New, Courier" size=2>, colorBlue, styleHistogram
| styleOwnScale,<FONT face="Courier New, Courier"
color=#ff00ff size=2>0<FONT face="Courier New, Courier"
size=2>,<FONT face="Courier New, Courier" color=#ff00ff
size=2>1);x0 =
Buybar-<FONT face="Courier New, Courier" color=#ff00ff
size=2>1 ; x1 =
BuyBar+<FONT face="Courier New, Courier" color=#ff00ff
size=2>1 ;y0 = BuyAt; y1
= BuyAt;Hline = <FONT face="Courier New, Courier" color=#0000ff
size=2>LineArray<FONT face="Courier New, Courier"
size=2>(x0,y0,x1,y1,<FONT face="Courier New, Courier" color=#ff00ff
size=2>3<FONT face="Courier New, Courier"
size=2>); <FONT
face="Courier New, Courier" color=#0000ff size=2>Plot<FONT
face="Courier New, Courier" size=2>(HLine ,<FONT
face="Courier New, Courier" color=#ff00ff size=2>"BuyPrice"<FONT
face="Courier New, Courier"
size=2>,colorYellow,styleLine);<FONT
face="Courier New, Courier" color=#008000 size=2>// Plot Trade Trend (BuyBar
to Current Bar - Blue Dashed Line).<FONT
face="Courier New, Courier" size=2>x0 = Buybar ; x1 = BC ;y0 = BuyAt; y1
= C[BC];Hline = <FONT face="Courier New, Courier"
color=#0000ff size=2>LineArray<FONT face="Courier New, Courier"
size=2>(x0,y0,x1,y1,<FONT face="Courier New, Courier" color=#ff00ff
size=2>1<FONT face="Courier New, Courier"
size=2>); <FONT
face="Courier New, Courier" color=#0000ff size=2>Plot<FONT
face="Courier New, Courier" size=2>(HLine ,<FONT
face="Courier New, Courier" color=#ff00ff size=2>"TradeTrend"<FONT
face="Courier New, Courier"
size=2>,colorLightBlue,styleDots);<FONT
face="Courier New, Courier" color=#008000 size=2>// Plot Break Even
Horizontal (Green).x0 =
Buybar-<FONT face="Courier New, Courier" color=#ff00ff
size=2>1 ; x1 =
BuyBar+<FONT face="Courier New, Courier" color=#ff00ff
size=2>1 ;y0 =
BuyAt*(<FONT face="Courier New, Courier" color=#ff00ff
size=2>1<FONT face="Courier New, Courier"
size=2>+(EvenStop/<FONT face="Courier New, Courier" color=#ff00ff
size=2>100))
;y1=y0;Hline = <FONT face="Courier New, Courier" color=#0000ff
size=2>LineArray<FONT face="Courier New, Courier"
size=2>(x0,y0,x1,y1,<FONT face="Courier New, Courier" color=#ff00ff
size=2>1<FONT face="Courier New, Courier"
size=2>); <FONT
face="Courier New, Courier" color=#0000ff size=2>Plot<FONT
face="Courier New, Courier" size=2>(HLine ,<FONT
face="Courier New, Courier" color=#ff00ff size=2>"EvenStop"<FONT
face="Courier New, Courier"
size=2>,colorGreen,styleLine);<FONT
face="Courier New, Courier" color=#008000 size=2>// Plot Profit Stop
Horizontal (Orange)x0 =
Buybar-<FONT face="Courier New, Courier" color=#ff00ff
size=2>1 ; x1 =
BuyBar+<FONT face="Courier New, Courier" color=#ff00ff
size=2>1 ;y0 =
BuyAt*(<FONT face="Courier New, Courier" color=#ff00ff
size=2>1<FONT face="Courier New, Courier"
size=2>+(ProfitStop/<FONT face="Courier New, Courier" color=#ff00ff
size=2>100))
;y1=y0;Hline = <FONT face="Courier New, Courier" color=#0000ff
size=2>LineArray<FONT face="Courier New, Courier"
size=2>(x0,y0,x1,y1,<FONT face="Courier New, Courier" color=#ff00ff
size=2>1<FONT face="Courier New, Courier"
size=2>); <FONT
face="Courier New, Courier" color=#0000ff size=2>Plot<FONT
face="Courier New, Courier" size=2>(HLine ,<FONT
face="Courier New, Courier" color=#ff00ff size=2>"ProfitStop"<FONT
face="Courier New, Courier"
size=2>,colorOrange,styleLine);<FONT
face="Courier New, Courier" color=#008000 size=2>// Plot Loss Stop
Horizontal (Red).x0 =
Buybar-<FONT face="Courier New, Courier" color=#ff00ff
size=2>1 ; x1 =
BuyBar+<FONT face="Courier New, Courier" color=#ff00ff
size=2>1 ;y0 =
BuyAt*(<FONT face="Courier New, Courier" color=#ff00ff
size=2>1<FONT face="Courier New, Courier"
size=2>-(LossStop/<FONT face="Courier New, Courier" color=#ff00ff
size=2>100))
;y1=y0;Hline = <FONT face="Courier New, Courier" color=#0000ff
size=2>LineArray<FONT face="Courier New, Courier"
size=2>(x0,y0,x1,y1,<FONT face="Courier New, Courier" color=#ff00ff
size=2>1<FONT face="Courier New, Courier"
size=2>); <FONT
face="Courier New, Courier" color=#0000ff size=2>Plot<FONT
face="Courier New, Courier" size=2>(HLine ,<FONT
face="Courier New, Courier" color=#ff00ff size=2>"LossStop"<FONT
face="Courier New, Courier"
size=2>,colorRed,styleLine);<FONT
face="Courier New, Courier" color=#008000 size=2>// Plot Trail Stop Trend
(Highest High to Current Bar - Orange Dashed Line).<FONT
face="Courier New, Courier" size=2>ThisIsBuyBar = (BNUM ==
BuyBar);TrailPeak = BC-(<FONT face="Courier New, Courier"
color=#0000ff size=2>LastValue<FONT face="Courier New, Courier"
size=2>(<FONT face="Courier New, Courier" color=#0000ff
size=2>HighestSinceBars<FONT face="Courier New, Courier"
size=2>(ThisIsBuyBar,High,<FONT face="Courier New, Courier"
color=#ff00ff size=2>1<FONT face="Courier New, Courier"
size=2>)));ThisIsTrailPeak = (BNUM == TrailPeak);PeakValue =
High[TrailPeak];x0 = TrailPeak; y0=PeakValue;x1 =
SelectedBar; y1=C[SelectedBar];Line = <FONT
face="Courier New, Courier" color=#0000ff size=2>LineArray<FONT
face="Courier New, Courier" size=2>(x0,y0,x1,y1,<FONT
face="Courier New, Courier" color=#ff00ff size=2>0<FONT
face="Courier New, Courier" size=2>);<FONT
face="Courier New, Courier" color=#0000ff size=2>Plot<FONT
face="Courier New, Courier" size=2>(Line,<FONT
face="Courier New, Courier" color=#ff00ff size=2>"TrailStop"<FONT
face="Courier New, Courier"
size=2>,colorOrange,styleDots);TrailValue =
((y1/y0)-<FONT face="Courier New, Courier" color=#ff00ff
size=2>1)*<FONT
face="Courier New, Courier" color=#ff00ff size=2>100<FONT
face="Courier New, Courier" size=2>;<FONT
face="Courier New, Courier" color=#008000 size=2>// Calculate Holding
Stats.Avail =
Cash-Comm;Qty = <FONT face="Courier New, Courier" color=#0000ff
size=2>int<FONT face="Courier New, Courier"
size=2>((Avail/BuyAt));Remain = Avail-(Qty*BuyAt);Value =
((Close*Qty)-Comm)+Remain;Change = Value-Cash;Gain =
((Value/Avail)-<FONT face="Courier New, Courier" color=#ff00ff
size=2>1)*<FONT
face="Courier New, Courier" color=#ff00ff size=2>100<FONT
face="Courier New, Courier" size=2>;<FONT
face="Courier New, Courier" color=#008000 size=2>// Dynamic
Title<FONT face="Courier New, Courier" color=#0000ff
size=2>_N(Title =
<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\\c29"<FONT face="Courier New, Courier"
size=2>+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"Trail Stop "<FONT face="Courier New, Courier"
size=2>+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\\c32"+ <FONT
face="Courier New, Courier" color=#0000ff size=2>Date<FONT
face="Courier New, Courier" size=2>()+ <FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c29 Ticker:
\\c32"+<FONT
face="Courier New, Courier" color=#0000ff size=2>Name<FONT
face="Courier New, Courier" size=2>()+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c29 Index:
\\c24"+<FONT
face="Courier New, Courier" color=#0000ff size=2>GetBaseIndex<FONT
face="Courier New, Courier" size=2>()+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\n"<FONT
face="Courier New, Courier" size=2>+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c38 Open
\\c01"<FONT face="Courier New, Courier"
size=2>+O+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\\c38 Hi \\c01"<FONT face="Courier New, Courier"
size=2>+H+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\\c38 Low \\c01"<FONT face="Courier New, Courier"
size=2>+L+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\\c38 Close \\c01"<FONT face="Courier New, Courier"
size=2>+C+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\n"+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c38 TurnOver
\\c24"+<FONT
face="Courier New, Courier" color=#0000ff size=2>WriteVal<FONT
face="Courier New, Courier" size=2>(TurnOver,<FONT
face="Courier New, Courier" color=#ff00ff size=2>1<FONT
face="Courier New, Courier" size=2>)+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c29 SelectedBar:
\\c32"+
SelectedBar+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\n"+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c38 Cash
\\c01"+Cash+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c38 Comm
\\c01"+Comm+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c38 Qty
\\c01"+Qty+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\n"<FONT
face="Courier New, Courier" size=2>+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c38 Vaule
\\c01$"<FONT face="Courier New, Courier"
size=2>+Value+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\\c38 Change \\c01$"<FONT face="Courier New, Courier"
size=2>+Change+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\\c38 Gain \\c01"<FONT face="Courier New, Courier"
size=2>+Gain+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"%"+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\n"<FONT
face="Courier New, Courier" size=2>+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\\c29 TrailPeekBar:
\\c01"<FONT face="Courier New, Courier"
size=2>+TrailPeak+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"\\c29 Trail \\c01"<FONT face="Courier New, Courier"
size=2>+TrailValue+<FONT face="Courier New, Courier" color=#ff00ff
size=2>"%"+<FONT
face="Courier New, Courier" color=#ff00ff size=2>"\n"<FONT
face="Courier New, Courier" size=2> + TitleS +<FONT
face="Courier New, Courier" color=#ff00ff size=2>""<FONT
face="Courier New, Courier" size=2>);<FONT
face="Courier New, Courier" color=#008000 size=2>//
End.Send BUG REPORTS to bugs@xxxxxxxxxxxxxSend
SUGGESTIONS to
suggest@xxxxxxxxxxxxx-----------------------------------------Post
AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx (Web page:
<A
href="">http://groups.yahoo.com/group/amiquote/messages/)--------------------------------------------Check
group FAQ at: <A
href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Send BUG REPORTS to bugs@xxxxxxxxxxxxxSend
SUGGESTIONS to
suggest@xxxxxxxxxxxxx-----------------------------------------Post
AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx (Web page:
<A
href="">http://groups.yahoo.com/group/amiquote/messages/)--------------------------------------------Check
group FAQ at: <A
href="">http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Yahoo! Groups Sponsor
ADVERTISEMENT
Yahoo! Groups Links
To visit your group on the web, go to:http://groups.yahoo.com/group/amibroker/
To unsubscribe from this group, send an email to:amibroker-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
|