Получение цены по наклонному тренду., наклонная линия тренда для расчетов.

Settings={
Name = "Треновый индикатор2",
period=5,
line={
{
Name = "Level High",
Type =TYPE_POINT,-- = LINE --линии  = DASH -- тире  = POINT -- точки
Width = 3,
Color = RGB(0,255, 0)
},
{
Name = "Level Low",
Type =TYPE_POINT,
Width = 3,
Color = RGB(255,0,0)
}}}

idx_prosl=0

function Init()
return 2
end

function OnCalculate(idx)
if idx==1 then
P = math.floor(Settings.period/2)*2+1
t_H,t_L={},{}
t_Fr_H={}
t_Fr_L={}
th=1
tl=1
end
if idx~=nil and idx>P then
if idx_prosl~=idx then
for l=idx-P,idx-1 do
t_H[l]=H(l)
t_L[l]=L(l)
end
if t_H[#t_H-(P-1)/2]==math.max(unpack(t_H,#t_H-P+1,#t_H)) then
t_Fr_H={(idx-1-(P-1)/2),t_H[#t_H-(P-1)/2]}
th=th+1
end
if t_L[#t_L-(P-1)/2]==math.min(unpack(t_L,#t_L-P+1,#t_L)) then
t_Fr_L[tl]={(idx-1-(P-1)/2),t_L[#t_L-(P-1)/2]}
tl=tl+1
end
if #t_Fr_H>=3 and #t_Fr_L>=3 then
i_bar=idx
dd=#t_Fr_H
for s=#t_Fr_H-1,1,-1 do
if t_Fr_H[2]>=t_Fr_H[dd][2] then
d=s
break
end
d=s
end
if d==1 then
H_ind_value=t_Fr_H[dd][2]
else
H_ind_value=((i_bar-t_Fr_H[d][1])*(t_Fr_H[dd][2]-t_Fr_H[d][2])/(t_Fr_H[dd][1]-t_Fr_H[d][1]))+t_Fr_H[d][2]
end
dd=#t_Fr_L
for s=#t_Fr_L-1,1,-1 do
if t_Fr_L[2]<=t_Fr_L[dd][2] then
d=s
break
end
d=s
end
if d==1 then
L_ind_value=t_Fr_L[dd][2]
else
L_ind_value=((i_bar-t_Fr_L[d][1])*(t_Fr_L[dd][2]-t_Fr_L[d][2])/(t_Fr_L[dd][1]-t_Fr_L[d][1]))+t_Fr_L[d][2]
end
end
end
else
H_ind_value=nil
L_ind_value=nil
end
idx_prosl=idx
return H_ind_value, L_ind_value
end