// Downloaded From https://www.WiseStockTrader.com /* Bill William's Alligator System II Awesome Oscillator, modified from williamAlligator2. Reference Website: ================== http://www.alpari-idc.com/en/market-analysis-guide/chaos-theory/alligator-and-gator.html Original by 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); AO=MA(A,5)-MA(A,34); AOcolor=IIf(AO>Ref(AO,-1),colorGreen,colorRed); AC=AO-MA(AO,5); ACcolor=IIf(AC>Ref(AC,-1),colorGreen,colorRed); Plot(AO,"AO",AOcolor,styleHistogram|styleThick); _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)); _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 = 1; //== Set the Price Range for stock to scan PriceFrom = Param("Price From:", 50, 1, 200000, Inc); PriceTo = Param("Price To:", 200000, 1, 200000, 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=(1-MaxBreakOut)*DownFractal AND AlligatorTeeth1; 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( "Awesome", Status("pxwidth")/2, Status("pxheight")/2 );