Поделитесь пож материалами по global variable for tradestation 91.
Спасибо.
{***************************************************************************************************
Description: Функция предназначена для экспорта переменной в индикатор и её последующего отображения
на диаграмме
***************************************************************************************************}
Using elsystem;
Using elsystem.collections;
Inputs: String Prefix(StringSimple),
Double Value (NumericSimple);
Vars: GlobalDictionary WDic (Null),
GlobalValue GVal (Null);
If WDic = Null
Then Begin
WDic = GlobalDictionary.Create();
GVal = GlobalValue.Create();
GVal.Channel = AnalysisTechnique.Name + "Prefix";
GVal.Load = True;
GVal.StringValue = Prefix;
End;
If WDic.Contains(Prefix + BarDateTime.ToString()) = False
Then WDic.Add (Prefix + BarDateTime.ToString(), Value AsType Double)
Else WDic.Items [Prefix + BarDateTime.ToString()] = Value AsType Double;
$_WDicValueToChart = Value;
{***************************************************************************************************
Description: Индикатор предназначен для импорта переменной из функции и её последующего отображения
на диаграмме
***************************************************************************************************}
Using elsystem;
Using elsystem.collections;
Vars: GlobalDictionary WDic (Null),
GlobalValue GVal (Null),
String Prefix("");
If WDic = Null
Then Begin
WDic = GlobalDictionary.Create();
GVal = GlobalValue.Create();
GVal.Channel = AnalysisTechnique.Name + "Prefix";
GVal.Load = True;
Prefix = GVal.StringValue;
End;
If WDic.Contains(Prefix + BarDateTime.ToString()) = True
Then Value0 = WDic.Items [Prefix + BarDateTime.ToString()] AsType Double;
Plot1(Value0, "ValueToChart", DarkGray, Default, 0);
If Plot1 > 0 Then SetPlotColor(1, DarkGreen) Else
If Plot1 = 0 Then SetPlotColor(1, DarkGray) Else
If Plot1 < 0 Then SetPlotColor(1, DarkRed);
