BSE BANKX

The BSE sectoral index BANKX has set in the down trend and trading in the down channel. BANKX is trading blow it's 100 day moving average. The MACD is making lower lows and is way below zero line at -253.57. The RSI is also making lower lows and is below 50 level at 42.55. The only sign of bullishness is that it is trading above the 200 day simple moving average one it is below this then the down trend will be more confirmed.   

BSE AUTO INDEX

The BSE sectorial index AUTO is forming descending triangle. The MACD is forming lower lows and is below the zero line at -11.4. The RSI is also forming the lower lows and just below the 50 level which shows that the bears has started to gain dominance in auto sector. BSE AUTO is trading below it's 100 day simple moving average and falling towards 200 day simple moving average, once it break through it, the weakness in this sector will be more visible.   

Candlestic Identification

This afl identifies the candlestic and the pattern made by them. You just insert it as indicator in chart pane and click on any candle to know about it.The information will be shown in the left upper part of the chart.


_SECTION_BEGIN("Candle Identification");
SetChartBkColor(colorLightBlue);
Plot(C,"",1,64);
O1 = Ref(O,-1);O2 = Ref(O,-2);
H1 = Ref(H,-1);H2 = Ref(H,-2);
L1 = Ref(L,-1);L2 = Ref(L,-2);
C1 = Ref(C,-1);C2 = Ref(C,-2);
function CandlePattern(P)
   {
   global PatternName;
   if(P == 0) { PatternName = "NearDoji"; Pv = (abs(O-C)<= ((H-L)*0.1)); }
   else if(P == 1) { PatternName = "BlackCandle"; Pv = (O>C); }
   else if(P == 2) { PatternName = "LongBlackCandle"; Pv = (O>C AND
(O-C)/(.001+H-L)>.6); }
   else if(P == 3) { PatternName = "SmallBlackCandle"; Pv = ((O>C) AND
((H-L)>(3*(O-C)))); }
   else if(P == 4) { PatternName = "WhiteCandle"; Pv = (C>O); }
   else if(P == 5) { PatternName = "LongWhiteCandle"; Pv = ((C>O) AND
((C-O)/(.001+H-L)>.6)); }
   else if(P == 6) { PatternName = "SmallWhiteCandle"; Pv = ((C>O) AND
((H-L)>(3*(C-O)))); }
   else if(P == 7) { PatternName = "BlackMaubozu"; Pv = (O>C AND H==O AND
C==L); }
   else if(P == 8) { PatternName = "WhiteMaubozu"; Pv = (C>O AND H==C AND
O==L); }
   else if(P == 9) { PatternName = "BlackClosingMarubozu"; Pv = (O>C AND
C==L); }
   else if(P == 10) { PatternName = "WhiteClosingMarubozu"; Pv = (C>O AND
C==H); }
   else if(P == 11) { PatternName = "BlackOpeningMarubozu"; Pv = (O>C AND
O==H); }
   else if(P == 12) { PatternName = "WhiteOpeningMarubozu"; Pv = (C>O AND
O==L); }
   else if(P == 13) { PatternName = "HangingMan"; Pv = (((H-L)>4*(O-C)) AND
((C-L)/(.001+H-L)>= 0.75) AND ((O-L)/(.001+H-L)>= 0.75)); }
   else if(P == 14) { PatternName = "Hammer"; Pv = (((H-L)>3*(O-C)) AND
((C-L)/(.001+H-L)>0.6) AND ((O-L)/(.001+H-L)>0.6)); }
   else if(P == 15) { PatternName = "InvertedHammer"; Pv = (((H-L)>3*(O-C))
AND ((H-C)/(.001+H-L)>0.6) AND ((H-O)/(.001+H-L)>0.6)); }
   else if(P == 16) { PatternName = "ShootingStar"; Pv = (((H-L)>4*(O-C))
AND ((H-C)/(.001+H-L)>= 0.75) AND ((H-O)/(.001+H-L)>= 0.75)); }
   else if(P == 17) { PatternName = "BlackSpinningTop"; Pv = ((O>C) AND
((H-L)>(3*(O-C))) AND (((H-O)/(.001+H-L))<.4) AND
(((C-L)/(.001+H-L))<.4)); }
   else if(P == 18) { PatternName = "WhiteSpinningTop"; Pv = ((C>O) AND
((H-L)>(3*(C-O))) AND (((H-C)/(.001+H-L))<.4) AND
(((O-L)/(.001+H-L))<.4)); }
   else if(P == 19) { PatternName = "BearishAbandonedBaby"; Pv = ((C1 == O1)
AND (C2>O2) AND (O>C) AND (L1>H2) AND (L1>H)); }
   else if(P == 20) { PatternName = "BearishEveningDojiStar"; Pv = ((C2>O2)
AND ((C2-O2)/(.001+H2-L2)>.6) AND (C2<O1) AND (C1>O1) AND
((H1-L1)>(3*(C1-O1))) AND (O>C) AND (O<O1)); }
   else if(P == 21) { PatternName = "DarkCloudCover"; Pv = (C1>O1 AND
((C1+O1)/2)>C AND O>C AND O>C1 AND C>O1 AND (O-C)/(.001+(H-L)>0.6)); }
   else if(P == 22) { PatternName = "BearishEngulfing"; Pv = ((C1>O1) AND
(O>C) AND (O>= C1) AND (O1>= C) AND ((O-C)>(C1-O1))); }
   else if(P == 23) { PatternName = "ThreeOutsideDownPattern"; Pv = ((C2>O2)
AND (O1>C1) AND (O1>= C2) AND (O2>= C1) AND ((O1-C1)>(C2-O2)) AND (O>C) AND
(C<C1)); }
   else if(P == 24) { PatternName = "BullishAbandonedBaby"; Pv = ((C1 == O1)
AND (O2>C2) AND (C>O) AND (L2>H1) AND (L>H1)); }
   else if(P == 25) { PatternName = "BullishMorningDojiStar"; Pv = ((O2>C2)
AND ((O2-C2)/(.001+H2-L2)>.6) AND (C2>O1) AND (O1>C1) AND
((H1-L1)>(3*(C1-O1))) AND (C>O) AND (O>O1)); }
   else if(P == 26) { PatternName = "BullishEngulfing"; Pv = ((O1>C1) AND
(C>O) AND (C>= O1) AND (C1>= O) AND ((C-O)>(O1-C1))); }
   else if(P == 27) { PatternName = "ThreeOutsideUpPattern"; Pv = ((O2>C2)
AND (C1>O1) AND (C1>= O2) AND (C2>= O1) AND ((C1-O1)>(O2-C2)) AND (C>O) AND
(C>C1)); }
   else if(P == 28) { PatternName = "BullishHarami"; Pv = ((O1>C1) AND (C>O)
AND (C<= O1) AND (C1<= O) AND ((C-O)<(O1-C1))); }
   else if(P == 29) { PatternName = "ThreeInsideUpPattern"; Pv = ((O2>C2)
AND (C1>O1) AND (C1<= O2) AND (C2<= O1) AND ((C1-O1)<(O2-C2)) AND (C>O) AND
(C>C1) AND (O>O1)); }
   else if(P == 30) { PatternName = "PiercingLine"; Pv = ((C1<O1) AND
(((O1+C1)/2)<C) AND (O<C) AND (O<C1) AND (C<O1) AND
((C-O)/(.001+(H-L))>0.6)); }
   else if(P == 31) { PatternName = "BearishHarami"; Pv = ((C1>O1) AND (O>C)
AND (O<= C1) AND (O1<= C) AND ((O-C)<(C1-O1))); }
   else if(P == 32) { PatternName = "ThreeInsideDownPattern"; Pv = ((C2>O2)
AND (O1>C1) AND (O1<= C2) AND (O2<= C1) AND ((O1-C1)<(C2-O2)) AND (O>C) AND
(C<C1) AND (O<O1)); }
   else if(P == 33) { PatternName = "ThreeWhiteSoldiers"; Pv = (C>O*1.01)
AND (C1>O1*1.01) AND (C2>O2*1.01) AND (C>C1) AND (C1>C2) AND (O<C1) AND
(O>O1) AND (O1<C2) AND (O1>O2) AND (((H-C)/(H-L))<.2) AND
(((H1-C1)/(H1-L1))<.2) AND (((H2-C2)/(H2-L2))<.2); }
   else if(P == 34) { PatternName = "DarkCloudCover"; Pv = (C1>O1*1.01) AND
(O>C) AND (O>H1) AND (C>O1) AND (((C1+O1)/2)>C) AND (C>O1) AND
(MA(C,13)-Ref(MA(C,13),-4)>0); }
   else if(P == 35) { PatternName = "ThreeBlackCrows"; Pv = (O>C*1.01) AND
(O1>C1*1.01) AND (O2>C2*1.01) AND (C<C1) AND (C1<C2) AND (O>C1) AND (O<O1)
AND (O1>C2) AND (O1<O2) AND (((C-L)/(H-L))<.2) AND (((C1-L1)/(H1-L1))<.2)
AND (((C2-L2)/(H2-L2))<.2); }
   else if(P == 36) { PatternName = "doji"; Pv = (O == C); }
   else if(P == 37) { PatternName = "GapUp"; Pv = GapUp(); }
   else if(P == 38) { PatternName = "GapDown"; Pv = GapDown(); }
   else if(P == 39) { PatternName = "BigGapUp"; Pv = L>1.01*H1; }
   else if(P == 40) { PatternName = "BigGapDown"; Pv = H<0.99*L1; }
   else if(P == 41) { PatternName = "HugeGapUp"; Pv = L>1.02*H1; }
   else if(P == 42) { PatternName = "HugeGapDown"; Pv = H<0.98*L1; }
   else if(P == 43) { PatternName = "DoubleGapUp"; Pv = GapUp() AND
Ref(GapUp(),-1); }
   else if(P == 44) { PatternName = "DoubleGapDown"; Pv = GapDown() AND
Ref(GapDown(),-1); }
   return Pv;
   }

