Список проголосовавших за комментарий "<p>Левые концы при движении к следующим барам не отсекаются, потому противно кривляются пока не переключишь тайм, — внеси правку пожалста сейчас! <br/> Settings =<br/> {<br/> Name = "*Channel",<br/> leng = 50,<br/> proc = 5,<br/> delt = 10,<br/> line =<br/> {<br/> {<br/> Name = «cur1»,<br/> Type = TYPE_LINE,<br/> Width = 1,<br/> Color = RGB(192,192,192)<br/> },<br/> {<br/> Name = «cur2»,<br/> Type = TYPE_LINE<br/> },<br/> {<br/> Name = «cur3»,<br/> Type = TYPE_LINE,<br/> Width = 1,<br/> Color = RGB(192,192,192)<br/> }<br/> }<br/> }</p><p>function Init()</p><p>v1=nil<br/> v2=nil<br/> v3=nil</p><p>return 3<br/> end</p><p>function OnCalculate(index)</p><p>leng = Settings.leng<br/> delt = Settings.delt<br/> proc = Settings.proc<br/> proc = proc/100<br/> sz = Size()</p><p>if index-leng > 0 and index == sz then</p><p>a1 = 0<br/> a2 = 0<br/> a3 = 0<br/> a4 = 0<br/> n = 0<br/> a = 0<br/> b = 0<br/> for i = index-leng, index do<br/> n=n+1<br/> a1 = a1+i*C(i)<br/> a2 = a2+i<br/> a3 = a3+C(i)<br/> a4 = a4+i*i<br/> end</p><p>if((n*a4 — a2*a2) ~= 0) then</p><p> — if oldindex ~= Size() then<br/> a = (n*a1 — a2*a3)/(n*a4 — a2*a2)<br/> b = (a3 — a*a2)/n</p><p>vminus = 0<br/> vplus = 0<br/> vminus_n = 0<br/> vplus_n = 0<br/> for i = index-leng, index do<br/> y = a*i + b<br/> if y>C(i) and y-C(i) > vminus then<br/> vminus = y — C(i)<br/> end<br/> if y<C(i) and C(i)-y > vplus then<br/> vplus = C(i) — y<br/> end<br/> end</p><p>--[[<br/> if vminus_n ~= 0 then<br/> vminus = 2*vminus/vminus_n<br/> end<br/> if vplus_n ~= 0 then<br/> vplus = 2*vplus/vplus_n<br/> end<br/> --]]</p><p>x1 = index-leng<br/> x2 = index-leng<br/> x3 = index-leng<br/> y1 = C(x1)<br/> y2 = C(x2)<br/> y3 = C(x3)</p><p>--de = 0.5*(vplus + vminus)/C(index-leng) --/(C(index-leng) — (a*(index-leng) + b — vminus))<br/> de = proc*C(index-leng)</p><p>for i = index-leng, index do<br/> y = a*i + b<br/> SetValue(i, 1, y + vplus)<br/> --SetValue(i, 2, y)<br/> SetValue(i, 3, y — vminus)</p><p>--vl = C(i) — (y — vminus)<br/> vl = C(i) — (y — vminus)<br/> if i == index-leng then<br/> y1 = vl<br/> y2 = vl<br/> y3 = vl<br/> else<br/> if (vl > y1+de and y1 < y2) or (x1==index-leng and vl > y1) then<br/> x3 = x2<br/> y3 = y2<br/> x2 = x1<br/> y2 = y1<br/> x1 = i<br/> y1 = vl<br/> end</p><p>if vl > y1 and vl > y2 then<br/> x1 = i<br/> y1 = vl<br/> end</p><p>if (vl < y1-de and y1 > y2) or (x1==index-leng and vl < y1) then<br/> x3 = x2<br/> y3 = y2<br/> x2 = x1<br/> y2 = y1<br/> x1 = i<br/> y1 = vl<br/> end</p><p>if vl < y1 and vl < y2 then<br/> x1 = i<br/> y1 = vl<br/> end<br/> end<br/> end</p><p>--[[<br/> k = (C(x1)- C(x2))/(x1- x2)<br/> for i = x2, x1 do<br/> curv = i*k + C(x1) — x1*k<br/> SetValue(i, 4, curv)<br/> end</p><p>k = (C(x2)- C(x3))/(x2- x3)<br/> for i = x3, x2 do<br/> curv = i*k + C(x2) — x2*k<br/> SetValue(i, 5, curv)<br/> end<br/> --]]<br/> end<br/> end</p><p>return v1, v3<br/> end</p><p> </p>"