ищу партнера с высокочастотной торговой системой - страница 21

 

Правильное направление выбрали!

Остались только практические вопросы по реализации проекта.

Теперь я Вам не нужен.

 
inputs:
 AssetPr( 0 ),
 YearsLeft( 0 ),
 MyGamma( 0 ),
 MyH( 0 ),
 TriggerPr( 0 ),
 Rate( 0 ),
 Carry( 0 ),
 Volty( 0 ) ;

variables:
var0( 0 ),
var1( 0 ),
var2( 0 ),
var3( 0 ),
var4( 0 ),
var5( 0 ) ;



var0 = Square( Volty ) ;
var1 = SquareRoot( YearsLeft ) ;

var2 = ( -Rate + MyGamma * Carry + .5 * MyGamma * ( MyGamma - 1 ) * var0 )
* YearsLeft ;
var3 = -( Log( AssetPr / MyH ) + ( Carry + ( MyGamma - .5 ) * var0 )
* YearsLeft ) / ( Volty * var1 ) ;
var4 = 2 * Carry / var0 + 2 * MyGamma - 1 ;
var5 = var3 - 2 * Log( TriggerPr / AssetPr ) / ( Volty * var1 ) ;
Value44 = ExpValue( var2 ) * Power( AssetPr, MyGamma ) 
* ( NormSCDensity( var3 ) - Power( TriggerPr / AssetPr, var4 )
* NormSCDensity( var5 ) ) ;
 

Или???? Так.

using tsdata.trading ;
using tsdata.marketdata;
using elsystem ;

Input: string iAccount1( "SIM587052F" ),
string iSymbol1( "ESH11" ),
string iSymbol2( "NQH11" ),
Length(20),NumStdDev(2),
ProfitTarget$(20),
StopLoss$(20);

vars: order ES_order1(NULL),
order ES_order2(NULL),
longentrycond(false),shortentrycond(false),
close1(0),close2(0),
RelStr(0),bandup(0),banddw(0),RelStrMovAvg(0),
color(0),mp(0),OpenProfit(0),text_("");

once
begin
PSP1.Load=False;
PSP1.Interval = DataInterval.FromCurrentSymbolData( BarType, BarInterval ) ;
PSP1.Range.FirstDate = DateTime.FromELDateAndTime( Date, Time ) ;
PSP1.Load = true ;
PSP2.Load=False;
PSP2.Interval = DataInterval.FromCurrentSymbolData( BarType, BarInterval ) ;
PSP2.Range.FirstDate = DateTime.FromELDateAndTime( Date, Time ) ;
PSP2.Load = true ;
end;


Once Begin
myorder1.Symbol = isymbol1;
myorder1.SymbolType = tsdata.common.SecurityType.future;
myorder1.Account = iaccount1;
myorder1.Type = tsdata.trading.OrderType.market;
myorder1.Duration = "day";
myorder1.LimitPrice = 0.000000;
myorder1.LimitPriceStyle = tsdata.trading.PriceStyle.none;
myorder1.LimitPriceOffset = 0;
myorder1.StopPrice = 0.000000;
myorder1.StopPriceStyle = tsdata.trading.PriceStyle.none;
myorder1.StopPriceOffset = 0;


myorder2.Symbol = isymbol2;
myorder2.SymbolType = tsdata.common.SecurityType.future;
myorder2.Account = iaccount1;
myorder2.Type = tsdata.trading.OrderType.market;
myorder2.Duration = "day";
myorder2.LimitPrice = 0.000000;
myorder2.LimitPriceStyle = tsdata.trading.PriceStyle.none;
myorder2.LimitPriceOffset = 0;
myorder2.StopPrice = 0.000000;
myorder2.StopPriceStyle = tsdata.trading.PriceStyle.none;
myorder2.StopPriceOffset = 0;
end;


//get data from priceseriesprovider, calculate RelativeStrength and Indicators
close1=PSP1.close[0];
close2=PSP2.close[0];
if close2<>0 then RelStr = close1/close2;
RelStrMovAvg = average(RelStr,length);
bandUp=BollingerBand(RelStr,length, NumStddev);
bandDw=BollingerBand(RelStr,length,-NumStddev);

LongEntryCond = RelStr crosses below banddw;
ShortEntryCond = RelStr crosses above bandup;

mp= Getpositionquantity(iSymbol1,iAccount1);
OpenProfit = getpositionopenpl(iSymbol1,iAccount1)+Getpositionopenpl(iSymbol2,iaccount1);

If LastBarOnChart and barstatus(1)=2 then begin

if mp=0 and longentrycond then begin
myorder1.Quantity = 1;
myorder2.Quantity = 1;
MyOrder1.Action = tsdata.trading.OrderAction.buy;
MyOrder2.Action = tsdata.trading.OrderAction.sell;
ES_order1 = MyOrder1.Send();
ES_order2 = MyOrder2.Send();
value1=text_new(date,time,low,"Entry Long");
end;

