public IVariable Indexer(GekkoTime t, bool isLhs, params IVariable[] indexes)
{
if (indexes.Length > 0 && indexes[0].Type() == EVariableType.String)
{
string hash = TimeSeries.GetHashCodeFromIvariables(indexes);
O.ECreatePossibilities canCreate = O.ECreatePossibilities.None;
if (isLhs)
{
canCreate = O.ECreatePossibilities.Can;
}
string varHash = this.ts.variableName + Globals.symbolTurtle + hash;
TimeSeries ts = this.ts.parentDatabank.GetVariable(this.ts.freqEnum, varHash);
if (ts == null)
{
if (canCreate == O.ECreatePossibilities.None)
{
G.Writeln2("*** ERROR: Cannot find " + this.ts.parentDatabank.aliasName + ":" + this.ts.variableName + "[" + G.PrettifyTimeseriesHash(hash, false, false) + "]");
throw new GekkoException();
}
ts = new TimeSeries(this.ts.freqEnum, varHash);
this.ts.parentDatabank.AddVariable(ts);
}
return(new MetaTimeSeries(ts));
}
else
{
//y[2010] or y[-1]
IVariable index = indexes[0];
if (index.Type() == EVariableType.Val)
{
int ival = O.GetInt(index);
if (ival >= 1900)
{
return(new ScalarVal(this.ts.GetData(new GekkoTime(EFreq.Annual, ival + this.offset, 1))));
}
else
{
//typically ival numerically < 10 here
//return new MetaTimeSeries(this.ts, ival, this.bank, this.variable);
return(new MetaTimeSeries(this.ts, ival + this.offset));
//10% faster, but maybe more error prone...
//this.offset = ival;
//return this;
}
}
else if (index.Type() == EVariableType.Date)
{
return(new ScalarVal(this.ts.GetData(((ScalarDate)index).date.Add(this.offset))));
}
else
{
//should not be possible
G.Writeln2("*** ERROR: SERIES uses []-indexer with wrong variable type");
throw new GekkoException();
}
}
}
public IVariable Indexer(GekkoTime t, bool isLhs, params IVariable[] indexes)
{
//Check if any indexer elements are LIST type, if not lists = null.
List <int> lists = null;
for (int i = 0; i < indexes.Length; i++)
{
IVariable iv = indexes[i];
if (iv.Type() == EVariableType.List)
{
if (lists == null)
{
lists = new List <int>();
}
lists.Add(i);
}
}
if (lists != null)
{
List <string> temp = new List <string>();
if (lists.Count == 1)
{
List <string> m = ((MetaList)indexes[lists[0]]).list;
foreach (string s in m)
{
string ss = null;
for (int i = 0; i < indexes.Length; i++)
{
if (i == lists[0])
{
ss += Globals.symbolTurtle + s;
}
else
{
ss += Globals.symbolTurtle + O.GetString(indexes[i]);
}
}
ss = this.ts.variableName + ss;
string bankname = null;
if (!G.equal(Program.databanks.GetFirst().aliasName, this.ts.parentDatabank.aliasName))
{
bankname = this.ts.parentDatabank.aliasName + ":";
}
temp.Add(bankname + ss);
}
}
else if (lists.Count == 2)
{
List <string> m1 = ((MetaList)indexes[lists[0]]).list;
List <string> m2 = ((MetaList)indexes[lists[1]]).list;
foreach (string s1 in m1)
{
foreach (string s2 in m2)
{
string ss = null;
for (int i = 0; i < indexes.Length; i++)
{
if (i == lists[0])
{
ss += Globals.symbolTurtle + s1;
}
else if (i == lists[1])
{
ss += Globals.symbolTurtle + s2;
}
else
{
ss += Globals.symbolTurtle + O.GetString(indexes[i]);
}
}
ss = this.ts.variableName + ss;
string bankname = null;
if (!G.equal(Program.databanks.GetFirst().aliasName, this.ts.parentDatabank.aliasName))
{
bankname = this.ts.parentDatabank.aliasName + ":";
}
temp.Add(bankname + ss);
}
}
}
else
{
G.Writeln2("*** ERROR: Sorry, unfolding of > 2 dimension not supported at the moment");
throw new GekkoException();
}
MetaList ml = new Gekko.MetaList(temp);
return(ml);
}
else if (indexes.Length > 0 && indexes[0].Type() == EVariableType.String)
{
string hash = TimeSeries.GetHashCodeFromIvariables(indexes);
O.ECreatePossibilities canCreate = O.ECreatePossibilities.None;
if (isLhs)
{
canCreate = O.ECreatePossibilities.Can;
}
string varHash = this.ts.variableName + Globals.symbolTurtle + hash;
TimeSeries ts = this.ts.parentDatabank.GetVariable(this.ts.freqEnum, varHash);
if (ts == null)
{
if (canCreate == O.ECreatePossibilities.None)
{
if (Program.options.series_array_ignoremissing)
{
return(new ScalarVal(0d));
}
else
{
string prettyName = this.ts.parentDatabank.aliasName + ":" + this.ts.variableName + "[" + G.PrettifyTimeseriesHash(hash, false, false) + "]";
G.Writeln2("*** ERROR: Cannot find " + prettyName);
if (prettyName.Contains("["))
{
Program.ArrayTimeseriesTip(this.ts.variableName);
}
G.Writeln("+++ NOTE: Set 'OPTION series array ignoremissing = yes;' to ignore this error.");
throw new GekkoException();
}
}
else
{
ts = new TimeSeries(this.ts.freqEnum, varHash);
this.ts.parentDatabank.AddVariable(ts);
}
}
this.ts.SetDirtyGhost(true, true); //otherwise, an ASER x['a'] = ... will not register 'x' as a ghost.
return(new MetaTimeSeries(ts));
}
else
{
//y[2010] or y[-1]
IVariable index = indexes[0];
if (index.Type() == EVariableType.Val)
{
int ival = O.GetInt(index);
if (ival >= 1900)
{
return(new ScalarVal(this.ts.GetData(new GekkoTime(EFreq.Annual, ival + this.offset, 1))));
}
else
{
//typically ival numerically < 10 here
//return new MetaTimeSeries(this.ts, ival, this.bank, this.variable);
return(new MetaTimeSeries(this.ts, ival + this.offset));
//10% faster, but maybe more error prone...
//this.offset = ival;
//return this;
}
}
else if (index.Type() == EVariableType.Date)
{
return(new ScalarVal(this.ts.GetData(((ScalarDate)index).date.Add(this.offset))));
}
else
{
//should not be possible
G.Writeln2("*** ERROR: SERIES uses []-indexer with wrong variable type");
throw new GekkoException();
}
}
}