В этом разделе я буду выкладывать совершенно бесплатно все торговые роботы (СОВЕТНИКИ) и скрипты для терминала ТРАНЗАК (TRANSAQ) для торговли на Московской бирже, FORTS.
Поэтому, уважаемые трейдеры, скачиваем, тестируем, наслаждаемся торговлей!
Все для терминала Транзак (Transaq)
Скрипты
Скачать робота помощника Автоматический STOP & PROFIT для Transaq
В Чем прелесть робота- помощника:
— Если программа видит сделку, она выставляет Stop Loss и Take Profit с заданными параметрами;
— Если сделка закрыта вручную полностью или частично, снимает/корректирует Стоп-заявки.
ВСЕ МАТЕРИАЛЫ предоставлены для ознакомления, скачивание материала с целью дальнейшей продажи или распространения запрещено.
ВСЕ МАТЕРИАЛЫ НА ДАННОЙ СТРАНИЦЕ САЙТА БЫЛИ НАЙДЕНЫ НА ПРОСТОРАХ ИНТЕРНЕТА И НАХОДИЛИСЬ В СВОБОДНОМ ДОСТУПЕ.
Список примеров ATF по категориям
Индикаторы
%R
extern period = 27;
function init() {
setInitCandles(period - 1);
setBounds(0, period - 1, 0);
}
function calc() {
var p = 1 - period;
var hi = high[p, 0];
line[0] = -100 * (hi - close) / (hi - low[p, 0]);
}
A/D
function init()
{
setInitCandles(1);
if (high == low) {
line[0] = 0;
}
else {
line[0] = (2 * close - high - low) * volume / (high - low);
}
}
function calc()
{
if (high == low) {
line[0] = line[0][-1];
}
else {
line[0] = line[0][-1] +
(2 * close - high - low) * volume / (high - low);
}
}
ADX
function init()
{
setInitCandles(1);
setBounds(0, 1, 0);
}
function calc()
{
var pdi = IndRef("pdimdi", 27)[0];
var mdi = IndRef("pdimdi", 27)[1];
if (pdi and mdi) {
line[0] = 100*abs(pdi-mdi)/(pdi+mdi);
}
}
Alligator
#samewindow
#line 0 solid blue
#line 1 solid red
#line 2 solid green
extern period1 = 13;
extern period2 = 8;
extern period3 = 5;
extern lag1 = 8;
extern lag2 = 5;
extern lag3 = 2;
function init()
{
setBounds(0, lag1, lag1);
setBounds(1, lag2, lag2);
setBounds(2, lag3, lag3);
}
function calc()
{
line[0][lag1] = MovAvg(ind_smma, period1, pt_med);
line[1][lag2] = MovAvg(ind_smma, period2, pt_med);
line[2][lag3] = MovAvg(ind_smma, period3, pt_med);
}
AO
#line 0 colored_hist
extern period1 = 5;
extern period2 = 34;
function init()
{
var max = period1;
if (period2 > max) {max = period2;}
setBounds(0, max - 1, 0);
}
function calc()
{
line[0] = MovAvg(ind_sma, period1, pt_med) -
MovAvg(ind_sma, period2, pt_med);
}
ATR
extern period = 27;
function init()
{
setInitCandles(2);
setBounds(0, 1, 0);
var tr = high[1] - low[1];
if (tr < high[1] - close) {tr = high[1] - close;}
if (tr < close - low[1]) {tr = close - low[1];}
line[0][1] = tr;
}
function calc()
{
var tr = high - low;
if (tr < high - close[-1]) {tr = high - close[-1];}
if (tr < close[-1] - low) {tr = close[-1] - low;}
var alpha = 2 / (period + 1);
line[0] = alpha * tr + (1 - alpha) * line[0][-1];
}
Bollinger Bands
#samewindow
#line 0 solid #00C000
#line 1 solid #006000
#line 2 solid #006000
extern ma_period = 20;
extern sd_period = 20;
extern k = 2;
function init()
{
var m = ma_period;
if (m < sd_period) {m = sd_period;}
setInitCandles(m);
setBounds(0, m, 0);
setBounds(1, m, 0);
setBounds(2, m, 0);
}
function calc()
{
var sd = StdDev(stddev_abs, sd_period, pt_close);
var v = MovAvg(ind_sma, ma_period, pt_close);
line[0] = v;
line[1] = v + k * sd;
line[2] = v - k * sd;
}
CCI
extern period = 20;
extern var_period = 20;
extern k = 0.015;
function init()
{
var m = period;
if (m < var_period) {m = var_period;}
setInitCandles(m);
setBounds(0, m, 0);
}
function calc()
{
var m = 0;
var md = 0;
var i = 0;
while (i < var_period) {
m += typical[-i] / var_period;
i += 1;
}
i = 0;
while (i < var_period) {
md += abs(typical[-i] - m) / var_period;
i += 1;
}
line[0] = (typical - MovAvg(ind_sma, period, pt_typical)) / (k * md);
}
CMO
extern period = 27;
function init()
{
setInitCandles(period);
setBounds(0, period, 0);
}
function calc()
{
var sumUp = 0;
var sumDown = 0;
var i = 0;
while (i < period) {
var d = close[-i] - close[-i - 1];
if (d > 0) {sumUp += d / period;}
else {sumDown += -d / period;}
i += 1;
}
line[0] = 100 * (sumUp - sumDown) / (sumUp + sumDown);
}
DeMarker
#line 0 nodraw
#line 1 nodraw
extern period = 17;
function init()
{
setInitCandles(1);
setBounds(2, period, 0);
}
function calc()
{
if (high > high[-1]) {line[0] = high - high[-1];}
if (low < low[-1]) {line[1] = low[-1] - low;}
var sma_demax = MovAvg(ind_sma, period, line[0]);
var sma_demin = MovAvg(ind_sma, period, line[1]);
var d = sma_demin + sma_demax;
if (d > 0) {
line[2] = sma_demax / (sma_demin + sma_demax);
}
}
Chaikin Volatility
extern period = 10;
var emaold;
var emacur;
function init()
{
setInitCandles(period);
emaold = high - low;
emacur = high[period] - low[period];
line[0] = 100 * (emacur - emaold) / emaold;
setBounds(0, period, 0);
}
function calc()
{
var alpha = 2 / (period + 1);
emaold = alpha * (high[-period] - low[-period]) +
(1 - alpha) * emaold;
emacur = alpha * (high - low) + (1 - alpha) * emacur;
line[0] = 100 * (emacur - emaold) / emaold;
}
EFI
extern period = 13;
function init()
{
setInitCandles(2);
setBounds(0, 1, 0);
line[0][1] = (close[1] - close) * volume[1];
}
function calc()
{
var alpha = 2 / (period + 1);
line[0] = alpha * volume * (close - close[-1]) +
(1 - alpha) * line[0][-1];
}
Elder-rays
extern period = 10;
function calc()
{
var ema = MovAvg(ind_ema, period, pt_close);
line[0] = high - ema;
line[1] = low - ema;
}
Ichimoku Kinko Hyo
#samewindow
extern n1 = 9;
extern n2 = 26;
extern n3 = 52;
function init()
{
setInitCandles(n3);
setBounds(0, n3, 0);
setBounds(1, n3, 0);
setBounds(2, n3, -n2);
setBounds(3, n3, -n2);
setBounds(4, n3 * 2, n2);
}
function calc()
{
line[0] = (high[-n1, 0] + low[-n1, 0]) / 2;
line[1] = (high[-n2, 0] + low[-n2, 0]) / 2;
line[2][-n2] = (line[0] + line[1]) / 2;
line[3][-n2] = (high[-n3, 0] + low[-n3, 0]) / 2;
line[4][n2] = close;
}
Impulse system (A. Elder)
#line 0 nodraw
#line 1 nodraw
#line 2 hist
extern ma_period = 13;
extern macd1 = 12;
extern macd2 = 26;
extern macd_signal = 9;
function init()
{
setInitCandles(1);
setBounds(2, 1, 0);
}
function calc()
{
line[0] = MovAvg(ind_ema, ma_period, pt_close);
line[1] = IndRef("macdhistogram", macd1, macd2, macd_signal,
ind_ema, ind_ema, ind_ema, pt_close)[0];
if (line[0] > line[0][-1] && line[1] > line[1][-1]) {
line[2] = 1;
}
if (line[0] < line[0][-1] && line[1] < line[1][-1]) {
line[2] = -1;
}
}
MA Envelope
#samewindow
#line 0 solid #00c000
#line 1 solid #00c000
extern period = 14;
extern k = 2;
function calc()
{
var ma = MovAvg(ind_ema, period, pt_close);
line[0] = ma * (1 + k/1000);
line[1] = ma * (1 - k/1000);
}
ParabolicSAR
#samewindow
#line 0 dot maroon
extern step = 0.02;
extern init_step = 0.02;
extern max_step = 0.20;
var ac;
var trend;
var ep;
function init()
{
setInitCandles(1);
if (low < low[1]) {
trend = 1;
ep = high[0, 1];
line[0] = low;
}
else {
trend = -1;
ep = low[0, 1];
line[0] = high;
}
ac = init_step;
}
function calc()
{
if (trend == 1) {
if (high > ep) {
ep = high;
ac += step;
if (ac > max_step) {ac = max_step;}
}
line[0] = line[0][-1] + ac * (ep - line[0][-1]);
if (low < line[0]) {
trend = -1;
line[0] = ep;
ep = low;
ac = init_step;
}
}
else {
if (low < ep) {
ep = low;
ac += step;
if (ac > max_step) {ac = max_step;}
}
line[0] = line[0][-1] + ac * (ep - line[0][-1]);
if (high > line[0]) {
trend = 1;
line[0] = ep;
ep = high;
ac = init_step;
}
}
}
PDI, MDI
extern period = 27;
var alpha;
var pdm;
var mdm;
var tr;
function init()
{
alpha = 2/(period+1);
setInitCandles(1);
setCurrentPosition(1);
pdm = high - high[-1];
mdm = low[-1] - low;
if (pdm<0) {pdm = 0;}
if (mdm<0) {mdm = 0;}
if (pdm < mdm) {pdm = 0;}
else {mdm = 0;}
tr = high - low;
if (tr < high - close[-1]) {tr = high - close[-1];}
if (tr < close[-1] - low) {tr = close[-1] - low;}
if (tr) {
line[0] = pdm/tr;
line[1] = mdm/tr;
}
}
function calc()
{
var pdmt = high - high[-1];
var mdmt = low[-1] - low;
if (pdmt<0) {pdmt = 0;}
if (mdmt<0) {mdmt = 0;}
if (pdmt < mdmt) {pdmt = 0;}
else {mdmt = 0;}
var trt = high - low;
if (trt < high - close[-1]) {trt = high - close[-1];}
if (trt < close[-1] - low) {trt = close[-1] - low;}
pdmt = (1 - alpha) * pdm + alpha * pdmt;
mdmt = (1 - alpha) * mdm + alpha * mdmt;
tr = (1 - alpha) * tr + alpha * trt;
if (trt) {
line[0] = pdmt/tr;
line[1] = mdmt/tr;
}
else {
line[0] = line[0][-1];
line[1] = line[1][-1];
}
pdm = pdmt;
mdm = mdmt;
}
RAVI
extern period1 = 7;
extern period2 = 65;
function init()
{
setInitCandles(period2);
setBounds(0, period2, 0);
}
function calc()
{
var m1 = MovAvg(ind_sma, period1, pt_close);
var m2 = MovAvg(ind_sma, period2, pt_close);
line[0] = abs(100 * (m1 - m2) / m2);
}
RSI (EMA based)
extern period = 14;
var up;
var down;
function init()
{
up = 0;
down = 0;
setInitCandles(period - 1);
setBounds(0, period - 1, 0);
var i = 1;
while (i <= period) {
var delta = close[i] - close[i - 1];
if (delta > 0) {up += delta;}
else {down -= delta;}
i += 1;
}
up /= period - 1;
down /= period - 1;
line[0][period] = 100 - 100 / (1 + up / down);
}
function calc()
{
var delta = close - close[-1];
var u = 0;
var d = 0;
if (delta > 0) {u = delta;}
else {d = -delta;}
up = (up*(period - 1) + u) / period;
down = (down*(period - 1) + d) / period;
line[0] = 100 - 100 / (1 + up / down);
}
RVI
#line 2 nodraw
#line 3 nodraw
function init()
{
setInitCandles(4);
setBounds(0, 8, 0);
setBounds(1, 12, 0);
}
function calc()
{
line[2] = (close - open) + 2*(close[-1] - open[-1])
+ 2*(close[-2] - open[-2]) + (close[-3] - open[-3]);
line[3] = (high - low) + 2*(high[-1] - low[-1])
+ 2*(high[-2] - low[-2]) + (high[-3] - low[-3]);
if (noCandle() < 7) {return;}
line[0] = sumLine(2, -4) / sumLine(3, -4);
if (noCandle() < 11) {return;}
line[1] = (line[0] + 2*line[0][-1] + 2*line[0][-2] + line[0][-3]) / 6;
}
ZigZag
#samewindow
#line 0 solid red
extern rate = 1;
var trend = 1;
var last;
var last_n;
var last_extr;
var last_extr_n = 0;
var r;
function init() {
last = close;
line[0] = close;
last_extr = close;
last_extr_n = 0;
last_n = 0;
r = rate / 100;
}
function getCandleLag(var n, var curr)
{
return -(curr - n);
}
function approxLinear(var x1, var y1, var x2, var y2)
{
var n = x2 - x1;
if (!n) {
line[0][getCandleLag(x1, noCandle())] = y1;
return;
}
var k = (y2 - y1) / n;
var i = 0;
while (i <= n) {
line[0][getCandleLag(x1 + i, noCandle())] = y1 + k*i;
i += 1;
}
}
function myFindMax(var from, var to)
{
var m = high[getCandleLag(from, noCandle())];
var n = from;
var i = from + 1;
while (i <= to) {
var x = high[getCandleLag(from, noCandle())];
if (x > m) {
m = x;
n = i;
}
i += 1;
}
return n;
}
function myFindMin(var from, var to)
{
var m = low[getCandleLag(from, noCandle())];
var n = from;
var i = from + 1;
while (i <= to) {
var x = low[getCandleLag(from, noCandle())];
if (x < m) {
m = x;
n = i;
}
i += 1;
}
return n;
}
function calc()
{
if (trend == 1) {
if (close > last_extr) {
last_extr = high;
last_extr_n = noCandle();
approxLinear(last_n, last, noCandle(), high);
}
else {
approxLinear(last_extr_n, last_extr, noCandle(), low);
}
}
if (trend == -1) {
if (close < last_extr) {
last_extr = low;
last_extr_n = noCandle();
approxLinear(last_n, last, noCandle(), low);
}
else {
approxLinear(last_extr_n, last_extr, noCandle(), high);
}
}
if (abs(close - last_extr) / last_extr > r) {
var old_n = last_n;
var old = last;
last_n = last_extr_n;
last = last_extr;
if (trend > 0) {
trend = -1;
last_extr_n = myFindMin(last_n, noCandle());
last_extr = low[getCandleLag(last_extr_n, noCandle())];
}
else {
trend = 1;
last_extr_n = myFindMax(last_n, noCandle());
last_extr = high[getCandleLag(last_extr_n, noCandle())];
}
approxLinear(old_n, old, last_n, last);
approxLinear(last_n, last, noCandle(), close);
}
}
Pivot points
#samewindow
#line 0 solid blue
#line 1 dashed green
#line 2 dashed red
#line 3 dot green
#line 4 dot red
var day; // current day
var nday; // number of day in chart
var ph; // high of yesterday
var pl; // low of yesterday
var pc; // close of yesterday
var cl; // today's low
var ch; // today's high
function init()
{
nday = 1;
day = getDay(getCandleTime());
}
function drawLines()
{
line[0] = (ph + pl + pc) / 3; // Pivot point
line[1] = 2*line[0] - ph; // Support 1
line[2] = 2*line[0] - pl; // Resistance 1
line[3] = line[0] - (line[2] - line[1]); // Resistance 2
line[4] = line[0] + (line[2] - line[1]); // Support 2
}
function calc()
{
if (nday == 1) {
if (getDay(getCandleTime()) != day) {
nday = 2;
day = getDay(getCandleTime());
ph = high;
pl = low;
}
}
else if (nday == 2) {
if (getDay(getCandleTime()) != day) {
nday = 3;
day = getDay(getCandleTime());
cl = low;
ch = high;
pc = close[-1];
drawLines();
setBounds(0, noCandle(), 0);
setBounds(1, noCandle(), 0);
setBounds(2, noCandle(), 0);
setBounds(3, noCandle(), 0);
setBounds(4, noCandle(), 0);
}
else {
if (high > ph) {ph = high;}
if (low < pl) {pl = low;}
}
}
else {
if (getDay(getCandleTime()) != day) {
nday += 1;
day = getDay(getCandleTime());
ph = ch;
pl = cl;
pc = close[-1];
cl = low;
ch = high;
}
else {
if (high > ch) {ch = high;}
if (low < cl) {cl = low;}
}
drawLines();
}
}
Stochastic Momentum Index
#line 0 nodraw
#line 1 nodraw
#line 2 nodraw
#line 3 nodraw
#line 4 nodraw
#line 5 nodraw
#line 7 solid red
extern lp = 13;
extern sm = 25;
extern dsmp = 2;
extern sig = 3;
function init()
{
if (countCandles() < lp) {
lackHistory();
}
setInitCandles(lp);
setBounds(0, lp, 0);
}
function calc()
{
line[0] = close - .5 * high[-lp,0] + low[-lp,0];
line[1] = MovAvg(ind_ema, sm, line[0]);
line[2] = MovAvg(ind_ema, dsmp, line[1]);
line[3] = high[-lp, 0] - low[-lp, 0];
line[4] = MovAvg(ind_ema, sm, line[3]);
line[5] = 0.5*MovAvg(ind_ema, dsmp, line[4]);
line[6] = 100 * line[2] / line[5];
line[7] = MovAvg(ind_ema, sig, line[6]);
}
Ultimate Oscillator
// Данный индикатор может быть существенно оптимизирован
// с точки зрения скорости расчета. Улучшенный пример
// будет приведен позже
#line 0 nodraw
#line 1 nodraw
extern period = 7;
function init()
{
if (countCandles() < period * 4 + 1) {
lackHistory();
}
setInitCandles(1);
setBounds(0, period*4 + 1, 0);
}
function sumLine1(var n)
{
var i = 0;
var s = 0;
while (i < n) {
s += line[0][-i];
i += 1;
}
return s;
}
function sumLine2(var n)
{
var i = 0;
var s = 0;
while (i < n) {
s += line[1][-i];
i += 1;
}
return s;
}
function avg(var n)
{
return sumLine1(n) / sumLine2(n);
}
function calc()
{
if (low < close[-1]) {
line[0] = close - low;
}
else {
line[0] = close - close[-1];
}
var h;
var l;
if (high > close[-1]) {h = high;}
else {h = close[-1];}
if (low < close[-1]) {l = low;}
else {l = close[-1];}
line[1] = h - l;
if (noCandle() > period*4 + 1) {
line[2] = 100 * (4*avg(period) + 2*avg(period*2) + avg(period*4)) / 7;
}
}
Медианный фильтр
#samewindow
extern period = 15;
var window;
static lastvalue;
function init()
{
window = new_object("array");
setBounds(0, period + 1, 0);
setInitCandles(period + 1);
}
function findMed()
{
window.clear();
var i = 1;
while (i <= period) {
window.push(close[-i]);
i += 1;
}
i = 0;
while (i <= period / 2) {
var min_n = i;
var j = min_n + 1;
while (j < window.size()) {
if (window[min_n] > window[j]) {
min_n = j;
}
j += 1;
}
if (min_n > i) {
var tmp = window[min_n];
window[min_n] = window[i];
window[i] = tmp;
}
i += 1;
}
lastvalue = window[i - 1];
return lastvalue;
}
function onNewCandle()
{
findMed();
}
function calc()
{
if (!isHistoryCalculated()) {
findMed();
}
line[0] = lastvalue;
}
Сигналы
Пересечение ценой скользящей средней
#samewindow
#line 0 solid red
extern period = 9;
var trend = 0;
function init()
{
setInitCandles(1);
}
function calc()
{
line[0] = MovAvg(ind_ema, period, pt_close);
if (trend == 1 and close < line[0]) {
signal::alert("Продажа: " + getSecName() +
" пересекла сверху вниз скользящую среднюю.");
}
if (trend == -1 and close > line[0]) {
signal::alert("Покупка: " + getSecName() +
" пересекла снизу вверх скользящую вреднюю.");
}
if (close > line[0]) {trend = 1;}
else if (close < line[0]) {trend = -1;}
}
Пересечение двух скользящих средних
#samewindow
#line 0 solid red
extern fast = 9;
extern slow = 14;
var trend = 0;
function init()
{
setInitCandles(1);
}
function calc()
{
line[0] = MovAvg(ind_ema, fast, pt_close);
line[1] = MovAvg(ind_ema, slow, pt_close);
if (trend == 1 and line[0] < line[1]) {
signal::alert("Продажа: по " + getSecName() +
" быстрая MA пересекла медленную сверху вниз.");
}
if (trend == -1 and line[0] > line[1]) {
signal::alert("Покупка: по " + getSecName() +
" медленная MA пересекла быструю снизу вверх.");
}
if (line[1] < line[0]) {trend = 1;}
else if (line[1] > line[0]) {trend = -1;}
}
Примеры технических функций
Сохранение данных в файл
// Данный код не несет полезной функии,
// а лишь демонстрирует работу с файлами.
// Подробности смотрите в руководстве.
static c1 = 0;
static c2 = 0;
var file;
function init()
{
file = new_object("file");
file.ropen("data.txt");
if (file.isopen()) {
c1 = file.readLn();
c2 = file.readLn();
file.close();
}
file.wopen("data.txt");
}
function onNewCandle()
{
c2 += 1;
file.seek(0);
file.writeLn(c1);
file.writeLn(c2);
}
function calc()
{
if (isHistoryCalculated()) {
c1 += 1;
}
line[0] = 0;
}
Сохранение информации о сделках в файл
// Данный код не несет полезной функии,
// а лишь демонстрирует работу с файлами.
// Подробности смотрите в руководстве.
var file;
function init()
{
file = new_object("file");
file.waopen("data.txt");
}
function saveTrade(var id)
{
var trade = getTrade(id);
if (trade["operation"] == OP_BUY) {
file.write("BUY ");
}
else {
file.write("SELL ");
}
file.write(trade["quantity"]);
file.write(" lots at price ");
file.writeLn(trade["price"]);
}
function onClientTrade(var id)
{
file.write("Client order: ");
saveTrade(id);
}
function onATFTrade(var id)
{
file.write("ATF order: ");
saveTrade(id);
}
function calc()
{
line[0] = 0;
}
Регулярная синхронизация времени клиента со временем сервера
extern interval = 15;
function synchronize()
{
setSystemTime(getServerTime());
}
function init()
{
synchronize();
setTimer("synchronize", interval * 60, TIMER_PERIODICALLY);
}
Данный скрипт не содержит в себе каких-либо линий, поэтому может использоваться лишь в совокупности с каким-либо индикатором или роботом ATF.
Торговые роботы
Простая стратегия "Лесенка"
// Данная демонстрационна стратегия продает
// при любом движении цены вверх на step_percent
// процентов и покупает при движении цены вниз
// на step_percent процентов в ожидании коррекции.
// При этом используются лимитированные заявки,
// постоянно выставлено пять-шесть лимитированных
// заявок на одинаковом расстоянии. Смотрите
// результаты тестировщика ATF для более наглядного
// представления.
extern step_percent = 0.2;
extern num = 5;
extern amount = 1;
var step;
static buy_count = 0;
static sell_count = 0;
function init()
{
step = step_percent / 100;
}
function buy(var price)
{
trade_action::buyMultiple(amount, ::lots, price);
buy_count += 1;
}
function sell(var price)
{
trade_action::sellMultiple(amount, ::lots, price);
sell_count += 1;
}
function setOrders()
{
var i = 1;
while (i <= num) {
buy(close * (1 - i*step));
sell(close * (1 + i*step));
i += 1;
}
}
function onHistoryCalculated()
{
setOrders();
}
function onATFOrder(var id)
{
var order = getOrder(id);
if (order["status"] == OS_MATCHED) {
if (order["operation"] == OP_BUY) {
buy_count -= 1;
var newprice = order["price"] * (1 - step * num);
var oldprice = order["price"] * (1 + step);
if (buy_count < num) {buy(newprice);}
sell(oldprice);
}
else {
sell_count -= 1;
var newprice = order["price"] * (1 + step * num);
var oldprice = order["price"] * (1 - step);
if (sell_count < num) {sell(newprice);}
buy(oldprice);
}
}
}
Пример программирования торговых функций привязанных к клавиатуре
/*
При добавлении данного скрипта в торговое окно, в данном окне
становится возможно использовать дополнительные торговые функции.
Торговая команда набирается на клавиатуре с зажатой клавишей
shift и имеет двухбуквенное название. Доступны следующие команды:
BS - выставить одновременно заявки на покупку и продажу
CA - снять все заявки
CM - снять последние две заявки
UP - сдвинуть заявки вверх
DN - сдвинуть заявки вниз
CL - сдвинуть заявки ближе друг к другу
OP - расширить диапазон между заявками
FG - "забыть" старую выставленную позицию
При добавлении данного скрипта на график доступны для настройки
следующие параметры:
eps - начальное расстояние между выставляемыми заявками
move_eps - шаг сдвига заявок
range_eps - относительное изменение расстояния между заявками
quantity - объем заявок
Данный скрипт вряд ли имеет действительно полезный смысл, но
наглядно демонстрирует каким образом вы можете писать собственные
сложные торговые функции, управляемые с клавиатуры.
*/
#samewindow
#line 0 nodraw
extern eps = 0.005;
extern move_eps = 0.0005;
extern range_eps = 0.00025;
extern quantity = 1;
static prevKey = 0;
static buyord = 0;
static sellord = 0;
function cancelAll()
{
trade_action::cancelAllOrders();
buyord = 0;
sellord = 0;
}
function onOrder(var id)
{
var error;
if (id != buyord and id != sellord) {
return;
}
var order = getOrder(id);
if (order["status"] != OS_ACTIVE) {
cancelAll();
}
}
function buy(var price)
{
if (buyord) {trade_action::cancelOrder(buyord);}
buyord = trade_action::buyMultiple(quantity, ::lots, price);
if (not buyord) {
signal::outputMultiple(getLastErrorMessage());
}
}
function sell(var price)
{
if (sellord) {trade_action::cancelOrder(sellord);}
sellord = trade_action::sellMultiple(quantity, ::lots, price);
if (not sellord) {
signal::outputMultiple(getLastErrorMessage());
}
}
function moveDown()
{
if (not buyord or not sellord) {return;}
var b = getOrder(buyord);
var s = getOrder(sellord);
buy(b["price"] * (1 - move_eps));
sell(s["price"] * (1 - move_eps));
}
function moveUp()
{
if (not buyord or not sellord) {return;}
var b = getOrder(buyord);
var s = getOrder(sellord);
buy(b["price"] * (1 + move_eps));
sell(s["price"] * (1 + move_eps));
}
function makeCloser()
{
if (not buyord or not sellord) {return;}
var b = getOrder(buyord);
var s = getOrder(sellord);
buy(b["price"] * (1 + range_eps));
sell(s["price"] * (1 - range_eps));
}
function makeWider()
{
if (not buyord or not sellord) {return;}
var b = getOrder(buyord);
var s = getOrder(sellord);
buy(b["price"] * (1 - range_eps));
sell(s["price"] * (1 + range_eps));
}
function buysell()
{
if (buyord or sellord) {return;}
buy(close*(1-eps));
sell(close*(1+eps));
}
function forget()
{
buyord = 0;
sellord = 0;
}
function cancelMine()
{
if (buyord) {
trade_action::cancelOrder(buyord);
buyord = 0;
}
if (sellord) {
trade_action::cancelOrder(sellord);
sellord = 0;
}
}
function onKeyDown(var key)
{
if (isKeyPressed(KEY_LSHIFT)) {
if (prevKey == chr2num("B") and key == chr2num("S")) {
buysell();
}
if (prevKey == chr2num("C") and key == chr2num("A")) {
cancelAll();
}
if (prevKey == chr2num("C") and key == chr2num("M")) {
cancelMine();
}
if (prevKey == chr2num("U") and key == chr2num("P")) {
moveUp();
}
if (prevKey == chr2num("D") and key == chr2num("N")) {
moveDown();
}
if (prevKey == chr2num("C") and key == chr2num("L")) {
makeCloser();
}
if (prevKey == chr2num("O") and key == chr2num("P")) {
makeWider();
}
if (prevKey == chr2num("F") and key == chr2num("G")) {
forget();
}
prevKey = key;
}
}
Равномерное совершение сделок (ATF 1.19)
#samewindow
#line 0 nodraw
// За какое время продать/купить всё
extern time;
// Как часто совершать сделки
extern frequency;
// Сколько всего лотов купить/продать
// Если >0, то покупка, если <0 - продажа
extern quantity;
// Погрешность частоты совершения сделок
extern freq_eps;
// Погрешность объема в отдельной сделке
extern quantity_eps;
static time_to;
static time_elapsed;
static quantity_elapsed;
static ready = 0;
static x_rand = 1;
function makeTrade(var q)
{
var trnid;
if (quantity > 0) {
signal::outputMultiple("Покупаю " + q + " лотов.");
trnid = trade_action::buyMultiple(q, ::lots);
}
else {
signal::outputMultiple("Продаю " + q + " лотов.");
trnid = trade_action::sellMultiple(q, ::lots);
}
if (not trnid) {
signal::outputMultiple(getLastErrorMessage());
}
}
function printStats()
{
signal::outputMultiple("-----");
if (quantity > 0) {
signal::outputMultiple("Осталось купить " + quantity_elapsed +
" бумаг за " + time_elapsed + " секунд.");
}
else {
signal::outputMultiple("Осталось продать " + quantity_elapsed +
" бумаг за " + time_elapsed + " секунд.");
}
}
function arrangeNewTransaction()
{
if (not isTradingAllowed() or not ready) {return;}
time_elapsed = time_to - getSystemTime();
var t = rand_uniform(frequency - freq_eps, frequency + freq_eps);
if (t + getSystemTime() > time_to) {
t = time_to - getSystemTime();
}
signal::outputMultiple("Следующая сделка через " + round(t) + " секунд.");
setTimer("trade", t*1000, TIMER_AFTERDELAY);
}
function onStopRobot()
{
if (quantity_elapsed) {
time_elapsed = time_to - getSystemTime();
printStats();
}
else {
signal::outputMultiple("Задание выполнено.");
ready = 0;
}
}
function trade()
{
time_elapsed = time_to - getSystemTime();
if (not isTradingAllowed() or not ready) {return;}
if (time_elapsed < frequency) {
makeTrade(quantity_elapsed);
signal::outputMultiple("Все бумаги проданы!");
}
else {
var q = quantity_elapsed / (time_elapsed / frequency);
q = round(rand_uniform(q - quantity_eps, q + quantity_eps));
if (q > quantity_elapsed) {q = quantity_elapsed;}
if (q > 0) {
makeTrade(q);
quantity_elapsed -= q;
printStats();
}
else {
signal::outputMultiple("Решил отложить сделку.");
printStats();
}
if (quantity_elapsed) {arrangeNewTransaction();}
else {onStopRobot();}
}
}
function init()
{
time_elapsed = time;
time_to = getSystemTime() + time;
quantity_elapsed = abs(quantity);
}
function onStartRobot()
{
if (quantity != 0 and frequency > 0 and time > 0) {
ready = 1;
printStats();
arrangeNewTransaction();
}
else {
signal::output("Заданы некорректные параметры для торговли; выполнение скрипта отменено.");
ready = 0;
}
}
Максимум/минимум в конкретный интервал времени
// Функции getHigh и getLow вычисляют значения
// high и low в заданный промежуток времени
// В качестве примера сам скрипт вычисляет значения
// high и low за время с 9 до 11 и отрисовывает две
// две линии, соответствующие этим уровням
static H;
static L;
function getHigh(var from, var to)
{
var n = getCandleByTime(from);
setCurrentPosition(n);
if (getCandleTime() != from) {
from = n + 1;
}
else {
from = n;
}
setCurrentPosition(0);
to = getCandleByTime(to);
var h = high[from, to];
restoreCurrentPosition();
return h;
}
function getLow(var from, var to)
{
var n = getCandleByTime(from);
setCurrentPosition(n);
if (getCandleTime() != from) {
from = n + 1;
}
else {
from = n;
}
setCurrentPosition(0);
to = getCandleByTime(to);
var h = low[from, to];
restoreCurrentPosition();
return h;
}
function init()
{
var from = getTimeObject(9, 0);
var to = getTimeObject(11, 0);
H = getHigh(from, to);
L = getLow(from, to);
}
function calc()
{
line[0] = H;
line[1] = L;
}
