|
PureBytes Links
Trading Reference Links
|
No, members' zone materials are for registered customers only.
Best regards,
Tomasz Janeczko
amibroker.com
----- Original Message -----
From: "shahariar4" <shahariar4@xxxxxxxxx>
To: <amibroker@xxxxxxxxxxxxxxx>
Sent: Saturday, February 28, 2009 6:42 AM
Subject: [amibroker] Re: Can anyone pls convert these Trendline codes into AFL ?
> Hi Tomasz Janeczko:
>
> Is it possible to post the code here?
>
> regards,
>
> Shahariar
>
> --- In amibroker@xxxxxxxxxxxxxxx, "Tomasz Janeczko" <groups@xxx>
> wrote:
>>
>> Hello,
>>
>> Automatic Trendline from Giorgos E. Siligardos TASC article were
> written long time ago.
>> See AmiBroker Members' Area.
>> http://www.amibroker.com/members/traders/11-2006.html
>>
>> Best regards,
>> Tomasz Janeczko
>> amibroker.com
>> ----- Original Message -----
>> From: "shahariar4" <shahariar4@xxx>
>> To: <amibroker@xxxxxxxxxxxxxxx>
>> Sent: Friday, February 27, 2009 8:38 PM
>> Subject: [amibroker] Can anyone pls convert these Trendline codes
> into AFL ?
>>
>>
>> > HI!
>> >
>> > May be i am asking for too many things here..but as a newbie i am
>> > getting many useful helps and insights from this great forum that
> on
>> > intervals i requestfor helps.
>> >
>> > Below are the tradestation and ensign codes of Autotrendline-one
> of
>> > the most talked about and witout any clear/good solution things
> of
>> > AFL world........it would hlep all the memebrs if any experts
> could
>> > convert any of the formulas into AFL;
>> >
>> >
>> > Thanks,
>> >
>> >
>> >
>> > Tradestation code
>> > ....................
>> >
>> > Indicator: Siligardos Autotrend
>> > inputs:
>> > Threshold( 30 ),
>> > Lookback( 300 ) ;
>> > variables:
>> > TrendLineBuilt( false ),
>> > PivotsFound( 0 ),
>> > f( 0 ),
>> > b( 0 ),
>> > x( 0 ),
>> > y( 0 ),
>> > F1( 0 ),
>> > F2( 0 ),
>> > F3( 0 ),
>> > PF1( 0 ),
>> > PF2( 0 ),
>> > PF3( 0 ) ;
>> > arrays:
>> > PivotArray[500]( 0 ),
>> > PivotType[4]( 0 ),
>> > PivotPosition[4]( 0 ),
>> > SI[500]( 0 ) ;
>> > if LastBarOnChart then
>> > begin
>> > for x = 1 to Lookback
>> > begin
>> > PivotArray[x] = 0 ;
>> > end ;
>> > F1 = 1 ;
>> > F2 = F1 ;
>> > PF1 = Close[F1] ;
>> > PF2 = Close[F2] ;
>> > {find the first move greater than threshold percent}
>> > while ( 100 *AbsValue( PF1 - PF2 ) / MinList( PF1, PF2 )
>> > < Threshold and ( F2 < Lookback ) )
>> > begin
>> > F2 = F2 + 1 ;
>> > PF2 = Close[F2] ;
>> > end ;
>> > F3 = F2 ;
>> > PF3 = Close[F3] ;
>> > while F1 < Lookback
>> > begin
>> > while ( ( (100 * AbsValue( PF2 - PF3 )
>> > / MinList( PF2, PF3 ) < Threshold )
>> > or ( ( ( PF1 < PF2 ) and ( PF2 <= PF3 ) )
>> > or ( ( PF1>PF2) and ( PF2 >= PF3 ) ) ) )
>> > and ( F3 < Lookback ) )
>> > begin
>> > if ( ( ( PF1 < PF2 ) and ( PF2 <= PF3 ) )
>> > or ( ( PF1 > PF2 ) and ( PF2 >= PF3 ) ) )
>> > then
>> > begin
>> > F2 = F3 ;
>> > PF2 = Close[F2] ;
>> > end ;
>> > F3 = F3 + 1 ;
>> > PF3 = Close[F3] ;
>> > end ;
>> > if ( ( F3 = Lookback ) ) then
>> > begin
>> > F1 = F2 ;
>> > F2 = F3 ;
>> > PF1 = Close[F1] ;
>> > PF2 = Close[F2] ;
>> > end ;
>> > if ( F2 > F1 ) then
>> > begin
>> > PivotArray[F2] = 1 ;
>> > F1 = F2 ;
>> > F2 = F3 ;
>> > PF1 = Close[F1] ;
>> > PF2 = Close[F2] ;
>> > end ;
>> > end ;
>> > PivotArray[1] = 0 ;
>> > PivotArray[Lookback] = 0 ;
>> > end ;
>> > if LastBarOnChart then
>> > begin
>> > x = 1 ;
>> > y = 1 ;
>> > while ( y < Lookback )
>> > begin
>> > y = y + 1 ;
>> > if ( ( PivotArray[ y ] <> 0 )
>> > or ( y = Lookback ) )
>> > then
>> > begin
>> > b = ( Close[y] - Close[x] ) / ( y - x ) ;
>> > for f = x to y
>> > begin
>> > SI[f] = ( b * ( f - x ) + Close[x] ) ;
>> > end ;
>> > x = y ;
>> > end ;
>> > end ;
>> > F = 2 ;
>> > {locate pivots}
>> > PivotsFound = 0 ;
>> > while ( ( F < Lookback - 2 ) and ( PivotsFound < 4 ) )
>> > begin
>> > if ( ( SI[f] <= SI[ f + 1 ] )
>> > and ( SI[ f - 1 ] >= SI[f] ) )
>> > then
>> > begin
>> > PivotsFound = PivotsFound + 1 ;
>> > PivotType[ 5 - PivotsFound ] = + 1 ;
>> > PivotPosition[ 5 - PivotsFound ] = F ;
>> > end ;
>> > if ( ( SI[f] >= SI[ f + 1 ] )
>> > and (SI[ f - 1 ] <= SI[f] ) )
>> > then
>> > begin
>> > PivotsFound = PivotsFound + 1 ;
>> > PivotType[ 5 - PivotsFound ] = - 1 ;
>> > PivotPosition[ 5 - PivotsFound ] = f ;
>> > end ;
>> > F = F + 1 ;
>> > end ;
>> > if ( PivotsFound = 4 ) then
>> > begin
>> > if ( PivotType[2] = 1 )
>> > and ( PivotType[4] = 1 )
>> > and ( Close[ PivotPosition[2] ]
>> > < Close[ PivotPosition[4] ] )
>> > and ( MaxList( Close[ PivotPosition[2] ],
>> > Close[ PivotPosition[4] ] )
>> > < MaxList( High[ PivotPosition[4] ],Close[0] ) )
>> > then
>> > begin
>> > Value1 = TrendlineUp( Lookback,
>> > PivotPosition[2],PivotPosition[4] ) ;
>> > TrendlineBuilt = true ;
>> > end
>> > else if ( PivotType[2] = -1 )
>> > and ( PivotType[4] = -1 )
>> > and ( Close[ PivotPosition[2] ]
>> >> Close[ PivotPosition[4] ] )
>> > and ( MinList( Close[ PivotPosition[2] ],
>> > Close[ PivotPosition[4] ] ) > MinList
>> > ( Close[ PivotPosition[4] ], Close[0] ) )
>> > then
>> > begin
>> > Value1 = TrendlineDown( Lookback,
>> > PivotPosition[2], PivotPosition[4] );
>> > TrendlineBuilt = true ;
>> > end
>> > else
>> > Print( " Lookback trendline can be drawn,",
>> > "Threshold = ", Threshold ) ;
>> > end ;
>> > if ( PivotsFound >= 3 ) and TrendLineBuilt = false then
>> > begin
>> > if ( PivotType[1] = 1 )
>> > and ( PivotType[3] = 1 )
>> > and ( Close[ PivotPosition[1] ] <
>> > Close[ PivotPosition[3] ] )
>> > and ( MaxList( Close[ PivotPosition[1] ],
>> > Close[ PivotPosition[3] ] ) < MaxList(
>> > Close[ PivotPosition[3] ], Close[0] ) )
>> > then
>> > Value1 = TrendlineUp( Lookback,
>> > PivotPosition[1], PivotPosition[3] )
>> > else if ( PivotType[1] = -1 )
>> > and ( PivotType[3] = -1 )
>> > and ( Close[PivotPosition[1] ] >
>> > Close[ PivotPosition[3] ] )
>> > and ( MinList( Close[ PivotPosition[1] ],
>> > Close[ PivotPosition[3] ] ) > MinList(
>> > Close[ PivotPosition[3] ], Close[0] ) )
>> > then
>> > Value1 = TrendlineDown( Lookback,
>> > PivotPosition[1], PivotPosition[3] )
>> > else
>> > Print( "No trendline can be drawn,",
>> > "Threshold = ", Threshold ) ;
>> > end
>> > else
>> > Print( "No trendline can be drawn,",
>> > "Threshold = ", Threshold ) ;
>> > if ( PivotsFound < 3 ) then
>> > Print( "No Point Milestones Can Be Found,",
>> > "Threshold = ", Threshold ) ;
>> > end ;
>> >
>> >
>> >
>> >
>> >
>> > enSign code
>> > ...........
>> >
>> > /***************************************
>> > Provided By : eSignal (c) Copyright 2006
>> > Description: Building Automatic Trendlines
>> > by Giorgos E. Siligardos, PhD
>> > Version 1.0 08/31/2006
>> > Notes:
>> > * Nov 2006 Issue of Stocks and Commodities Magazine
>> > * SI indicator is modified from EFS Library formula:
>> > RealTimeSwings.efs (http://kb.esignalcentral.com/article.asp?
>> > article=1450&p=4)
>> > Formula Parameters: Default:
>> > * Swing: # of Bars 0
>> > This is the minimum number of bars required to define a
>> > swing point. This number is for both sides of the swing
>> > point (i.e. 5 bars on the left and right of the swing bar).
>> > * Swing: Wave Type % Change in Price
>> > (% Retracement, % Change in Price)
>> > * Swing: Wave Percentage 20
>> > The number 5 will be treated as 5.0%. The number 0.05 will
>> > be treated as 0.0005%.
>> > * Line Thickness 2
>> > * Confirmed Swing Line Color Blue
>> > * Developing Swing Line Color Red
>> > * Display Swing Labels False
>> > * Display % Retracement Label False
>> > * Number of Historical Labels 100
>> > * Number of Historical Trend Lines 10
>> > * Display Trend Lines True
>> > * Trend Line Thickness 2
>> > * Trend Line Color Maroon
>> > Notes:
>> > 1.1 3/24/2004
>> > * Added labels to display point value, % retracement, number of
> bars
>> > and price level of swings. The number of historical labels is set
>> > to 100 for performance reasons. Increase this number to view more
>> > historical labels.
>> > * Added labels to display current swing's % retracement.
>> > Description of Swing Labels:
>> > At Swing Highs - Points (% Retracement)
>> > Price (Number of Bars)
>> > At Swing Lows - Price (Number of Bars)
>> > Points (% Retracement)
>> > *****************************************************************/
>> > function preMain() {
>> > setPriceStudy(true);
>> > setStudyTitle("Automatic Trendlines ");
>> > setShowCursorLabel(false);
>> > setShowTitleParameters(false);
>> >
>> > var fp1 = new FunctionParameter("nNum", FunctionParameter.NUMBER);
>> > fp1.setName("Swing: # of Bars");
>> > fp1.setLowerLimit(0);
>> > fp1.setDefault(0);
>> >
>> > var fp2a = new FunctionParameter("sWaveType",
>> > FunctionParameter.STRING);
>> > fp2a.setName("Swing: Wave Type");
>> > fp2a.addOption("% Retracement");
>> > fp2a.addOption("% Change in Price");
>> > fp2a.setDefault("% Change in Price");
>> >
>> > var fp2 = new FunctionParameter("nRet", FunctionParameter.NUMBER);
>> > fp2.setName("Swing: Wave Percentage");
>> > fp2.setLowerLimit(0);
>> > fp2.setDefault(20);
>> > var fp5 = new FunctionParameter("nThickness",
>> > FunctionParameter.NUMBER);
>> > fp5.setName("Line Thickness");
>> > fp5.setLowerLimit(1);
>> > fp5.setDefault(2);
>> > var fp6 = new FunctionParameter("cColor1",
> FunctionParameter.COLOR);
>> > fp6.setName("Confirmed Swing Line Color");
>> > fp6.setDefault(Color.blue);
>> > var fp7 = new FunctionParameter("cColor2",
> FunctionParameter.COLOR);
>> > fp7.setName("Developing Swing Line Color");
>> > fp7.setDefault(Color.red);
>> > var fp8 = new FunctionParameter("bSwingLabels",
>> > FunctionParameter.STRING);
>> > fp8.setName("Display Swing Labels");
>> > fp8.addOption("True");
>> > fp8.addOption("False");
>> > fp8.setDefault("False");
>> > var fp9 = new FunctionParameter("bRetLabel",
>> > FunctionParameter.STRING);
>> > fp9.setName("Display \% Retracement Label");
>> > fp9.addOption("True");
>> > fp9.addOption("False");
>> > fp9.setDefault("False");
>> > var fp10 = new FunctionParameter("nNumLabels",
>> > FunctionParameter.NUMBER);
>> > fp10.setName("Number of Historical Labels");
>> > fp10.setLowerLimit(1);
>> > fp10.setDefault(100);
>> > var fp11 = new FunctionParameter("nNumATL",
> FunctionParameter.NUMBER);
>> > fp11.setName("Number of Historical Trend Lines");
>> > fp11.setLowerLimit(1);
>> > fp11.setDefault(10);
>> > var fp12 = new FunctionParameter("bTrendLines",
>> > FunctionParameter.STRING);
>> > fp12.setName("Display Trend Lines");
>> > fp12.addOption("True");
>> > fp12.addOption("False");
>> > fp12.setDefault("True");
>> > var fp13 = new FunctionParameter("nTLThickness",
>> > FunctionParameter.NUMBER);
>> > fp13.setName("Trend Line Thickness");
>> > fp13.setLowerLimit(1);
>> > fp13.setDefault(2);
>> > var fp14 = new FunctionParameter("cTLColor",
> FunctionParameter.COLOR);
>> > fp14.setName("Trend Line Color");
>> > fp14.setDefault(Color.maroon);
>> > }
>> > var bEdit = true; // tracks change of user inputs
>> > var cntr = 0; // image counter for swing lines
>> > var bInit = false; // initialization routine completion
>> > var nNumBars = null; // number of bars for defining swings
>> > var sWaveTypeG = null; // wave type for confirming swings
>> > var nRetpcnt = null; // percent retracement for defining swings
>> > var nThicknessG = null; // line thickness
>> > var cColorcon = null; // confirmed swing color
>> > var cColordev1 = null; // developing swing color
>> > var sHSource = null; // price source for high swings
>> > var sLSource = null; // price source for low swings
>> > var x1a = null; // x-coordinate for point a of developing line 1
>> > var x1b = null; // x-coordinate for point b of developing line 1
>> > var x2a = null; // x-coordinate for point a of developing line 2
>> > var x2b = null; // x-coordinate for point b of developing line 2
>> > var y1a = null; // y-coordinate for point a of developing line 1
>> > var y1b = null; // y-coordinate for point b of developing line 1
>> > var y2a = null; // y-coordinate for point a of developing line 2
>> > var y2b = null; // y-coordinate for point b of developing line 2
>> > var vLastSwing = null; // tracking swing type of last confirmed
> swing
>> > var nScntr = 0; // bar counter for swing confirmation
>> > var nLcntr = 0; // label counter for swing labels
>> > var aSwingsIndex = new Array(6); // tracks current swings indexes
> for
>> > last 5 swings
>> > var aSwingsPrice = new Array(6); // tracks current swing prices
> for
>> > last 5 swings
>> > var nNumLabelsG = null; // max number of swing labels
>> > var bSwingLabelsG = null; // controls swing labels display
>> > var vSpace = null; // spacer for Labels
>> > // Automatic Trendline variables
>> > var nTcntr = 0; // counter for trendline TagIDs.
>> > var bDrawn = false; // flag for tracking the most recently drawn
> ATL
>> > var aSwingsType = new Array(6); // 1 = peak, -1 = trough
>> > var nNumATLG = null; // global var for ATL limit.
>> > var bTrendLinesG = null; // global var for Trend Line display
>> > var nTLThicknessG = null; // global var for Trend Line thickness
>> > var cTLColorG = null; // global var for Trend Line color
>> > function main(nNum, sWaveType, nRet, nThickness, cColor1, cColor2,
>> > bSwingLabels, bRetLabel, nNumLabels,
>> > nNumATL, bTrendLines, nTLThickness, cTLColor) {
>> > var nState = getBarState();
>> > var nIndex = getCurrentBarIndex();
>> > var h = high(0);
>> > var l = low(0);
>> > var c = close(0);
>> > var i = 0;
>> > // record keeping
>> > if (nState == BARSTATE_NEWBAR) {
>> > if (cntr > 500) cntr = 0; // limits number of swing lines to 500.
>> > if (x1a != null) x1a -= 1;
>> > if (x1b != null) x1b -= 1;
>> > if (x2a != null) x2a -= 1;
>> > if (x2b != null) x2b -= 1;
>> > i = 0;
>> > for (i = 0; i < 6; ++i) {
>> > if (aSwingsIndex[i] != null) aSwingsIndex[i] -= 1;
>> > }
>> > }
>> > //Initialization
>> > if (bEdit == true) {
>> > if (nNumBars == null) nNumBars = nNum;
>> > if (sWaveTypeG == null) sWaveTypeG = sWaveType;
>> > if (nRetpcnt == null) nRetpcnt = nRet/100;
>> > if (nThicknessG == null) nThicknessG = nThickness;
>> > if (cColorcon == null) cColorcon = cColor1;
>> > if (cColordev1 == null) cColordev1 = cColor2;
>> > if (sHSource == null) sHSource = "High";
>> > if (sLSource == null) sLSource = "Low";
>> > if (x1a == null) x1a = 0;
>> > if (y1a == null) y1a = c;
>> > if (nNumLabelsG == null) nNumLabelsG = nNumLabels;
>> > if (bSwingLabelsG == null) bSwingLabelsG = bSwingLabels;
>> > if (nNumATLG == null) nNumATLG = nNumATL;
>> > if (bTrendLinesG == null) bTrendLinesG = bTrendLines;
>> > if (nTLThicknessG == null) nTLThicknessG = nTLThickness;
>> > if (cTLColorG == null) cTLColorG = cTLColor;
>> > nLcntr = nNumLabels;
>> > // Initialize vSpace
>> > var OM = (close(0) * 0.005); //offset multiplier
>> > var sInterval = getInterval();
>> > if (sInterval == "D") OM = OM*3;
>> > if (sInterval == "W") OM = OM*20;
>> > if (sInterval == "M") OM = OM*30;
>> > var TimeFrame = parseInt(sInterval);
>> > if (TimeFrame >= 1 && TimeFrame <= 5) {
>> > OM = OM*(TimeFrame/15);
>> > } else if (TimeFrame > 5 && TimeFrame <= 15) {
>> > OM = OM*(TimeFrame/10);
>> > }else if (TimeFrame > 15) {
>> > OM = OM*(TimeFrame/5);
>> > }
>> > if (!isNaN(TimeFrame)) OM = (OM/TimeFrame)*3;
>> > vSpace = OM;
>> > bEdit = false;
>> > }
>> > if (bInit == false) {
>> > bInit = Init(h,l,c);
>> > }
>> > // Swings
>> > if (nState == BARSTATE_NEWBAR) {
>> > nScntr += 1;
>> > // confirmed Swings
>> > if (nScntr > nNumBars) {
>> > confirmSwings();
>> > if (bInit == true) {
>> > doLine("dev1");
>> > doLine("dev2");
>> > }
>> > }
>> > }
>> >
>> > checkSwings(h, l);
>> > if (bInit == true) {
>> > doLine("dev1");
>> > doLine("dev2");
>> > }
>> > // % Retracement Label
>> > var nWaveRet = (Math.abs(y2a-y2b) / Math.abs(y1b-y1a))*100;
>> > if (x1b == x2b) nWaveRet = 0.0;
>> > if (bRetLabel == "True") {
>> > var sWaveRetText = " \%Retraced: " + nWaveRet.toFixed(2) + " ";
>> > drawTextRelative(2, y2b, sWaveRetText, cColordev1, null,
>> > Text.BOLD|Text.LEFT|Text.VCENTER|Text.FRAME, "Arial", 10, "Ret");
>> > }
>> > // Automatic Trendlines (ATL)
>> > if (nState == BARSTATE_NEWBAR && bDrawn == false) autoTL();
>> >
>> > return;
>> > }
>> > /****** Functions *****/
>> > /***********************/
>> > function Init(h,l,c) {
>> > if (close(-(nNumBars*2)) == null) {
>> > return false;
>> > } else {
>> > // Find initial line.
>> > // The initial line will be the first high or low swing,
>> > // which has the greater difference of the swing point to
>> > // the close of the first bar.
>> > var Index = getCurrentBarIndex()
>> > var hIndex = Index;
>> > var lIndex = Index;
>> > var j = nNumBars*2;
>> > if (j == 0) j = 1;
>> > var aHigh = getValue(sHSource, 0, -j);
>> > var aLow = getValue(sLSource, 0, -j);
>> > var vHH = aHigh[0];
>> > var vLL = aLow[0];
>> > var tempIndex = Index;
>> > var i = 0;
>> > for (i = 0; i < j; ++i) {
>> > if (aHigh[i] > vHH) {
>> > vHH = aHigh[i];
>> > hIndex = tempIndex;
>> > }
>> > if (aLow[i] < vLL) {
>> > vLL = aLow[i];
>> > lIndex = tempIndex;
>> > }
>> > tempIndex -= 1;
>> > }
>> > if (vHH - y1a > y1a - vLL) {
>> > vLastSwing = "L";
>> > x1b = hIndex - Index;
>> > y1b = vHH;
>> > doLine("dev1");
>> > x2a = x1b;
>> > y2a = vHH;
>> > x2b = 0;
>> > y2b = c;
>> > doLine("dev2");
>> > } else {
>> > vLastSwing = "H";
>> > x1b = lIndex - Index;
>> > y1b = vLL;
>> > doLine("dev1");
>> > x2a = x1b;
>> > y2a = vLL;
>> > x2b = 0;
>> > y2b = c;
>> > doLine("dev2");
>> > }
>> > }
>> >
>> > if (vLastSwing != null) {
>> > return true;
>> > } else {
>> > return false;
>> > }
>> > }
>> > function doLine(sType) {
>> > //confirmed
>> > if (sType == "con") {
>> > cntr += 1;
>> > nTcntr += 1;
>> > bDrawn = false; // reset ATL drawing
>> > if (nTcntr > nNumATLG) nTcntr = 1;
>> > drawLineRelative(x1a, y1a, x1b, y1b, PS_SOLID,
>> > nThicknessG, cColorcon, sType+cntr);
>> > //Swing Labels
>> > if (bSwingLabelsG == "True") doSwingLabels(sType);
>> > x1a = x2a;
>> > y1a = y2a;
>> > x1b = x2b;
>> > y1b = y2b;
>> > x2a = x1b;
>> > y2a = y1b;
>> > aSwingsIndex.pop();
>> > aSwingsIndex.unshift(x1b);
>> > aSwingsPrice.pop();
>> > aSwingsPrice.unshift(y1b);
>> > if (vLastSwing == "H") {
>> > y2b = getValue(sHSource);
>> > aSwingsType.pop();
>> > aSwingsType.unshift(1); // record type of swing for ATL
>> > }
>> > if (vLastSwing == "L") {
>> > y2b = getValue(sLSource);
>> > aSwingsType.pop();
>> > aSwingsType.unshift(-1); // record type of swing for ATL
>> > }
>> > }
>> > // dev1
>> > if (sType == "dev1") {
>> > drawLineRelative(x1a, y1a, x1b, y1b, PS_SOLID,
>> > nThicknessG, cColordev1, sType);
>> > aSwingsIndex[0] = x1b;
>> > aSwingsPrice[0] = y1b;
>> > //Swing Labels
>> > if (bSwingLabelsG == "True") doSwingLabels(sType);
>> > }
>> >
>> > // dev2
>> > if (sType == "dev2") {
>> > if (x2a != 0 && x2a != x2b) {
>> > if ( (vLastSwing == "H" && sHSource == "Close") || (vLastSwing
> == "L"
>> > && sLSource == "Close") ) {
>> > x2b = 0;
>> > y2b = close();
>> > }
>> > drawLineRelative(x2a, y2a, x2b, y2b, PS_SOLID,
>> > nThicknessG, cColordev1, sType);
>> > } else {
>> > removeLine(sType);
>> > }
>> > }
>> >
>> > return;
>> > }
>> > function doSwingLabels(sType) {
>> > var sTagNamePts = "SwingPtsDev";
>> > var sTagNameRet = "SwingRetDev";
>> > var sTagNamePr = "SwingPrDev";
>> > var sTagNameBars = "SwingBarsDev";
>> > var nWaveRet = ((Math.abs(aSwingsPrice[1]-aSwingsPrice[0]) /
> Math.abs
>> > (aSwingsPrice[1]-aSwingsPrice[2])) * 100);
>> > var nBars = (aSwingsIndex[0] - aSwingsIndex[1]);
>> >
>> > if (sType == "con") {
>> > //nWaveRet = (Math.abs(y2a-y2b) / Math.abs(y1b-y1a));
>> > nLcntr += 1;
>> > if (nLcntr > nNumLabelsG) nLcntr = 1;
>> > sTagNamePts = "SwingPts"+sType+nLcntr;
>> > sTagNameRet = "SwingRet"+sType+nLcntr;
>> > sTagNamePr = "SwingPr"+sType+nLcntr;
>> > sTagNameBars = "SwingBars"+sType+nLcntr;
>> > }
>> >
>> > var pts = (y1b-y1a).toFixed(2);
>> >if (y1a < y1b) { // swing high
>> > drawTextRelative(x1b, y1b+vSpace, pts + " ", eval
> ("cColor"+sType),
>> > null,
>> > Text.BOTTOM|Text.RIGHT, "Arial", 10, sTagNamePts); // Points
>> > if (!isNaN(nWaveRet)) {
>> > drawTextRelative(x1b, y1b+vSpace, "| ("+nWaveRet.toFixed(2)+"\
> %)",
>> > eval("cColor"+sType), null,
>> > Text.BOTTOM|Text.LEFT, "Arial", 10, sTagNameRet); // % Retracement
>> > }
>> > drawTextRelative(x1b, y1b+vSpace, y1b.toFixed(2) + " ", eval
>> > ("cColor"+sType), null,
>> > Text.TOP|Text.RIGHT, "Arial", 10, sTagNamePr); // Price
>> > if (!isNaN(nBars)) {
>> > drawTextRelative(x1b, y1b+vSpace, "| ("+nBars+" Bars)", eval
>> > ("cColor"+sType), null,
>> > Text.TOP|Text.LEFT, "Arial", 10, sTagNameBars); // Number of Bars
>> > }
>> > } else { // swing low
>> > drawTextRelative(x1b, y1b-vSpace, pts + " ", eval
> ("cColor"+sType),
>> > null,
>> > Text.TOP|Text.RIGHT, "Arial", 10, sTagNamePts); // Points
>> > if (!isNaN(nWaveRet)) {
>> > drawTextRelative(x1b, y1b-vSpace, "| ("+nWaveRet.toFixed(2)+"\
> %)",
>> > eval("cColor"+sType), null,
>> > Text.TOP|Text.LEFT, "Arial", 10, sTagNameRet); // % Retracement
>> > }
>> > drawTextRelative(x1b, y1b-vSpace, y1b.toFixed(2) + " ", eval
>> > ("cColor"+sType), null,
>> > Text.BOTTOM|Text.RIGHT, "Arial", 10, sTagNamePr); // Price
>> > if (!isNaN(nBars)) {
>> > drawTextRelative(x1b, y1b-vSpace, "| ("+nBars+" Bars)", eval
>> > ("cColor"+sType), null,
>> > Text.BOTTOM|Text.LEFT, "Arial", 10, sTagNameBars); // Number of
> Bars
>> > }
>> > }
>> > return;
>> > }
>> > function confirmSwings() {
>> > if (x1b != x2b) { // underdeveloped dev1 line
>> > if (sWaveTypeG == "% Retracement") {
>> > var nWave = (Math.abs(y2a-y2b) / Math.abs(y1b-y1a));
>> > } else {
>> > var nWave = (Math.abs(y2a-y2b) / y1b);
>> > }
>> > if (vLastSwing == "L" && nWave >= nRetpcnt ) {
>> > // Swing High
>> > nScntr = 0;
>> > vLastSwing = "H";
>> > doLine("con");
>> > } else if (vLastSwing == "H" && nWave >= nRetpcnt ) {
>> > // Swing Low
>> > nScntr = 0;
>> > vLastSwing = "L";
>> > doLine("con");
>> > }
>> > }
>> >
>> > return;
>> > }
>> > function checkSwings(h, l) {
>> > // dev1
>> > if (vLastSwing == "L") { // find Swing High
>> > if (h >= y1b) { // higher high, no swing
>> > nScntr = 0;
>> > x1b = 0;
>> > y1b = h;
>> > doLine("dev1");
>> > x2a = 0;
>> > y2a = h;
>> > }
>> > } else if (vLastSwing == "H") { // find Swing Low
>> > if (l <= y1b) { // Lower low, no swing
>> > nScntr = 0;
>> > x1b = 0;
>> > y1b = l;
>> > doLine("dev1");
>> > x2a = 0;
>> > y2a = l;
>> > }
>> > }
>> > // dev2
>> > if (nScntr == 0) {
>> > x2b = 0;
>> > if (vLastSwing == "H") y2b = h;
>> > if (vLastSwing == "L") y2b = l;
>> > } else {
>> > if (vLastSwing == "H" && h >= y2b) {
>> > y2b = h; x2b = 0;
>> > } else if (vLastSwing == "L" && l <= y2b) {
>> > y2b = l; x2b = 0;
>> > }
>> > }
>> > return;
>> > }
>> > function autoTL() { // draw Automatic Trendlines
>> > if (bTrendLinesG == "False" || getBarState() != BARSTATE_NEWBAR)
>> > return;
>> >
>> > if (aSwingsIndex[4] == null) return; // not enough confirmed
> swings
>> > yet
>> > var bCond = false; // condition flag
>> > var nATLx1 = 0; // x-coordinate for start of ray
>> > var nATLx2 = 0; // x-coordinate for second point of ray
>> > var nATLy1 = null; // y-coordinate for start of ray
>> > var nATLy2 = null; // y-coordinate for second point of ray
>> > var sATL_ID = "ATL" + nTcntr; // tagID for ATL
>> > var nIndex = getCurrentBarIndex();
>> >
>> > var P1 = aSwingsType[5];
>> > var P2 = aSwingsType[4];
>> > var P3 = aSwingsType[3];
>> > var P4 = aSwingsType[2];
>> >
>> > // Condition 1
>> > if (P4 == 1 && P2 == 1 && aSwingsPrice[4] < aSwingsPrice[2]) {
>> > if (atlHigh(aSwingsIndex[4], aSwingsIndex[2]) < high(0)) {
>> > nATLx1 = aSwingsIndex[4];
>> > nATLx2 = aSwingsIndex[2];
>> > nATLy1 = aSwingsPrice[4];
>> > nATLy2 = aSwingsPrice[2];
>> > sATL_ID += "_h";
>> > bCond = true;
>> > }
>> > }
>> >
>> > // Condition 2
>> > if (bCond == false) {
>> > if (P4 == -1 && P2 == -1 && aSwingsPrice[4] > aSwingsPrice[2]) {
>> > if (atlLow(aSwingsIndex[4], aSwingsIndex[2]) > low(0)) {
>> > nATLx1 = aSwingsIndex[4];
>> > nATLx2 = aSwingsIndex[2];
>> > nATLy1 = aSwingsPrice[4];
>> > nATLy2 = aSwingsPrice[2];
>> > sATL_ID += "_l";
>> > bCond = true;
>> > }
>> > }
>> > }
>> >
>> > // Condition 3
>> > if (bCond == false) {
>> > if (P3 == 1 && P1 == 1 && aSwingsPrice[5] < aSwingsPrice[3]) {
>> > if (atlHigh(aSwingsIndex[5], aSwingsIndex[3]) < atlHigh
> (aSwingsIndex
>> > [3], 0)) {
>> > nATLx1 = aSwingsIndex[5];
>> > nATLx2 = aSwingsIndex[3];
>> > nATLy1 = aSwingsPrice[5];
>> > nATLy2 = aSwingsPrice[3];
>> > sATL_ID += "_h";
>> > bCond = true;
>> > }
>> > }
>> > }
>> >
>> > // Condition 4
>> > if (bCond == false) {
>> > if (P3 == -1 && P1 == -1 && aSwingsPrice[5] > aSwingsPrice[3]) {
>> > if (atlLow(aSwingsIndex[5], aSwingsIndex[3]) > atlLow(aSwingsIndex
>> > [3], 0)) {
>> > nATLx1 = aSwingsIndex[5];
>> > nATLx2 = aSwingsIndex[3];
>> > nATLy1 = aSwingsPrice[5];
>> > nATLy2 = aSwingsPrice[3];
>> > sATL_ID += "_l";
>> > bCond = true;
>> > }
>> > }
>> > }
>> >
>> >
>> > // draw trend line
>> > if (nATLy1 != null && nATLy2 != null && bCond == true) {
>> > drawRay(nATLx1, nATLy1, nATLx2, nATLy2, sATL_ID);
>> > bDrawn = true;
>> > }
>> >
>> > return;
>> > }
>> > function atlHigh(x1, x2) {
>> > // returns highest high between bar indexes x1 and x2
>> > // where x2 is most recent index.
>> > var nH = high(x1);
>> >
>> > for (var i = x1; i <= x2; i++) {
>> > nH = Math.max(nH, high(i));
>> > }
>> >
>> > return nH;
>> > }
>> > function atlLow(x1, x2) {
>> > // returns Lowest low between bar indexes x1 and x2
>> > // where x2 is most recent index.
>> > var nL = low(x1);
>> >
>> > for (var i = x1; i <= x2; i++) {
>> > nL = Math.min(nL, low(i));
>> > }
>> > return nL;
>> > }
>> > function getSlope(x1, y1, x2, y2) {
>> > return (y2 - y1) / (x2 - x1);
>> > }
>> > function drawRay(x1, y1, x2, y2, sID) {
>> > var x1_ray = x1;
>> > var y1_ray = y1;
>> >
>> > var nSlope = getSlope(x1, y1, x2, y2);
>> >
>> > // draw ray from bar with greatest slope factor between swings.
>> > var j = x1;
>> > var nEnd = x2;
>> >
>> > if (nSlope > 0) { // up trend
>> > for(j; j <= nEnd; j++) {
>> > var nTempSlope = getSlope(j, low(j), x2, y2);
>> > if (nTempSlope > nSlope) {
>> > nSlope = nTempSlope;
>> > x1_ray = j;
>> > y1_ray = low(j);
>> > }
>> > }
>> > } else if (nSlope < 0) { // down trend
>> > for(j; j <= nEnd; j++) {
>> > var nTempSlope = getSlope(j, high(j), x2, y2);
>> > if (nTempSlope < nSlope) {
>> > nSlope = nTempSlope;
>> > x1_ray = j;
>> > y1_ray = high(j);
>> > }
>> > }
>> > }
>> >
>> > var nSlopeAdj = nSlope * 500;
>> > y2 += nSlopeAdj;
>> > x2 += 500;
>> >
>> > drawLineRelative(x1_ray, y1_ray, x2, y2, PS_SOLID,
>> > nTLThicknessG, cTLColorG, sID);
>> > return;
>> > }
>> >
>> >
>> >
>> >
>> >
>> >
>> > ------------------------------------
>> >
>> > **** IMPORTANT PLEASE READ ****
>> > This group is for the discussion between users only.
>> > This is *NOT* technical support channel.
>> >
>> > TO GET TECHNICAL SUPPORT send an e-mail directly to
>> > SUPPORT {at} amibroker.com
>> >
>> > TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
>> > http://www.amibroker.com/feedback/
>> > (submissions sent via other channels won't be considered)
>> >
>> > For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
>> > http://www.amibroker.com/devlog/
>> >
>> > Yahoo! Groups Links
>> >
>> >
>> >
>>
>
>
>
>
> ------------------------------------
>
> **** IMPORTANT PLEASE READ ****
> This group is for the discussion between users only.
> This is *NOT* technical support channel.
>
> TO GET TECHNICAL SUPPORT send an e-mail directly to
> SUPPORT {at} amibroker.com
>
> TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
> http://www.amibroker.com/feedback/
> (submissions sent via other channels won't be considered)
>
> For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
> http://www.amibroker.com/devlog/
>
> Yahoo! Groups Links
>
>
>
------------------------------------
**** IMPORTANT PLEASE READ ****
This group is for the discussion between users only.
This is *NOT* technical support channel.
TO GET TECHNICAL SUPPORT send an e-mail directly to
SUPPORT {at} amibroker.com
TO SUBMIT SUGGESTIONS please use FEEDBACK CENTER at
http://www.amibroker.com/feedback/
(submissions sent via other channels won't be considered)
For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG:
http://www.amibroker.com/devlog/
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/amibroker/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/amibroker/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:amibroker-digest@xxxxxxxxxxxxxxx
mailto:amibroker-fullfeatured@xxxxxxxxxxxxxxx
<*> To unsubscribe from this group, send an email to:
amibroker-unsubscribe@xxxxxxxxxxxxxxx
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
|