// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("MFI VS Volume");
Title = Name() +" ("+ FullName()+ ")  - "+" O="+O+", H="+H+", L="+L+",
C="+C+"\nDate:"+Date() +"\n MFI="+MFI()+"\n Volume="+Volume/10+"\n";
D0 = (High-Low)/Volume> Ref((High-Low)/Volume,-1) AND Volume > Ref( Volume, -1
);
D1 = (High-Low)/Volume< Ref((High-Low)/Volume,-1) AND Volume < Ref( Volume, -1
);
D2 = (High-Low)/Volume> Ref((High-Low)/Volume,-1) AND Volume < Ref( Volume, -1
);
D3 = (High-Low)/Volume< Ref((High-Low)/Volume,-1) AND Volume > Ref( Volume, -1
);

dynamic_color = IIf( D0, colorGreen, IIf( D3, colorRed, IIf( D1, colorOrange,
colorLightGrey )));
Plot ((High-Low)/Volume, "MFI", dynamic_color, styleHistogram | styleThick  );

SetChartBkColor( colorWhite);

WriteIf(D0,"Green\n=======\n A Green is a breakout signal and your best
immediate strategy is to go with whatever direction it is going.\n  A green
signifies three things:\n  1.More players are entering the market ( + Volume)\n 
2.The arriving players are biased in the direction the bar is moving\n  3.The
price movement is picking up speed as it goes ( +MFI).","")+
WriteIf(D1,"Fade\n=======\n A Fade occurs when the market is taking a breath OR
losing interest.\n  A fade is the opposite of a green:\n both Volume AND MFI
(price movement) are less.\n  The stock market is an auction market,\n  AND the
bidders are losing interest.\n Often, the top of the first wave in an Elliott
wave sequence has a fade\n top,NOT a lot of action, AND the excitement of the
market is dwindling.\n  It is very important to point out that fade areas \n are
the start of big moves. So the very time when the market\n  is most boring is
exactly the time when a good trader must be on guard\n  for any sign that
momentum is building.\n","")+
WriteIf(D2,"Fake\n=======\n With a Fake, we have a situation where the MFI is
increasing, which \n means the market is facilitating itself\n   by moving price
through time but is NOT \n  supported by increasing Volume from Outside the
pit.\n  Therefore, the facilitation is less robust,\n  as indi-cated by the
decrease in raw Volume. \n for whatever reasons, the market is attracting less
Volume than in the previous period.\n  A fake sometimes indicates a pause in the
market action before\n  the market takes off.\n  Unless this situation is
followed shortly by increasing Volume,\n  the fake has probably been manipulated
by the locals in the pit.\n  The locals are in temporary control simply because
no significant Volume\n  of Outside paper is coming into the pit. \n The fake is
a trademark of pit manipulation AND should be viewed with\n  a High degree of
skepticism.\n The locals have sensed that a move is imminent during the lull in
the pit action.\n  This is the only time when the locals have enough power to
run your stops.\n  They will, if possible, take the market in the opposite\n 
direction of the anticipated move, in order to acquire inventory\n  AND take the
other side of the anticipated paper coming into the pit.\n  They are building
their inventory so they can Sell the next rally\n  OR Buy the next decline
","")+
WriteIf(D3,"Squat\n=======\n A Squat is the strongest potential money maker of
the four Profitunity windows.\n Virtually all moves end with a squat as the
High/Low bar plus OR minus\n one bar of the same time period. Another way of
stating this is that\n all significant trends end with a squat on one of the
three top OR bottom bars.\n This analysis provides a potentially effective way
to get in on the beginning of a trend.\n while all trends end in a squat, all
squats are NOT the end of a trend.\n Squats appear quite often in the middle of
Elliott wave 3 AND at Fibonacci retracements\n AND Gann line intersections .If
it does NOT end the immediate \ntrend, it tends to become a measuring squat
(similar to a measuring gap) predicting how far the current move will
continue.\n This measuring squat gives us a target zone where we can look for
another squat that may end the current trend.\n Squats are characterized by a
greater tick Volume AND a lower MFI, \n AND, usually but NOT always, by a
smaller range than the previous bar.\n if you are trading Short-term charts
(intra-Day), a visual \nshorthand for a squat would be the same OR a smaller
range with a\n higher tick Volume (compared to the previous bar).\n The squat is
the last battle of the bears AND the bulls, with lots of buying AND selling \n
but little price movement. There is an almost equal division between the number
AND enthusiasm of both bears AND bulls.\n A real war is taking place AND the
equivalent of hand-to-hand combat is going on in the pits.\n I labeled this a
squat because it appears that the market is squatting, getting ready to leap one
way OR the other (often, in a reversal of the current trend).\n The market has
moved up OR down on substantial Volume, AND Now a flood of sellers OR buyers
enters the market. Volume increases,\n the trend is stalled, AND the price
movement virtually stops.\n The key is that the price movement stops on higher
Volume.\n One of the two opposing forces (buyers vs. sellers) will win, AND
usually the breakout of the squat \n will let you know whether this squat is a
trend continuation OR a trend reversal squat.","")+
Filter=1;
AddTextColumn( FullName(), "Full name", 77);
MFIvVol_status = WriteIf( D0, "Green", WriteIf( D1, "Fade", WriteIf (D2,
"Fake", "Squat")));
AddTextColumn(MFIvVol_status, "MFI v Volume", 1, colorWhite, dynamic_color);
AddColumn(Open,"Open",1.2);
AddColumn(High,"High",1.2);
AddColumn(Low,"Low",1.2);
AddColumn(Close,"Close",1.2);
AddColumn(Volume,"Volume",1);

_SECTION_END();

GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/6 );
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ParamColor( "Warna", colorLightGrey ) );
GfxSetBkMode(0); // transparent
GfxTextOut( "BW MFI", Status("pxwidth")/2, Status("pxheight")/8 );

/*
   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 - slwiserr@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(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(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,50000, Inc); 
PriceTo   = Param("Price To:",   50000, 1, 50000, Inc); 
MaxBreakOut = Param("Max Breakout (%)", 5, 1, 30);  
MaxBreakOut = MaxBreakOut/100;

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



/* Filter = (Buy OR Sell) AND (C>=PriceFrom AND C<=PriceTo) AND V>0; */

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");

_SECTION_END(); 

GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/6 );
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ParamColor( "Warna", colorLightGrey ) );
GfxSetBkMode(0); // transparent
GfxTextOut( "Gator", Status("pxwidth")/2, Status("pxheight")/2 );