Help for ichimoku afl.

#1
Please i need your help to upgrade this afl that i founded yousefull for me...

i need to add the arrows for each condition bellow;

UP GREEN ARROW: Strong signals - A strong Buy Signal occurs when the Tenkan-Sen crosses above the Kijun-Sen from below.

Down RED ARROW:A strong Sell Signal occurs when the opposite occurs. The signals must be above the Kumo.

UP Bleu ARROW:Normal signals - A normal Buy Signal occurs when the Tenkan-Sen crosses above the Kijun-Sen from below.

Down Bleu ARROW:A normal Sell Signal occurs when the opposite occurs. The signals must be within the Kumo.

UP RED ARROW:Weak signals - A weak Buy Signal occurs when the Tenkan-Sen crosses above the Kijun-Sen from below.
A weak Sell Signal occurs when the opposite occurs. The signals must be below the Kumo.

Down RED ARROW:Overall strength - Strength is shown to be with the sellers if the Chikou Span is below the current price.
Strength is shown to be with the buyers when the opposite is True.

I need to add for this formula an explorer for all type signals...

Thinks a lot...

this is my formula:

// Ichimoku Kinko Hyo Chart
// Abo Elias May-20-2008

//////////////////////////////
// 1) Tenkan-Sen = Conversion Line = (Highest High + Lowest Low) / 2, for the past 9 periods
// 2) Kijun-Sen = Base Line = (Highest High + Lowest Low) / 2, for the past 26 periods
// 3) Chikou Span = Lagging Span = Today's closing price plotted 26 periods behind
// 4) Senkou Span A = Leading Span A = (Tenkan-Sen + Kijun-Sen) / 2, plotted 26 periods ahead
// 5) Senkou Span B = Leading Span B = (Highest High + Lowest Low) / 2, for the past 52 periods, plotted 26 periods ahead
// Kumo = Cloud = Area between Senkou Span A AND B
// http://www.prosticks.com/education/ikh.php
//////////////////////////////


_SECTION_BEGIN("Price");
HAswitch = ParamToggle("Heikin Ashi","Off,On");
PriceUpCol = ParamColor("Price UP Color",colorGreen);
PriceDnCol = ParamColor("Price DN Color",colorRed);
PriceSty = ParamStyle("Price Style",styleCandle,maskDefault | styleCandle | styleBar);

HaClose = ( O+H+L+C ) / 4;
HaOpen = AMA( Ref(HaClose, -1), 0.5);
HaHigh = Max(H, Max(HaClose, HaOpen));
HaLow = Min(L, Min(HaClose, HaOpen));

if(HAswitch)
PlotOHLC(HaOpen,HaHigh,HaLow,HaClose,"Heikin Ashi",IIf(HaClose > HaOpen,PriceUpCol,PriceDnCol),PriceSty);
else
Plot(C,"Price",IIf(C > Ref(C,-1), PriceUpCol, PriceDnCol), PriceSty);
_SECTION_END();

_SECTION_BEGIN("Tenkan-Sen");
TenkanPer = Param("Tenkan-Sen Period",9,1,100,1);
TenkanCol = ParamColor("Tenkan-Sen Color",colorRed);
TenkanSty = ParamStyle("Tenkan-Sen Style",styleLine | styleThick);
Tenkan = ( HHV(H,TenkanPer) + LLV(L,TenkanPer) ) / 2;
Plot(Tenkan,"Tenkan",TenkanCol,TenkanSty);
_SECTION_END();

_SECTION_BEGIN("Kijun-Sen");
KijunPer = Param("Kijun-Sen Period",26,1,100,1);
KijunCol = ParamColor("Kijun-Sen Color",colorBlue);
KijunSty = ParamStyle("Kijun-Sen Style",styleLine | styleThick);
Kijun = ( HHV(H,KijunPer) + LLV(L,KijunPer) ) / 2;
Plot(Kijun,"Kijun",KijunCol,KijunSty);
_SECTION_END();

