[ob] Gator buat Amibroker

2009-11-18 Terurut Topik jkunci 
Ini hasil googling:

Gator:
/*
   Bill William's Alligator System II - GATOR Oscillator to show 
convergence/divergence of balance lines
Modified from williamalligator2. Please put chart together with 
williamalligator2.

   Reference Website:
   ==
   
http://www.alpari-idc.com/en/market-analysis-guide/chaos-theory/alligator-and-gator.html

   Modified from http://www.amibroker.com/library/detail.php?id=100, by Steve 
Wiser - slwis...@erols.com
   Modified by TohMz  on June 9th, 2008
*/
SetChartOptions( 0, chartShowArrows|chartShowDates );


_SECTION_BEGIN(BW Alligator);
/*** The trend indicators ***/

P= ParamList(Price, Close|(H+L)/2|(H+C+L)/3,1);

if (P==Close)
   A = C;
   
else
if (P==(H+C+L)/3)
   A = (H+C+L)/3;
else
  A = (H+L)/2;

AlligatorJaw   = Ref(Wilders(A,13),-8);
AlligatorTeeth = Ref(Wilders(A,8), -5);
AlligatorLips  = Ref(Wilders(A,5), -3);

Gatorabove=AlligatorLips-AlligatorTeeth;
Gatorbelow=AlligatorJaw-AlligatorTeeth;
Gatorabovecolor=IIf(GatoraboveRef(Gatorabove,-1),colorGreen,colorRed);
Gatorbelowcolor=IIf(GatorbelowRef(Gatorbelow,-1),colorGreen,colorRed);


Plot(Gatorabove,GatorLT,Gatorabovecolor,styleHistogram|styleThick, 
maskHistogram);
Plot(Gatorbelow,GatorJT,Gatorbelowcolor,styleHistogram|styleThick, 
maskHistogram);


_SECTION_END();


_SECTION_BEGIN(BW Fractal);

UpFractal= ValueWhen(
  (Ref(H,-2)  Ref(H, -4)) AND
  (Ref(H,-2)  Ref(H, -3)) AND
  (Ref(H,-2)  Ref(H, -1)) AND
  (Ref(H,-2)  H), Ref(H,-2));

DownFractal= ValueWhen(
  (Ref(L,-2) = Ref(L, -4)) AND
  (Ref(L,-2) =  Ref(L, -3)) AND
  (Ref(L,-2) =  Ref(L, -1)) AND
  (Ref(L,-2) =  L), Ref(L,-2));



//== Added Crash  crashandburn59 [at] hotmail.com solution
/* Plot(Ref(UpFractal,2), Up Fractal, ParamColor(Up Fractal 
Color,colorRed), ParamStyle(Up Fractal Style, styleDashed));
Plot(Ref(DownFractal,2), Down Fractal,ParamColor(Down Fractal 
Color,colorBlue), ParamStyle(Down Fractal Style, styleDashed)); */

//Plot(Max(HHV(H,3),Ref(UpFractal,2)), Up Fractal, ParamColor(Up Fractal 
Color,colorRed), ParamStyle(Up Fractal Style, styleDashed));
//Plot(Max(HHV(H,3),Ref(UpFractal,2)), Down Fractal,ParamColor(Down Fractal 
Color,colorBlue), ParamStyle(Down Fractal Style, styleDashed));

_SECTION_END();



_SECTION_BEGIN(Exploration);

/*
   Buy:  Scan stocks only breakout..maxbreakout (1~30%, default) and Trend is 
bullish
   Sell: Scan stocks only breakout..maxbreakout (1~30%, default) and Trend is 
bearish

*/
//== Price Increment Value - depend on different country
//Inc = 0.1;  
Inc =1;

//== Set the Price Range for stock to scan
PriceFrom = Param(Price From:, 50,   1,5, Inc); 
PriceTo   = Param(Price To:,   5, 1, 5, Inc); 
MaxBreakOut = Param(Max Breakout (%), 5, 1, 30);  
MaxBreakOut = MaxBreakOut/100;

Buy  = CUpFractal AND C=(1+MaxBreakOut)*UpFractal AND 
AlligatorTeethAlligatorJaw; /* AND AlligatorLipsAlligatorTeeth; */
Sell = CDownFractal AND C=(1-MaxBreakOut)*DownFractal AND 
AlligatorTeethAlligatorJaw; /* AND AlligatorLipsAlligatorTeeth; */



/* Filter = (Buy OR Sell) AND (C=PriceFrom AND C=PriceTo) AND V0; */

