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;

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;