- Code: Select all
function Init()
indicator:name("Super Trend oscillator");
indicator:description("");
indicator:requiredSource(core.Bar);
indicator:type(core.Oscillator);
indicator.parameters:addColor("UP_color", "Color of UP", "Color of UP", core.rgb(0, 255, 0));
indicator.parameters:addColor("DN_color", "Color of DN", "Color of DN", core.rgb(255, 0, 0));
end
local first;
local source = nil;
local Alpha;
local Buff1=nil;
local Buff4=nil;
local bufferUp=nil;
local bufferDn=nil;
local var4=0.;
function Prepare()
source = instance.source;
first = source:first();
local name = profile:id() .. "(" .. source:name() .. ")";
instance:name(name);
bufferUp = instance:addStream("UP", core.Bar, name .. ".UP", "UP", instance.parameters.UP_color, first);
bufferDn = instance:addStream("DN", core.Bar, name .. ".DN", "DN", instance.parameters.DN_color, first);
Alpha=core.makeArray(100);
Buff1 = instance:addInternalStream(0, 0);
Buff4 = instance:addInternalStream(0, 0);
local var1;
local var2;
local var3;
for i1=0,97,1 do
if i1<=18 then
var1=i1/18.;
else
var1=(i1-18.)*7./79.+1.;
end
var2=math.cos(math.pi*var1);
var3=1./(3.+math.pi*var1+1.);
if var1<=0.5 then
var3=1.;
end
Alpha[i1]=var3*var2;
var4=var4+Alpha[i1];
end
end
function Update(period, mode)
if (period>=first+100) then
local var5=0.;
local var6;
for i3=0,98,1 do
var6=source.close[period-i3];
var5=var5+Alpha[i3]*var6;
end
if var4>0. then
Buff1[period]=var5/var4;
end
Buff4[period]=Buff4[period-1];
if Buff1[period]>Buff1[period-1] then
Buff4[period]=1;
end
if Buff1[period]<Buff1[period-1] then
Buff4[period]=-1;
end
if Buff4[period]>0 then
bufferUp[period]=Buff1[period];
if Buff4[period-1]<0 then
bufferUp[period-1]=Buff1[period-1];
end
bufferDn[period]=nil;
end
if Buff4[period]<0 then
bufferDn[period]=Buff1[period];
if Buff4[period-1]>0 then
bufferDn[period-1]=Buff1[period-1];
end
bufferUp[period]=nil;
end
else
Buff1[period]=0.;
Buff4[period]=0.;
bufferUp[period]=0.;
bufferDn[period]=0.;
end
end
Single Output Stream Version
The indicator was revised and updated