Plot( C, "Close", IIf(C>Ref(C,-1),colorCustom9,colorRed), ParamStyle("Style") | GetPriceStyle() ); _SECTION_BEGIN("Bollinger Bands"); Plot(MA( C, 20 ),"MA20",colorYellow,styleLine|styleThick); P = ParamField("Price field",-1); Periods = Param("Periods", 20, 2, 100, 1 ); Width = Param("Width", 2, 0, 10, 0.05 ); Color = ParamColor("Color", colorDarkGrey ); Style = ParamStyle("Style", styleLine | styleNoLabel ) | styleNoLabel; Plot( bbt = BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), colorCustom1, Style ); Plot( bbb = BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), colorCustom1, Style ); PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, GetChartBkColor(), 0.1 ), styleThick | styleCloud | styleNoRescale, Null, Null, Null, -1 ); _SECTION_END(); _SECTION_BEGIN("i"); /* ICHIMOKU CHART */ 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[i]) ColTenk[i] = colorLightGrey; else { if (Cond1[i] AND TenkanSen[i] > TenkanSen[i-1]) ColTenk[i] = colorGreen; if (Cond1[i] AND TenkanSen[i] < TenkanSen[i-1]) ColTenk[i] = colorRed; if (Cond2[i] AND TenkanSen[i] < TenkanSen[i-1]) ColTenk[i] = colorRed; if (Cond2[i] AND TenkanSen[i] > TenkanSen[i-1]) ColTenk[i] = colorGreen; } } //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,"Bars",colorBlack,styleCandle); Plot (TenkanSen,"Tenkan-sen",colorRed); Plot (KijunSen, "Kijun-sen", colorBlue); Plot (Cks,"Chinkou Span",colorLime, style = styleLine,0,0,-n2); Plot (SpA,"SenkouSpanA",colorOrange,styleDashed,0,0,n2); Plot (SpB,"SenkouSpanB",colorViolet,styleDashed + styleThick,0,0,n2); PlotOHLC (SpA,SpA,SpB,SpB,"Cloud",IIf (SpA > SpB,ColorRGB( 64, 128, 128 ),ColorRGB( 128, 128, 128 )),styleCloud, 10, 10, n2 ); above = IIf(KijunSen>SenkouSpanA AND TenkanSen>SenkouSpanB,1,0); within = IIf(KijunSen>SenkouSpanA AND TenkanSen SenkouSpanB; DK2 = (SpB > SpA); DK3 = (SenkouSpanB > SenkouSpanA); DK4 = Cross(C, SenkouSpanB) or Cross(C, SenkouSpanA); Buy = DK1 AND DK3 AND DK4; PlotShapes( shapeUpArrow * Buy ,6,0,L,Offset=-15); DK5 = MA(V, 20) > 100000; Cover = Buy AND DK5; Filter = Cover OR buy; AddColumn(V,"Khoi Luong",1.0); AddColumn(Cover,"Break Out Vuot May",True,colorcustom2,colorCustom6); //Buy = Cross(TenkanSen,KijunSen) AND (DL>Close); //Sell = Cross(KijunSen,TenkanSen) AND (DL