На рисунке В-1 представлен код Функции Пользователя, которая называется TXAverage, т.е. Тройное Экспоненциальное Скользящее Среднее. Код имеет следующий формат: TXAverage(Price,r,s,u), где
г - порядок скользящей средней, применительно к Цене;
S - порядок скользящей средней, примененной к результату первого сглаживания;
U - это порялдок ЕМА, примененной к результату вычисления двух предыдущих скользящих средних. Сам код выделен жирным шрифтом.
Индекс Истинной Силы, описанный в главе 2, представлен на рисунке В-2 как функция пользователя с именем TSI. В коде используется тройное экспоненциальное сглаживание и вызывается функция пользователя TXAverage, определенная(описанная) на рисунке В-1.
Эргодика представлена кодом индикатора с двумя входными переменными. В круглых скобках показаны значения входных переменных по умолчанию: период г равен 32 дням, и зафиксирован нулевой уровень отсчета по вертикали. На выходе имеем три графика. График 1 представляет собой функцию пользователя для Индекса Истинной Силы. Этот график называется «Эргодика». График 2 является сглаженным с помощью ЕМА графиком 1, период сглаживания берется равным 5, результирующая кривая называется «SigLin» («Сигнальная линия»). График 3 представляет собой просто горизонтальную линию нулевого уровня и называется «Zero».
Приведенные коды аналогичны тем методам, которые разбирались в примерах книги.
ПРИЛОЖЕНИЕ В . 145 ФУНКЦИЯ ПОЛЬЗОВАТЕЛЯ TXAverage
{Функция пользователя: TXAverage = Тройное Экспоненциальное Скользящее Среднее по Bill Blau}
{ФОРМАТ: TXAverage(Price, г, s, u)}
Inputs:Price(NumericSeries), r(NumericSimpIe).
s(NumericSimpIe), u(NumericSimple);
TXAverage = XAverage(XAverage(XAverage(Price.r).s),u);
Рис. B-1. TXAverage: Тройное ЕМА
ФУНКЦИЯ ПОЛЬЗОВАТЕЛЯ TSI Код
{Функция пользователя: TSI = Индекс Истинной Силы по Bill Blau}
{Используется тройное экспоненциальное скользящее среднее} {ФОРМАТ TSI(Price, г, s, и)}
Inputs:Price(NumericSeries), r(NumericSimple),
s(NumericSimple), u(NumericSimple); Valuel = 100 * TXAverage(Price - Price[ll. r. s. u);
{Числитель}
Value2 = TXAverage(AbsValue(Price - Price[l], r. s, u);
{Знаменатель}
If Value2 <> 0 then
TSI = Value 1/Value2
Else
TSI = 0;
Рис. B-2. TSI: Индекс Истинной Силы.