TOS fold loop to easylanguage

December 25th, 2018, 10:55 AM

Hi all,
I'm trying to convert a TOS script that I have to tradestation and I'm having a doosey of a time figuring this out. I'm relatively new to TS and have only a fairly basic level of programming knowledge, so I'm hoping someone with more knowledge of loops than I can lend a hand.

Original TOS code:

Code

#Classify Volumes
def V_Rank         = fold vi = -4 to 5 with iVRank = 0 do if V > Power(Double.E, V_LNmu + V_LNsigma * ((vi == -4) * ((-V_LNmu + Log(TickSize() / 2) / V_LNsigma)) + (vi == -3) * (-1 * ExtremeDev) + (vi == -2) * (-1 * LargeDev) + (vi == -1) * (-1 * AboveNormalDev) + (vi ==  0) * (-1 * NormalDev) + (vi ==  1) * (NormalDev) + (vi ==  2) * (AboveNormalDev) + (vi ==  3) * (LargeDev) + (vi ==  4) * (ExtremeDev))) then vi else iVRank;

What I've got in TS so far (it's rather pathetic):

Code

Const:
	e(2.71828);
//Classify Volumes
For vi = -4 to 5 w
Begin 
	while ivRank = 0;
	if V > Power(e, V_LNmu + V_LNsigma * ((vi = -4) * ((-V_LNmu + Log(TickSize() / 2) / V_LNsigma)) + (vi = -3) * (-1 * ExtremeDev) + (vi = -2) * (-1 * LargeDev) + (vi = -1) * (-1 * AboveNormalDev) + (vi =  0) * (-1 * NormalDev) + (vi =  1) * (NormalDev) + (vi =  2) * (AboveNormalDev) + (vi =  3) * (LargeDev) + (vi =  4) * (ExtremeDev))) 
	then V_Rank = vi else V_Rank = iVRank;

February 27th, 2019, 01:06 AM

Hi kjhosken,

The TOS code is quite convoluted. Here is the EL code:

Code

Const: e(2.71828);
vars: V_rank(0), vi(0);
array: X[10](0);

V_rank = 0;

X[1] =  (-V_LNmu + Log(TickSize() / 2) / V_LNsigma);
X[2] = -1 * ExtremeDev;
X[3] =  (-1 * LargeDev);
X[4] = (-1 * AboveNormalDev);
X[5] = (-1 * NormalDev);
X[6] = NormalDev;
X[7] = AboveNormalDev;
X[8] = LargeDev;
X[9] = ExtremeDev;
X[10] = 0;

for vi = -4 to 5 begin
    if  V > Power(e, V_LNmu + V_LNsigma * (X[vi + 5])) then
        V_Rank = vi;
end;

TOS fold loop to easylanguage

Discussion in EasyLanguage Programming

TOS fold loop to easylanguage