Hi guys Here's something from Elite Trader that someone here would be interested in, I'm sure of it. Problem is, it's in Easy Language Code (That's the TradeStation code, right?), and I don't know how to port this.
This looks like a very useful bit of code for people trading intra day. To see what thsi code does, please go to this page at EliteTrader and click on the link within the post at the top of the screen. It's benign, just a screenshot. http://www.elitetrader.com/vb/showthread.php? s=&postid=1544028#post1544028 Note the small horizontal red and blue lines that indicate local highs and lows on the chart. That is something I would love to have on my charts... Too bad I don't know EL. So... is there anyone here who would want that on their chart and would be able to port this code? Or, does anyone know of some available AFL code that does this same thing? Thanks a LOT to anyone willing and able to take this on. All I can offer in return is a bit of code from Jose Silva, something that he made for Metastock but he ported it for me; it calculates the slope of a line in a way that sort of makes it independent of scaling. I find it useful... -------------------------------------------------------------- [LegacyColorValue = true]; { _SHME_Dynamic_SR - draw dynamic s/rlines for the period - periods auto calculated } {Programmer: Avery T. Horton, Jr. aka TheRumpledOne} inputs: iMode("No"), { if "auto" code sets xPeriods, if not "auto" code uses iPeriods} iPeriods(05), HighColor( red), LowColor( blue) ; variables: xPeriods(60), xInterval(0), sFirstPass(true), HavePrevLines( false ), TLHigh( 0 ), TLLow( 0 ), PushHigh( 0 ), PushLow( 0 ), OldPushHigh( 0 ), OldPushLow( 0 ), PrevPushHigh( 0 ), PrevPushLow( 0 ) ; {first time through} if sFirstPass then begin sFirstPass = false; {bar test} If bartype = 4 then xInterval = 94 else If bartype = 3 then xInterval = 93 else If bartype = 2 then xInterval = 92 else If bartype = 1 then begin xInterval = BarInterval; end; { If bartype = 1 } {mode test} If iMode <> "Auto" and iMode <> "auto" and iMode <> "AUTO" then xPeriods = iPeriods else xPeriods = _fPushPeriods(xInterval); end; {if sFirstPass} {save old values} If PushHigh <> PrevPushHigh then OldPushHigh = PrevPushHigh; If PushLow <> PrevPushLow then OldPushLow = PrevPushLow ; OldPushHigh = PrevPushHigh ; OldPushLow = PrevPushLow ; PrevPushHigh = PushHigh ; PrevPushLow = PushLow ; { high / low for period } PushHigh = Highest( H, xPeriods); PushLow = Lowest( L, xPeriods) ; If PushHigh <> H and PushHigh < PrevPushHigh then PushHigh = PrevPushHigh; If PushLow <> L and PushLow > PrevPushLow then PushLow = PrevPushLow; plot1(PushLow, "PushLow", LowColor); plot2(PushHigh, "PushHigh", HighColor);