_SECTION_BEGIN("Chikou Span");
ChikouShft = Param("Chikou Span Shift",26,1,100,1);
ChikouCol = ParamColor("Chikou Span Color",colorViolet);
ChikouSty = ParamStyle("Chikou Span Style",styleLine | styleNoLabel);
Chikou = C;
Plot(Chikou,"",ChikouCol,ChikouSty,Null,Null,-ChikouShft);
_SECTION_END();

_SECTION_BEGIN("Senkou-Kumo");
SenkouKumoShft = Param("Senkou-Kumo Shift",26,0,100,1);
_SECTION_END();

_SECTION_BEGIN("Senkou Span A");
SenkouACol = ParamColor("Senkou Span A Color",colorSeaGreen);
SenkouASty = ParamStyle("Senkou Span A Style",styleLine);
SenkouA = ( Tenkan + Kijun ) / 2;
Plot(SenkouA,"Senkou A",SenkouACol,SenkouASty,Null,Null,SenkouKumoShft);
_SECTION_END();

_SECTION_BEGIN("Senkou Span B");
SenkouBPer = Param("Senkou Span B Period",52,1,200,1);
SenkouBCol = ParamColor("Senkou Span B Color",colorPink);
SenkouBSty = ParamStyle("Senkou Span B Style",styleLine);
SenkouB = ( HHV(H,SenkouBPer) + LLV(L,SenkouBPer) ) / 2;
Plot(SenkouB,"Senkou B",SenkouBCol,SenkouBSty,Null,Null,SenkouKumoShft);
_SECTION_END();

_SECTION_BEGIN("Kumo");
KumoUpCol = ParamColor("Kumo UP Color",colorSeaGreen);
KumoDnCol = ParamColor("Kumo DN Color",colorPink);
PlotOHLC(SenkouA,SenkouA,SenkouB,SenkouB,"",IIf(SenkouA>SenkouB,KumoUpCol,KumoDnCol),styleCloud | styleNoLabel,Null,Null,SenkouKumoShft);
_SECTION_END();

_SECTION_BEGIN("BK");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor( ParamColor("Color Axes", colorBlack) );
SetChartBkGradientFill( ParamColor("BgTop", colorWhite),ParamColor("BgBottom", colorDarkGrey));
_SECTION_END();

_SECTION_BEGIN("AuthorName");
k = (GetPerformanceCounter()/100)%100;
printf("GetPerformance Counter %g",k);
GfxSelectFont("comics", 14,800);
GfxSetBkMode(1);
GfxSetTextColor(colorWhite);
GfxTextOut("ABDEL01S",-10+k,20);
RequestTimedRefresh(10);
_SECTION_END();



