-- 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