PatternNameList = "";
for(Cp=0; Cp<=44; Cp++)
{
VarSet("Pattern"+NumToStr(Cp,1.0),CandlePattern(cP));
PatternNameList = PatternNameList +PatternName+",";
}

BI = BarIndex();
SelectedBar = SelectedValue(BI) -BI[0];
//Selectedbar = Status("lastvisiblebar")-1;
PStr="";
for(Cp=0; Cp<=44; Cp++)
{
Temp = VarGet("Pattern"+NumToStr(Cp,1.0));
if(temp[SelectedBar]) Pstr=Pstr+"#"+NumToStr(Cp,1.0)+" -
"+StrExtract(PatternNameList,Cp)+"\n";
}

Title = "\nCandle Demostration \n"+ Pstr;
_SECTION_END();

Hotel Leela Venture

Click the image to enlarge

The market cap of the stock is 1782.06. The PE Ratio of the stock is 41.77 and that of industry is 40.38. The EPS(TTM) of the stock is 1.10. The financial results ending year march 2010 has not been very satisfactory.

The stock has corrected and has taken a support at the levle of 40.15 after that it has started to rise. There are threee resistances in it's upwards move, the 200 day simple moving avg, 100 day simple moving avg and 50 day simple moving avg, making a resistance area of 48.59 to 50.84 which is very diffiult to cross. The MACD has crossed the signal line above which is bullish but still is below zero line which is bearish. The RSI is rising and above 50 level which is bullish sign. All this conclude to if stock price crosses the resistance area of 48.59 to 50.84 then the bulls will be dominating and it can see the levels of 58.19 which is about 16% profit in short term.