/*
Interpreting the Chart

Strong signals - A strong Buy Signal occurs when the Tenkan-Sen crosses above the Kijun-Sen from below.
A strong Sell Signal occurs when the opposite occurs. The signals must be above the Kumo.

Normal signals - A normal Buy Signal occurs when the Tenkan-Sen crosses above the Kijun-Sen from below.
A normal Sell Signal occurs when the opposite occurs. The signals must be within the Kumo.

Weak signals - A weak Buy Signal occurs when the Tenkan-Sen crosses above the Kijun-Sen from below.
A weak Sell Signal occurs when the opposite occurs. The signals must be below the Kumo.

Overall strength - Strength is shown to be with the sellers if the Chikou Span is below the current price.
Strength is shown to be with the buyers when the opposite is True.

Support/resistance levels - Support AND resistance levels are represented by the presence of the Kumo.
if the price is entering the Kumo from below, then the price is at a resistance level.
if the price is falling into the Kumo, then there is a support level.

Trends - Trends can be determined by simply looking at where the current price is in relation to the Kumo.
if the price stays below the Kumo, then there is a downward trend (bearish).
Alternatively, if the price stays above the Kumo, then there is an upward trend (bullish).

//http://www.investopedia.com/articles/technical/04/072104.asp

//------------------------------------------------------------------------------
//
// Formula Name: Trending Ribbon
// Author/Uploader: Jim Wiehe
// E-mail:
// Date/Time Added: 2006-07-17 06:22:25
// Origin: It leaked out of my brain.
// Keywords: ADX and MACD
// Level: basic
// Flags: indicator
// Formula URL: http://www.amibroker.com/library/formula.php?id=635
// Details URL: http://www.amibroker.com/library/detail.php?id=635
//
//------------------------------------------------------------------------------
//
// This uses the nifty ribbon function in Amibroker. I use this in most of my
// price charts because it reduces the clutter with too many indicators on the
// screen. So if the ribbon is green both the MACD and ADX have started
// trending up. If the ribbon is red both the MACD and ADX are trending down.
//
//------------------------------------------------------------------------------

// Paste the code below to your price chart somewhere and green ribbon means both
// both MACD and ADX trending up so if the red ribbon shows up the MACD and the ADX
// are both trending down.

Plot( C, "", colorBlack, styleBar, 0, 0, 0 );
Title = "mouseButtons returns: " + (GetCursorMouseButtons()) + "\nclick counter: " + StaticVarGet("counter");
 
#2
UP GREEN ARROW: Strong signals - A strong Buy Signal occurs when the Tenkan-Sen crosses above the Kijun-Sen from below.


UP Bleu ARROW:Normal signals - A normal Buy Signal occurs when the Tenkan-Sen crosses above the Kijun-Sen from below.
your both conditions are one and the same thing. plz distinctly mention conditions.
 
#3
A strong signal when the corssover is above the cloude...
A normal signel when the corossover is inside the cloude.
A week signal when the corssover is below the clode.

thinks for your help.:thumb:
 

rkgoyal_98

Well-Known Member
#4
_SECTION_BEGIN("i"); /* ICHIMOKU CHART */
_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, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
{
ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}
n1 = Param(": 1",9,1,200,1);
n2 = Param(": 2",26,1,400,1);
n3 = Param(": 3",52,1,600,1);
TenkanSen =(HHV(H,n1)+LLV(L,n1))/2;// Tenkan-sen (-) ( (high+low)/2, high low ).
KijunSen =(HHV(H,n2)+LLV(L,n2))/2;// Kijun-sen (-) .
ChinkouSpan =Ref(C,-n2); // Chinkou Span ( ) - , .
Cks = Close; // Chinkou Span, .
SenkouSpanA =Ref((KijunSen+TenkanSen)/2,-n2); // Senkou Span A ( ) / Up Kumo - Tenkan-sen Kijun-sen, .
SpA =(KijunSen+TenkanSen)/2; // Senkou Span A , .
SenkouSpanB =Ref((HHV(H,n3)+LLV(L,n3))/2,-n2); // Senkou Span B ( ) / Down Kumo - , .
SpB =(HHV(H,n3)+LLV(L,n3))/2; // Senkou Span B, .
DL = Ref( C, 25 );
Cond1 = Ref(Close > Max(SenkouSpanA,SenkouSpanB),-1); // --
Cond2 = Ref(Close < Min(SenkouSpanA,SenkouSpanB),-1); // --
Cond3 = Ref(Cross(TenkanSen,KijunSen),-1); // --
Cond4 = Ref(Cross(KijunSen,TenkanSen),-1); // --
Cond5 = Ref(Cross(Close,ChinkouSpan ),-1); //
Cond6 = Ref(Cross(ChinkouSpan ,Close),-1); //
Cond7 = Ref(Cross (Close , Max(SenkouSpanA,SenkouSpanB)),-1); // --
Cond8 = Ref(Cross ( Min(SenkouSpanA,SenkouSpanB), Close),-1); // --
Cond9 = Close > TenkanSen AND TenkanSen > KijunSen AND KijunSen > Max(SenkouSpanA,SenkouSpanB); //
Cond10= Close < TenkanSen AND TenkanSen < KijunSen AND KijunSen < Min(SenkouSpanA,SenkouSpanB); //
RemCond9=ExRem(Cond9,NOT Cond9);
RemCond10=ExRem(Cond10,NOT Cond10);
ColSenk =IIf (Cond1,colorGreen, IIf(Cond2,colorRed,colorLightGrey)); // , // .
Flat = TenkanSen == Ref(TenkanSen,-1) OR (NOT(Cond1) AND NOT(Cond2)) ;
for( i = 0; i < BarCount; i++ ) // TenkanSen, .
{
if (Flat) ColTenk = colorLightGrey;
else
{
if (Cond1 AND TenkanSen > TenkanSen[i-1])
ColTenk = colorGreen;
if (Cond1 AND TenkanSen < TenkanSen[i-1])
ColTenk = colorRed;
if (Cond2 AND TenkanSen < TenkanSen[i-1])
ColTenk = colorRed;
if (Cond2 AND TenkanSen > TenkanSen[i-1])
ColTenk = colorGreen;
}
}
AlertIf( Cond3 OR Cond4, "SOUND c:/WINDOWS/Media/notify.wav", " ",0,1+2+4+8);
AlertIf( Cond5 OR Cond6, "SOUND c:/WINDOWS/Media/notify.wav", " ",0,1+2+4+8);
AlertIf( Cond7 OR Cond8, "SOUND c:/WINDOWS/Media/notify.wav", " ",0,1+2+4+8);
AlertIf( RemCond9 OR RemCond10, "SOUND c:/WINDOWS/Media/notify.wav", " ",0,1+2+4+8);
//PlotShapes(IIf(Cond7, shapeSmallUpTriangle ,shapeNone),colorGreen,0,H,10);
//PlotShapes(IIf(Cond8, shapeSmallDownTriangle ,shapeNone),colorRed,0,L,10);
//PlotShapes(IIf(Cond3, shapeHollowSmallUpTriangle,shapeNone),colorGreen,0,H,12);
//PlotShapes(IIf(Cond4, shapeHollowSmallDownTriangle ,shapeNone),colorRed,0,L,12);
//PlotShapes(IIf(Cond5, shapeSmallCircle ,shapeNone),colorGreen,0,H,4);
//PlotShapes(IIf(Cond6, shapeSmallCircle + shapePositionAbove ,shapeNone),colorRed,0,L,4);
//PlotShapes(IIf(RemCond9 , shapeHollowSquare ,shapeNone),colorGreen,0,H,18);
//PlotShapes(IIf(RemCond10, shapeHollowSquare + shapePositionAbove ,shapeNone),colorRed,0,L,18);
//Plot (C,"Close",colorBlack,styleThick);
Plot (C,"Price",colorBlack,styleCandle);
Plot (TenkanSen,"Tenkan-sen",colorGreen);
Plot (KijunSen, "Kijun-sen", colorRed);
Plot (Cks,"Chinkou Span",colorBrown, 1,0,0,-n2);
Plot (SpA,"SenkouSpanA",colorBlue,1,0,0,n2);
Plot (SpB,"SenkouSpanB",colorViolet,1,0,0,n2);
PlotOHLC (SpA,SpA,SpB,SpB,"Cloud",IIf (SpA > SpB,colorPaleTurquoise,colorPink),styleCloud, 10, 10, n2 );
above = IIf(KijunSen>SenkouSpanA AND TenkanSen>SenkouSpanB,1,0);
within = IIf(KijunSen>SenkouSpanA AND TenkanSen<SenkouSpanB,1,0);
below = IIf(TenkanSen<SenkouSpanA AND TenkanSen<SenkouSpanB,1,0);
Buy = Cross(TenkanSen,KijunSen) AND (DL>Close);
Sell = Cross(KijunSen,TenkanSen) AND (DL<KijunSen);
StrongBuy = Buy AND above;
MediumBuy = Buy AND within;
WeakBuy = Buy AND below;
StrongSell = Sell AND below;
MediumSell = Sell AND within;
WeakSell = Sell AND above;
IIf( (StrongBuy),PlotShapes(shapeUpTriangle*StrongBuy,colorGreen),0);
IIf( (MediumBuy),PlotShapes(shapeUpArrow*MediumBuy,colorBlue),0);
IIf( (WeakBuy),PlotShapes(shapeHollowUpArrow*WeakBuy,colorRed),0);
IIf( (StrongSell),PlotShapes(shapeDownTriangle*StrongSell,colorRed),0);
IIf( (MediumSell),PlotShapes(shapeDownArrow*MediumSell,colorBlue),0);
IIf( (WeakSell),PlotShapes(shapeHollowDownArrow*WeakSell,colorGreen),0); // ().
//Plot( 1, "Ribbon", ColTenk, styleOwnScale|styleArea|styleNoLabel, -2, 200 ); // TenkanSen.
//Plot( 4, "Ribbon", ColSenk, styleOwnScale|styleArea|styleNoLabel, -1, 200 ); //
_SECTION_END();
_SECTION_BEGIN("Volume");
Plot(Volume,_DEFAULT_NAME(),ParamColor("Color",colorLavender),styleNoTitle|ParamStyle("Style",styleHistogram|styleOwnScale|styleThick|styleNoLabel,maskHistogram),2);
_SECTION_END();
 
