Simple Coding Help - No Promise.

hello sir..
I want to plot 1st one hour candle Fibonacci level 9:15 am to 10:15am
please guide me .

following afl's are not displaying anything
1.//
tn = TimeNum();

// define start/end hours in TimeNum format
StartTime = 93000;
Endtime = 113000;

// these conditions are true when TimeNum of the bar equals startime/endtime
StartBar = tn == StartTime;
EndBar = tn == Endtime;

// on the end bar we read the value of highest high or lowest low since the start bar
myH = ValueWhen( EndBar, HighestSince( StartBar, High ) );
myL = ValueWhen( EndBar, LowestSince( StartBar, Low ) );

// display price and high / low arrays
Plot( Close, "Close", colorDefault, styleBar|styleThick );
Plot( myH, "myH", colorGreen, styleThick );
Plot( myL, "myL", colorRed, styleThick );

// grey lines show how highest high / lowest low develop since start bar
Plot( HighestSince( StartBar, High ), "", colorgrey50 );
Plot( LowestSince( StartBar, Low ), "", colorgrey50 );

// area chart shows the zone we are reading our values from
Plot( tn >= StartTime AND tn <= Endtime, "",
ColorBlend( colorYellow, colorWhite, 0.9 ),
styleArea | styleOwnScale, 0, 1, 0, -1);
Source:- Amibroker.com

2//
OST=091500; //Observation Start Time
OET=101500; //Observation End Time
MET=153000; //Market End Time

Currtime =TimeNum(); //get current time


ob_end = Cross(TimeNum(),OET); //detect the observation end time
ob_st = Cross(TimeNum(),OST); //detect the observation start time


Highest_since = HighestSince(ob_st,H,1); //capture the 1 hour high
Lowest_since = LowestSince(ob_st,L,1); //capture the 1 hour low

ORBH = ValueWhen(ob_end ,Highest_since,1); //
ORBL = ValueWhen(ob_end ,Lowest_since,1);

Plot(ORBH,"",colorGreen,styleDots);
Plot(ORBL,"",colorBlue,styleDots);


_SECTION_END();

Source:- Marketcalls.com

I will be really thankfull to you.
Reagards
 

vijkris

Learner and Follower
hi dear my friends amitrandive
will you plz add scan to this afl for below condition
buy if slopes is 0<slope<20
sell if slopes is above 80<slope<100
i am not sure is it correct or not .imean scan for buy an sell to this condition according the slope positions








_SECTION_BEGIN("_trending wave");
SetChartOptions(0, chartShowArrows|chartShowDates, chartGrid20 |chartGrid50 |chartGrid80);
_N(Title =EncodeColor(colorGreen)+ StrFormat("{{NAME}} {{DATE}} " + EncodeColor(colorBlack)+" < Open %g > "+ EncodeColor(colorBlue)+ " < High %g > "+ EncodeColor(colorRed)+" < Low %g > "+ EncodeColor(colorBlack) + " < Close %g > " + EncodeColor(colorBrown ) + "< Change" +" %.2f%% > " + "< Range " +(H-L) +" >" +" < Volume " +WriteVal( V, 1.0 ) +" >"+" {{VALUES}} ", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
SetChartBkColor(ParamColor("Outer Panel Color ",colorWhite)); // color of outer border
SetChartBkGradientFill( ParamColor("Inner Panel Color Upper Half",colorWhite),
ParamColor("Inner Panel Color Lower Half",colorWhite)//color of inner panel
,ParamColor("Behind Text Color", colorLavender));
GraphXSpace=7;

Hc=(O+H+L+C)/4;

Ho = AMA( Ref( Hc, -1 ), 0.5 );

pds = Optimize("pds ",Param("pds ",4,1,25,1),1,25,1);
myArray = (RSIa((HC), pds )+ RSIa( Ho,pds ) + Ref(RSIa(Ho,pds),-1) + Ref(RSIa(Ho,pds),-2) + Ref(RSIa(Ho,pds),-3))/5 ;

myArrayS = (AMA( myArray , 0.5 )); //smooth

BS = ParamToggle("smooth","No|Yes",1);
BN = ParamToggle("normal","No|Yes",1);

if (BS) Plot( myArrayS , " smooth ", IIf( myArrayS >=Ref(myArrayS ,-1), colorGreen, colorRed ));
if (BS) Plot ( 1, "", IIf( myArrayS >=Ref(myArrayS ,-1), colorGreen, IIf( myArrayS < Ref(myArrayS ,-1), colorRed, colorLavender )), styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );

if (BN) Plot( myArray , " RSI ", IIf( myArray >=Ref(myArray ,-1), colorGreen, colorRed ));
if (BN) Plot ( 2, "", IIf( myArray >=Ref(myArray ,-1), colorGreen, IIf( myArray < Ref(myArray ,-1), colorRed, colorLavender )), styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );

HistInd=myArray - myArrayS ;

if (BS AND BN) Plot(HistInd, _DEFAULT_NAME(),
IIf(HistInd>=0, ParamColor("Up Color", colorDarkGreen), ParamColor("Down Color", colorRed)),
ParamStyle( "Style", styleHistogram | styleThick, maskHistogram ));
if (BS AND BN) Plot(0,"",colorBlack, styleLine|styleDashed | styleThick);

Plot(80,"RESISTENCE",colorRed, styleLine|styleDashed | styleThick);
Plot(50,"",colorBlack, styleLine|styleDashed | styleThick);
Plot(20,"SUPPORT",colorBlue, styleLine|styleDashed | styleThick);
_SECTION_END();

_SECTION_BEGIN("Bollinger Bands");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 100, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorLightGrey );
Style = ParamStyle("Style", styleLine | styleNoLabel ) | styleNoLabel;
Plot( bbt = BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style );
Plot( bbb = BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );
PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, colorWhite, 0.9 ), styleNoLabel | styleCloud | styleNoRescale, Null, Null, Null, -1 );
_SECTION_END();
 

