Левые концы при движении к следующим барам не отсекаются, потому противно кривляются пока не переключишь тайм, — внеси правку пожалста сейчас!
Settings =
{
Name = "*Channel",
leng = 50,
proc = 5,
delt = 10,
line =
{
{
Name = «cur1»,
Type = TYPE_LINE,
Width = 1,
Color = RGB(192,192,192)
},
{
Name = «cur2»,
Type = TYPE_LINE
},
{
Name = «cur3»,
Type = TYPE_LINE,
Width = 1,
Color = RGB(192,192,192)
}
}
}

function Init()

v1=nil
v2=nil
v3=nil

return 3
end

function OnCalculate(index)

leng = Settings.leng
delt = Settings.delt
proc = Settings.proc
proc = proc/100
sz = Size()

if index-leng > 0 and index == sz then

a1 = 0
a2 = 0
a3 = 0
a4 = 0
n = 0
a = 0
b = 0
for i = index-leng, index do
n=n+1
a1 = a1+i*C(i)
a2 = a2+i
a3 = a3+C(i)
a4 = a4+i*i
end

if((n*a4 — a2*a2) ~= 0) then

— if oldindex ~= Size() then
a = (n*a1 — a2*a3)/(n*a4 — a2*a2)
b = (a3 — a*a2)/n

vminus = 0
vplus = 0
vminus_n = 0
vplus_n = 0
for i = index-leng, index do
y = a*i + b
if y>C(i) and y-C(i) > vminus then
vminus = y — C(i)
end
if y<C(i) and C(i)-y > vplus then
vplus = C(i) — y
end
end

--[[
if vminus_n ~= 0 then
vminus = 2*vminus/vminus_n
end
if vplus_n ~= 0 then
vplus = 2*vplus/vplus_n
end
--]]

x1 = index-leng
x2 = index-leng
x3 = index-leng
y1 = C(x1)
y2 = C(x2)
y3 = C(x3)

--de = 0.5*(vplus + vminus)/C(index-leng) --/(C(index-leng) — (a*(index-leng) + b — vminus))
de = proc*C(index-leng)

for i = index-leng, index do
y = a*i + b
SetValue(i, 1, y + vplus)
--SetValue(i, 2, y)
SetValue(i, 3, y — vminus)

--vl = C(i) — (y — vminus)
vl = C(i) — (y — vminus)
if i == index-leng then
y1 = vl
y2 = vl
y3 = vl
else
if (vl > y1+de and y1 < y2) or (x1==index-leng and vl > y1) then
x3 = x2
y3 = y2
x2 = x1
y2 = y1
x1 = i
y1 = vl
end

if vl > y1 and vl > y2 then
x1 = i
y1 = vl
end

if (vl < y1-de and y1 > y2) or (x1==index-leng and vl < y1) then
x3 = x2
y3 = y2
x2 = x1
y2 = y1
x1 = i
y1 = vl
end

if vl < y1 and vl < y2 then
x1 = i
y1 = vl
end
end
end

--[[
k = (C(x1)- C(x2))/(x1- x2)
for i = x2, x1 do
curv = i*k + C(x1) — x1*k
SetValue(i, 4, curv)
end

k = (C(x2)- C(x3))/(x2- x3)
for i = x3, x2 do
curv = i*k + C(x2) — x2*k
SetValue(i, 5, curv)
end
--]]
end
end

return v1, v3
end