Filter =  Gatorabove=0 AND Gatorbelow =0 AND (MA(V,3)/EMA(V,17))1;

AddTextColumn(FullName(), Security, 1.0, colorDefault, colorDefault, 200); 
AddTextColumn( WriteIf(Buy,Buy, WriteIf(Sell, Sell, )), Trade, 1.0);
AddColumn( UpFractal, Up Fratal);
AddColumn( DownFractal, Down Fratal);
AddColumn( MA(V,3)/EMA(V,17), MAV(3/17));
AddColumn( C, Today's Close);

RE: [ob] Gator buat Amibroker

2009-11-18 Terurut Topik JoLind 
Pak j’kunci bs share hasil screening nya menggunakan afl ini? Trims.

 

  _  

From: obrolan-bandar@yahoogroups.com [mailto:obrolan-ban...@yahoogroups.com]
On Behalf Of jkunci
Sent: Thursday, November 19, 2009 1:38 AM
To: obrolan-bandar@yahoogroups.com
Subject: [ob] Gator buat Amibroker

 

  

Ini hasil googling:

Gator:
/*
Bill William's Alligator System II - GATOR Oscillator to show
convergence/divergence of balance lines
Modified from williamalligator2. Please put chart together with
williamalligator2.

Reference Website:
==
http://www.alpari-
http://www.alpari-idc.com/en/market-analysis-guide/chaos-theory/alligator-a
nd-gator.html
idc.com/en/market-analysis-guide/chaos-theory/alligator-and-gator.html

Modified from http://www.amibroke
http://www.amibroker.com/library/detail.php?id=100,
r.com/library/detail.php?id=100, by Steve Wiser - slwis...@erols.
mailto:slwiserr%40erols.com com
Modified by TohMz on June 9th, 2008
*/
SetChartOptions( 0, chartShowArrows|chartShowDates );

_SECTION_BEGIN(BW Alligator);
/*** The trend indicators ***/

P= ParamList(Price, Close|(H+L)/2|(H+C+L)/3,1);

if (P==Close)
A = C;

else
if (P==(H+C+L)/3)
A = (H+C+L)/3;
else
A = (H+L)/2;

AlligatorJaw = Ref(Wilders(A,13),-8);
AlligatorTeeth = Ref(Wilders(A,8), -5);
AlligatorLips = Ref(Wilders(A,5), -3);

Gatorabove=AlligatorLips-AlligatorTeeth;
Gatorbelow=AlligatorJaw-AlligatorTeeth;
Gatorabovecolor=IIf(GatoraboveRef(Gatorabove,-1),colorGreen,colorRed);
Gatorbelowcolor=IIf(GatorbelowRef(Gatorbelow,-1),colorGreen,colorRed);

Plot(Gatorabove,GatorLT,Gatorabovecolor,styleHistogram|styleThick,
maskHistogram);
Plot(Gatorbelow,GatorJT,Gatorbelowcolor,styleHistogram|styleThick,
maskHistogram);

_SECTION_END();

_SECTION_BEGIN(BW Fractal);

UpFractal= ValueWhen(
(Ref(H,-2)  Ref(H, -4)) AND
(Ref(H,-2)  Ref(H, -3)) AND
(Ref(H,-2)  Ref(H, -1)) AND
(Ref(H,-2)  H), Ref(H,-2));

DownFractal= ValueWhen(
(Ref(L,-2) = Ref(L, -4)) AND
(Ref(L,-2) = Ref(L, -3)) AND
(Ref(L,-2) = Ref(L, -1)) AND
(Ref(L,-2) = L), Ref(L,-2));

//== Added Crash crashandburn59 [at] hotmail.com solution
/* Plot(Ref(UpFractal,2), Up Fractal, ParamColor(Up Fractal
Color,colorRed), ParamStyle(Up Fractal Style, styleDashed));
Plot(Ref(DownFractal,2), Down Fractal,ParamColor(Down Fractal
Color,colorBlue), ParamStyle(Down Fractal Style, styleDashed)); */

//Plot(Max(HHV(H,3),Ref(UpFractal,2)), Up Fractal, ParamColor(Up Fractal
Color,colorRed), ParamStyle(Up Fractal Style, styleDashed));
//Plot(Max(HHV(H,3),Ref(UpFractal,2)), Down Fractal,ParamColor(Down
Fractal Color,colorBlue), ParamStyle(Down Fractal Style, styleDashed));

_SECTION_END();

_SECTION_BEGIN(Exploration);