#5
//ICHIMOKU COMPLETE & BUY/SELL (!?)

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, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
if( ParamToggle("Tooltip shows", "All Values|Only Prices" ) )
{
ToolTip=StrFormat("Open: %g\nHigh: %g\nLow: %g\nClose: %g (%.1f%%)\nVolume: "+NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC( C, 1 )));
}

//-----------------------------------------------------------------------------------------
Plot(EMA(Close,50),"EMA50",( colorGreen), styleLine+styleDots,styleThick,styleDots );
//-----------------------------------------------------------------------------------------


SL = ( HHV( H, 26 ) + LLV( L, 26) )/2;
TL = ( HHV( H, 9 ) + LLV( L, 9 ) )/2;
//DL = Ref( C, 26 );
DL=C;
Span1 = (( SL + TL )/2);
Span2 = (HHV( H, 52) + LLV(L, 52))/2;

Plot(SL,"SL",colorBlue,styleThick); // standard, base, or kijun-sen line
Plot(TL,"TL",colorRed,styleThick); // turning, conversion, or tenkan-sen line
Plot(DL,"",colorBrightGreen,styleLine|styleThick,Null,Null,-26); // delayed, lagging, or chikou span
Plot(Span1,"",colorBrown,1,0,0,26); // senkou span A, kumo, or white clouds
Plot(Span2,"",colorLightOrange,1,0,0,26); // senkou span B, kumo, or white clouds
PlotOHLC(Span1,Span2,Span1,Span2,"",IIf(Span1>Span2,colorLime,colorLightOrange),styleCloud|4096,0,0,26);