if mp=0 and shortentrycond then begin
myorder1.Quantity = 1;
myorder2.Quantity = 1;
MyOrder1.Action = tsdata.trading.OrderAction.sell;
MyOrder2.Action = tsdata.trading.OrderAction.buy;
ES_order1 = MyOrder1.Send();
ES_order2 = MyOrder2.Send();
value2=text_new(date,time,high,"Entry Short");
end;

if mp=1 and shortentrycond then begin
myorder1.Quantity = 2;
myorder2.Quantity = 2;
MyOrder1.Action = tsdata.trading.OrderAction.sell;
MyOrder2.Action = tsdata.trading.OrderAction.buy;
ES_order1 = MyOrder1.Send();
ES_order2 = MyOrder2.Send();
value3=text_new(date,time,high,"Short Reverse");
end;

if mp=-1 and longentrycond then begin
myorder1.Quantity = 2;
myorder2.Quantity = 2;
MyOrder1.Action = tsdata.trading.OrderAction.buy;
MyOrder2.Action = tsdata.trading.OrderAction.sell;
ES_order1 = MyOrder1.Send();
ES_order2 = MyOrder2.Send();
value4=text_new(date,time,low,"Long Reverse");
end;

end;

//Profittarget % StopLoss Any tick
if mp=1 and OpenProfit> ProfitTarget$ then begin
myorder1.Quantity = 1;
myorder2.Quantity = 1;
MyOrder1.Action = tsdata.trading.OrderAction.sell;
MyOrder2.Action = tsdata.trading.OrderAction.buy;
ES_order1 = MyOrder1.Send();
ES_order2 = MyOrder2.Send();
value5=text_new(date,time,close,"TargetLong");
end;

if mp=-1 and OpenProfit> ProfitTarget$ then begin
myorder1.Quantity = 1;
myorder2.Quantity = 1;
MyOrder1.Action = tsdata.trading.OrderAction.buy;
MyOrder2.Action = tsdata.trading.OrderAction.sell;
ES_order1 = MyOrder1.Send();
ES_order2 = MyOrder2.Send();
value6=text_new(date,time,close,"TargetShort");
end;


if mp=1 and OpenProfit<-StopLoss$ then begin
myorder1.Quantity = 1;
myorder2.Quantity = 1;
MyOrder1.Action = tsdata.trading.OrderAction.sell;
MyOrder2.Action = tsdata.trading.OrderAction.buy;
ES_order1 = MyOrder1.Send();
ES_order2 = MyOrder2.Send();
value5=text_new(date,time,close,"StopLong");
end;

if mp=-1 and OpenProfit<-StopLoss$ then begin
myorder1.Quantity = 1;
myorder2.Quantity = 1;
MyOrder1.Action = tsdata.trading.OrderAction.buy;
MyOrder2.Action = tsdata.trading.OrderAction.sell;
ES_order1 = MyOrder1.Send();
ES_order2 = MyOrder2.Send();
value6=text_new(date,time,close,"StopShort");
end;
 

 

Реакции нет. Наверное понравилась, колесная пара?

//----

Как Вы, наверное уже поняли? Не выложу тут я супер-пупер секретов. Но! Если даже это! Для вас удивительно! Нет слов. Начнём сначала? Для тех, кто мои лекции пропустил?

Или? Закончим, наконец то. На Этом? 

 
 

Шото я смотрю последнее время многих клинить начинает.

Интересно с чем это связано. 

 

//---

Хороший вопрос.

Это все связано с торговлей яблоками. Если мы покупаем яблоки и платим за них бананами. ТО естественно нам понадобятся некоторые расчеты. Вот именно эти расчеты я и представил.

 

/// Ох как ту у Вас все запущено. На серьезном форуме  уже бы начали пробовать, представленные коды  и посыпались бы вопросы. Вы точно, на колесных парах зациклились. И Вас не сдвинуть с места.

 

///--------------------------------------

Все дело в том, что у меня невероятно низкая самооценка. И вероятно, что сам я ничего в этой жизни, не смогу добиться.

 

//---

Исследуя как то одного из поставщиков данных, не буду в даваться в подробности и дурить вам голову почему, исследовал. Через месяц, отключили. Так как я ставок не делал, на тренировочном счете. Разозлился и сделал, на UERUSD. Купил Евро, может неделю назад, через 4 дня продал. Продал, по причине того, что заработал 400 баксов. Ничего не делая. Ну не смотрел я тогда за курсом. А если скажу, что тренд, поменялся. И думать не нужно, а просто покупать?????? Не принимайте пожалуйста мои шутки всерьез, а то, головушке вавка будет.

 

///-------

Да! Хотелось бы предупредить агентов имеющих много ников. Я не сдвинусь в другую тему. Ну лениво мне все это!!!!

А может быть, все проще, Мэрилин Монро, мне нравится??????   

http://www.gotovim.ru/recepts/salad/kalmary/&nbsp;

Причина обращения: