-- Id: 8781
-- More information about this indicator can be found at:
-- http://fxcodebase.com/code/viewtopic.php?f=17&t=33582


--+------------------------------------------------------------------+
--|                               Copyright © 2018, 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  |  
--+------------------------------------------------------------------+


-- 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("smoothed cyclical indicator");
    indicator:description("smoothed cyclical indicator");
    indicator:requiredSource(core.Tick);
    indicator:type(core.Oscillator);
	
	indicator.parameters:addGroup("Calculation");
	indicator.parameters:addString("Method", "Method", "Method" , "4");
    indicator.parameters:addStringAlternative("Method", "1", "1" , "1");
    indicator.parameters:addStringAlternative("Method", "2", "2" , "2");
	indicator.parameters:addStringAlternative("Method", "3", "3" , "3");
    indicator.parameters:addStringAlternative("Method", "4", "4" , "4");
    indicator.parameters:addStringAlternative("Method", "All", "All" , "All");
	indicator.parameters:addStringAlternative("Method", "Average", "Average" , "Average");
	
	
	indicator.parameters:addInteger("Period", "Period" , "", 12)
	
	
		indicator.parameters:addString("MAMethod", "MA Method", "Method" , "MVA");
    indicator.parameters:addStringAlternative("MAMethod", "MVA", "MVA" , "MVA");
    indicator.parameters:addStringAlternative("MAMethod", "EMA", "EMA" , "EMA");
 indicator.parameters:addStringAlternative("MAMethod", "LWMA", "LWMA" , "LWMA");
    indicator.parameters:addStringAlternative("MAMethod", "TMA", "TMA" , "TMA");
    indicator.parameters:addStringAlternative("MAMethod", "SMMA", "SMMA" , "SMMA");
    indicator.parameters:addStringAlternative("MAMethod", "KAMA", "KAMA" , "KAMA");
    indicator.parameters:addStringAlternative("MAMethod", "VIDYA", "VIDYA" , "VIDYA");
    indicator.parameters:addStringAlternative("MAMethod", "WMA", "WMA" , "WMA");
	
	indicator.parameters:addInteger("MAPeriod", "MA Period" , "", 12)

	
	indicator.parameters:addGroup("Style");
	indicator.parameters:addColor("C1U", "1. Line Color Up Color", "", core.rgb(0, 255, 0));
	indicator.parameters:addColor("C1D", "1. Line Color Down Color", "", core.rgb(0, 255, 0));
	
    indicator.parameters:addColor("C2U", "2. Line Color Up Color", "", core.rgb(255,0 , 0));
	indicator.parameters:addColor("C2D", "2. Line Color Down Color", "", core.rgb(255,0 , 0));
	
	indicator.parameters:addColor("C3U", "3. Line Color Up Color", "", core.rgb(0,  0, 255));
	indicator.parameters:addColor("C3D", "3. Line Color Down Color", "", core.rgb(0,  0, 255));
	
	indicator.parameters:addColor("C4U", "4. Line Color Up Color", "", core.rgb(128, 128, 128));
    indicator.parameters:addColor("C4D", "4. Line Color Down Color", "", core.rgb(128, 128, 128));
	
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 MA={};
local Buff; 
local Method;
local MAPeriod;
local Period;
local MAMethod;
local first;
local source = nil;
local CI={};
-- Streams block
local A, B, C, D, E, F, G,H, I, J; 
local C1U, C2U, C3U, C4U;
local C1D, C2D, C3D, C4D;
local CMA1, CMA2, CMA3, CMA4, CMA5;
-- Routine
function Prepare(nameOnly)
     MAMethod = instance.parameters.MAMethod;
	 MAPeriod = instance.parameters.MAPeriod;
     C1U = instance.parameters.C1U;
	 C2U = instance.parameters.C2U;
	 C3U = instance.parameters.C3U;
	 C4U = instance.parameters.C4U;
	 C1D = instance.parameters.C1D;
	 C2D = instance.parameters.C2D;
	 C3D = instance.parameters.C3D;
	 C4D = instance.parameters.C4D;
	 
	 
	 Period = instance.parameters.Period;
    source = instance.source;
    first = source:first();
	Method = instance.parameters.Method;
	
	
	CMA1 = core.indicators:create("CMA", source, Period);
	CMA2 = core.indicators:create("CMA", source, Period*2);
	
	local name = profile:id() .. "(" .. source:name()  .. ")";
    instance:name(name);
	
	if   (nameOnly) then
        return;
    end
	
	assert(core.indicators:findIndicator("CMA") ~= nil, "Please, download and install CMA.BIN indicator");
	
	

   
		  A =instance:addInternalStream(0, 0);	  
		  B =instance:addInternalStream(CMA1.DATA:first(), 0);
		  C =instance:addInternalStream(CMA2.DATA:first(), 0);
		  D =instance:addInternalStream(CMA2.DATA:first(), 0);
		  CMA3 = core.indicators:create("CMA", D, Period);
		  
		  E =instance:addInternalStream(CMA3.DATA:first(), 0);
		  F =instance:addInternalStream(CMA3.DATA:first(), 0);
		  CMA4 = core.indicators:create("CMA", F, Period);
		  
		  G =instance:addInternalStream(CMA4.DATA:first(), 0);
		  H  =instance:addInternalStream(CMA4.DATA:first(), 0);
		  CMA5 = core.indicators:create("CMA", H, Period);
		  
		  I  =instance:addInternalStream(CMA5.DATA:first(), 0);
		  J =instance:addInternalStream(CMA5.DATA:first(), 0);
		 
		if Method == "All" then
		
		
	 
		
    assert(core.indicators:findIndicator(MAMethod) ~= nil, MAMethod .. " indicator must be installed");
		 MA["1"] = core.indicators:create(MAMethod,E,  MAPeriod);
		 MA["2"] = core.indicators:create(MAMethod,F,  MAPeriod);
		 MA["3"] = core.indicators:create(MAMethod,I,  MAPeriod);
		 MA["4"] = core.indicators:create(MAMethod,J,  MAPeriod);
		 
		CI["1"] = instance:addStream("CI1", core.Line, name .. ".1", "1", C1U,  MA["1"].DATA:first());		
    CI["1"]:setPrecision(math.max(2, instance.source:getPrecision()));
		CI["2"] = instance:addStream("CI2", core.Line, name .. ".2", "2", C2U,  MA["2"].DATA:first());		
    CI["2"]:setPrecision(math.max(2, instance.source:getPrecision()));
		CI["3"] = instance:addStream("CI3", core.Line, name .. ".3", "3", C3U,  MA["3"].DATA:first());
    CI["3"]:setPrecision(math.max(2, instance.source:getPrecision()));
		CI["4"] = instance:addStream("CI4", core.Line, name .. ".4", "4", C4U,  MA["4"].DATA:first());
    CI["4"]:setPrecision(math.max(2, instance.source:getPrecision()));
		
		elseif Method == "1" then
		 MA["All"] = core.indicators:create(MAMethod,E,  MAPeriod);
		 CI["All"] = instance:addStream("CI", core.Line, name .. ".CI", "CI", C1U, MA["All"].DATA:first());	
    CI["All"]:setPrecision(math.max(2, instance.source:getPrecision()));
    CI["All"]:setPrecision(math.max(2, instance.source:getPrecision()));
    CI["All"]:setPrecision(math.max(2, instance.source:getPrecision()));
    CI["All"]:setPrecision(math.max(2, instance.source:getPrecision()));
    CI["All"]:setPrecision(math.max(2, instance.source:getPrecision()));
		elseif Method == "2" then
		MA["All"] = core.indicators:create(MAMethod,F,  MAPeriod);
		CI["All"] = instance:addStream("CI", core.Line, name .. ".CI", "CI", C1U, MA["All"].DATA:first());	
		elseif Method == "3" then
		MA["All"] = core.indicators:create(MAMethod,I,  MAPeriod);
		CI["All"] = instance:addStream("CI", core.Line, name .. ".CI", "CI", C1U, MA["All"].DATA:first());	
		elseif Method == "4" then
		MA["All"] = core.indicators:create(MAMethod,J,  MAPeriod);
		CI["All"] = instance:addStream("CI", core.Line, name .. ".CI", "CI", C1U, MA["All"].DATA:first());	
		else
		
		Buff = instance:addInternalStream(0, 0);
		 MA["All"] = core.indicators:create(MAMethod,Buff,  MAPeriod);	
		CI["All"] = instance:addStream("CI", core.Line, name .. ".CI", "CI", C1U, MA["All"].DATA:first());	
       	
		end
	
	