//Buy = Cross(TL,SL);
//Sell = Cross(SL,TL);
//shape=Buy*shapeUpArrow + Sell*shapeDownArrow;
//PlotShapes(shape,IIf(Buy,colorBlue,colorRed), 0,IIf(Buy,Low,High));

//BUY/SELL

above=IIf((C>=Ref(Span1,-26) AND C>=Ref(Span2,-26)),1,0);
withinup=IIf((C>=Ref(Span1,-26) AND C<=Ref(Span2,-26)),1,0) ;
withindn=IIf((C<=Ref(Span1,-26) AND C>=Ref(Span2,-26)),1,0);
below=IIf((C<=Ref(Span1,-26) AND C<=Ref(Span2,-26)),1,0);

dlup=DL>Ref(C,-26) ;
stocup=StochK()>StochD() ;
MFIup=MFI()>MA(MFI(),7) ;
MACDup=MACD()>Signal() ;
Lim=ADX()<30 AND StochK()<70 ;
PDIup=PDI()>MDI() ;

Buy = Cross(TL,SL) AND macdup OR
Cross(MACD(),Signal()) AND TL>SL AND lim OR
Cross(C,SL) AND MACDup AND dlup OR
Cross(MACD(),Signal()) AND C>SL AND dlup AND lim OR
Cross(DL,Ref(C,-26)) AND MACDup OR
Cross(MACD(),Signal()) AND dlup AND Lim OR
Cross(StochK(),StochD()) AND StochK()<50 AND L>=SL AND TL>SL AND PDIup AND dlup ;
Sell = Cross(SL,TL);

