Stock Portfolio Organizer
The ultimate porfolio management solution.
Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
S2 Trade for Amibroker (AFL)
Copy & Paste Friendly
Back
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | _SECTION_BEGIN("Stochastic_45-4-2_833"); periods = Param( "Periods", 20, 1, 200, 1 ); K1smooth = Param( "%K1 avg", 4, 1, 200, 1 ); //Plot( StochK( periods , K1smooth), _DEFAULT_NAME(), colorCustom3, styleNoLabel | styleThick | styleDots);periods = Param( "Periods", 20, 1, 200, 1 );K1smooth = Param( "%K1 avg", 4, 1, 200, 1 );D1smooth = Param( "%D1 avg", 2, 1, 200, 1 );//Plot( StochD( periods , K1smooth, D1Smooth ), _DEFAULT_NAME(), colorCustom3, styleNoLabel | styleThick | styleDots);A = StochK( periods , K1smooth); B = StochD( periods , K1smooth, D1Smooth );//Plot (20, "", colorTan, styleNoLabel);//Plot (50, "", colorLavender, styleNoLabel);//Plot (80, "", colorTan, styleNoLabel);//PlotOHLC( 100, 100 , 95 , 95 , "", IIf( a < 20 OR a > 80,colorBlack,IIf(A>B ,colorBrightGreen,colorRed)), styleCloud | styleNoLabel);//PlotOHLC( 5, 5 , 0 , 0 , "", IIf( a < 20 OR a > 80,colorBlack,IIf(A<B ,colorRed,colorBrightGreen)), styleCloud | styleNoLabel);periods = Param( "Periods", 8, 1, 200, 1 );K1smooth = Param( "%K1 avg", 3, 1, 200, 1 );periods = Param( "Periods", 8, 1, 200, 1 );K2smooth = Param( "%K1 avg", 3, 1, 200, 1 );D2smooth = Param( "%D1 avg", 3, 1, 200, 1 );M = StochK( periods , K2smooth);N = StochD( periods , K2smooth, D2Smooth );ColorK=IIf(A>B,colorBrightGreen,colorRed);//Plot( M,"StoK", ColorK, styleNoLabel|styleThick);//Plot( N,"StoD", colorDarkYellow, styleNoLabel|styleDashed);style = Param("candle = yes",1,0,1,1);Plot(Close,"",IIf(A > B ,colorBrightGreen,colorRed),IIf(style==1,styleCandle,styleLine));//PlotOHLC( O, H , L , C , "Cloud", IIf(A > B ,colorDarkGreen,colorDarkRed), styleCloud | styleNoLabel);_SECTION_END();_SECTION_BEGIN("Fibo for all bars");TimeFrameSet( inDaily ); DH=Ref(H,-1); DL=Ref(L,-1);DC=Ref(C,-1);pd = (O+ DH+ DL + DC )/4;sd1 = (2*pd)-DH;sd2 = pd -(DH - DL);sd3 = Sd1 - (DH-DL); rd1 = (2*pd)-DL;rd2 = pd +(DH -DL);rd3 = rd1 +(DH-DL);H4 = (dH - dL) * 1.1 / 2 + dC;H3 = (dH - dL) * 1.1 / 4 + dC;h2 = (dH - dL) * 1.1 / 6 + dC;H1 = (dH - dL) * 1.1 / 12 + dC;L1 = dC - (dH - dL) * 1.1 / 12;L2 = dC - (dH - dL) * 1.1 / 6;L3 = dC - (dH - dL) * 1.1 / 4;L4 = dC - (dH - dL) * 1.1 / 2 ;//Plot (pd,"Pivot",colorBlue,styleDots);//Plot (rd1," R1 ",35,styleDots);//Plot (rd2," R2 ",35,styleDots);//Plot (rd3," R3 ",35,styleDots);//Plot (sd1," S1 ",4,styleDots);//Plot (Sd2," S2 ",4,styleDots);//Plot (Sd3," S3 ",4,8+16);/*style = IIf(ParamList("Chart style", "styleCandle|styleBar")=="styleCandle",64,128+4);Plot (C,Date ()+" close",1,style); //ENABLE THIS TO HAVE CANDLES AS WELL*/TimeFrameRestore();tgt_up = H4*5/1000 + H4;tgt_up2 = H4*10/1000 + H4;tgt_dn = L4-L4*5/1000;tgt_dn2 = L4-L4*10/1000;Title = EncodeColor(colorWhite)+ "LINKON'S PIVOT TRADING SYSTEM" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) + " - " + Date() +" - "//+ WriteIf(Col_action==colorGreen, EncodeColor(colorGreen)+"stay LONG","")+ WriteIf(Col_action==colorRed, EncodeColor(colorRed)+"stay SHORT","")+ WriteIf(Col_action==colorBlack, EncodeColor(colorYellow)+"No Trend","")+"\n"+ "Vol= "+ WriteVal(V) +WriteIf ( V > MA(V,26) ,EncodeColor(colorGreen)+" UP "+ (V/MA(V,26))*100 + " %", EncodeColor(colorRed)+" DOWN "+ (V/MA(V,26))*100 + " %")+ EncodeColor(colorGreen)+ "\n H4 : "+ EncodeColor(colorWhite)+H4+ EncodeColor(colorGreen)+ " tgt : "+ EncodeColor(colorWhite)+tgt_up +EncodeColor(colorGreen)+ " tgt2 : "+ EncodeColor(colorWhite)+tgt_up2 + EncodeColor(colorGreen)+ "\n H3 : "+ EncodeColor(colorWhite)+H3 + EncodeColor(colorGreen)+ "\n H2 : "+ EncodeColor(colorWhite)+H2 + EncodeColor(colorGreen)+ "\n H1 : "+ EncodeColor(colorWhite)+H1+ EncodeColor(colorGreen)+ "` Hi: "+ EncodeColor(colorWhite)+H+ EncodeColor(colorBlue)+ "\n Pivot : "+ EncodeColor(colorWhite)+pd + EncodeColor(colorYellow)+ "` Op: "+ EncodeColor(colorWhite)+O+ EncodeColor(colorAqua)+ "Cl: "+ EncodeColor(colorBrightGreen)+C+ EncodeColor(colorRed)+ "\n L1 : "+ EncodeColor(colorWhite)+L1+ EncodeColor(colorRed)+ "` Lo: "+ EncodeColor(colorWhite)+L+ EncodeColor(colorRed)+ "\n L2 : "+ EncodeColor(colorWhite)+L2+ EncodeColor(colorRed)+ "\n L3 : "+ EncodeColor(colorWhite)+L3+ EncodeColor(colorRed)+ "\n L4 : "+ EncodeColor(colorWhite)+L4+ EncodeColor(colorRed)+ " tgt : "+ EncodeColor(colorWhite)+tgt_dn + EncodeColor(colorRed)+ " tgt2 : "+ EncodeColor(colorWhite)+tgt_dn2;_SECTION_END();//Plot(6, "", IIf(PDI(7) > MDI(7) AND PDI(7) > 30,colorGreen,IIf (MDI(7) > PDI(7) AND MDI(7) > 30,colorRed,colorYellow)), styleOwnScale| styleArea|styleNoLabel,-0.5,100);_SECTION_BEGIN("EMA");Plot( EMA( Close, 34 ), "", IIf(EMA( Close, 34 ) > Ref(EMA( Close, 34 ),-1),colorGreen,colorRed),styleThick ); Plot( EMA( Close, 33 ), "", IIf(EMA( Close, 34 ) > Ref(EMA( Close, 34 ),-1),colorGreen,colorRed),styleThick+styleNoLabel ); Plot( EMA( Close, 32 ), "", IIf(EMA( Close, 34 ) > Ref(EMA( Close, 34 ),-1),colorGreen,colorRed),styleThick+styleNoLabel ); _SECTION_END(); |