|
PureBytes Links
Trading Reference Links
|
----- Original Message -----
Sent: Sunday, October 16, 2005 12:49
AM
Subject: [trading] Re: [amibroker] Anyone
up to porting this MT4 indicator to AB?
Hi,
Do you have a graph of what it looks
like?
Thx,
Russell
--- Steve <avalon-ardy@xxxxxxxxxxxxxxx>
wrote:
> I don't believe I'm infringing on anyones
>
copyright/ownership as this indicator is freely
> available for the MT4
platform and no indication is
> given of a copyright owner. Seems to
work OK in
> showing trend change when used in conjunction with
>
confirming PA.
> Thanks.
>
>
>
/+------------------------------------------------------------------+
>
//|
> J_TPO.mq4 |
>
//|
Copyright © 2004,
>
|
>
//|
>
|
>
//+------------------------------------------------------------------+
>
#property copyright "Copyright © 2004, ."
> #property
link ""
>
> #property
indicator_separate_window
> #property indicator_minimum -1
>
#property indicator_maximum 1
> #property indicator_buffers 1
>
#property indicator_color1 DodgerBlue
> //---- input parameters
>
extern int Len=10;
> //----
buffers
> double
ExtMapBuffer1[];
>
//+------------------------------------------------------------------+
>
//| Custom indicator initialization
function
>
|
>
//+------------------------------------------------------------------+
>
int init()
> {
> //----
indicators
>
SetIndexStyle(0,DRAW_LINE);
> SetIndexBuffer(0,
ExtMapBuffer1);
> //----
>
return(0);
> }
>
>
//+------------------------------------------------------------------+
>
//| J_TPO
indicatop
>
|
>
//+------------------------------------------------------------------+
>
int start()
> {
> //int
limit;
> //int
counted_bars=IndicatorCounted();
> //---- check for possible
errors
> //if(counted_bars<0) return(-1);
>
//---- last counted bar will be recounted
>
//if(counted_bars>0) counted_bars--;
>
//limit=Bars-counted_bars;
> //---- main loop
>
> double f0, f8, f10, f18, f20, f28, f30,
f40, k,
> var14, var18, var1C,
var20, var24, shift,
> value;
> int
f38, f48, var6, var12, varA, varE;
>
double arr0[300], arr1[300], arr2[300],
> arr3[300];
>
> //f38=0;
> for(int
i=Bars-Len-100; i>=0; i--)
>
{
> var14=0;
> var1C=0;
> if(f38==0)
> {
> f38=1;
> f40=0;
> if (Len-1>= 2)
f30=Len-1;
> else f30=2;
> f48=f30+1;
> f10=Close[i];
> arr0[f38] = Close[i];
>
k=f48;
> f18 = 12 / (k * (k - 1) *
(k + 1));
> f20 = (f48 + 1) * 0.5;
> }
> else
> {
> if (f38 <= f48) f38 = f38 +
1;
> else f38 = f48 + 1;
> f8 = f10;
> f10 = Close[i];
> if (f38 > f48)
>
{
> for (var6 = 2;
var6<=f48; var6++)
> arr0[var6-1] = arr0[var6];
> arr0[f48] = Close[i];
>
}
> else arr0[f38] = Close[i];
> if ((f30 >= f38) &&
(f8 != f10)) f40 = 1;
>
if ((f30 == f38) && (f40 == 0)) f38 = 0;
> }
>
> if (f38 >= f48)
>
{
> for (varA=1; varA<=f48;
varA++)
>
{
> arr2[varA] =
varA;
>
arr3[varA] = varA;
> arr1[varA] =
arr0[varA];
> }
>
> for (varA=1; varA<=(f48-1);
varA++)
>
{
> var24 =
arr1[varA];
>
var12 = varA;
>
var6 = varA + 1;
> for
(var6=varA+1; var6<=f48;
var6++)
>
{
>
if (arr1[var6] < var24)
>
{
>
var24 = arr1[var6];
>
var12 =
var6;
>
}
>
}
>
> var20 =
arr1[varA];
>
arr1[varA] = arr1[var12];
> arr1[var12] =
var20;
> var20 =
arr2[varA];
>
arr2[varA] = arr2[var12];
> arr2[var12] =
var20;
> }
>
> varA = 1;
> while (f48 > varA)
>
{
> var6 = varA + 1;
> var14 = 1;
> var1C = arr3[varA];
> while (var14 != 0)
>
{
> if
(arr1[varA] != arr1[var6])
>
{
>
if ((var6 - varA) > 1)
>
{
>
var1C = var1C / (var6 - varA);
>
varE = varA;
>
for (varE=varA; varE<=(var6-1);
>
varE++)
>
arr3[varE] =
var1C;
>
>
}
>
var14 = 0;
>
}
> else
>
{
>
var1C = var1C + arr3[var6];
>
var6 = var6 + 1;
>
}
> }
> varA = var6;
> }
> var1C = 0;
> for (varA=1; varA<=f48;
varA++)
> var1C = var1C
+ (arr3[varA] - f20) *
> (arr2[varA] -
f20);
>
> var18 = f18 *
var1C;
> }
> else
> var18 = 0;
>
> value = var18;
> if (value
== 0) value = 0.00001;
>
>
ExtMapBuffer1[i]=value;
> }
> //----
done
> return(0);
>
}
>
//+------------------------------------------------------------------+
>
__________________________________
Yahoo! Mail -
PC Magazine Editors' Choice 2005
http://mail.yahoo.com
------------------------
Yahoo! Groups Sponsor --------------------~-->
Try Online Currency
Trading with GFT. Free 50K Demo. Trade
24 Hours. Commission-Free.
http://us.click.yahoo.com/RvFikB/9M2KAA/U1CZAA/GHeqlB/TM
--------------------------------------------------------------------~->
Please note that this group is for discussion between users
only.
To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
For other support material please check
also:
http://www.amibroker.com/support.html
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:
http://docs.yahoo.com/info/terms/
Please note that this group is for discussion between users only.
To get support from AmiBroker please send an e-mail directly to
SUPPORT {at} amibroker.com
For other support material please check also:
http://www.amibroker.com/support.html
YAHOO! GROUPS LINKS
|
|