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 ....
Try To Understand - asfa.alam 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 | // asfa.alam@yahoo.com // SetChartBkColor ( ParamColor ( "Panel Color" , colorLightGrey )); SetChartBkGradientFill ( ParamColor ( "Upper Chart" , colorLightGrey ), ParamColor ( "Lower Chart" , colorLightGrey )); _SECTION_BEGIN ( "KPAutoStop-KPA900 Trend" ); Disp2= ParamToggle ( "KPAutoStop-KPA900 Trend" , "Show|Hide" ,0); parmASStyle = ParamStyle ( "AutopStop Style" , styleDots | styleThick , maskAll ); parmASColor = ParamColor ( "AutoStop Color" , colorYellow ); parmPA900Style = ParamStyle ( "KP A900 Style" , styleLine | styleThick , maskAll ); parmPA900Color = ParamColor ( "KP A900 Color" , colorWhite ); if (Disp2){ Plot ( E_TSKPAUTOSTOP( High , Low , Close ) , "KP AutoStop" ,parmASColor, parmASStyle); Plot ( E_TSKPA900( Close ) , "KP A900" , parmPA900Color, parmPA900Style);} _SECTION_END (); _SECTION_BEGIN ( "KPStopLine-KPTriggerLine" ); Disp3= ParamToggle ( "KPStopLine-KPTriggerLine" , "Show|Hide" ,0); parmSLStyle = ParamStyle ( "KPStopLine Style" , styleLine | styleThick , maskAll ); parmSLColor = ParamColor ( "KPStopLine Color" , colorRed ); parmTLStyle = ParamStyle ( "KPTriggerLine Style" , styleLine | styleThick , maskAll ); parmTLColor = ParamColor ( "KPTriggerLine Color" , colorBlue ); sw = E_TSKPUPSELL( Open , High , Low , Close , Volume ); if (Disp3){ Plot ( E_TSKPSTOPLINE( High , Low , Close ) , "KPStopLine" , parmSLColor,parmSLStyle ); Plot ( tskp_triggerline, "KPTriggerLine" , parmTLColor,parmTLStyle ); } _SECTION_END (); _SECTION_BEGIN ( "KP Trigger Cloud" ); Var1=tskp_triggerline; Var2=E_TSKPA900( Close ); Color= IIf (Var1 >Var2, colorBlue , colorRed ); PlotOHLC (Var1,Var1,Var2,Var2, "Cloud" ,Color, styleCloud ); _SECTION_END (); _SECTION_BEGIN ( "KP Standard Error Bands" ); Disp12= ParamToggle ( "KP Standard Error Bands" , "Show|Hide" ,1); Periods= Param ( "Standard Error" ,30,3,200,1); Smooth= Param ( "Smooth" ,20,2,100,1); LRCurve= LinearReg ( C , periods ); MALRCurve= MA (LRCurve, Smooth); SEValue= StdErr ( C , periods ); SErrorAvg= MA (SEValue, Smooth); LowerBand= MALRCurve - SErrorAvg ; UpperBand= MALRCurve + SErrorAvg ; if (Disp12){ Plot (MALRCurve, "MidBand" , ParamColor ( "ColorMB" , colorViolet ), ParamStyle ( "StyleMB" , styleLine | styleThick )); Plot (UpperBand, "UpperBand" , ParamColor ( "ColorUp" , colorViolet ), ParamStyle ( "StyleUp" , styleDashed ,maskDefault)); Plot (LowerBand, "LowerBand" , ParamColor ( "ColorLo" , colorViolet ), ParamStyle ( "StyleLow" , styleDashed ,maskDefault)); PlotOHLC ( UpperBand,UpperBand,LowerBand,LowerBand, "Band" , ParamColor ( "Color" , colorTan ), styleCloud | styleNoLabel );} _SECTION_END (); _SECTION_BEGIN ( "KP TrendBias BackGround" ); //Plot Tone dummy = E_TSKPTRENDBIAS( High , Low , Close ); KPTB = tskp_sb; KPTBSlow = tskp_tbxavg; parmToneColorUp= ParamColor ( "Tone Color Up" , colorLightBlue ); parmToneColorDn= ParamColor ( "Tone Color Dn" , colorTan ); RibbonSize= Param ( "Ribbon Size" ,20,0.5,10,0.5); Plot ( RibbonSize, "Tone" , IIf (KPTB > KPTBSlow,parmToneColorUp,parmToneColorDn), styleOwnScale | styleArea | styleNoLabel ,0,10); _ |