Price Support Resistance AFL

This afl draws price chart with support and resistance lines in Amibroker. Save this afl in custom folder and insert it. This is very useful afl.

_SECTION_BEGIN("Resistance");

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

supres=ParamToggle("Sup_Res","No|Yes",1);
if(supres)
{


Prd1=Param("Res_Period1",2,0,200,1);

test = TEMA ( High , Prd1 ) ;

PK = test > Ref(test,-1) AND Ref(test,1) < High;//Peak
PKV0 = ValueWhen(PK,haHigh,0);//PeakValue0
PKV1 = ValueWhen(PK,haHigh,1);//PeakValue1
PKV2 = ValueWhen(PK,haHigh,2);//PeakValue2

MPK = PKV2 < PKV1 AND PKV1 > PKV0 ;//MajorPeak

MPKV = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,1); //MajorPeakValue
MPKD = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),1); //MajorPeakDate
SD = IIf(DateNum() < LastValue(MPKD,lastmode = True ), Null, LastValue(MPKV,Lastmode = True));//SelectedDate
Plot(SD, "Resist1", colorGreen,ParamStyle("ResStyle1",styleLine|styleNoTitle,maskAll));

MPKV2 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,2); //MajorPeakValue
MPKD2 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),2); //MajorPeakDate
SD2 = IIf(DateNum() < LastValue(MPKD2,lastmode = True ), Null, LastValue(MPKV2,Lastmode = True));//SelectedDate
Plot(SD2, "Resist2", colorGreen,ParamStyle("ResStyle2",styleLine|styleNoTitle,maskAll));