john302928

Well-Known Member
Hi Is there any possibility to create afl for Elliot wave labeling texts in amibroker ?
Because everytime we have to create text box and then add the label. Is there any afl or any afl can be created where i can pick the places it could just place the label 12345abc
I have seen these kinds in meta trader.Anything can be done for amibroker?
 

john302928

Well-Known Member
Dear Tarang58,
Try this

MA200=MA(Close,200);
Buy=Close>MA200;
Sell=Close<MA200;
Filter= Buy or sell;
AddColumn(Volume,"volume");
AddColumn(Close,"Close");
AddColumn(MA200,"MA200");

Hi all.
I want to buy / sell stock closing above /below 200 days simple moving average on daily time frame.
Can i have afl for this strategy?
Regards
 
Hi John
Thanks for trying .It is not that i required. I would like to have proper buy sell arrows along with price chart.
Your afl is not giving proper buy sell signals at exact point & used only for exploration. Also giving arrows on all candles. Pl. chk that
Thanks
 

muinali

Well-Known Member
_SECTION_BEGIN("");
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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN("MA50-MA200 Crossover");
Buy = Cross( MA( Close, 50 ), MA( Close, 200 ) );
Sell = Cross( MA( Close, 200 ), MA( Close, 50 ) );
PlotShapes(IIf(Sell==1, shapeDownArrow, shapeNone), colorRed, 0,High, Offset=-15);
PlotShapes(IIf(Buy==1, shapeUpArrow , shapeNone), colorGreen, 0,Low, Offset=-15);
_SECTION_END();

Plot( MA( Close,50 ),"MA50",colorRed,styleLine);
Plot( MA( Close,200),"MA200",colorBlue,styleLine);
 
Thanks Muinali
Your afl is having 50 ema also. What i want is only 200 MA.
While googling i found one afl but it is giving some syntex errors.Will some one correct them? Afl is as per below
Code:
_SECTION_BEGIN("200EMA);
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", colorDefault), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
Buy - Cross (Close, EMA( Close, 200 )) ;
Sell- Cross (EMA( Close, 200 ), Close) ;
Short = Sell;
Cover = Buy;

//Buy = Ref(Buy,-1);
//Short = Ref(Short,-1);

PlotShapes(IIf(Buy, shapeHollowUpArrow, shapeNone),colorGreen, O,L,Offset=-30);
PlotShapes(IIf(Short, shapeHollowDownArrow, shapeNone),colorRed, O,H,Offset=-30);
Plot( EMA( Close, 200 ),"mcd ema', colorRed,styleThick);

_SECTION_END();
_SECTION_END();
 
Here is corrected code

Code:
_SECTION_BEGIN("200EMA");
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", colorDefault), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
Buy = Cross (Close, EMA( Close, 200 )) ;
Sell= Cross (EMA( Close, 200 ), Close) ;
Short = Sell;
Cover = Buy;

//Buy = Ref(Buy,-1);
//Short = Ref(Short,-1);

PlotShapes(IIf(Buy, shapeHollowUpArrow, shapeNone),colorGreen, O,L,Offset=-30);
PlotShapes(IIf(Short, shapeHollowDownArrow, shapeNone),colorRed, O,H,Offset=-30);
Plot( EMA( Close, 200 ),"mcd EMA", colorRed,styleThick);

_SECTION_END();
Thanks Muinali
Your afl is having 50 ema also. What i want is only 200 MA.
While googling i found one afl but it is giving some syntex errors.Will some one correct them? Afl is as per below
Code:
_SECTION_BEGIN("200EMA);
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", colorDefault), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
Buy - Cross (Close, EMA( Close, 200 )) ;
Sell- Cross (EMA( Close, 200 ), Close) ;
Short = Sell;
Cover = Buy;

//Buy = Ref(Buy,-1);
//Short = Ref(Short,-1);

PlotShapes(IIf(Buy, shapeHollowUpArrow, shapeNone),colorGreen, O,L,Offset=-30);
PlotShapes(IIf(Short, shapeHollowDownArrow, shapeNone),colorRed, O,H,Offset=-30);
Plot( EMA( Close, 200 ),"mcd ema', colorRed,styleThick);

_SECTION_END();
_SECTION_END();
 

Similar threads