// Downloaded From https://www.WiseStockTrader.com /////GoldPivot// //by mike_05// SetChartBkColor(ParamColor("Panel color ",colorPaleBlue)); 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 ) ) )); // -- what will be our lookback range for the hh and ll? SetBarsRequired(120,-1 ); nBars = Param("bars look backwards", 19, 5, 40,1); //nBars= Optimize("nBars", 20, 11, 27, 1); // -- Title. //Title = Name() + " (" + StrLeft(FullName(), 15) + ") O: " + Open + ", //H: " + High + ", L: " + Low + ", C: " + Close; // -- Plot basic candle chart PlotOHLC(Open, High, Low, Close, "BIdx = " + BarIndex() + "" + "O = " + O + ""+"H = "+ H + ""+"L = " + L + ""+"C " , colorBlack, styleCandle); GraphXSpace=22; _SECTION_BEGIN("AA - Fibonacci Retracements and Goals"); /////////////////////////////////////////////////// // **************** Parameters ******************** // Period = Param("Period", 1, 1, 50); ShowExt = ParamToggle("Show Extension ?", "No|Yes"); /////////////////////////////////////////////////// // **************** Calculations ***************** // Period = Period*(13*.618); Hhb = LastValue(Ref(HHVBars(H, Period), -1))+1; Llb = LastValue(Ref(LLVBars(L, Period), -1))+1; Hv = LastValue(Ref(HHV(H, Period), -1)); Lv = LastValue(Ref(LLV(L, Period), -1)); Range = (Hv - Lv); LText = "0 %, 21.4 %, 38.2 %, 50 %, 61.8 %, 78.6 %, 100 %, 1.618 %, 1.72 %, 200 %"; if(Hhb > Llb) { Levels[0] = Lv; Levels[1]= (Range *.214)+Levels[0]; Levels[2]= (Range *.382)+Levels[0]; Levels[3]= (Range *.5)+Levels[0]; Levels[4]= (Range *.618)+Levels[0]; Levels[5]= (Range *.786)+Levels[0]; Levels[6]= Hv; Levels[7]= (Range *.618)+Levels[6]; Levels[8]= (Range *.72)+Levels[6]; Levels[9]= (Range )+Levels[6]; x0 = BarCount - 1 - Llb; x1 = BarCount - 1 - Hhb; } else { Levels[0]= Hv; Levels[1]= Levels[0]- (Range *.214); Levels[2]= Levels[0]- (Range *.382); Levels[3]= Levels[0]- (Range *.5); Levels[4]= Levels[0]- (Range *.618); Levels[5]= Levels[0]- (Range *.786); Levels[6]= Lv; Levels[7]= Levels[6]- (Range *.618); Levels[8]= Levels[6]- (Range *.72); Levels[9]= Levels[6]- (Range ); x0 = BarCount - 1 - Hhb; x1 = BarCount - 1 - Llb; } ////////////////////////////////////////////////////////////////////////////////////// /// **************************** Plotting Area******************************** // Plot(C, "", IIf(C > O, colorBrightGreen, colorRed), ParamStyle("Price Style", styleBar, maskPrice)); for(i=0; i<10; i++) { if(i!=6) x = x0; else x = x1; if(i<7 OR ShowExt) { Plot(LineArray(x, Levels[i], BarCount, Levels[i]), "", i+2, styleLine|styleDashed); PlotText(StrExtract(LText, i), BarCount, Levels[i], i+2); } } Title = FullName()+" - "+Name()+"\nO:"+O+", H:"+H+", L:"+L+", C:"+C; _SECTION_END(); //_____________ RSIperiod = 10; // Param("RSI p",3,14,30,1); Percent = 10; // Param("ZIG %",8,9,15,1); EMAperiod = 10; //Param("EMA p",4,5,10,1); HHVperiod = 10; //Param("HHV p",3,5,10,1); NumLine = 1; //Param("Num Lines",3,1,20,1); Base = DEMA(RSI(RSIperiod),EMAperiod); for( i = 1; i <= numline; i++ ) { ResBase = LastValue(Peak(Base,Percent,i)); SupBase = LastValue(Trough(Base,Percent,i)); Plot(ValueWhen( ResBase==Base, HHV(H,HHVperiod) ), "Resist Level", colorDarkRed, styleLine|styleDots); Plot(ValueWhen( supbase==Base, LLV(L,HHVperiod) ), "Support Level", colorDarkGreen, styleLine|styleDots); } //___________________ wb1[ 0 ] = 50; for( i = 1; i < BarCount; i++ ) { if( Close [i] >Close[ i-1 ] ) { wb1[ i ] = ((100 - wb1 [i-1])*(Close [i]-Close[i-1]) /Close [i])+wb1[i-1]; } if( Close [i] <=Close[ i-1 ] ) { wb1[ i ] = wb1 [i-1]*(Close [i]/Close[i-1]); } } sr=wb1==50; Color=IIf(wb1>50,colorBlue,colorWhite); Plot( wb1, "Snake Oscillator", color, styleOwnScale|styleLeftAxisScale ); //Plot(sr, "",color,styleOwnScale|styleLeftAxisScale); _SECTION_BEGIN("SAR"); acc = Param("Acceleration", 0.02, 0, 1, 0.001 ); accm = Param("Max. acceleration", 0.2, 0, 1, 0.001 ); Plot( SAR( acc, accm ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style", styleDots | styleNoLine, maskDefault | styleDots | styleNoLine ) ); _SECTION_END(); //kana³ 27 Plot(WMA(H,27),"góra", colorDarkRed, styleLine); Plot(WMA(L,27),"dó³", colorDarkRed, styleLine); // -- Create 0-initialized arrays the size of barcount aHPivs = H - H; aLPivs = L - L; // -- More for future use, not necessary for basic plotting aHPivHighs = H - H; aLPivLows = L - L; aHPivIdxs = H - H; aLPivIdxs = L - L; nHPivs = 0; nLPivs = 0; lastHPIdx = 0; lastLPIdx = 0; lastHPH = 0; lastLPL = 0; curPivBarIdx = 0; // -- looking back from the current bar, how many bars // back were the hhv and llv values of the previous // n bars, etc.? aHHVBars = HHVBars(H, nBars); aLLVBars = LLVBars(L, nBars); aHHV = HHV(H, nBars); aLLV = LLV(L, nBars); // -- Would like to set this up so pivots are calculated back from // last visible bar to make it easy to "go back" and see the pivots // this code would find. However, the first instance of // _Trace output will show a value of 0 aVisBars = Status("barvisible"); nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0))); _TRACE("Last visible bar: " + nLastVisBar); // -- Initialize value of curTrend curBar = (BarCount-1); curTrend = ""; if (aLLVBars[curBar] < aHHVBars[curBar]) { curTrend = "D"; } else { curTrend = "U"; } // -- Loop through bars. Search for // entirely array-based approach // in future version if( BarCount > 120 ) { //tu formula nBarsBack=Param("nBarsBack",120,20,1200,10); } else { //tu przypisujemy wartosci dla walorow o krotkiej historii nBarsBack=60; } for (i=0; i lastHPIdx) { // -- Bar and price info for candidate pivot candIdx = curBar - aHHVBars[curBar]; candPrc = aHHV[curBar]; if ( lastHPH < candPrc AND candIdx > lastLPIdx AND candIdx < curBar) { // -- OK, we'll add this as a pivot... aHPivs[candIdx] = 1; // ...and then rearrange elements in the // pivot information arrays for (j=0; j candPrc AND candIdx > lastHPIdx AND candIdx < curBar) { // -- OK, we'll add this as a pivot... aLPivs[candIdx] = 1; // ...and then rearrange elements in the // pivot information arrays for (j=0; j 0.01 * Param("OutPrice x 0,01", 10, 4, 50, 1); //anti trash actions // -- OK, let's plot the pivots using arrows PlotShapes( IIf(aHPivs==1, shapeHollowDownArrow, shapeNone), colorViolet, 0, High, Offset=-20); PlotShapes( IIf(aLPivs==1, shapeHollowUpArrow , shapeNone), colorIndigo, 0, Low, Offset=-20); PositionSize = -1 * Param("PositionSize %",40, 2, 100, 2); //PositionSize=-1 * Optimize("PostionSize", 80, 20, 100, 10); _SECTION_BEGIN("Volume"); Plot( Volume, _DEFAULT_NAME(), ParamColor("Color", colorWhite), ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick, maskHistogram ), 2 ); _SECTION_END(); Mid = MA( (H+L+C)/3,20); //The 20-period Moving Average Hi = Mid + MA((H-L),20); //Upper Keltner Band //TimeFrameSet(inWeekly); Lo =(TimeFrameExpand((L/H), inWeekly))*Hi;//,164; //TimeFrameRestore(); Lo1 = Mid - MA((H-L),20); //Lower Keltner Band Plot(Mid,"Mid",colorYellow,styleLine); Plot(Hi,"Hi",colorBlack,styleLine); Plot(Lo,"lo",colorAqua,styleLine); Plot(Lo1,"lo",colorWhite,styleLine); TimeFrameSet(inWeekly); PlotOHLC(Hi,Hi,Lo,Lo, "Snake`s Risk",( IIf(Hi>Lo, colorLightOrange , colorYellow)), styleCloud|styleNoLabel); TimeFrameRestore(); PlotOHLC(Hi,Hi,Lo1,Lo1, "Keltner", colorAqua, styleCloud|styleNoLabel); "Aktualna sytuacja rynkowa dla "+ Name() + " ("+Interval(2)+")"+" jest "; avgcond1 = ( C > EMA( Close, 200) ) + 0.1 * ( Close > EMA( Close, 90) ) + 0.1 * ( Close > EMA( Close , 30 ) ); avgcond2 = -( C < EMA( Close, 200) ) - 0.1 * ( Close < EMA( Close, 90) ) - 0.1 * ( Close < EMA( Close , 30 ) ); WriteIf( avgcond1 == 1.2, "silnie zwy¿kuj¹ca.\n", WriteIf( avgcond1 == 1.1, "zwy¿kuj¹ca.\n", WriteIf( avgcond1 == 1.0, "œrednio zwy¿kuj¹ca.\n", "") ) ) + WriteIf( avgcond2 == -1.2, "silnie zni¿kuj¹ca.\n", WriteIf( avgcond2 == -1.1, "zni¿kuj¹ca", WriteIf( avgcond2 == -1.0, "œrednio zni¿kuj¹ca.\n", "") ) ); //////////// //_SECTION_BEGIN("ADX"); // ADX/DMI Indicator range = Param("Periods", 14, 2, 200, 1 ); //range=Optimize("Periods",14, 10, 27,1); Plot( ad = ADX(range), _DEFAULT_NAME(), ParamColor( "ADX color", colorBlue ), ParamStyle("ADX style", styleThick |styleNoDraw|styleNoLabel |styleOwnScale) ); Plot( pd = PDI(range), "+DI", ParamColor( "+DI color", colorGreen ), ParamStyle("+DI style",styleNoDraw |styleNoLabel|styleOwnScale) ); Plot( md = MDI(range), "-DI", ParamColor( "-DI color", colorRed ), ParamStyle("-DI style", styleNoDraw|styleNoLabel |styleOwnScale) ); if( Status("action") == actionCommentary ) { ep = IIf( pd > md, ValueWhen( Cross( pd, md ), High ), ValueWhen( Cross( md, pd ), Low ) ); good = IIf( pd > md, High > ep, Low < ep ); bs = IIf( pd > md, BarsSince( Cross( pd, md ) ), BarsSince( Cross( md, pd ) ) ); printf("Kierunek ruchu:\n"); printf("\nDodatni indeks kierunkowej linii ruchu (+DI) jest aktualnie "+ WriteIf( pd > md,"powy¿ej", "poni¿ej")+ " ujemnego indeksu kierunkowej linii ruchu (-DI)"); printf("\nIch przeciêcie "+ WriteIf( pd > md, "powy¿ej", "poni¿ej" ) + " " + WriteVal( bs, 1.0 ) + " œwieczek wstecz.\n"); printf("\nWelles Wilder (autor 'Directional Movement Indicator') sugeruje kupno, kiedy +DI roœnie ponad -DI oraz sprzedaz, kiedy +DI spada ponizej -DI."); printf("\n" + WriteIf( bs < 4, "\nPoniewa¿ przeciêcie powsta³o niedawno, to moze byc dobry moment zajêcia " + WriteIf( pd > md, "d³ugiej" , "krótkiej" ) + " pozycji (lub zamkniêcie, je¿eli juz otwarta) "+ WriteIf( pd > md, "krótkiej", "d³ugiej")+ " pozycji (je¿eli jest mo¿liwa)\n", "\nPrzeciecie nast¹pi³o wiêcej, niz 3 œwieczki temu, wiec jest za póŸno zaj¹æ pozycjê wg tego sygna³u.\n")+ WriteIf( bs < 4, "Wilder jednak¿e sugeruje, by zakwalifikowaæ proste skrzy¿owanie +DI/-DI jako 'ekstremelny punkt regu³y'. Kiedy +DI roœnie ponad -DI,ekstremalna cena jest najwy¿sza cen¹ dnia przeciêcia. Kiedy +DI spada poni¿ej -DI, ekstremalna cena jest najni¿sza cen¹ dnia przeciêcia. Ekstremalne punkty mog¹ byæ u¿yte, jako wskazanie dla przeprowadzenia transakcji.\n","")+ WriteIf( bs < 4, "Aktualny ekstremalny punkt (wartoœæ) wynosi " + WriteVal( ep ) + "." + WriteIf( good, " Od dzisiaj " + WriteIf( pd > md, "H ("+WriteVal( High ) +") jest wy¿szy", "L ("+WriteVal(Low)+") jest ni¿ej" ) + " ni¿ ekstremalny punkt, wiêc regu³a siê spe³nia oraz sygna³ " + WriteIf( pd > md, "kupna","sprzeda¿y")+ " jest potwierdzony.\n", "Dotychczas ta regu³a jest nie spe³niona, wiêc to sugeruje, by zaczekaæ na potwierdzenie .\n"),"")); falling = ROC( Ad, 2 ) < 0; strength = IIf( Ad < 15 OR ( Ad < 25 AND falling ), 0, IIf( Ad < 25 OR ( Ad < 35 AND falling ), 1, 2 ) ); printf("\nSi³a trendu:\n"); printf("\nWartoœc ADX wynosi obecnie " + WriteVal( Ad ) + " i " +WriteIf( falling, "spada.", "roœnie." )); printf("\nTo sugeruje, ¿e trend jest "+ WriteIf( strength == 0, "raczej s³aby albo bardzo s³aby. Wa¿ne: kiedy trend jest s³aby, system ruchu wygenerowuje sygna³y zbyt czêsto i 'efekt pi³y' mo¿e 'zjeœæ' wszystkie twoje dochody.", WriteIf( strength == 2, "doœæ silny.", "œrednio silny."))); printf("\n\nTen komentarz nie jest rekomendacj¹ podjêcia jakiejkolwiek decyzji inwestycyjnej. U¿ywasz jej na w³asne ryzyko."); } Ad = ADX(range); falling = ROC( Ad, 2 ) < 0; strength = IIf( Ad < 15 OR ( Ad < 25 AND falling ), 0, IIf( Ad < 25 OR ( Ad < 35 AND falling ), 1, 2 ) ); VolAvg = MA( V, 21 ); VolumeIdx = V / VolAvg; signalB=(aLPivs==1); signalS=(aHPivs==1); i=Param("RSI", 20,20,28,1); //i=Optimize("RSI",21,11,35,1); VIdx=Param("VolIdx", 1.6, 1, 4, 0.1); //VIdx=Optimize("VolIdx", 0.4, 1, 4, 0.2); Filter = Volume > Percentile( Volume, 100, 70 ); Buy=BarsSince( signalB)==2 AND TrashFilter AND VolumeIdx>=VIdx AND Filter;// AND strength==2;// Sell=BarsSince( signalS)==1 ; //Short=Sell; //Cover=Buy; Buy = ExRem( Buy, Sell ); //Eliminacja powtórnych sygna³ów Buy przed nastepnym Sell Sell = ExRem( Sell, Buy ); //Eliminacja powtórnych sygna³ów Sell przed nastepnym Buy //fibo ff=EMA(Close,21); for(i=0; i Median( Volume, 21 ); AddColumn( V, "Volume" );