/*
Buy: Scan stocks only breakout..maxbreakout (1~30%, default) and Trend is
bullish
Sell: Scan stocks only breakout..maxbreakout (1~30%, default) and Trend is
bearish

*/
//== Price Increment Value - depend on different country
//Inc = 0.1; 
Inc =1;

//== Set the Price Range for stock to scan
PriceFrom = Param(Price From:, 50, 1,5, Inc); 
PriceTo = Param(Price To:, 5, 1, 5, Inc); 
MaxBreakOut = Param(Max Breakout (%), 5, 1, 30); 
MaxBreakOut = MaxBreakOut/100;

Buy = CUpFractal AND C=(1+MaxBreakOut)*UpFractal AND
AlligatorTeethAlligatorJaw; /* AND AlligatorLipsAlligatorTeeth; */
Sell = CDownFractal AND C=(1-MaxBreakOut)*DownFractal AND
AlligatorTeethAlligatorJaw; /* AND AlligatorLipsAlligatorTeeth; */

/* Filter = (Buy OR Sell) AND (C=PriceFrom AND C=PriceTo) AND V0; */

Filter = Gatorabove=0 AND Gatorbelow =0 AND (MA(V,3)/EMA(V,17))1;

AddTextColumn(FullName(), Security, 1.0, colorDefault, colorDefault, 200);

AddTextColumn( WriteIf(Buy,Buy, WriteIf(Sell, Sell, )), Trade, 1.0);
AddColumn( UpFractal, Up Fratal);
AddColumn( DownFractal, Down Fratal);
AddColumn( MA(V,3)/EMA(V,17), MAV(3/17));
AddColumn( C, Today's Close);

Re: [ob] Gator buat Amibroker

2009-11-18 Terurut Topik jkunci

RE: [ob] Gator buat Amibroker

2009-11-18 Terurut Topik JoLind 
Koq kosong ya?

 

  _  

From: obrolan-bandar@yahoogroups.com [mailto:obrolan-ban...@yahoogroups.com]
On Behalf Of jkunci
Sent: Thursday, November 19, 2009 2:10 AM
To: obrolan-bandar@yahoogroups.com
Subject: Re: [ob] Gator buat Amibroker

Re: [ob] Gator buat Amibroker

2009-11-18 Terurut Topik Rizka Utomo 
Makasih gatornya pak, cuma selalu keluar 'edit formula' to correct error. 
Ngeditnya bagaimana ya? Maaf gaptek programming nih.

--- On Wed, 11/18/09, jkunci jku...@yahoo.com wrote:


From: jkunci jku...@yahoo.com
Subject: [ob] Gator buat Amibroker
To: obrolan-bandar@yahoogroups.com
Date: Wednesday, November 18, 2009, 12:38 PM


  



Ini hasil googling:

Gator:
/*
Bill William's Alligator System II - GATOR Oscillator to show convergence/ 
divergence of balance lines
Modified from williamalligator2. Please put chart together with 
williamalligator2.

Reference Website:
 ==
http://www.alpari- idc.com/en/ market-analysis- guide/chaos- theory/alligator 
-and-gator. html

Modified from http://www.amibroke r.com/library/ detail.php? id=100, by Steve 
Wiser - slwis...@erols. com
Modified by TohMz on June 9th, 2008
*/
SetChartOptions( 0, chartShowArrows| chartShowDates );

_SECTION_BEGIN( BW Alligator);
/*** The trend indicators ***/

P= ParamList(Price , Close|(H+L) /2|(H+C+L) /3,1);

if (P==Close)
A = C;

else
if (P==(H+C+L) /3)
A = (H+C+L)/3;
else
A = (H+L)/2;

AlligatorJaw = Ref(Wilders( A,13),-8) ;
AlligatorTeeth = Ref(Wilders( A,8), -5);
AlligatorLips = Ref(Wilders( A,5), -3);

Gatorabove=Alligato rLips-AlligatorT eeth;
Gatorbelow=Alligato rJaw-AlligatorTe eth;
Gatorabovecolor= IIf(Gatorabove Ref(Gatorabove, -1),colorGreen, colorRed) ;
Gatorbelowcolor= IIf(Gatorbelow Ref(Gatorbelow, -1),colorGreen, colorRed) ;

Plot(Gatorabove, GatorLT ,Gatorabovecolor ,styleHistogram| styleThick, 
maskHistogram) ;
Plot(Gatorbelow, GatorJT ,Gatorbelowcolor ,styleHistogram| styleThick, 
maskHistogram) ;

_SECTION_END( );

_SECTION_BEGIN( BW Fractal);

UpFractal= ValueWhen(
(Ref(H,-2)  Ref(H, -4)) AND
(Ref(H,-2)  Ref(H, -3)) AND
(Ref(H,-2)  Ref(H, -1)) AND
(Ref(H,-2)  H), Ref(H,-2));

DownFractal= ValueWhen(
(Ref(L,-2) = Ref(L, -4)) AND
(Ref(L,-2) = Ref(L, -3)) AND
(Ref(L,-2) = Ref(L, -1)) AND
(Ref(L,-2) = L), Ref(L,-2));

//== Added Crash crashandburn59 [at] hotmail.com solution
/* Plot(Ref(UpFractal, 2), Up Fractal, ParamColor( Up Fractal 
Color,colorRed) , ParamStyle( Up Fractal Style, styleDashed) );
Plot(Ref(DownFracta l,2), Down Fractal,ParamColor (Down Fractal 
Color,colorBlue) , ParamStyle( Down Fractal Style, styleDashed) ); */

//Plot(Max(HHV( H,3),Ref( UpFractal, 2)), Up Fractal, ParamColor( Up Fractal 
Color,colorRed) , ParamStyle( Up Fractal Style, styleDashed) );
//Plot(Max(HHV( H,3),Ref( UpFractal, 2)), Down Fractal,ParamColor (Down 
Fractal Color,colorBlue) , ParamStyle( Down Fractal Style, styleDashed) );