MPKV3 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,3); //MajorPeakValue
MPKD3 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),3); //MajorPeakDate
SD3 = IIf(DateNum() < LastValue(MPKD3,lastmode = True ), Null, LastValue(MPKV3,Lastmode = True));//SelectedDate
Plot(SD3, "Resist3", colorGreen,ParamStyle("ResStyle3",styleLine|styleNoTitle,maskAll));


MPKV4 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,4); //MajorPeakValue
MPKD4 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),4); //MajorPeakDate
SD4 = IIf(DateNum() < LastValue(MPKD4,lastmode = True ), Null, LastValue(MPKV4,Lastmode = True));//SelectedDate
Plot(SD4, "Resist4", colorGreen,ParamStyle("ResStyle4",styleLine|styleNoTitle,maskAll));



MPKV5 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,5); //MajorPeakValue
MPKD5 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),5); //MajorPeakDate
SD5 = IIf(DateNum() < LastValue(MPKD5,lastmode = True ), Null, LastValue(MPKV5,Lastmode = True));//SelectedDate
Plot(SD5, "Resist5", colorGreen,ParamStyle("ResStyle5",styleLine|styleNoTitle,maskAll));


MPKV6 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, PKV1,6); //MajorPeakValue
MPKD6 = ValueWhen(Ref(MPK,-1) == 0 AND MPK == 1, DateNum(),6); //MajorPeakDate
SD6 = IIf(DateNum() < LastValue(MPKD6,lastmode = True ), Null, LastValue(MPKV6,Lastmode = True));//SelectedDate
Plot(SD6, "Resist6", colorGreen ,ParamStyle("ResStyle6",styleLine|styleNoTitle,maskAll));




_SECTION_END();

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

_SECTION_BEGIN("Support");
//SP=L > Ref(L,-1) AND Ref(L,1) < L;//Peak

Prd2=Param("Sup_Period1",2,0,200,1);

test2 = TEMA ( Low , Prd2 ) ;

SP = Ref(test2,1) > Low AND test2 < Ref(test2,-1);//Peak
SPV0 = ValueWhen(SP,haLow,0);//PeakValue0
SPV1 = ValueWhen(SP,haLow,1);//PeakValue1
SPV2 = ValueWhen(SP,haLow,2);//PeakValue2

//PKV5 = ValueWhen(PK,haHigh,5);//PeakValue5
//PKV6 = ValueWhen(PK,haHigh,6);//PeakValue6

MSP = SPV2 > SPV1 AND SPV1 < SPV0 ;//MajorPeak

MSPV = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,1);
MSPD = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),1);
SD = IIf(DateNum() < LastValue(MSPD,lastmode = True ), Null, LastValue(MSPV,Lastmode = True));
Plot(SD,"Support1", colorBrown,ParamStyle("SupportLine1",styleLine|styleNoTitle,maskAll));



MSPV2 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,2);
MSPD2 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),2);
SD2 = IIf(DateNum() < LastValue(MSPD2,lastmode = True ), Null, LastValue(MSPV2,Lastmode = True));
Plot(SD2,"Support2", colorBrown,ParamStyle("SupportLine2",styleLine|styleNoTitle,maskAll));



MSPV3 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,3);
MSPD3 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),3);
SD3 = IIf(DateNum() < LastValue(MSPD3,lastmode = True ), Null, LastValue(MSPV3,Lastmode = True));
Plot(SD3,"Support3", colorBrown,ParamStyle("SupportLine3",styleLine|styleNoTitle,maskAll));


MSPV4 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,4);
MSPD4 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),4);
SD4 = IIf(DateNum() < LastValue(MSPD4,lastmode = True ), Null, LastValue(MSPV4,Lastmode = True));
Plot(SD4,"Support4", colorBrown,ParamStyle("SupportLine4",styleLine|styleNoTitle,maskAll));


