-- Id: 20801 -- More information about this indicator can be found at: -- http://fxcodebase.com/code/viewtopic.php?f=17&t=65729 --+------------------------------------------------------------------+ --| 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 | --| BitCoin : 15VCJTLaz12Amr7adHSBtL9v8XomURo9RF | --| BitCoin Cash: 1BEtS465S3Su438Kc58h2sqvVvHK9Mijtg | --| Ethereum : 0x8C110cD61538fb6d7A2B47858F0c0AaBd663068D | --| LiteCoin : LLU8PSY2vsq7B9kRELLZQcKf5nJQrdeqwD | --+------------------------------------------------------------------+ -- Indicator profile initialization routine function Init() indicator:name("Tick Price Change"); indicator:description(""); indicator:requiredSource(core.Tick); indicator:type(core.Oscillator); indicator.parameters:addGroup("Calculation"); indicator.parameters:addInteger("length", "Period", "", 15, 2, 2000); indicator.parameters:addInteger("price_smoothing", "Price Smoothing", "", 15 ); indicator.parameters:addInteger("signal_smoothing", "Signal Smoothing", "", 15 ); indicator.parameters:addGroup("Style"); indicator.parameters:addColor("color1", "Line Color Down", "", core.rgb(0,255,0 )); indicator.parameters:addColor("color2", "Line Color Up", "", core.rgb(255,0, 0)); indicator.parameters:addInteger("style1", "Line Style", "", core.LINE_SOLID); indicator.parameters:setFlag("style1", core.FLAG_LEVEL_STYLE); indicator.parameters:addInteger("width1", "Line Width", "", 3, 1, 5); indicator.parameters:addColor("color3", "Signal Line Color", "", core.rgb(0,0, 255)); indicator.parameters:addInteger("style2", "Line Style", "", core.LINE_SOLID); indicator.parameters:setFlag("style2", core.FLAG_LEVEL_STYLE); indicator.parameters:addInteger("width2", "Line Width", "", 3, 1, 5); end -- Indicator instance initialization routine -- Processes indicator parameters and creates output streams -- Parameters block local length,price_smoothing,signal_smoothing; local first; local source = nil; local MVA,EMA1,EMA2,EMA3; local vpc,signal; -- Routine function Prepare(nameOnly) length = instance.parameters.length; price_smoothing = instance.parameters.price_smoothing; signal_smoothing= instance.parameters.signal_smoothing; local name = profile:id() .. "(" .. instance.source:name().. ", " .. length .. ", " .. signal_smoothing .. ")"; instance:name(name); if (nameOnly) then return; end source = instance.source; first=source:first(); if price_smoothing> 1 then EMA1 = core.indicators:create("EMA", source , price_smoothing); end vpc = instance:addStream("vpc" , core.Line, "vpc","vpc",instance.parameters.color1, first); vpc:setWidth(instance.parameters.width1); vpc:setStyle(instance.parameters.style1); vpc:setPrecision(math.max(2, instance.source:getPrecision())); if signal_smoothing > 1 then EMA3= core.indicators:create("EMA", vpc, signal_smoothing); signal = instance:addStream("signal" , core.Line, "signal","signal",instance.parameters.color3, first); signal:setWidth(instance.parameters.width2); signal:setStyle(instance.parameters.style2); signal:setPrecision(math.max(2, instance.source:getPrecision())); end end -- Indicator calculation routine function Update(period, mode) if price_smoothing > 1 then EMA1:update(mode); if period < EMA1.DATA:first() then return; end vpc[period] = (EMA1.DATA[period]- EMA1.DATA[period-length+1]) ; else vpc[period] = (source [period]- source [period-length+1]) ; end if signal_smoothing > 1 then EMA3:update(mode); if period < EMA3.DATA:first() then return end signal[period]=EMA3.DATA[period]; if vpc[period]> signal[period] then vpc:setColor(period, instance.parameters.color1); else vpc:setColor(period, instance.parameters.color2); end end end