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 ....
Scale for Amibroker (AFL)
Copy & Paste Friendly
Back
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\\Scale//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//
DayO = TimeFrameGetPrice( "O", inDaily );
DayO=LastValue(DayO);
UpDown=Param("Scale Slider",-0,-3000,3000,1);
for (i = 0; i <BarCount; i++)
Offset = 30;
WW=Param("Scale Width",1,2,60);
Extention=WW;
GapDay = (Day()!= Ref(Day(), -1)) OR BarIndex() == 0;
y0 = StrToNum(NumToStr(ValueWhen(GapDay , Ref(O,-0))));
O420 = LineArray(0, y0, (BarCount-1), y0);
GapDay = (Day()!= Ref(Day(), 1)) OR BarIndex() == 0;
y0 = StrToNum(NumToStr(ValueWhen(GapDay , Ref(C,-0))));
C420 = LineArray(0, y0, (BarCount-1), y0);
for( i = BarCount-(LastValue(GapDay)+1); i < BarCount; i++)
trendcolor = IIf(DayO >C420 , colorBrightGreen, colorRed);
PlotText ( "0", BarCount, LastValue(DayO), colorWhite);
style = ParamStyle(" Scale style",styleLine,maskAll);
Plot(LineArray(i-Offset, DayO+UpDown, BarCount, DayO+UpDown,1), "", trendcolor,style ,Null, Null, Offset,0,Extention);
GfxSetBkColor(colorCustom16);
GfxSetTextColor(colorBlack);
GfxSelectFont("Arial",12,700 );
GfxTextOut("Gap= "+(O420-C420),2,550);
TimeFrameRestore();
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\\Scale//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^//
See marketlogy.com for unique AFL