80 % убыточных сделок (картинки внутри)

all_trade(Светлана_Е.), Не знаю, как прикрепить файл.
Можно прямо отсюда скопировать — лучше, чтобы во время копирования регистр был англ…
Насчет даты из квика — раньше была проблема, что квик затирает старые данные. Сейчас не знаю — решена ли?
Я пользовался старым экспортером. вроде как то получалось.
Называетс так:
QUIK2AMIBROKER_DataPlugin.dll
Положить в папку plugin
Важна версия.
Вообще на сайте все эти роботы есть и в неск вариантах.
////////// Правила системы ///////////////
// 2 контракта по умолчанию
SetPositionSize(2,4);
SetTradeDelays(0,0,0,0);
SetOption(«AllowPositionShrinking»,0); // Вкл (1) выкл (0)возможность открытия позиции, если денег не хватает
//SetOption(«InitialEquity»,3); // Начальный капитал
SetOption(«AllowSameBarExit»,0); // Вкл (1) выкл (0) возможность выхода на баре входа
SetOption(«ActivateStopsImmediately»,0); // Вкл (1) выкл (0) активацию стопа на баре входа
SetOption(«FuturesMode»,1); // Вкл (1) выкл (0) режим «Тестирование фьючерсов»
SetOption(«ReverseSignalForcesExit»,0); // Вкл (1) выкл (0) вход в противоположную позицию при противп. сигнале
SetOption(«PriceBoundChecking»,1); // Вкл (1) выкл (0) проверку соответствия bp/sp/shp/cp диапазону h-l
//SetTradeDelays(0,0,0,0); // Задержка торгов
SetBarsRequired( 1000, 0 );
//Проскальзывание
Slpg=Param(«Slpg»,100,0,250,1);
LS=Param(«LS»,0,0,150,5);
//LS=0;
SS=Param(«SS»,0,0,150,5);
//SS=0;
//VOLSY
DiffVol=Param(«DVol»,0.53,0,4,0.01);
//DiffVol=1.5;
//Vol=Ref(H,-1)/Ref(C,-1)*1000-Ref(L,-1)/Ref(C,-1)*1000;
Vol=(H-L)/C*1000;
Flat=Ref(Vol,-1)<DiffVol;
VolOfset=IIf(Flat,Param(«VO»,150,0,500,5),0);

PerBuy=Param(«PB», 18,2,25,1);
//PerBuy = Optimize(«PB», 3,2,9,1);
//PerBuy=3;
PerSell=Param(«PS», 6,2,25,1);
//PerSell = Optimize(«PS», 6,2,9,1);
//PerSell=6;
//PerSh = Optimize(«PSh», 3,3,6,1);
//PerSh =7;
PerSh=PerSell;
//PerCov = Optimize(«PCo», 8,6,12,1);
//PerCov =3;
PerCov =PerBuy;
Buy=H>(Ref(HHV(H,PerBuy),-1)+VolOfset+LS);
BuyPrice=Ref(HHV(H,PerBuy),-1)+VolOfset+Slpg+LS;
BuyPriceR=Ref(HHV(H,PerBuy),-1)+VolOfset+LS;
Sell=L<(Ref(LLV(L,PerSell),-1)-VolOfset-SS);
SellPrice=Ref(LLV(L,PerSell),-1)-VolOfset-Slpg-SS;
SellPriceR=Ref(LLV(L,PerSell),-1)-VolOfset-SS;
Short=Sell;
ShortPrice=SellPrice;
//Short=L<Ref(LLV(L,PerSh),-1);
//ShortPrice=Ref(LLV(L,PerSh),-1)-Slpg;
Cover=Buy;
CoverPrice=BuyPrice;
//Cover=H>Ref(HHV(H,PerCov),-1);
//CoverPrice=Ref(HHV(H,PerCov),-1)+Slpg;
Equity(1,0);
N=Cum(Buy)+Cum(Short);
//dist = 1*ATR(10);
dist=100;
for( i = 0; i < BarCount; i++ )
{
if( Buy[i] ) PlotText( «Buy\n@» + BuyPrice[ i ], i, L[ i ]-dist[i], colorBlue );
if( Sell[i] ) PlotText( «Sell\n@» + SellPrice[ i ], i, H[ i ]+dist[i]*2.5, colorRed );
//if( Short[i] ) PlotText( «Short\n@» + ShortPrice[ i ], i, H[ i ]+dist[i], colorRed );
//if( Cover[i] ) PlotText( «Cover\n@» + CoverPrice[ i ], i, L[ i ]-dist[i]*2.5, colorBlue );
}