MSPV5 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,5);
MSPD5 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),5);
SD5 = IIf(DateNum() < LastValue(MSPD5,lastmode = True ), Null, LastValue(MSPV5,Lastmode = True));
Plot(SD5,"Support5", colorBrown,ParamStyle("SupportLine5",styleLine|styleNoTitle,maskAll));


MSPV6 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, SPV1,6);
MSPD6 = ValueWhen(Ref(MSP,-1) == 0 AND MSP == 1, DateNum(),6);
SD6 = IIf(DateNum() < LastValue(MSPD6,lastmode = True ), Null, LastValue(MSPV6,Lastmode = True));
Plot(SD6,"Support6", colorBrown,ParamStyle("SupportLine6",styleLine|stylehidden|styleNoTitle,maskAll));

}

_SECTION_BEGIN("Price");
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() );

Technical and Fundamental Analysis of Stocks and Indices: Ascending Triangle Chart Pattern

Technical and Fundamental Analysis of Stocks and Indices: Ascending Triangle Chart Pattern: "Ascending triangle formation can be trend continuation pattern or reversal pattern. The main point in this pattern is that it can give break..."

Icmoku Kinko Hoya Trading System

This afl will plot icmoku kinko hoya trading system in your Amibroke.

//icmoku kinko hoya

//=======================================================================

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 )));

}

SL = ( HHV( H, 26 ) + LLV( L, 26) )/2;

TL = ( HHV( H, 9 ) + LLV( L, 9 ) )/2;

DL = Ref( C, 26 );

Span1 = (( SL + TL )/2);

Span2 = (HHV( H, 52) + LLV(L, 52))/2;

Plot(SL,"SL",2,styleThick); // standard, base, or kijun-sen line

Plot(TL,"TL",2,styleThick); // turning, conversion, or tenkan-sen line

Plot(DL,"",colorLightBlue,styleLine); // delayed, lagging, or chikou span

Plot(Span1,"",colorGreen,1,0,0,26); // senkou span A, kumo, or white clouds

Plot(Span2,"",colorSeaGreen,1,0,0,26); // senkou span B, kumo, or white clouds

PlotOHLC(Span1,Span2,Span1,Span2,"",IIf(Span1>Span2,8,9),styleCloud|4096,0,0,26);

//=======================================================================

ABB LTD.

The market cap of the stock is 16254.43 . The PE Ratio of the stock is 97.84 and that of industry is 35.22. The earning per share EPS(TTM) is 7.84.

The stock is trading in down trend.The closing price is 764.05 on 21-12-20010. The immediate support is at 748.92. It is trading below 200 day simple moving average. The MACD is below zero line at -19.67 and RSI heading towards the 30 level. Both MACD and RSI are making lower lowes thus showing bearishness. Untill it does not break the downwards channel and the 200 day moving average above , it will continue to trade in down trend.

Tata Motors

Tata Motor has been in up trend since March 2009. Since Deceber 2009 to 21-7 2010 it traded in the range of 678.44 to 832.64. It formed double top at the level of 1362.36 in short term. It is again testing these levels. Volumes are very low this time. No signs of weakness are seen as the stock is trading above all the moving averages and MACD and RSI both are bullish as trading above zero level and 50 level respectively. If it could not break above 1362.36 then some minor correction can be seen but the up trend will continue after that.

The market cap of the stock is 82469.02 . The PE Ratio of the stock is 45.18 and that of industry is 34.38. The earning per share EPS is 29.87.

ICICI Bank

The stock is correcting from a level of 1278.It is trading in the downwards channcl. It has corrected almost 23.6%. Todays closing is below 100 day moving average untill it trades above it's 200 day simple moving average, there is no need to worry. The immediate support for this stock is at 997.47. Both RSI and MACD are bearish as they are trading below 50 line and zero line respectively.

The market cap of the stock is 126522.25. The PE Ratio of the stock is 28.96 and that of industry is 28.49. The EPS of the stock is 37.96.

HDFC Bank

HDFC Bank is trading at 2200.8 and below it's 100 day simple moving average and above 200 day moving average. The RSI is making lower lows and trading below 50 level and thus showing bearishness. MACD is also making lower lows and has crossed signal line and trading below zero line, this also shows bearishness.It may take support at 2112.08.If it does not take support here then further weakness may come in this stock.