StrongBuy = Buy AND above;
MediumBuy = Buy AND withinup OR Buy AND withindn;
WeakBuy = Buy AND below;
StrongSell = Sell AND below;
MediumSell = Sell AND withinup OR Sell AND withindn;
WeakSell = Sell AND above;

PlotShapes(IIf(StrongBuy,shapeUpTriangle,shapeNone),colorBlue,0,Low,Offset=-15);
PlotShapes(IIf(MediumBuy,shapeUpArrow,shapeNone),colorBlue,0,Low,Offset=-15);
PlotShapes(IIf(WeakBuy,shapeHollowUpArrow,shapeNone),colorBlue,0,Low,Offset=-15);
PlotShapes(IIf(StrongSell,shapeDownTriangle,shapeNone),colorRed,0,High,Offset=-15);
PlotShapes(IIf(MediumSell,shapeDownArrow,shapeNone),colorRed,0,High,Offset=-15);
PlotShapes(IIf(WeakSell,shapeHollowDownArrow,shapeNone),colorRed,0,High,Offset=-15);
//===============================================================================================




//TRENDING RIBBON
// Paste the code below to your price chart somewhere and green ribbon means both
// both MACD and ADX trending up so if the red ribbon shows up the MACD and the ADX
// are both trending down.
_SECTION_BEGIN("trending ribbon");
uptrend=PDI()>MDI() AND MACD()>Signal();
downtrend=MDI()>PDI() AND Signal()>MACD();
Plot( 1, /* defines the height of the ribbon in percent of pane width */"ribbon",
IIf( uptrend, colorLime, IIf( downtrend, colorRed,colorTan )), /* choose color */
styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
_SECTION_END();
//=============================================================================================================================
 
#6
Think you freinds , but i want a change to be in my AFL becasue it's same complete and any one can make his changes in parameters.
thinks for you.
 
#7
_SECTION_BEGIN("Price");
HAswitch = ParamToggle("Heikin Ashi","Off,On");
PriceUpCol = ParamColor("Price UP Color",colorGreen);
PriceDnCol = ParamColor("Price DN Color",colorRed);
PriceSty = ParamStyle("Price Style",styleCandle,maskDefault | styleCandle | styleBar);

HaClose = ( O+H+L+C ) / 4;
HaOpen = AMA( Ref(HaClose, -1), 0.5);
HaHigh = Max(H, Max(HaClose, HaOpen));
HaLow = Min(L, Min(HaClose, HaOpen));

if(HAswitch)
PlotOHLC(HaOpen,HaHigh,HaLow,HaClose,"Heikin Ashi",IIf(HaClose > HaOpen,PriceUpCol,PriceDnCol),PriceSty);
else
Plot(C,"Price",IIf(C > Ref(C,-1), PriceUpCol, PriceDnCol), PriceSty);
_SECTION_END();

_SECTION_BEGIN("Tenkan-Sen");
TenkanPer = Param("Tenkan-Sen Period",9,1,100,1);
TenkanCol = ParamColor("Tenkan-Sen Color",colorRed);
TenkanSty = ParamStyle("Tenkan-Sen Style",styleLine | styleThick);
Tenkan = ( HHV(H,TenkanPer) + LLV(L,TenkanPer) ) / 2;
Plot(Tenkan,"Tenkan",TenkanCol,TenkanSty);
_SECTION_END();

_SECTION_BEGIN("Kijun-Sen");
KijunPer = Param("Kijun-Sen Period",26,1,100,1);
KijunCol = ParamColor("Kijun-Sen Color",colorBlue);
KijunSty = ParamStyle("Kijun-Sen Style",styleLine | styleThick);
Kijun = ( HHV(H,KijunPer) + LLV(L,KijunPer) ) / 2;
Plot(Kijun,"Kijun",KijunCol,KijunSty);
_SECTION_END();

_SECTION_BEGIN("Chikou Span");
ChikouShft = Param("Chikou Span Shift",26,1,100,1);
ChikouCol = ParamColor("Chikou Span Color",colorViolet);
ChikouSty = ParamStyle("Chikou Span Style",styleLine | styleNoLabel);
Chikou = C;
Plot(Chikou,"",ChikouCol,ChikouSty,Null,Null,-ChikouShft);
_SECTION_END();

_SECTION_BEGIN("Senkou-Kumo");
SenkouKumoShft = Param("Senkou-Kumo Shift",26,0,100,1);
_SECTION_END();

_SECTION_BEGIN("Senkou Span A");
SenkouACol = ParamColor("Senkou Span A Color",colorSeaGreen);
SenkouASty = ParamStyle("Senkou Span A Style",styleLine);
SenkouA = ( Tenkan + Kijun ) / 2;
Plot(SenkouA,"Senkou A",SenkouACol,SenkouASty,Null,Null,SenkouKumoShft) ;
_SECTION_END();

_SECTION_BEGIN("Senkou Span B");
SenkouBPer = Param("Senkou Span B Period",52,1,200,1);
SenkouBCol = ParamColor("Senkou Span B Color",colorPink);
SenkouBSty = ParamStyle("Senkou Span B Style",styleLine);
SenkouB = ( HHV(H,SenkouBPer) + LLV(L,SenkouBPer) ) / 2;
Plot(SenkouB,"Senkou B",SenkouBCol,SenkouBSty,Null,Null,SenkouKumoShft) ;
_SECTION_END();

_SECTION_BEGIN("Kumo");
KumoUpCol = ParamColor("Kumo UP Color",colorSeaGreen);
KumoDnCol = ParamColor("Kumo DN Color",colorPink);
PlotOHLC(SenkouA,SenkouA,SenkouB,SenkouB,"",IIf(SenkouA>SenkouB,KumoUpCol,KumoDnCol),styleCloud | styleNoLabel,Null,Null,SenkouKumoShft);
_SECTION_END();

_SECTION_BEGIN("BK");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor( ParamColor("Color Axes", colorBlack) );
SetChartBkGradientFill( ParamColor("BgTop", colorWhite),ParamColor("BgBottom", colorDarkGrey));
_SECTION_END();

_SECTION_BEGIN("AuthorName");
k = (GetPerformanceCounter()/100)%100;
printf("GetPerformance Counter %g",k);
GfxSelectFont("comics", 14,800);
GfxSetBkMode(1);
GfxSetTextColor(colorWhite);
GfxTextOut("ABDEL01S",-10+k,20);
RequestTimedRefresh(10);
_SECTION_END();

_SECTION_BEGIN("Cross");
SL = ( HHV( H, 26 ) + LLV( L, 26) )/2;
TL = ( HHV( H, 9 ) + LLV( L, 9 ) )/2;
//DL = Ref( C, 26 );
DL=C;
Span1 = (( SL + TL )/2);
Span2 = (HHV( H, 52) + LLV(L, 52))/2;

above=IIf((C>=Ref(Span1,-26) AND C>=Ref(Span2,-26)),1,0);
withinup=IIf((C>=Ref(Span1,-26) AND C<=Ref(Span2,-26)),1,0) ;
withindn=IIf((C<=Ref(Span1,-26) AND C>=Ref(Span2,-26)),1,0);
below=IIf((C<=Ref(Span1,-26) AND C<=Ref(Span2,-26)),1,0);

dlup=DL>Ref(C,-26) ;
stocup=StochK()>StochD() ;
MFIup=MFI()>MA(MFI(),7) ;
MACDup=MACD()>Signal() ;
Lim=ADX()<30 AND StochK()<70 ;
PDIup=PDI()>MDI() ;

Buy = Cross(TL,SL) AND macdup OR
Cross(MACD(),Signal()) AND TL>SL AND lim OR
Cross(C,SL) AND MACDup AND dlup OR
Cross(MACD(),Signal()) AND C>SL AND dlup AND lim OR
Cross(DL,Ref(C,-26)) AND MACDup OR
Cross(MACD(),Signal()) AND dlup AND Lim OR
Cross(StochK(),StochD()) AND StochK()<50 AND L>=SL AND TL>SL AND PDIup AND dlup ;
Sell = Cross(SL,TL);

StrongBuy = Buy AND above;
MediumBuy = Buy AND withinup OR Buy AND withindn;
WeakBuy = Buy AND below;
StrongSell = Sell AND below;
MediumSell = Sell AND withinup OR Sell AND withindn;
WeakSell = Sell AND above;

PlotShapes(IIf(StrongBuy,shapeUpTriangle,shapeNone),colorBlue,0,Low,Offset=-15);
PlotShapes(IIf(MediumBuy,shapeUpArrow,shapeNone),colorBlue,0,Low,Offset=-15);
PlotShapes(IIf(WeakBuy,shapeHollowUpArrow,shapeNone),colorBlue,0,Low,Offset=-15);
PlotShapes(IIf(StrongSell,shapeDownTriangle,shapeNone),colorRed,0,High,Offset=-15);
PlotShapes(IIf(MediumSell,shapeDownArrow,shapeNone),colorRed,0,High,Offset=-15);
PlotShapes(IIf(WeakSell,shapeHollowDownArrow,shapeNone),colorRed,0,High,Offset=-15);
_SECTION_END();
 
#8
Thinks friends for your help...
Thinks a lot for my friend Mr RAM 2010...
good job, and if you can give me some explanation because seeing the formula i think that you added some criteria to plot the arrows end triangls...
please give me some explanation...

if you permit to me i would asking you some ajustement to this formula if you don't have problems...

thinks another time for all...:clap:
 
#9
Ichimoku Signals
=========================================================
A. Tenkan Sen / Kijun Sen Cross
========================
1. A bullish signal occurs when the Tenkan Sen crosses from below to above the Kijun Sen

2. A bearish signal occurs when the Tenkan Sen crosses from above to below the Kijun Sen

B. Kijun Sen Cross
==============
1. A bullish signal occurs when the price crosses from below to above the Kijun Sen

2. A bearish signal occurs when the price crosses from above to below the Kijun Sen

C. Kumo Breakout
================
1. A bullish signal occurs when the price goes upwards through the top of the Kumo.

2. A bearish signal occurs when the price goes downwards through the bottom of the Kumo.

D.Senkou Span Cross
==================
1.A bullish signal occurs when the Senkou Span A crosses from below to above the Senkou Span B

2. A bearish signal occurs when the Senkou Span A crosses from above to below the Senkou Span B


E. Chikou Span Cross
=================
1.A bullish signal occurs when the Chikou Span rises from below to above the price

2.A bearish signal occurs when the Chikou Span falls from above to below the price
 

Similar threads