Higher TF

F

foloz

New Member
#1
#1
Hi,
I am using CCI panel on 15min chart, is it possible to get a higher time frame CCI panel on 15min chart ?

Regards,
Yash P.
 
J

johnnypareek

Well-Known Member
#5
#5
shruti.trader said:
Kindly post the afl for above higher timeframe CCI.

Thanx you
Click to expand...
here it is.

HTML: 
TimeFrameSet(inHourly);

_SECTION_BEGIN("CCI");
periods = Param( "Periods", 14, 2, 200, 1 );
Cc=CCI(periods);
_SECTION_END();
TimeFrameRestore();
Ccc=TimeFrameExpand(Cc,inHourly);




Plot( Ccc, _DEFAULT_NAME(), ParamColor( "Color",  colorCycle ), ParamStyle("Style")  );
 
K

kirthi1987

Member
#6
#6
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C,
1 )) ));
Plot(C,"",1,128);
b =Optimize("Buy Trigger",Param("Buy Trigger",1,5,65,1),5,65,1);
s=Optimize("Sell Trigger",Param("Sell Trigger",2,1,60,1),1,90,1);
SetPositionSize( 50, spsShares ); // 50 shares by default

Buy=Cross(RSI(),b);
Sell=Cross(s,RSI());

//Buy=ExRem(Buy,Sell);
//Sell=ExRem(Sell,Buy);
shape = Buy * shapeUpArrow +Sell * shapeDownArrow ;

PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High )) ;




johnny sir this is ur afl copied from traderji i need the buy and sell arrows should come in 30 min time frame and the price should be in 5 min time frame
 
J

johnnypareek

Well-Known Member
#7
#7
kirthi1987 said:
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C,
1 )) ));
Plot(C,"",1,128);
b =Optimize("Buy Trigger",Param("Buy Trigger",1,5,65,1),5,65,1);
s=Optimize("Sell Trigger",Param("Sell Trigger",2,1,60,1),1,90,1);
SetPositionSize( 50, spsShares ); // 50 shares by default

Buy=Cross(RSI(),b);
Sell=Cross(s,RSI());

//Buy=ExRem(Buy,Sell);
//Sell=ExRem(Sell,Buy);
shape = Buy * shapeUpArrow +Sell * shapeDownArrow ;

PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High )) ;




johnny sir this is ur afl copied from traderji i need the buy and sell arrows should come in 30 min time frame and the price should be in 5 min time frame
Click to expand...


here it is

HTML: 
TimeFrameSet(2*in15Minute);
_SECTION_BEGIN("Price");
bb =Optimize("Buy Trigger",Param("Buy Trigger",1,5,65,1),5,65,1);
ss=Optimize("Sell Trigger",Param("Sell Trigger",2,1,60,1),1,90,1);
xxrsi=RSI();
TimeFrameRestore();
b=TimeFrameExpand(bb,2*in15Minute);
s=TimeFrameExpand(ss,2*in15Minute);
xrsi=TimeFrameExpand(xxrsi,2*in15Minute);

SetPositionSize( 50, spsShares ); // 50 shares by default

Buy=Cross(xRSI,b);
Sell=Cross(s,xRSI);

//Buy=ExRem(Buy,Sell);
//Sell=ExRem(Sell,Buy);
shape = Buy * shapeUpArrow +Sell * shapeDownArrow ;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C,
1 )) ));
Plot(C,"",1,128);

PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High )) ;
 
K

kirthi1987

Member
#8
#8
johnnypareek said:
here it is

HTML: 
TimeFrameSet(2*in15Minute);
_SECTION_BEGIN("Price");
bb =Optimize("Buy Trigger",Param("Buy Trigger",1,5,65,1),5,65,1);
ss=Optimize("Sell Trigger",Param("Sell Trigger",2,1,60,1),1,90,1);
xxrsi=RSI();
TimeFrameRestore();
b=TimeFrameExpand(bb,2*in15Minute);
s=TimeFrameExpand(ss,2*in15Minute);
xrsi=TimeFrameExpand(xxrsi,2*in15Minute);

SetPositionSize( 50, spsShares ); // 50 shares by default

Buy=Cross(xRSI,b);
Sell=Cross(s,xRSI);

//Buy=ExRem(Buy,Sell);
//Sell=ExRem(Sell,Buy);
shape = Buy * shapeUpArrow +Sell * shapeDownArrow ;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C,
1 )) ));
Plot(C,"",1,128);

PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High )) ;
Click to expand...
thanq u very much johhny sir
 
K

kirthi1987

Member
#9
#9
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetBarsRequired(sbrAll,sbrAll);
SetBarFillColor(IIf(C>O,ParamColor("Candle Up Color", colorBrightGreen),IIf(C<=O,ParamColor("Candle Down Color",

colorRed),colorLightGrey)));
Plot(C,"Price",IIf(C>O,ParamColor("Shadow Up Color", colorBlack),IIf(C<=O,ParamColor("Shadow Down Color",

colorBlack),colorLightGrey)),64,0,0,0,0);
SetChartBkColor(ParamColor("Panel Color ",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));