_SECTION_END( );

_SECTION_BEGIN( Exploration );

/*
Buy: Scan stocks only breakout..maxbreako ut (1~30%, default) and Trend is 
bullish
Sell: Scan stocks only breakout..maxbreako ut (1~30%, default) and Trend is 
bearish

*/
//== Price Increment Value - depend on different country
//Inc = 0.1; 
Inc =1;

//== Set the Price Range for stock to scan
PriceFrom = Param(Price From:, 50, 1,5, Inc); 
PriceTo = Param(Price To:, 5, 1, 5, Inc); 
MaxBreakOut = Param(Max Breakout (%), 5, 1, 30); 
MaxBreakOut = MaxBreakOut/ 100;

Buy = CUpFractal AND C=(1+MaxBreakOut) *UpFractal AND AlligatorTeeth 
AlligatorJaw; /* AND AlligatorLips AlligatorTeeth; */
Sell = CDownFractal AND C=(1-MaxBreakOut) *DownFractal AND AlligatorTeeth 
AlligatorJaw; /* AND AlligatorLips AlligatorTeeth; */

/* Filter = (Buy OR Sell) AND (C=PriceFrom AND C=PriceTo) AND V0; */

Filter = Gatorabove= 0 AND Gatorbelow =0 AND (MA(V,3)/EMA( V,17))1;

