-- Id: 19995 -- More information about this indicator can be found at: --http://fxcodebase.com/code/viewtopic.php?f=31&t=65465 --+------------------------------------------------------------------+ --| Copyright © 2019, Gehtsoft USA LLC | --| http://fxcodebase.com | --+------------------------------------------------------------------+ --| Developed by : Mario Jemic | --| mario.jemic@gmail.com | --+------------------------------------------------------------------+ --| Support our efforts by donating | --| Paypal: https://goo.gl/9Rj74e | --+------------------------------------------------------------------+ --| Patreon : https://goo.gl/GdXWeN | --| BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF | --| BitCoin Cash: 1BEtS465S3Su438Kc58h2sqvVvHK9Mijtg | --| Ethereum : 0x8C110cD61538fb6d7A2B47858F0c0AaBd663068D | --| LiteCoin : LLU8PSY2vsq7B9kRELLZQcKf5nJQrdeqwD | --+------------------------------------------------------------------+ function Init() --The strategy profile initialization strategy:name("Two MA Cross Strategy with var lot") strategy:description("") strategy:setTag("NonOptimizableParameters", "Email,SendEmail,SoundFile,RecurrentSound,PlaySound, ShowAlert") strategy.parameters:addGroup("Price") strategy.parameters:addString("Type", "Price Type", "", "Bid") strategy.parameters:addStringAlternative("Type", "Bid", "", "Bid") strategy.parameters:addStringAlternative("Type", "Ask", "", "Ask") strategy.parameters:addString("TF", "Time frame", "", "H1") strategy.parameters:setFlag("TF", core.FLAG_PERIODS) strategy.parameters:addGroup("Method One") strategy.parameters:addInteger("SF", "First Averege Period", "First Averege Period", 20) strategy.parameters:addString("Method1", "MA Method", "Method", "MVA") strategy.parameters:addStringAlternative("Method1", "MVA", "MVA", "MVA") strategy.parameters:addStringAlternative("Method1", "EMA", "EMA", "EMA") strategy.parameters:addStringAlternative("Method1", "LWMA", "LWMA", "LWMA") strategy.parameters:addStringAlternative("Method1", "TMA", "TMA", "TMA") strategy.parameters:addStringAlternative("Method1", "SMMA", "SMMA", "SMMA") strategy.parameters:addStringAlternative("Method1", "KAMA", "KAMA", "KAMA") strategy.parameters:addStringAlternative("Method1", "HMA", "HMA", "HMA") strategy.parameters:addStringAlternative("Method1", "WMA", "WMA", "WMA") strategy.parameters:addStringAlternative("Method1", "VAMA", "VAMA", "VAMA") strategy.parameters:addStringAlternative("Method1", "NONLAGMA", "NONLAGMA", "NONLAGMA") strategy.parameters:addString("Type1", "Price Type", "", "close") strategy.parameters:addStringAlternative("Type1", "OPEN", "", "open") strategy.parameters:addStringAlternative("Type1", "HIGH", "", "high") strategy.parameters:addStringAlternative("Type1", "LOW", "", "low") strategy.parameters:addStringAlternative("Type1", "CLOSE", "", "close") strategy.parameters:addStringAlternative("Type1", "MEDIAN", "", "median") strategy.parameters:addStringAlternative("Type1", "TYPICAL", "", "typical") strategy.parameters:addStringAlternative("Type1", "WEIGHTED", "", "weighted") strategy.parameters:addGroup("Method Two") strategy.parameters:addInteger("LF", "Second Averege Period", "Second Averege Period", 100) strategy.parameters:addString("Method2", "MA Method", " ", "MVA") strategy.parameters:addStringAlternative("Method2", "MVA", "MVA", "MVA") strategy.parameters:addStringAlternative("Method2", "EMA", "EMA", "EMA") strategy.parameters:addStringAlternative("Method2", "LWMA", "LWMA", "LWMA") strategy.parameters:addStringAlternative("Method2", "TMA", "TMA", "TMA") strategy.parameters:addStringAlternative("Method2", "SMMA", "SMMA", "SMMA") strategy.parameters:addStringAlternative("Method2", "KAMA", "KAMA", "KAMA") strategy.parameters:addStringAlternative("Method2", "HMA", "HMA", "HMA") strategy.parameters:addStringAlternative("Method2", "WMA", "WMA", "WMA") strategy.parameters:addStringAlternative("Method2", "VAMA", "VAMA", "VAMA") strategy.parameters:addStringAlternative("Method2", "NONLAGMA", "NONLAGMA", "NONLAGMA") strategy.parameters:addString("Type2", "Price Type", "", "close") strategy.parameters:addStringAlternative("Type2", "OPEN", "", "open") strategy.parameters:addStringAlternative("Type2", "HIGH", "", "high") strategy.parameters:addStringAlternative("Type2", "LOW", "", "low") strategy.parameters:addStringAlternative("Type2", "CLOSE", "", "close") strategy.parameters:addStringAlternative("Type2", "MEDIAN", "", "median") strategy.parameters:addStringAlternative("Type2", "TYPICAL", "", "typical") strategy.parameters:addStringAlternative("Type2", "WEIGHTED", "", "weighted") strategy.parameters:addGroup("Non Lag MA Parameters One") strategy.parameters:addInteger("Filter1", "Filter", "Filter", 0) strategy.parameters:addInteger("ColorBarBack1", "ColorBarBack", "ColorBarBack", 2) strategy.parameters:addDouble("Deviation1", "Deviation", "Deviation", 0) strategy.parameters:addGroup("Non Lag MA Parameters Two") strategy.parameters:addInteger("Filter2", "Filter", "Filter", 0) strategy.parameters:addInteger("ColorBarBack2", "ColorBarBack", "ColorBarBack", 2) strategy.parameters:addDouble("Deviation2", "Deviation", "Deviation", 0) CreateTradingParameters() end function CreateTradingParameters() strategy.parameters:addGroup("Trading Parameters") strategy.parameters:addBoolean("AllowTrade", "Allow strategy to trade", "", false) strategy.parameters:setFlag("AllowTrade", core.FLAG_ALLOW_TRADE) strategy.parameters:addString("ExecutionType", "End of Turn / Live", "", "End of Turn") strategy.parameters:addStringAlternative("ExecutionType", "End of Turn", "", "End of Turn") strategy.parameters:addStringAlternative("ExecutionType", "Live", "", "Live") strategy.parameters:addBoolean("CloseOnOpposite", "Close On Opposite", "", true) strategy.parameters:addString( "CustomID", "Custom Identifier", "The identifier that can be used to distinguish strategy instances", "TMACS" ) strategy.parameters:addInteger( "MaxNumberOfPositionInAnyDirection", "Max Number Of Open Position In Any Direction", "", 2, 1, 100 ) strategy.parameters:addInteger("MaxNumberOfPosition", "Max Number Of Position Position", "", 1, 1, 100) strategy.parameters:addString( "ALLOWEDSIDE", "Allowed side", "Allowed side for trading or signaling, can be Sell, Buy or Both", "Both" ) strategy.parameters:addStringAlternative("ALLOWEDSIDE", "Both", "", "Both") strategy.parameters:addStringAlternative("ALLOWEDSIDE", "Buy", "", "Buy") strategy.parameters:addStringAlternative("ALLOWEDSIDE", "Sell", "", "Sell") strategy.parameters:addString("Account", "Account to trade on", "", "") strategy.parameters:setFlag("Account", core.FLAG_ACCOUNT) strategy.parameters:addInteger("Amount", "Trade Amount in Lots", "", 1, 1, 1000000) strategy.parameters:addInteger("Amount_small", "Small Trade Amount in Lots", "", 1, 1, 100) strategy.parameters:addBoolean("SetLimit", "Set Limit Orders", "", false) strategy.parameters:addInteger("Limit", "Limit Order in pips", "", 30, 1, 10000) strategy.parameters:addBoolean("SetStop", "Set Stop Orders", "", false) strategy.parameters:addInteger("Stop", "Stop Order in pips", "", 30, 1, 10000) strategy.parameters:addBoolean("TrailingStop", "Trailing stop order", "", false) strategy.parameters:addGroup("Amount Filter") strategy.parameters:addString("AF_TF", "Amount Filter Time frame", "", "D1") strategy.parameters:setFlag("AF_TF", core.FLAG_PERIODS) strategy.parameters:addInteger("AF_period", "Amount Filter Averege Period", "", 100) strategy.parameters:addString("AF_Method", "MA Method", " ", "MVA") strategy.parameters:addStringAlternative("AF_Method", "MVA", "MVA", "MVA") strategy.parameters:addStringAlternative("AF_Method", "EMA", "EMA", "EMA") strategy.parameters:addStringAlternative("AF_Method", "LWMA", "LWMA", "LWMA") strategy.parameters:addStringAlternative("AF_Method", "TMA", "TMA", "TMA") strategy.parameters:addStringAlternative("AF_Method", "SMMA", "SMMA", "SMMA") strategy.parameters:addStringAlternative("AF_Method", "KAMA", "KAMA", "KAMA") strategy.parameters:addStringAlternative("AF_Method", "HMA", "HMA", "HMA") strategy.parameters:addStringAlternative("AF_Method", "WMA", "WMA", "WMA") strategy.parameters:addStringAlternative("AF_Method", "VAMA", "VAMA", "VAMA") strategy.parameters:addStringAlternative("AF_Method", "NONLAGMA", "NONLAGMA", "NONLAGMA") strategy.parameters:addString("AF_Type", "Price Type", "", "close") strategy.parameters:addStringAlternative("AF_Type", "OPEN", "", "open") strategy.parameters:addStringAlternative("AF_Type", "HIGH", "", "high") strategy.parameters:addStringAlternative("AF_Type", "LOW", "", "low") strategy.parameters:addStringAlternative("AF_Type", "CLOSE", "", "close") strategy.parameters:addStringAlternative("AF_Type", "MEDIAN", "", "median") strategy.parameters:addStringAlternative("AF_Type", "TYPICAL", "", "typical") strategy.parameters:addStringAlternative("AF_Type", "WEIGHTED", "", "weighted") strategy.parameters:addGroup("Non Lag MA Parameters Amount Filter") strategy.parameters:addInteger("AF_Filter", "Filter", "Filter", 0) strategy.parameters:addInteger("AF_ColorBarBack", "ColorBarBack", "ColorBarBack", 2) strategy.parameters:addDouble("AF_Deviation", "Deviation", "Deviation", 0) strategy.parameters:addGroup("Alerts") strategy.parameters:addBoolean("ShowAlert", "ShowAlert", "", true) strategy.parameters:addBoolean("PlaySound", "Play Sound", "", false) strategy.parameters:addFile("SoundFile", "Sound File", "", "") strategy.parameters:setFlag("SoundFile", core.FLAG_SOUND) strategy.parameters:addBoolean("RecurrentSound", "Recurrent Sound", "", true) strategy.parameters:addBoolean("SendEmail", "Send Email", "", false) strategy.parameters:addString("Email", "Email", "", "") strategy.parameters:setFlag("Email", core.FLAG_EMAIL) strategy.parameters:addGroup("Time Parameters") strategy.parameters:addInteger("ToTime", "Convert the date to", "", 6) strategy.parameters:addIntegerAlternative("ToTime", "EST", "", 1) strategy.parameters:addIntegerAlternative("ToTime", "UTC", "", 2) strategy.parameters:addIntegerAlternative("ToTime", "Local", "", 3) strategy.parameters:addIntegerAlternative("ToTime", "Server", "", 4) strategy.parameters:addIntegerAlternative("ToTime", "Financial", "", 5) strategy.parameters:addIntegerAlternative("ToTime", "Display", "", 6) strategy.parameters:addString("StartTime", "Start Time for Trading", "", "00:00:00") strategy.parameters:addString("StopTime", "Stop Time for Trading", "", "24:00:00") strategy.parameters:addBoolean("UseMandatoryClosing", "Use Mandatory Closing", "", false) strategy.parameters:addString("ExitTime", "Mandatory Closing Time", "", "23:59:00") strategy.parameters:addInteger("ValidInterval", "Valid interval for operation in second", "", 60) end local ShortFrame = nil local LongFrame = nil local Method1 = nil local Method2 = nil local Filter1 local ColorBarBack1 local Deviation1 local Filter2 local ColorBarBack2 local Deviation2 -- Streams block local LongDATA = nil local ShortDATA = nil local Type1 local Type2 local Source, TickSource local MaxNumberOfPositionInAnyDirection, MaxNumberOfPosition local SoundFile = nil local RecurrentSound = false local ALLOWEDSIDE local AllowTrade local Offer local CanClose local Account local Amount local Amount_small local SetLimit local Limit local SetStop local Stop local TrailingStop local ShowAlert local Email local SendEmail local BaseSize local ExecutionType local CloseOnOpposite local first local AF_DATA local AF_Source local CustomID local OpenTime, CloseTime, ExitTime local ValidInterval, UseMandatoryClosing local ToTime -- function Prepare(nameOnly) CustomID = instance.parameters.CustomID ExecutionType = instance.parameters.ExecutionType CloseOnOpposite = instance.parameters.CloseOnOpposite MaxNumberOfPositionInAnyDirection = instance.parameters.MaxNumberOfPositionInAnyDirection MaxNumberOfPosition = instance.parameters.MaxNumberOfPosition Filter1 = instance.parameters.Filter1 ColorBarBack1 = instance.parameters.ColorBarBack1 Deviation1 = instance.parameters.Deviation1 Filter2 = instance.parameters.Filter2 ColorBarBack2 = instance.parameters.ColorBarBack2 Deviation2 = instance.parameters.Deviation2 Type1 = instance.parameters.Type1 Type2 = instance.parameters.Type2 ShortFrame = instance.parameters.SF LongFrame = instance.parameters.LF Method1 = instance.parameters.Method1 Method2 = instance.parameters.Method2 assert(instance.parameters.TF ~= "t1", "The time frame must not be tick") local name name = profile:id() .. "( " .. instance.bid:name() .. "," .. CustomID .. " )" instance:name(name) PrepareTrading() if nameOnly then return end if ExecutionType == "Live" then TickSource = ExtSubscribe(1, nil, "t1", instance.parameters.Type == "Bid", "close") end Source = ExtSubscribe(2, nil, instance.parameters.TF, instance.parameters.Type == "Bid", "bar") if Method1 == "VAMA" then ShortDATA = core.indicators:create(Method1, Source, ShortFrame) elseif Method1 == "NONLAGMA" then ShortDATA = core.indicators:create(Method1, Source[Type1], ShortFrame, Filter1, ColorBarBack1, Deviation1, true) else ShortDATA = core.indicators:create(Method1, Source[Type1], ShortFrame) end if Method2 == "VAMA" then LongDATA = core.indicators:create(Method2, Source, LongFrame) elseif Method2 == "NONLAGMA" then LongDATA = core.indicators:create(Method2, Source[Type2], LongFrame, Filter2, ColorBarBack2, Deviation2, true) else LongDATA = core.indicators:create(Method2, Source[Type2], LongFrame) end local AF_Method = instance.parameters.AF_Method local AF_period = instance.parameters.AF_period local AF_Type = instance.parameters.AF_Type AF_Source = ExtSubscribe(3, nil, instance.parameters.AF_TF, instance.parameters.Type == "Bid", "bar") if AF_Method == "VAMA" then assert(core.indicators:findIndicator(AF_Method) ~= nil, AF_Method .. " indicator must be installed"); AF_DATA = core.indicators:create(AF_Method, AF_Source, AF_period) elseif AF_Method == "NONLAGMA" then local AF_Filter = instance.parameters.AF_Filter local AF_ColorBarBack = instance.parameters.AF_ColorBarBack local AF_Deviation = instance.parameters.AF_Deviation AF_DATA = core.indicators:create( AF_Method, AF_Source[AF_Type], AF_period, AF_Filter, AF_ColorBarBack, AF_Deviation, true ) else AF_DATA = core.indicators:create(AF_Method, AF_Source[AF_Type], AF_period) end first = math.max(ShortDATA.DATA:first(), LongDATA.DATA:first()) + 1 assert(core.indicators:findIndicator(Method1) ~= nil, "Please, download and install " .. Method1 .. " indicator") assert(core.indicators:findIndicator(Method2) ~= nil, "Please, download and install " .. Method2 .. " indicator") ToTime = instance.parameters.ToTime ValidInterval = instance.parameters.ValidInterval UseMandatoryClosing = instance.parameters.UseMandatoryClosing if ToTime == 1 then ToTime = core.TZ_EST elseif ToTime == 2 then ToTime = core.TZ_UTC elseif ToTime == 3 then ToTime = core.TZ_LOCAL elseif ToTime == 4 then ToTime = core.TZ_SERVER elseif ToTime == 5 then ToTime = core.TZ_FINANCIAL elseif ToTime == 6 then ToTime = core.TZ_TS end local valid OpenTime, valid = ParseTime(instance.parameters.StartTime) assert(valid, "Time " .. instance.parameters.StartTime .. " is invalid") CloseTime, valid = ParseTime(instance.parameters.StopTime) assert(valid, "Time " .. instance.parameters.StopTime .. " is invalid") ExitTime, valid = ParseTime(instance.parameters.ExitTime) assert(valid, "Time " .. instance.parameters.ExitTime .. " is invalid") if UseMandatoryClosing then core.host:execute("setTimer", 100, math.max(ValidInterval / 2, 1)) end end function ParseTime(time) local pos = string.find(time, ":"); if pos == nil then return nil, false; end local h = tonumber(string.sub(time, 1, pos - 1)); time = string.sub(time, pos + 1); pos = string.find(time, ":"); if pos == nil then return nil, false; end local m = tonumber(string.sub(time, 1, pos - 1)); local s = tonumber(string.sub(time, pos + 1)); return (h / 24.0 + m / 1440.0 + s / 86400.0), -- time in ole format ((h >= 0 and h < 24 and m >= 0 and m < 60 and s >= 0 and s < 60) or (h == 24 and m == 0 and s == 0)); -- validity flag end function InRange(now, openTime, closeTime) if openTime < closeTime then return now >= openTime and now <= closeTime; end if openTime > closeTime then return now > openTime or now < closeTime; end return now == openTime; end function PrepareTrading() ALLOWEDSIDE = instance.parameters.ALLOWEDSIDE local PlaySound = instance.parameters.PlaySound if PlaySound then SoundFile = instance.parameters.SoundFile else SoundFile = nil end assert(not (PlaySound) or (PlaySound and SoundFile ~= ""), "Sound file must be chosen") ShowAlert = instance.parameters.ShowAlert RecurrentSound = instance.parameters.RecurrentSound SendEmail = instance.parameters.SendEmail if SendEmail then Email = instance.parameters.Email else Email = nil end assert(not (SendEmail) or (SendEmail and Email ~= ""), "E-mail address must be specified") AllowTrade = instance.parameters.AllowTrade Account = instance.parameters.Account Amount = instance.parameters.Amount Amount_small = instance.parameters.Amount_small BaseSize = core.host:execute("getTradingProperty", "baseUnitSize", instance.bid:instrument(), Account) Offer = core.host:findTable("offers"):find("Instrument", instance.bid:instrument()).OfferID CanClose = core.host:execute("getTradingProperty", "canCreateMarketClose", instance.bid:instrument(), Account) SetLimit = instance.parameters.SetLimit Limit = instance.parameters.Limit SetStop = instance.parameters.SetStop Stop = instance.parameters.Stop TrailingStop = instance.parameters.TrailingStop end local Last local LAST local ONE function ExtUpdate(id, source, period) -- The method called every time when a new bid or ask price appears. if AllowTrade then if not (checkReady("trades")) or not (checkReady("orders")) then return end end now = core.host:execute("getServerTime") now = core.host:execute("convertTime", core.TZ_EST, ToTime, now) now = now - math.floor(now) if not InRange(now, OpenTime, CloseTime) then return end if ExecutionType == "Live" and id == 1 then period = core.findDate(Source.close, TickSource:date(period), false) end if ExecutionType == "Live" then if ONE == Source:serial(period) or id == 2 then return end else if id ~= 2 then return end end -- update indicators. ShortDATA:update(core.UpdateLast) LongDATA:update(core.UpdateLast) AF_DATA:update(core.UpdateLast) if period < first then return end -- only buy if we have a fast cross over slow and the price is above the moving averages. if (core.crossesOver(ShortDATA.DATA, LongDATA.DATA, period)) then BUY() ONE = Source:serial(period) elseif (core.crossesUnder(ShortDATA.DATA, LongDATA.DATA, period)) then SELL() ONE = Source:serial(period) end end -- NG: Introduce async function for timer/monitoring for the order results function ExtAsyncOperationFinished(cookie, success, message) if cookie == 100 then -- timer if UseMandatoryClosing and AllowTrade then now = core.host:execute("getServerTime") now = core.host:execute("convertTime", core.TZ_EST, ToTime, now) -- get only time now = now - math.floor(now) -- check whether the time is in the exit time period if now >= ExitTime and now < ExitTime + (ValidInterval / 86400.0) then if not (checkReady("trades")) or not (checkReady("orders")) then return end if haveTrades("S") then exitSpecific("S") Signal("Close Short") end if haveTrades("B") then exitSpecific("B") Signal("Close Long") end end end elseif cookie == 200 and not success then terminal:alertMessage( instance.bid:instrument(), instance.bid[instance.bid:size() - 1], "Open order failed" .. message, instance.bid:date(instance.bid:size() - 1) ) elseif cookie == 201 and not success then terminal:alertMessage( instance.bid:instrument(), instance.bid[instance.bid:size() - 1], "Close order failed" .. message, instance.bid:date(instance.bid:size() - 1) ) end end --===========================================================================-- -- TRADING UTILITY FUNCTIONS -- --============================================================================-- function BUY() if AllowTrade then if CloseOnOpposite and haveTrades("S") then -- close on opposite signal exitSpecific("S") Signal("Close Short") end if ALLOWEDSIDE == "Sell" then -- we are not allowed buys. return end enter("B") else Signal("Buy Signal") end end function SELL() if AllowTrade then if CloseOnOpposite and haveTrades("B") then -- close on opposite signal exitSpecific("B") Signal("Close Long") end if ALLOWEDSIDE == "Buy" then -- we are not allowed sells. return end enter("S") else Signal("Sell Signal") end end function Signal(Label) if ShowAlert then terminal:alertMessage(instance.bid:instrument(), instance.bid[NOW], Label, instance.bid:date(NOW)) end if SoundFile ~= nil then terminal:alertSound(SoundFile, RecurrentSound) end if Email ~= nil then terminal:alertEmail( Email, Label, profile:id() .. "(" .. instance.bid:instrument() .. ")" .. instance.bid[NOW] .. ", " .. Label .. ", " .. instance.bid:date(NOW) ) end end function checkReady(table) local rc if Account == "TESTACC_ID" then -- run under debugger/simulator rc = true else rc = core.host:execute("isTableFilled", table) end return rc end function tradesCount(BuySell) local enum, row local count = 0 enum = core.host:findTable("trades"):enumerator() row = enum:next() while row ~= nil do if row.AccountID == Account and row.OfferID == Offer and row.QTXT == CustomID and (row.BS == BuySell or BuySell == nil) then count = count + 1 end row = enum:next() end return count end function haveTrades(BuySell) local enum, row local found = false enum = core.host:findTable("trades"):enumerator() row = enum:next() while (row ~= nil) do if row.AccountID == Account and row.OfferID == Offer and row.QTXT == CustomID and (row.BS == BuySell or BuySell == nil) then found = true break end row = enum:next() end return found end -- enter into the specified direction function enter(BuySell) -- do not enter if position in the specified direction already exists if tradesCount(BuySell) >= MaxNumberOfPosition or ((tradesCount(nil)) >= MaxNumberOfPositionInAnyDirection) then return true end -- send the alert after the checks to see if we can trade. if (BuySell == "S") then Signal("Sell Signal") else Signal("Buy Signal") end return MarketOrder(BuySell) end -- enter into the specified direction function MarketOrder(BuySell) local valuemap, success, msg valuemap = core.valuemap() valuemap.Command = "CreateOrder" valuemap.OrderType = "OM" valuemap.OfferID = Offer valuemap.AcctID = Account local period = AF_DATA.DATA:date(NOW) == Source:date(NOW) and NOW - 1 or NOW local slope_up = AF_DATA.DATA[period] > AF_DATA.DATA[period - 1] if BuySell == "B" then valuemap.Quantity = (slope_up and Amount or Amount_small) * BaseSize else valuemap.Quantity = (not slope_up and Amount or Amount_small) * BaseSize end valuemap.BuySell = BuySell valuemap.CustomID = CustomID -- add stop/limit valuemap.PegTypeStop = "O" if SetStop then if BuySell == "B" then valuemap.PegPriceOffsetPipsStop = -Stop else valuemap.PegPriceOffsetPipsStop = Stop end end if TrailingStop then valuemap.TrailStepStop = 1 end valuemap.PegTypeLimit = "O" if SetLimit then if BuySell == "B" then valuemap.PegPriceOffsetPipsLimit = Limit else valuemap.PegPriceOffsetPipsLimit = -Limit end end if (not CanClose) then valuemap.EntryLimitStop = "Y" end success, msg = terminal:execute(200, valuemap) if not (success) then terminal:alertMessage( instance.bid:instrument(), instance.bid[instance.bid:size() - 1], "Open order failed" .. msg, instance.bid:date(instance.bid:size() - 1) ) return false end return true end -- exit from the specified trade using the direction as a key function exitSpecific(BuySell) -- we have to loop through to exit all trades in each direction instead -- of using the net qty flag because we may be running multiple strategies on the same account. local enum, row local found = false enum = core.host:findTable("trades"):enumerator() row = enum:next() while (not found) and (row ~= nil) do -- for every trade for this instance. if row.AccountID == Account and row.OfferID == Offer and row.QTXT == CustomID and (row.BS == BuySell or BuySell == nil) then exitTrade(row) end row = enum:next() end end -- exit from the specified direction function exitTrade(tradeRow) if not (AllowTrade) then return true end local valuemap, success, msg valuemap = core.valuemap() -- switch the direction since the order must be in oppsite direction if tradeRow.BS == "B" then BuySell = "S" else BuySell = "B" end valuemap.OrderType = "CM" valuemap.OfferID = Offer valuemap.AcctID = Account if (CanClose) then -- Non-FIFO can close each trade independantly. valuemap.TradeID = tradeRow.TradeID valuemap.Quantity = tradeRow.Lot else -- FIFO. valuemap.NetQtyFlag = "Y" -- this forces all trades to close in the opposite direction. end valuemap.BuySell = BuySell valuemap.CustomID = CustomID success, msg = terminal:execute(201, valuemap) if not (success) then terminal:alertMessage( instance.bid:instrument(), instance.bid[instance.bid:size() - 1], "Close order failed" .. msg, instance.bid:date(instance.bid:size() - 1) ) return false end return true end dofile(core.app_path() .. "\\strategies\\standard\\include\\helper.lua")