The market cap of the company is rs.101917.03 cr. The PE ratio of the company is 30.16 and of the industry is 28.49.The earning per share EPS of the company is 72.95. This is good company to accumulate at price level of 2112.08 for a target of 2422.

AFL for various moving averages and different parameters for system testing

SetChartBkColor(  ColorHSB( 42, 42, 62 ) );
SetChartOptions(0,chartShowArrows|chartShowDates);
Plot( C, "Close",  47 , styleNoTitle | styleCandle );

function T3(price,periods)
{
s = 0.84;
e1=EMA(price,periods);
e2=EMA(e1,Periods);
e3=EMA(e2,Periods);
e4=EMA(e3,Periods);
e5=EMA(e4,Periods);
e6=EMA(e5,Periods);
c1=-s*s*s;
c2=3*s*s+3*s*s*s;
c3=-6*s*s-3*s-3*s*s*s;
c4=1+3*s+s*s*s+3*s*s;
Ti3=c1*e6+c2*e5+c3*e4+c4*e3;
return ti3;
}
Type1 = ParamList("Type 1", "Simple,Exponential,Double Exponential,Tripple Exponential,Wilders,Weighted,T3",0);
prd=Param("periods type1",5,3,100,1);
m = 0;
if( Type1 == "Simple" ) m = MA( C, Prd );
if( Type1 == "Exponential" ) m = EMA( C, Prd );
if( Type1 == "Double Exponential" ) m = DEMA( C, Prd );
if( Type1 == "Tripple Exponential" ) m = TEMA( C, Prd );
if( Type1 == "Wilders" ) m = Wilders( C, Prd );
if( Type1 == "Weighted" ) m = WMA( C, Prd );
if( Type1 == "T3" )       m = T3(C,Prd);

Type2 = ParamList("Type 2", "Simple,Exponential,Double Exponential,Tripple Exponential,Wilders,Weighted",5);
m1 = 0;
prd1=Param("periods type2",20,5,200,1);
if( Type2 == "Simple" ) m1 = MA( C, Prd1 );
if( Type2 == "Exponential" ) m1 = EMA( C, Prd1 );
if( Type2 == "Double Exponential" ) m1 = DEMA( C, Prd1 );
if( Type2 == "Tripple Exponential" ) m1 = TEMA( C, Prd1 );
if( Type2 == "Wilders" ) m1 = Wilders( C, Prd1 );
if( Type2 == "Weighted" ) m1 = WMA( C, Prd1 );
Plot(m,  "", colorSkyblue, 1);
Plot(m1, "",IIf(m1>Ref(m1,-1),5,4), 4);

Buysetup=Cross(m,m1) ;
Shortsetup=Cross(m1,m) ;
Buysetupvalid=Flip (Buysetup, Shortsetup);
Shortsetupvalid=Flip (Shortsetup, Buysetup);

Buy=Cover= Buysetupvalid;
Sell=Short= Shortsetupvalid;


Buy=ExRem (Buy, Sell);
Sell=ExRem (Sell, Buy);
Short=ExRem (Short, Cover);
Cover=ExRem (Cover, Short);

BuyPrice=SellPrice=ShortPrice=CoverPrice=C;

GraphXSpace = 5;
dist = 1.5*ATR(10);
for( i = 0; i < BarCount; i++ )
{ if( Buy[i] ) PlotText( "Buy\n@" + BuyPrice[ i ], i, L[ i ]-dist[i], colorBrightGreen );
  if( Short[i] ) PlotText( "Short\n@" + ShortPrice[ i ], i, H[ i ]+dist[i], colorRed);
  if( Cover[i] ) PlotText( "cover\n@" + CoverPrice[ i ], i, L[ i ]-dist[i], colorLime );
  if( Sell[i] ) PlotText( "Sell\n@" + SellPrice[ i ], i, H[ i ]+dist[i], colorOrange); }
