fxcodebase-backup
A kind of Kagi chart
Source: https://fxcodebase.com/code/viewtopic.php?f=17&t=1362
Forum: 17 · Topic 1362 · 8 post(s)
A kind of Kagi chart
Nikolay.Gekht · Thu Jun 17, 2010 5:19 pm
There is a version of the Kagi charts. Read more about Kagi charts here: http://en.wikipedia.org/wiki/Kagi_chart
Please note that Kagi chart does not depend on the time axis. To the the date and time when another Kagi segment is started, please move the mouse cursor the the arrow at the beginning of the segment. The date and time will be shown in the tooltip.
Parameters: Sensitivity: the sensitivity of switch in expressed points Length: the length of one segment in bars. Please note, this is not length of the source price, just a number of bars to draw one segment.
The lighter arrow is shown in case the segment is above (below) the previous segment of the same direction.
-- Indicator profile initialization routine
-- Defines indicator profile properties and indicator parameters
function Init()
indicator:name("Kagi Chart");
indicator:description("");
indicator:requiredSource(core.Bar);
indicator:type(core.Oscillator);
indicator.parameters:addDouble("S", "Sensitivity in points", "", 5, 0.1, 100);
indicator.parameters:addInteger("L", "Length in bars", "", 2, 1, 10);
indicator.parameters:addString("PT", "Price type", "", "M");
indicator.parameters:addStringAlternative("PT", "High", "", "H");
indicator.parameters:addStringAlternative("PT", "Low", "", "L");
indicator.parameters:addStringAlternative("PT", "Close", "", "C");
indicator.parameters:addStringAlternative("PT", "Median", "", "M");
indicator.parameters:addStringAlternative("PT", "Typical", "", "T");
indicator.parameters:addStringAlternative("PT", "Weigthed", "", "W");
indicator.parameters:addColor("LI", "Line color", "", core.rgb(128, 0, 0));
indicator.parameters:addColor("LH", "Highlight color", "", core.rgb(255, 0, 0));
end
-- Indicator instance initialization routine
-- Processes indicator parameters and creates output streams
-- Parameters block
local S, L;
local LI, UL, DL, UL1, DL1;
local first;
local source = nil;
local price = nil;
local pip;
local host;
-- Streams block
-- Routine
function Prepare()
source = instance.source;
-- size of the box in pips
S = instance.parameters.S * source:pipSize();
L = instance.parameters.L;
first = source:first();
host = core.host;
if instance.parameters.PT == "H" then
price = source.high;
elseif instance.parameters.PT == "L" then
price = source.low;
elseif instance.parameters.PT == "C" then
price = source.close;
elseif instance.parameters.PT == "M" then
price = source.median;
elseif instance.parameters.PT == "T" then
price = source.typical;
elseif instance.parameters.PT == "W" then
price = source.weighted;
end
local name = profile:id() .. "(" .. price:name() .. ", " .. instance.parameters.S .. ")";
instance:name(name);
LI = instance:addStream("L1", core.Line, name .. ".L1", "L1", instance.parameters.LI, first);
UL = instance:createTextOutput ("UL", "UL", "Wingdings", 8, core.H_Center, core.V_Top, instance.parameters.LI, 0);
DL = instance:createTextOutput ("UL", "UL", "Wingdings", 8, core.H_Center, core.V_Bottom, instance.parameters.LI, 0);
UL1 = instance:createTextOutput ("UL1", "UL1", "Wingdings", 8, core.H_Center, core.V_Top, instance.parameters.LH, 0);
DL1 = instance:createTextOutput ("UL1", "UL1", "Wingdings", 8, core.H_Center, core.V_Bottom, instance.parameters.LH, 0);
end
local lastdate = nil;
local laststart = nil;
-- Indicator calculation routine
function Update(period)
if lastdate ~= nil and lastdate > source:date(period) then
lastdate = nil;
end
if period == source:size() - 1 then
-- recalculate for the latest candle only
if source:isAlive() then
if lastdate == nil or lastdate ~= source:date(period) then
lastdate = source:date(period);
period = period - 1;
else
-- the last candle is still changing
return ;
end
end
else
-- do not work until the collection is finished
return ;
end
if period <= first then
return ;
end
local i, kagi, start, count;
kagi = {};
start = {};
count = 0;
kagi[count] = price[first];
start[count] = price:date(first);
-- calcute kagi
for i = first + 1, period, 1 do
if count == 0 then
if price[i] >= kagi[count] + S then
count = count + 1;
kagi[count] = price[i];
start[count] = price:date(i);
elseif price[i] <= kagi[count] - S then
count = count + 1;
kagi[count] = price[i];
start[count] = price:date(i);
end
else
if kagi[count] > kagi[count - 1] then
if price[i] > kagi[count] then
kagi[count] = price[i];
elseif price[i] < kagi[count] - S then
count = count + 1;
kagi[count] = price[i];
start[count] = price:date(i);
end
elseif kagi[count] < kagi[count - 1] then
if price[i] < kagi[count] then
kagi[count] = price[i];
elseif price[i] > kagi[count] + S then
count = count + 1;
kagi[count] = price[i];
start[count] = price:date(i);
end
end
end
end
-- draw kagi
local size1 = L;
local i, j, p, date, label, previous, b2, b3, level;
p = period - (count + 1) * size1;
if laststart ~= nil then
for i = math.max(laststart, 0), math.min(source:size(), p), 1 do
LI[i] = nil;
UL:setNoData(i);
DL:setNoData(i);
UL1:setNoData(i);
DL1:setNoData(i);
end
end
laststart = p;
for i = 0, count, 1 do
if p >= first then
if i > 1 then
date = core.dateToTable(host:execute("convertTime", 1, 4, start[i]));
label = string.format("Begins: %02i/%02i/%02i %02i:%02i", date.month, date.day, date.year, date.hour, date.min);
if kagi[i] > kagi[i - 1] then
if i > 2 and kagi[i] > kagi[i - 2] then
UL1:set(p, kagi[i], "\226", label);
else
UL:set(p, kagi[i], "\226", label);
end
else
if i > 2 and kagi[i] < kagi[i - 2] then
DL1:set(p, kagi[i], "\225", label);
else
DL:set(p, kagi[i], "\225", label);
end
end
end
for j = 0, size1 - 1, 1 do
LI[p + j] = kagi[i];
end
end
p = p + size1;
end
end
Re: A kind of Kagi chart
clodhoppes · Tue Aug 31, 2010 3:08 am
Nice indicator. Thank you for your contribution, but I encountered a problem. Kagi chart does not update when a new period starts.
Re: A kind of Kagi chart
Apprentice · Tue Aug 31, 2010 3:58 am
Just like P&F charts, Kagi charts only add a new vertical line when prices have reversed enough to cancel the current uptrend or downtrend.
The period between Kagi change is not in direct connection with the lapse of time. The time between changes is not fixed.
Re: A kind of Kagi chart
clodhoppes · Tue Aug 31, 2010 7:32 am
Sorry that I didn’t make it clear. I found kagi charts did not update even after many periods. However, after I updated the chart window, the Kagi chart had added several new arrows. It’s a surpise to me.
Re: Kagi Charts
gpfd1985 · Tue May 31, 2016 2:42 pm
Is it possible to add an email/text alert to a kagi chart when the chart changes from thick to thin and thin to thick. I’m not looking for a new or customized kagi chart only an alert when theres a change in thickness Thank you
Re: A kind of Kagi chart
Apprentice · Wed Jun 01, 2016 3:28 am
Your request is added to the development list.
Re: A kind of Kagi chart
Apprentice · Thu Jul 28, 2016 1:38 pm
kagi_alert.lua added.
Re: A kind of Kagi chart
Apprentice · Mon Sep 24, 2018 10:21 am
The indicator was revised and updated.