-- More information about this indicator can be found at: -- http://fxcodebase.com/code/viewtopic.php?f=17&t=689 --+------------------------------------------------------------------------------------------------+ --| Copyright © 2022, Gehtsoft USA LLC | --| http://fxcodebase.com | --+------------------------------------------------------------------------------------------------+ --| Support our efforts by donating | --| Paypal: https://goo.gl/9Rj74e | --+------------------------------------------------------------------------------------------------+ --| Developed by : Mario Jemic | --| mario.jemic@gmail.com | --| https://AppliedMachineLearning.systems | --| Patreon : https://goo.gl/GdXWeN | --+------------------------------------------------------------------------------------------------+ --Your donations will allow the service to continue onward. --+------------------------------------------------------------------------------------------------+ --|BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF | --|Ethereum : 0x8C110cD61538fb6d7A2B47858F0c0AaBd663068D | --|SOL Address : 4tJXw7JfwF3KUPSzrTm1CoVq6Xu4hYd1vLk3VF2mjMYh | --|Cardano/ADA : addr1v868jza77crzdc87khzpppecmhmrg224qyumud6utqf6f4s99fvqv | --|Dogecoin Address : DBGXP1Nc18ZusSRNsj49oMEYFQgAvgBVA8 | --|SHIB Address : 0x1817D9ebb000025609Bf5D61E269C64DC84DA735 | --|Binance(ERC20 & BSC only) : 0xe84751063de8ade7c5fbff5e73f6502f02af4e2c | --|BitCoin Cash : 1BEtS465S3Su438Kc58h2sqvVvHK9Mijtg | --|LiteCoin : LLU8PSY2vsq7B9kRELLZQcKf5nJQrdeqwD | --+------------------------------------------------------------------------------------------------+ -- Indicator profile initialization routine -- Defines indicator profile properties and indicator parameters -- TODO: Add minimal and maximal value of numeric parameters and default color of the streams function Init() indicator:name("Risk to Reward"); indicator:description("Risk to Reward"); indicator:requiredSource(core.Tick); indicator:type(core.Indicator); indicator.parameters:addString("Side", "Buy or Sell", "", "Buy"); indicator.parameters:addStringAlternative("Side", "Buy", "Buy" , "Buy"); indicator.parameters:addStringAlternative("Side", "Sell", "Sell" , "Sell"); indicator.parameters:addString("Model", "Pips or Dollars", "", "Pips"); indicator.parameters:addStringAlternative("Model", "Pips", "" , "Pips"); indicator.parameters:addStringAlternative("Model", "Dollars", "" , "Dollars"); indicator.parameters:addInteger("PipsAtRisk", "Value/Pips at Risk", "Value/Pips at Risk", 100); indicator.parameters:addDouble("Number", "Number of Contracts", "Number of Contracts", 1); indicator.parameters:addInteger("RiskToReward", "Risk to Reward", "Risk to Reward", 4); indicator.parameters:addDouble("Level", "Entry Order Level (0 or Value)", "Entry Order", 0); indicator.parameters:addGroup("Style"); indicator.parameters:addColor("Entry", "Entry", "Entry", core.rgb(0, 255, 0)); indicator.parameters:addColor("Stop", "Stop", "Stop", core.rgb(255, 0, 0)); indicator.parameters:addColor("Limit", "Limit", "Limit", core.rgb(255, 255, 0)); indicator.parameters:addColor("Label", "Label", "Label", core.COLOR_LABEL); indicator.parameters:addInteger("Size", "Font Size", "Font Size", 15); end -- Indicator instance initialization routine -- Processes indicator parameters and creates output streams -- TODO: Refine the first period calculation for each of the output streams. -- TODO: Calculate all constants, create instances all subsequent indicators and load all required libraries -- Parameters block local Side; local RiskToReward; local Level; local Model; local PipsAtRisk; local font; local name; local first; local source = nil; local PipCost; local Size; local Number; local PipCost; --local size=0; -- Routine function Prepare(nameOnly) local name = profile:id() .. "(" .. instance.source:name() .. ")"; instance:name(name); if (nameOnly) then return; end Size = instance.parameters.Size; font = core.host:execute("createFont", "Arial", Size, true, false); Side = instance.parameters.Side; RiskToReward = instance.parameters.RiskToReward; Number = instance.parameters.Number; Level = instance.parameters.Level; Model = instance.parameters.Model; PipsAtRisk = instance.parameters.PipsAtRisk; source = instance.source; first = source:first(); PipCost = core.host:findTable("offers"):find("Instrument", source:instrument()).PipCost; end -- Indicator calculation routine -- TODO: Add your code for calculation output values function Update(period) if period < source:size()-1 then return; end local price=0; if Level==0 then price=source[period]; else price=Level; end local stop, Pips; if (Model=="Pips") then stop=(PipsAtRisk/Number)*source:pipSize(); Pips= (PipsAtRisk/Number); else stop=((PipsAtRisk/PipCost)/Number)*source:pipSize(); Pips=((PipsAtRisk/PipCost)/Number); end local s,l; local limit=stop*RiskToReward; if Side == "Buy" then s=price- stop; l=price + limit; else s=price+ stop; l=price - limit; end local RPC; local NOC; RPC = PipCost *Pips; NOC= Number; core.host:execute("drawLine", 1, source:date(first), s, source:date(period), s, instance.parameters.Stop); core.host:execute("drawLabel1", 2, source:date(period) , core.CR_CHART, s, core.CR_CHART, core.H_Left, core.V_Top, font, instance.parameters.Label, "Stop (" .. string.format("%." .. 5 .. "f", s ) .. ") " ); core.host:execute("drawLine", 3, source:date(first), l, source:date(period), l, instance.parameters.Limit); core.host:execute("drawLabel1", 4, source:date(period) , core.CR_CHART, l, core.CR_CHART, core.H_Left, core.V_Top, font, instance.parameters.Label,"Limit (" .. l .. ") "); core.host:execute("drawLabel1", 5, source:date(period) , core.CR_CHART, l, core.CR_CHART, core.H_Right, core.V_Top, font, instance.parameters.Label, "Number od Contract (".. string.format("%." .. 2 .. "f", NOC )..") " ); core.host:execute("drawLabel1", 6, source:date(period) , core.CR_CHART, l, core.CR_CHART, core.H_Right, core.V_Bottom, font, instance.parameters.Label,"Risk per Contract(".. string.format("%." .. 2 .. "f", RPC ) .." $) "); core.host:execute("drawLine", 7, source:date(first), price, source:date(period), price, instance.parameters.Entry); core.host:execute("drawLabel1", 8, source:date(period) , core.CR_CHART, price, core.CR_CHART, core.H_Left, core.V_Top, font, instance.parameters.Label," Entry (" .. price .. ")" ); end function ReleaseInstance() core.host:execute("deleteFont", font); end