Список проголосовавших за комментарий "<br/> Settings = {<br/> Name = "*StohRSI", <br/> round = «off»,<br/> Period = 5,<br/> Per_K = 9,<br/> PeriodSO = 5, <br/> Shift = 3, <br/> VType = «Close», --Open, High, Low, Close, Volume, Median, Typical, Weighted, Difference<br/> line = {<br/> {Name = «RSI», Type = TYPE_LINE, Color = RGB(255, 255, 128)},<br/> {Name = «SO», Type = TYPE_LINE, Color = RGB(255, 0, 0)},<br/> {Name = «Sign», Type = TYPE_LINE, Color = RGB(128, 255, 128)}, <br/> {Name = «line 20», Type = TYPE_LINE, Color = RGB(0, 128, 255)}, <br/> {Name = «line 80», Type = TYPE_LINE, Color = RGB(0, 128, 255)} <br/> }<br/> }<br/> <br/> function Init() <br/> func = RSI()<br/> return #Settings.line<br/> end<br/> <br/> function OnCalculate(Index) <br/> if not CandleExist(Index) then<br/> return nil<br/> end<br/> return func(Index, Settings)<br/> end<br/> <br/> function RSI() --Relative Strength I(«RSI»)<br/> local Up = {}<br/> local Down = {}<br/> local val_Up = {}<br/> local val_Down = {}<br/> local K_MA1=MA()<br/> local K_MA2=MA()<br/> local D_MA=MA()<br/> local proSO={}<br/> local Out = {} <br/> return function (I, Fsettings, ds)<br/> local Fsettings=(Fsettings or {})<br/> local P = (Fsettings.Period or 14)<br/> local PK = (Fsettings.Per_K or 5)<br/> local PerSO = (Fsettings.PeriodSO or 5)<br/> local S = (Fsettings.Shift or 3)<br/> local PD = (Fsettings.Period_D or 3)<br/> local VT = (Fsettings.VType or «Close»)<br/> local R = (Fsettings.round or «off»)<br/> local MD = (Fsettings.Metod_D or «SMA»)<br/> local M = (Fsettings.Metod or «SMA»)<br/> if I <=PerSO then<br/> Up[I] = 0<br/> Down[I] = 0<br/> end<br/> if I>PerSO then<br/> local Val = Value(I,«T»,ds)<br/> local ValPrev = Value(I-1,VT,ds)<br/> if ValPrev < Val then<br/> Up[I] = Val — ValPrev<br/> else<br/> Up[I] = 0<br/> end<br/> if ValPrev > Val then<br/> Down[I] = ValPrev — Val<br/> else<br/> Down[I] = 0<br/> end<br/> if (I == P) or (I == P+1) then<br/> local sumU = 0<br/> local sumD = 0<br/> for i = I-P+1, I do<br/> sumU = sumU + Up[i]<br/> sumD = sumD + Down[i]<br/> end<br/> val_Up[I] = sumU/P<br/> val_Down[I] = sumD/P<br/> end<br/> if I > P+1 then<br/> val_Up[I] = (val_Up[I-1] * (P-1) + Up[I]) / P<br/> val_Down[I] = (val_Down[I-1] * (P-1) + Down[I]) / P<br/> Out[I] = 100 / (1 + (val_Down[I] / val_Up[I])) <br/> end <br/> end <br/> if I > PK*2 then <br/> RsiOut=D_MA(I,{Period=PK, Metod = M, VType=«Any», round=R}, Out)<br/> end<br/> _,_,proSO[I]= MaxMin(I,5,ds,3)<br/> if I>=(PK+3-1) then <br/> SignSO=D_MA(I, {Period=3, Metod = «SMA», VType=«Any», round=«off»}, proSO)<br/> end<br/> return rounding(RsiOut, 4),rounding(proSO[I], 4),rounding(SignSO, 4),rounding(Out[I], 4)<br/> end <br/> end <br/> <br/> -------------------------------------------------------<br/> -------------------------------------------------------<br/> function MA() --Moving Average («MA»)<br/> local t_SMA = F_SMA()<br/> local t_EMA = F_EMA()<br/> return function(I, Fsettings, ds)<br/> local Out = nil<br/> local Fsettings=(Fsettings or {})<br/> local P = (Fsettings.Period or 9)<br/> local M = (Fsettings.Metod or «EMA»)<br/> local VT = (Fsettings.VType or «Close»)<br/> local R = (Fsettings.round or «off»)<br/> if M == «SMA» then<br/> Out = t_SMA(I, P, VT, ds, R)<br/> elseif M == «EMA» then<br/> Out = t_EMA(I, P, VT, ds, R)<br/> else<br/> Out = nil<br/> end<br/> return rounding(Out, R)<br/> end<br/> end<br/> ------------------------------------------------------<br/> function MaxMin(ind,Pk,ds,Sk)<br/> if ind < Pk+Sk then<br/> return nil<br/> else<br/> local suCM=0<br/> local suMM=0 <br/> for i = ind — Sk+1, ind do<br/> MAX = Value(i-Pk+1,«High»,ds)<br/> MIN = Value(i-Pk+1,«Low»,ds)<br/> for k = 0, Pk-1 do<br/> MAX=math.max(MAX,Value(i-k,«High»,ds))<br/> MIN=math.min(MIN,Value(i-k,«Low»,ds))<br/> end<br/> --message('тран:'..OutWR,1) <br/> suCM=suCM+(Value(i, «Close», ds)-MIN)<br/> suMM=suMM+(MAX-MIN)<br/> end<br/> local TenKu=(MAX+MIN)/2<br/> local OutWR=100*(Value(ind,«Close», ds)-MIN)/(MAX-MIN) <br/> local proKol =100*suCM/suMM<br/> local wpr = ((MAX — Value(ind,«Close», ds)) / (MAX — MIN)) * (-100) <br/> return rounding(TenKu, 6),rounding(OutWR, 6),rounding(proKol, 6)<br/> end<br/> end<br/> ------------------------------------------------------------------<br/> function F_SMA()<br/> return function (I, Period, VType, ds, R) <br/> local Out = nil<br/> if I >= Period then<br/> local sum = 0<br/> for i = I-Period+1, I do<br/> sum = sum +Value(i, VType, ds)<br/> end<br/> Out = sum/Period<br/> end <br/> return rounding(Out,R)<br/> end<br/> end<br/> ---------------------------------------------------------<br/> function F_EMA() <br/> local EMA_TMP={}<br/> return function(I, Period, VType, ds, R)<br/> local Out = nil<br/> if I == 1 then<br/> EMA_TMP[I]=rounding(Value(I, VType, ds),R)<br/> else<br/> EMA_TMP[I]=rounding((EMA_TMP[I-1]*(Period-1)+2*Value(I, VType, ds)) / (Period+1),R)<br/> <br/> end<br/> <br/> if I >= Period then<br/> Out = EMA_TMP[I]<br/> end<br/> return rounding(Out,R)<br/> end<br/> end<br/> -------------------------------------------------------<br/> function Value(I,VType,ds) <br/> local Out = nil<br/> VType=(VType and string.upper(string.sub(VType,1,1))) or «A»<br/> if VType == «O» then --Open<br/> Out = (O and O(I)) or (ds and ds:O(I))<br/> elseif VType == «H» then --High<br/> Out = (H and H(I)) or (ds and ds:H(I))<br/> elseif VType == «L» then --Low<br/> Out = (L and L(I)) or (ds and ds:L(I))<br/> elseif VType == «C» then --Close<br/> Out = (C and C(I)) or (ds and ds:C(I))<br/> elseif VType == «V» then --Volume<br/> Out = (V and V(I)) or (ds and ds:V(I)) <br/> elseif VType == «M» then --Median<br/> Out = ((Value(I,«H»,ds) + Value(I,«L»,ds)) / 2)<br/> elseif VType == «T» then --Typical<br/> Out = ((Value(I,«M»,ds) * 2 + Value(I,«C»,ds))/3)<br/> elseif VType == «W» then --Weighted<br/> Out = ((Value(I,«T»,ds) * 3 + Value(I,«O»,ds))/4) <br/> elseif VType == «D» then --Difference<br/> Out = (Value(I,«H»,ds) — Value(I,«L»,ds))<br/> elseif VType == «A» then --Any<br/> if ds then Out = ds[I] else Out = nil end<br/> end<br/> return Out<br/> end<br/> <br/> function rounding(num, round) <br/> if round and string.upper(round)== «ON» then round=0 end<br/> if num and tonumber(round) then<br/> local mult = 10^round<br/> if num >= 0 then return math.floor(num * mult + 0.5) / mult<br/> else return math.ceil(num * mult — 0.5) / mult end<br/> else return num end<br/> end<br/> <br/> Сохранить в файл с расширением lua<br/> Например StohRsi,lua<br/> Файл поместиь в папку Luaindicators <br/> <br/> "