Anyone has this AFL? Geometry Analysis

#11
Minitrader, what do you gonna do? People are dumb and that's a good thing, because markets need dumb people with fancy indicators to feed the smart ones.
 

HULK

Active Member
#14
I Got 80% of the AFL with me except I cant remember Speedo Meter CODE

Well I will find it out from my bank and if I got full AFL, share with all


HULK
 
#16
Wow, I thought it was another trading platfrom and it was impossible to have this as Amibroker AFL because of the speedo meter and clock images. Anyway, here is Full/New Moon AFL:

Code:
_SECTION_BEGIN("Full/New Moon");


/* Full/New Moon signals indicator MkVII
  Accurate to within 1 Minute per 69 years.

 Copyright 2001-2006 Jose Silva
  for personal use only
  http://www.metastocktools.com

  Plots +1 Signal on Full Moon; -1 on New Moon.
  if FM/NM falls on a holiday OR weekend,
   Signal is plotted on the next trading Day.
  Warning: will NOT Plot last FM/NM Signal
   until it is confirmed on next trade Day.*/

// Input your local time zone 
TZ=Param("Your local Time Zone?  [-12 to +12hrs]",7, -12,12,1);

// Lunar cycle 
LunarMonth=29.530589;
Offset=7.254621;

// Calendar }
leap=frac(Year()/4)==0 AND frac(Year()/100)!=0 OR frac(Year()/400)==0;
y=Year()*365+int(Year()/4)-int(Year()/100)+int(Year()/400);
m=
 IIf(Month()==2,31-leap,
 IIf(Month()==3,59,
 IIf(Month()==4,90,
 IIf(Month()==5,120,
 IIf(Month()==6,151,
 IIf(Month()==7,181,
 IIf(Month()==8,212,
 IIf(Month()==9,243,
 IIf(Month()==10,273,
 IIf(Month()==11,304,
 IIf(Month()==12,334, -leap)))))))))));
CurrentDay=y+m+Day()-TZ/24-Offset;

// Full Moon }
FM=frac(CurrentDay/LunarMonth);
FM=PeakBars(FM, 1, 1)==0; 

// New Moon }
NM=frac((CurrentDay+LunarMonth/2)/LunarMonth);
NM=PeakBars(NM, 1,1)==0;

//Plot Moon signals in own window }

SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g,
Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorWhite ), styleNoTitle |
ParamStyle("Style") | GetPriceStyle() ); 

SetChartBkGradientFill( ParamColor("BgTop", colorBlack),ParamColor("BgBottom",
colorDarkGrey));


Plot(fm-nm, "Moon", colorWhite, styleHistogram);
PlotShapes(IIf((FM-NM)>0,shapeCircle, IIf((FM-NM)<0,
shapeHollowCircle, shapeNone)), colorBlack, 0,0);

_SECTION_END();
 

HULK

Active Member
#19
Guys,

There is Nothing new in this AFL, only the presentation was beautiful rest we all know that but need eyes to find it the same, well I will try to explain what I see through my naked Eye

Do follow this step in single chart or AFL

1) Plot normal Candle OHLC or Heikin-Ashi
2) Plot Zig Zag with red col line
3) Plot Full/New Moon afl ( Note:- For Indian User change following code in afl
TZ=Param("Your local Time Zone? [-12 to +12hrs]",5.3, -12,12,1);

Rest of the user change 5.3 to your local time zone (Diff with GMT)



Now what this guy is done that he use following code
GfxCircle( 50, 5, 50 ); for speedometer and plot on chart with mix of RSI-14
MACD 12,26

Now instead Speedometer you can plot Ribbon on bottom of your chart of RSI & MACD

Buy Condition

1) Candle color should be Green/Blue as per your wish
2) Zig should move up from that candle STD setting % 5
3) RSI & MACD will move up from neutral side
4) Full/New Moon afl used only for adding some Tadka in Dal.
{Only useful for those users who believe in stock astrology to buy /sell stock as per moon Walk (Not Michel Jackson Moonwalk) }

Sell reveres the condition

As I said 80 % of the code we can identify with naked eye.

For me it is nothing special in this AFL. So I didn’t try so hard to find the Code or D-code of speedometer

But if anyone still interested in Speedo meter basic code plot this on empty chart with dark background like Black

GfxCircle( 50, 5, 50 );
You can find slimier speedometer with half a circle on you chart


HULK
 
Last edited:

Similar threads