grid_day = IIf(Day()!=Ref(Day(),-1),1,0);
Plot(grid_day,"",colorWhite,styleHistogram|styleDots|styleNoLabel|styleOwnScale);


_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("Price Color", colorBlack ), styleNoTitle | ParamStyle("Price Style") | GetPriceStyle() );


_SECTION_END();
e30 = EMA(Close,120);

Plot(EMA(Close,120),"fine3",colorWhite,styleDots);



SetChartBkColor( ParamColor( "Outer panel",colorWhite) );
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx
_SECTION_BEGIN("trending ribbon");
uptrend=PDI()>MDI() AND MACD()>Signal();
downtrend=MDI()>PDI() AND Signal()>MACD();
Plot( 3, /* defines the height of the ribbon in percent of pane width */"",
IIf( uptrend , colorLime, IIf( downtrend ,
colorRed, colorTan)) , /* choose color */styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
_SECTION_END();

//===============system================

T=Param("T", 24, 1, 500, 1);

Top = Sum(High, T) / T;
Bottom = Sum(Low, T) / T;
av=(Top+Bottom)/2;
mc=IIf(av>C, colorRed, colorGreen);
a=av<C;
b=av>C;
Buy=Cover= Cross(a,b) AND uptrend;
Sell=Short= Cross(b,a) AND downtrend;


SellPrice=ValueWhen(Sell,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy );

Plot(av, "", mc, styleStaircase);

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);

dist = 4.5*ATR(20);

for( i = 0; i < BarCount; i++ )
{
if( Buy ) PlotText( "Buy\n@" + C[ i ], i, L[ i ]-dist, colorGreen,colorYellow );

if( Sell ) PlotText( "Sell\n@" + C[ i ], i, H[ i ]+dist, colorRed, colorYellow );

}
 
Last edited:
K

kirthi1987

Member
#10
#10
johnny sir pls adjust the t param according the ema line


QUOTE=kirthi1987;804604]_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetBarsRequired(sbrAll,sbrAll);
SetBarFillColor(IIf(C>O,ParamColor("Candle Up Color", colorBrightGreen),IIf(C<=O,ParamColor("Candle Down Color",

colorRed),colorLightGrey)));
Plot(C,"Price",IIf(C>O,ParamColor("Shadow Up Color", colorBlack),IIf(C<=O,ParamColor("Shadow Down Color",

colorBlack),colorLightGrey)),64,0,0,0,0);
SetChartBkColor(ParamColor("Panel Color ",colorLightGrey));
SetChartBkGradientFill(ParamColor("Upper Chart",colorLightGrey),ParamColor("Lower Chart",colorLightGrey));

grid_day = IIf(Day()!=Ref(Day(),-1),1,0);
Plot(grid_day,"",colorWhite,styleHistogram|styleDots|styleNoLabel|styleOwnScale);


_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("Price Color", colorBlack ), styleNoTitle | ParamStyle("Price Style") | GetPriceStyle() );


_SECTION_END();
e30 = EMA(Close,120);

Plot(EMA(Close,120),"fine3",colorWhite,styleDots);



SetChartBkColor( ParamColor( "Outer panel",colorWhite) );
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxx
_SECTION_BEGIN("trending ribbon");
uptrend=PDI()>MDI() AND MACD()>Signal();
downtrend=MDI()>PDI() AND Signal()>MACD();
Plot( 3, /* defines the height of the ribbon in percent of pane width */"",
IIf( uptrend , colorLime, IIf( downtrend ,
colorRed, colorTan)) , /* choose color */styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
_SECTION_END();

//===============system================

T=Param("T", 24, 1, 500, 1);

Top = Sum(High, T) / T;
Bottom = Sum(Low, T) / T;
av=(Top+Bottom)/2;
mc=IIf(av>C, colorRed, colorGreen);
a=av<C;
b=av>C;
Buy=Cover= Cross(a,b) AND uptrend;
Sell=Short= Cross(b,a) AND downtrend;


SellPrice=ValueWhen(Sell,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy );

Plot(av, "", mc, styleStaircase);

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,H, Offset=50);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-45);

dist = 4.5*ATR(20);

for( i = 0; i < BarCount; i++ )
{
if( Buy ) PlotText( "Buy\n@" + C[ i ], i, L[ i ]-dist, colorGreen,colorYellow );

if( Sell ) PlotText( "Sell\n@" + C[ i ], i, H[ i ]+dist, colorRed, colorYellow );

}[/QUOTE]
 
You must log in or register to reply here.
Thread starter Similar threads Forum Replies Date
L export dates of higher high lower low to csv or interpration AmiBroker 2
S Is delta higher for Indices or Stocks? Options 0
R Reason for higher increase in put option premium as compared to call option premium. Options 5
A Need Help For Super Simple AFL (Find Higher High Higher Low and...) AmiBroker 2
S Help on Higher Low and Lower High Amibroker Code AmiBroker 2

Similar threads