PlotShapes(Buy*shapeSmallUpTriangle,colorBlue,0,L,-10);
PlotShapes(Sell*shapeSmallDownTriangle,colorRed,0,H,-10);
//PlotShapes(IIf(Short,shapeHollowSmallDownTriangle,0),colorRed,0,H,-20);
//PlotShapes(IIf(Cover,shapeHollowSmallUpTriangle,0),colorBlue,0,L,-20);
//Plot(Tr,«Tr»,colorBlack,styleOwnScale);
Plot(HHV(H,PerBuy)+VolOfset+LS,«Buy»,colorBlue);
Plot(LLV(L,PerSell)-VolOfset-SS,«Sell»,colorRed);
//Plot(LLV(BaseSh,PerEMASh),«Short»,colorRed);
//Plot(HHV(BaseCov,PerEMACov),«Cover»,colorYellow);
//Plot(Vol,«V»,colorBlue,32768);
//Plot(Ref(L,-1),«SL»,colorRed);
//Plot(Ref(H,-1),«BL»,colorBlue);
Plot(Equity(1,0),«EQ»,colorYellow,32768);
//Plot(MA(Equity(1,0),150),«EQ»,colorYellow,styleOwnScale,32);
Plot(N,«N»,colorOrange,32768,256);
BuySellL= IIf(BarsSince(Buy) < BarsSince(Sell),1,0);
BuySellS= IIf(BarsSince(Short) < BarsSince(Cover),-1,0);
BuySell= BuySellL + BuySellS;

//Звук
AlertIf( Buy, «SOUND c:/WINDOWS/Media/notify.wav», «Длинная позиция»,0,1+2+4+8);
AlertIf( Sell, «SOUND c:/WINDOWS/Media/notify.wav», «Выход из длинной позиции»,0,1+2+4+8);
AlertIf( Short, «SOUND c:/WINDOWS/Media/notify.wav», «Короткая позиция»,0,1+2+4+8);
AlertIf( Cover, «SOUND c:/WINDOWS/Media/notify.wav», «Выход из короткой позиции»,0,1+2+4+8);
//////////////////////////////////////////////////////////////////////////////////////////////
//PlotShapes(Buy*shapeDigit1,colorBlue,0,L,-50 );
//PlotShapes(Sell*shapeDigit2,colorGreen,0,H,50 );
//PlotShapes(Short*shapeDigit3,colorRed,0,H,35 );
//PlotShapes(Cover*shapeDigit4,colorYellow,0,L,-35 );
//PlotShapes(Buy*shapeUpArrow,colorBlue,0,L,-20);
//PlotShapes(Sell*shapeDownArrow,colorGreen,0,H,-20);
//PlotShapes(Short*shapeSmallDownTriangle,colorRed,0,H,-10);
//PlotShapes(Cover*shapeSmallUpTriangle,colorYellow,0,L,-10);
//Plot( Volume, _DEFAULT_NAME(), colorLavender, styleNoTitle | styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram, 2 );
TickerID=1; // уникальный для каждого индикатора номер
Ticker=«RIH0_1»; // название бумаги в Амиброкере. На другой бумаге работать не будет
TimeFrame=15; // таймфрейм в минутах. На других таймфреймах работать не будет
Classcode=«SPBFUT»; // код класса бумаги
Seccode=«RIH0»; // код бумаги
Account="***********"; // ваш аккаунт на бирже
Client="********"; // код клиента
Zapis=ParamToggle(«Записывать транзакции в файл?»,«No|Yes»,1);
Lots=Param(«Количество лотов в заявке », 1, 1, 100, 1); // сколько лотов желаете торговать
FileName=«C:/Trans/trans.tri»; // слэши прямые — имя файла с транзакциями для квика
Otstup=0.1; // в процентах. заявка будет выставлена хуже текущей цены на столько процентов
StepPr=5; // минимальный шаг цены контракта
Point=0; // количество знаков после запятой в цене