end

-- Indicator calculation routine
-- TODO: Add your code for calculation output values



function Update(period, mode)
    if period < source:first() + Period   then
	return;
	end
	
 local i;
 
 
    if period == source:size()-1  then
            for i= (source:size()-1 - Period) , source:size()-1, 1 do
			
		 
	
			CMA1:update(core.UpdateAll);	
			if i  < CMA1.DATA:first()  then
			return;
			end
			
			B[i] = CMA1.DATA[i]; 
			
			
			
			CMA2:update(core.UpdateAll);
			if i  < CMA2.DATA:first()  then
			return;
			end
			
			C[i] = CMA2.DATA[i] ;
			D[i] = B[i]-C[i];
			
			
			CMA3:update(core.UpdateAll);
			if i  <  CMA3.DATA:first()  then
			return;
			end
			
			
			E[i] = CMA3.DATA[i];--D
			
			 
			  F[i] = E[i]-E[i-1];
			
			
			CMA4:update(core.UpdateAll);
			if i  <  CMA4.DATA:first()  then
			return;
			end
			
			G[i] =CMA4.DATA[i]-- F);
			H[i] = (G[i]-G[i-1])*(-100);
			
			
			CMA5:update(core.UpdateAll);
			if i  <  CMA5.DATA:first()   then
			return;
			end
			
			   I[period] =  CMA5.DATA[period]-- H);
			   J[period] =  (I[period]-I[period-1])*(10);
				
		end	
		
		
			
	
	else
	
			
				
				CMA1:update(mode);	
				if period  < CMA1.DATA:first() then
				return;
				end
				
				B[period] = CMA1.DATA[period]; 
				
				
				
				CMA2:update(mode);
				if period  < CMA2.DATA:first() then
				return;
				end
				
				C[period] = CMA2.DATA[period] ;
				D[period] = B[period]-C[period];
				
				
				CMA3:update(mode);
				if period  <  CMA3.DATA:first() then
				return;
				end
				
				
				E[period] = CMA3.DATA[period];--D
				F[period] = E[period]-E[period-1];
				
				
				CMA4:update(mode);
				if period  <  CMA4.DATA:first() then
				return;
				end
				
				G[period] =CMA4.DATA[period]-- F);
				H[period] = (G[period]-G[period-1])*(-100);
				
				
				CMA5:update(mode);
				if period  <  CMA5.DATA:first()  then
				return;
				end
				
				I[period] =  CMA5.DATA[period]-- H);
				J[period] =  (I[period]-I[period-1])*(10);
				
			
	
	end

	
	
    if period == source:size()-1  then
	 for i= (source:size()-1 - Period) , source:size()-1, 1 do
	  period = i;
	
			if  Method == "1" then 
			
		
			  MA["All"]:update(core.UpdateAll);
			  
			  if period < MA["All"].DATA:first()		
			then
			return;
			end
			
			
			CI["All"][period] = MA["All"].DATA[period];		
			
                    if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				   end
				   
			elseif Method == "2" then
			
			
				 
			  MA["All"]:update(core.UpdateAll);
			  
			  if period < MA["All"].DATA:first()		
			then
			return;
			end
			
			CI["All"][period] =  MA["All"].DATA[period];
			        if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				   end
				   
			elseif Method == "3" then
			
			
				
			  MA["All"]:update(core.UpdateAll);
			  
			  if period < MA["All"].DATA:first()		
			then
			return;
			end
			
			CI["All"][period] =  MA["All"].DATA[period]; 
			        if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				   end
				   
				   
			elseif Method == "4" then
			
			
			
			  MA["All"]:update(core.UpdateAll);
			  
			  if period < MA["All"].DATA:first()		
			then
			return;
			end
			CI["All"][period] =  MA["All"].DATA[period];
			         if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				   end
				   
				   
			elseif Method == "All" then
			
						
		     MA["1"]:update(core.UpdateAll);	
		     MA["2"]:update(core.UpdateAll);	
			 MA["3"]:update(core.UpdateAll);	
			 MA["4"]:update(core.UpdateAll);	
			
			if period < MA["1"].DATA:first()
			or period < MA["2"].DATA:first()
			or period < MA["3"].DATA:first()
			or period < MA["4"].DATA:first()			
			then
			return;
			end
			
			
			CI["1"][period] = MA["1"].DATA[period];
			CI["2"][period] =  MA["2"].DATA[period];
			CI["3"][period] =  MA["3"].DATA[period];
			CI["4"][period] =  MA["4"].DATA[period];
			
			
			        if CI["1"][period] > CI["1"][period-1] then 
				   CI["1"]:setColor(period, C1U);
				   else
					CI["1"]:setColor(period, C1D);
				   end
				   
				    if CI["2"][period]  >CI["2"][period-1] then 
				   CI["2"]:setColor(period, C2U);
				   else
					CI["2"]:setColor(period, C2D);
				   end
				   
				   
				    if CI["3"][period] > CI["3"][period-1] then 
				   CI["3"]:setColor(period, C3U);
				   else
					CI["3"]:setColor(period, C3D);
				   end
				   
				    if CI["4"][period]  >CI["4"][period-1] then 
				   CI["4"]:setColor(period, C4U);
				   else
					CI["4"]:setColor(period, C4D);
				   end
				   
				 
			else
			
			Buff[period]= ( E[period]+ H[period] + I[period]+  J[period]) /4 ;
			
			MA["All"]:update(core.UpdateAll);	
			
			if period < MA["All"].DATA:first() then
			return;
			end
			
			CI["All"][period] = MA["All"].DATA[period];
			
				  if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				   end
			end
			
	 end
    else

    			if  Method == "1" then 
			
		
			  MA["All"]:update(core.UpdateAll);
			  
			  if period < MA["All"].DATA:first()		
			then
			return;
			end
			
			
			CI["All"][period] = MA["All"].DATA[period];		
			
                    if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				   end
				   
			elseif Method == "2" then
			
			
				 
			  MA["All"]:update(core.UpdateAll);
			  
			  if period < MA["All"].DATA:first()		
			then
			return;
			end
			
			CI["All"][period] =  MA["All"].DATA[period];
			        if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				   end
				   
			elseif Method == "3" then
			
			
				
			  MA["All"]:update(core.UpdateAll);
			  
			  if period < MA["All"].DATA:first()		
			then
			return;
			end
			
			CI["All"][period] =  MA["All"].DATA[period]; 
			        if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				   end
				   
				   
			elseif Method == "4" then
			
			
			
			  MA["All"]:update(core.UpdateAll);
			  
			  if period < MA["All"].DATA:first()		
			then
			return;
			end
			CI["All"][period] =  MA["All"].DATA[period];
			         if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				   end
				   
				   
			elseif Method == "All" then
			
						
		     MA["1"]:update(core.UpdateAll);	
		     MA["2"]:update(core.UpdateAll);	
			 MA["3"]:update(core.UpdateAll);	
			 MA["4"]:update(core.UpdateAll);	
			
			if period < MA["1"].DATA:first()
			or period < MA["2"].DATA:first()
			or period < MA["3"].DATA:first()
			or period < MA["4"].DATA:first()			
			then
			return;
			end
			
			
			CI["1"][period] = MA["1"].DATA[period];
			CI["2"][period] =  MA["2"].DATA[period];
			CI["3"][period] =  MA["3"].DATA[period];
			CI["4"][period] =  MA["4"].DATA[period];
			
			
			        if CI["1"][period] > CI["1"][period-1] then 
				   CI["1"]:setColor(period, C1U);
				   else
					CI["1"]:setColor(period, C1D);
				   end
				   
				    if CI["2"][period]  >CI["2"][period-1] then 
				   CI["2"]:setColor(period, C2U);
				   else
					CI["2"]:setColor(period, C2D);
				   end
				   
				   
				    if CI["3"][period] > CI["3"][period-1] then 
				   CI["3"]:setColor(period, C3U);
				   else
					CI["3"]:setColor(period, C3D);
				   end
				   
				    if CI["4"][period]  >CI["4"][period-1] then 
				   CI["4"]:setColor(period, C4U);
				   else
					CI["4"]:setColor(period, C4D);
				   end
				   
				 
			else
			
			Buff[period]= ( E[period]+ H[period] + I[period]+  J[period]) /4 ;
			
			MA["All"]:update(core.UpdateAll);	
			
			if period < MA["All"].DATA:first() then
			return;
			end
			
			CI["All"][period] = MA["All"].DATA[period];
			
				  if CI["All"][period] >CI["All"][period-1] then 
				   CI["All"]:setColor(period, C1U);
				   else
					CI["All"]:setColor(period, C1D);
				 end
				 end
end	
 end