AddTextColumn( FullName( ), Security, 1.0, colorDefault, colorDefault, 200); 
AddTextColumn( WriteIf(Buy, Buy, WriteIf(Sell, Sell, )), Trade, 1.0);
AddColumn( UpFractal, Up Fratal);
AddColumn( DownFractal, Down Fratal);
AddColumn( MA(V,3)/EMA( V,17), MAV(3/17)) ;
AddColumn( C, Today's Close);

Re: [ob] Gator buat Amibroker

2009-11-18 Terurut Topik dholiaq 
gator ini untuk mengukur jarak antara garis
- teeth dengan lips
- teeth dengan jaw
pendapat nubee, maaf kalo salah...


On Thu, Nov 19, 2009 at 1:00 AM, JoLind jems...@yahoo.co.id wrote:



  Pak j’kunci bs share hasil screening nya menggunakan afl ini? Trims.


  --

 *From:* obrolan-bandar@yahoogroups.com [mailto:
 obrolan-ban...@yahoogroups.com] *On Behalf Of *jkunci
 *Sent:* Thursday, November 19, 2009 1:38 AM
 *To:* obrolan-bandar@yahoogroups.com
 *Subject:* [ob] Gator buat Amibroker





 Ini hasil googling:

 Gator:
 /*
 Bill William's Alligator System II - GATOR Oscillator to show
 convergence/divergence of balance lines
 Modified from williamalligator2. Please put chart together with
 williamalligator2.

 Reference Website:
 ==

 http://www.alpari-idc.com/en/market-analysis-guide/chaos-theory/alligator-and-gator.html

 Modified from http://www.amibroker.com/library/detail.php?id=100, by Steve
 Wiser - slwis...@erols.com slwiserr%40erols.com
 Modified by TohMz on June 9th, 2008
 */
 SetChartOptions( 0, chartShowArrows|chartShowDates );

 _SECTION_BEGIN(BW Alligator);
 /*** The trend indicators ***/

 P= ParamList(Price, Close|(H+L)/2|(H+C+L)/3,1);

 if (P==Close)
 A = C;

 else
 if (P==(H+C+L)/3)
 A = (H+C+L)/3;
 else
 A = (H+L)/2;

 AlligatorJaw = Ref(Wilders(A,13),-8);
 AlligatorTeeth = Ref(Wilders(A,8), -5);
 AlligatorLips = Ref(Wilders(A,5), -3);

 Gatorabove=AlligatorLips-AlligatorTeeth;
 Gatorbelow=AlligatorJaw-AlligatorTeeth;
 Gatorabovecolor=IIf(GatoraboveRef(Gatorabove,-1),colorGreen,colorRed);
 Gatorbelowcolor=IIf(GatorbelowRef(Gatorbelow,-1),colorGreen,colorRed);

 Plot(Gatorabove,GatorLT,Gatorabovecolor,styleHistogram|styleThick,
 maskHistogram);
 Plot(Gatorbelow,GatorJT,Gatorbelowcolor,styleHistogram|styleThick,
 maskHistogram);

 _SECTION_END();

 _SECTION_BEGIN(BW Fractal);

 UpFractal= ValueWhen(
 (Ref(H,-2)  Ref(H, -4)) AND
 (Ref(H,-2)  Ref(H, -3)) AND
 (Ref(H,-2)  Ref(H, -1)) AND
 (Ref(H,-2)  H), Ref(H,-2));

 DownFractal= ValueWhen(
 (Ref(L,-2) = Ref(L, -4)) AND
 (Ref(L,-2) = Ref(L, -3)) AND
 (Ref(L,-2) = Ref(L, -1)) AND
 (Ref(L,-2) = L), Ref(L,-2));

 //== Added Crash crashandburn59 [at] hotmail.com solution
 /* Plot(Ref(UpFractal,2), Up Fractal, ParamColor(Up Fractal
 Color,colorRed), ParamStyle(Up Fractal Style, styleDashed));
 Plot(Ref(DownFractal,2), Down Fractal,ParamColor(Down Fractal
 Color,colorBlue), ParamStyle(Down Fractal Style, styleDashed)); */

 //Plot(Max(HHV(H,3),Ref(UpFractal,2)), Up Fractal, ParamColor(Up Fractal
 Color,colorRed), ParamStyle(Up Fractal Style, styleDashed));
 //Plot(Max(HHV(H,3),Ref(UpFractal,2)), Down Fractal,ParamColor(Down
 Fractal Color,colorBlue), ParamStyle(Down Fractal Style, styleDashed));

 _SECTION_END();

 _SECTION_BEGIN(Exploration);

 /*
 Buy: Scan stocks only breakout..maxbreakout (1~30%, default) and Trend is
 bullish
 Sell: Scan stocks only breakout..maxbreakout (1~30%, default) and Trend is
 bearish

 */
 //== Price Increment Value - depend on different country
 //Inc = 0.1;
 Inc =1;

 //== Set the Price Range for stock to scan
 PriceFrom = Param(Price From:, 50, 1,5, Inc);
 PriceTo = Param(Price To:, 5, 1, 5, Inc);
 MaxBreakOut = Param(Max Breakout (%), 5, 1, 30);
 MaxBreakOut = MaxBreakOut/100;

 Buy = CUpFractal AND C=(1+MaxBreakOut)*UpFractal AND
 AlligatorTeethAlligatorJaw; /* AND AlligatorLipsAlligatorTeeth; */
 Sell = CDownFractal AND C=(1-MaxBreakOut)*DownFractal AND
 AlligatorTeethAlligatorJaw; /* AND AlligatorLipsAlligatorTeeth; */

 /* Filter = (Buy OR Sell) AND (C=PriceFrom AND C=PriceTo) AND V0; */

 Filter = Gatorabove=0 AND Gatorbelow =0 AND (MA(V,3)/EMA(V,17))1;

 AddTextColumn(FullName(), Security, 1.0, colorDefault, colorDefault,
 200);
 AddTextColumn( WriteIf(Buy,Buy, WriteIf(Sell, Sell, )), Trade,
 1.0);
 AddColumn( UpFractal, Up Fratal);
 AddColumn( DownFractal, Down Fratal);
 AddColumn( MA(V,3)/EMA(V,17), MAV(3/17));
 AddColumn( C, Today's Close);