PlotShapes (IIf (Sell,shapeHollowSmallDownTriangle, shapeNone), colorOrange, 0, H, - 15);
PlotShapes (IIf (Cover,shapeHollowSmallUpTriangle, shapeNone), colorGreen, 0, L, - 15);
PlotShapes (IIf (Buy,shapeUpArrow, shapeNone), colorBrightGreen, 0, L, - 25);
PlotShapes (IIf (Short,shapeDownArrow, shapeNone), colorRed, 0, H, - 25);
Filter=Buy OR Sell OR Short OR Cover ;
AddColumn(IIf(Buy,BuyPrice,Null),"Buy/cover", 6.2,1,colorGreen);
AddColumn(IIf(Sell,SellPrice,Null),"sell /short" ,6.2,1,colorOrange);
AddColumn(IIf(Short,ShortPrice,Null),"short Price", 6.2,1,colorRed);
AddColumn(IIf(Cover,CoverPrice,Null),"cover Price", 6.2,1,colorLime);


Title = "{{NAME}} - {{INTERVAL}} - {{DATE}}  : {{OHLCX}} " +EncodeColor(colorAqua)+
"\n"+"Multi MA cross system"+
"\n\n"+EncodeColor(colorSkyblue)+WriteIf(m,"("+type1+"--"+prd+")  "+WriteVal(m)+",","")+
"\n"+EncodeColor(7)+WriteIf(m1,"("+type2+"--"+prd1+")  "+WriteVal(m1)+" ,","")+ " "+
"\n"+EncodeColor(colorPink)+WriteIf(C-M,"disance from  "+type1+" ma "+WriteVal(C-M)+",","");


//Plot(V, "", colorPaleBlue, 2|styleOwnScale);

_SECTION_BEGIN("Background text");
GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/6 );
GfxSetTextAlign( 6 );// center alignment
//GfxSetTextColor( ColorRGB( 200, 200, 200 ) );
GfxSetTextColor( ColorHSB( 42, 42, 82 ) );
GfxSetBkMode(0); // transparent
GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/12 );
GfxSelectFont("Tahoma", Status("pxheight")/12 );
GfxTextOut( "Multi MA cross system", Status("pxwidth")/2, Status("pxheight")/3 );
GfxSelectFont("Tahoma", Status("pxheight")/36 );
GfxTextOut( "Chart by Cas", Status("pxwidth")/2, Status("pxheight")/2 );
_SECTION_END();

/*This will Plot monthly, weekly, daly, Hourly, 15 Minute, 5 Minute and 1 Minute charts in one chart but different panes. You can apply these charts as indicators in different panes in Amibroker. */
//==============================================================================================
SetChartBkGradientFill(colorWhite,colorLightGrey,colorWhite);
Period= ParamList("Base","Monthly|Weekly|Daily|Hourly|15Minute|5Minute|1Minute",0);

if(Period=="Monthly"){
 TimeFrameSet(inMonthly);
PlotOHLC(Open, High, Low, Close, "Monthly Price Chart", colorBlack, style = styleCandle | styleOwnScale);
Plot(V,"Volume",colorWhite, styleHistogram);
}
if(Period=="Weekly"){
TimeFrameSet(inWeekly);
PlotOHLC(Open, High, Low, Close, "weekly Price Chart", colorBlack, style = styleCandle | styleOwnScale);
Plot(V,"Volume",colorWhite, styleHistogram);
}
if(Period=="Daily"){
TimeFrameSet(inDaily);
PlotOHLC(Open, High, Low, Close, "Daily Price Chart", colorBlack, style = styleCandle | styleOwnScale);
Plot(V,"Volume",colorWhite, styleHistogram);
}
if(Period=="Hourly"){
 TimeFrameSet(inHourly);
PlotOHLC(Open, High, Low, Close, "Hourly Price Chart", colorBlack, style = styleCandle | styleOwnScale);
Plot(V,"Volume",colorWhite, styleHistogram);
}
if(Period=="15Minute"){
 TimeFrameSet(in15Minute);
PlotOHLC(Open, High, Low, Close, "15Minute Price Chart", colorBlack, style = styleCandle | styleOwnScale);
Plot(V,"Volume",colorWhite, styleHistogram);
}
if(Period=="5Minute"){
 TimeFrameSet(in5Minute);
PlotOHLC(Open, High, Low, Close, "5Minute Price Chart", colorBlack, style = styleCandle | styleOwnScale);
Plot(V,"Volume",colorWhite, styleHistogram);
}
if(Period=="1Minute"){
 TimeFrameSet(in1Minute);
PlotOHLC(Open, High, Low, Close, "1Minute Price Chart", colorBlack, style = styleCandle | styleOwnScale);
Plot(V,"Volume",colorWhite, styleHistogram);
}