Title = StrFormat("{{NAME}} — {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) )+
"\n Индикатор, отправляющий сигналы в Quik"+
"\n\\c-1 Система: "+EncodeColor(colorGreen)+_DEFAULT_NAME()+
"\n\\c-1 Инструмент: "+EncodeColor(colorGreen)+Ticker+" ("+Seccode+")"+
"\n\\c-1 Записываются ли транзакции в файл: "+EncodeColor(colorGreen)+WriteIf(Zapis==1,«да»,«нет»)+
"\n\\c-1 Текущая чистая позиция: "+EncodeColor(colorGreen)+Lots*BuySell;

//Формирование транзакции
procedure savetrifile(stransid,sstr) {
f=fopen(FileName,«r»);
found=0;
if (f) {
while (!feof(f)) {
s=fgets(f);
if (StrFind(s,stransid)>0) {
found=1;
}
}
fclose(f);
}
if (found==0) {
f=fopen(FileName,«a»);
if (f) {
fputs(sstr+"\n",f);
fclose(f);
}
}
}

function makeandsave(sOper,sOperID,sprice) {
CCS="";
if (Client!="") { CCS=" CLIENT_CODE="+Client+";"; }
transid=StrFormat(«TRANS_ID=%g%g%g%g;»,TickerID,sOperID,LastValue(Ref(DayOfYear(),-1)),LastValue(Ref(TimeNum(),-1)));
str=StrFormat(transid+«PRICE=%1.»+Point+«f;QUANTITY=%g;OPERATION=»+sOper+";CLASSCODE="+Classcode+"; ACTION=NEW_ORDER; TYPE=L; SECCODE="+Seccode+"; ACCOUNT="+Account+";"+CCS,sprice,Lots);
savetrifile(transid,str);
}

if ((Now(3)==LastValue(DateNum()))AND (BarCount>1) AND Zapis==1 AND(Name()==Ticker)AND(TimeFrame==Interval()/60)AND((Buy[BarCount-1]==1)OR(Sell[BarCount-1]==1)OR(Short[BarCount-1]==1)OR(Cover[BarCount-1]==1)))
{
ifbuy=IIf(Buy[BarCount-1]==1,1,0);
ifsell=IIf(Sell[BarCount-1]==1,1,0);
ifshort=IIf(Short[BarCount-1]==1,1,0);
ifcover=IIf(Cover[BarCount-1]==1,1,0);
if (ifbuy) {
//price=StepPr*int( ((1+Otstup/100)*BuyPriceR[BarCount-1])/StepPr);
price=62500;
makeandsave(«B»,1,price);
}
if (ifsell) {
//price=StepPr*int( ((1-Otstup/100)*SellPriceR[BarCount-1])/StepPr);
price=67500;
makeandsave(«S»,2,price);
}
if (ifshort) {
//price=StepPr*int( ((1-Otstup/100)*SellPriceR[BarCount-1])/StepPr);
price=67500;
makeandsave(«S»,3,price);
}
if (ifcover) {
//price=StepPr*int( ((1+Otstup/100)*BuyPriceR[BarCount-1])/StepPr);
price=62500;
makeandsave(«B»,4,price);
}
}

Sergiovy, я сейчас начинаю осваивать программирование в QPILE. Сейчас пробую пользоваться Notepad++ для создания кода. Мщжет подскажете лучший вариант, или способы настройки, так как пока не обнаружил настройки синтаксиса для QPILE и использую аналогичные для с# :)

Nemo_2000, Я не писал никогда ничего под QPile… Sorry.

all_trade(Светлана_Е.), Это в основном не мой а Механизатора. моя там дохлая система впереди…
может пару наглядных индикаторов — чтобы сразу на экране видеть результаты, а не гонять тестер по мелочам…

На смарт лабе выкладывали ссылку о плагине под ами:

smart-lab.ru/blog/76883.php

all_trade(Светлана_Е.), Я не кассирша среднего магазина.

Shved, наши не ищут легких путей )

all_trade(Светлана_Е.), на сайте финама скачай историю котировок по нужному тебе инструменту

all_trade(Светлана_Е.), минуток — два года максимум за один раз.
Тут www.finam.ru/analysis/profile0442F00007/default.asp

НеГрустин, какой нахрен QPILE, если там уже LUA прикрутили. Но бак-тестинг там же не сделаешь.

Rookie, ты б ещё ей сразу на VRML'е писать посоветовал!
Ты же видишь: она начинающая — пусть сначала Бэйсик освоит))))

Rookie, к тому же бэктест она уже сделала — результат: две полоски!!! (Эквити и дроудаун всмысле)))))))
Теперь ей надо просто систему «в бой» отправить.

all_trade(Светлана_Е.), а проскальзывание и комиссии учтены? С ними результат может быть совсем другим.