[Архив!] Напишу советник БЕСПЛАТНО - страница 12

https://forum.mql4.com/ru/34977

Не надо заниматься спамом и множить количество одинаковых постов

Добрый день.Скажите возможно переделать данный советник под МТ4.Написан для работы в МТ3 но сейчас на МТ3 уже никто не работает.Вот его код.

Заранее благодарен.

/*[[
Name := Казахский Удав
Author := исходный индикатор ZigZag из Казахстана
идеи по доработке и использованию от nemo-X
небольшое программирование и отладка от eugene5
Link :=
Notes :=
Lots := 0.1
Stop Loss := 100
Take Profit := 100
Trailing Stop := 0
]]*/

Defines: barn(100),Length(6);
Defines: slippage(10);
Variables : shift(0),lasthigh(-1),lastlow(-1),lasthighpos(0),lastlowpos(0),currentvalue(0), lastvalue(0);
Variables : val(0),back(0),res(0),flag(0);
Variables : curlow(0),curhigh(0),currentshift(0),lastshift(0);
Variable: Trend(0), lastposition("");
Variable : LL(0),HH(0),Swing(0),Swing_n(0),BH(0),BL(0),i(0),zu(0),zd(0),NH(0),NL(0), uzl(0);
Array: Uzel[10000,2](0);
SetLoopCount(0);
// loop from first bar to current bar (with shift=0)
Swing_n=0;Swing=0;uzl=0;
BH =High[barn];BL=Low[barn];zu=barn;zd=barn;

For shift= barn downto 0 Begin
LL=10000000;HH=-100000000;
for i=shift+Length downto shift+1 Begin
if Low[i]< LL then {LL=Low[i];};
if High[i]>HH then {HH=High[i];};
end;


if Low[shift]<LL and High[shift]>HH then
{
Swing=2;
if Swing_n=1 then {zu=shift+1;};
if Swing_n=-1 then {zd=shift+1;};

}
else
{
if Low[shift]<LL then {Swing=-1;};
if High[shift]>HH then {Swing=1;};
};

if Swing <> Swing_n and Swing_n<>0 then
{
if Swing=2 then {swing=-Swing_n;BH = High[shift];BL = Low[shift]; };
uzl=uzl+1;
if swing = 1 then {Uzel[uzl,1]=zd;Uzel[uzl,2]=BL;};
if swing =- 1 then {Uzel[uzl,1]=zu;Uzel[uzl,2]=BH; };
BH = High[shift];BL = Low[shift];
};

if swing = 1 then { if High[shift] >= BH then {BH=High[shift];zu=shift;};};
if swing = -1 then { if Low[shift]<=BL then {BL=Low[shift]; zd=shift;};};
Swing_n=Swing;

end;
for i =1 to uzl Begin
SetIndexValue(Uzel[i,1],Uzel[i,2]);
end ;

// ниже торгующий довесок от eugene5

If FreeMargin<1000 then Exit; // денег нет - выходим

flag=0;
for i=1 to TotalTrades
{
if Symbol=Ord(i,VAL_SYMBOL) then
flag=i;
};

trend=Uzel[uzl,2]-Uzel[uzl-1,2];

if trend<0 then
{
comment("Разница зигзаза=",trend, " хочется купить :)", " lastposition=", lastposition);
}
else
if trend>0 then
{
comment("Разница зигзаза=",trend, " хочется продать :)", " lastposition=", lastposition);
}
else
comment("Разница зигзаза=",trend, " стоим на месте :(", " lastposition=", lastposition);

//If CurTime > LastTradeTime + 10 Then //стандартная проверка по времени
{
if trend<0 then
{
if flag<>0 and ord(flag,VAL_TYPE)=OP_SELL then
{
Comment("close order");
CloseOrder(ord(flag,VAL_TICKET),ord(flag,VAL_LOTS),bid,slippage,red);
lastposition="sell";
exit;
}
else
if flag=0 and (lastposition="sell" or lastposition="") then
{
Comment("buy");
SetOrder(OP_BUY,lots,ask,Slippage,ask-StopLoss*point,ask+TakeProfit*Point,RED);
exit;
};
};

if trend>0 then
{
if flag<>0 and ord(flag,VAL_TYPE)=OP_BUY then
{
Comment("close order");
CloseOrder(ord(flag,VAL_TICKET),ord(flag,VAL_LOTS),ask,slippage,red);
lastposition="buy";
exit;
}
else
if flag=0 and (lastposition="buy" or lastposition="") then
{
Comment("sell");
SetOrder(OP_SELL,lots,bid,Slippage,bid+StopLoss*point,bid-TakeProfit*Point,RED);
exit;
};
};
};

Здравствуйте, напишите пожалуйста советник по такой системе:

Делаем два советника, один начинает работу в бай, а другой в сел.

При открытии сделки всегда ставим stop loss 10 пунктов и take profit в 40 пунктов, чтобы соблюдалась пропорция прибыли к убыткам 1:4.

Если сделка оказывается убыточной – увеличиваем ставку в следующей сделке, используя табличку, пока не получим хотя – бы одну прибыльную сделку. Эта сделка вернёт нам все потери и ещё даст немного прибыли.

№ Сделки Лот Убыток Прибыль

1 0,01 1 4

2 0,01 1 4

3 0,01 1 4

4 0,01 1 4

5 0,02 2 8

6 0,02 2 8

7 0,03 3 12

8 0,03 3 12

9 0,04 4 16

10 0,05 5 20

11 0,06 6 24

12 0,08 8 32

13 0,1 10 40

14 0,12 12 48

15 0,15 15 60

16 0,18 18 72

17 0,23 23 92

18 0,29 29 116

19 0,36 36 144

Чтобы лучше понять суть, рассмотрим пример.

Делаем 1 ставку лотом 0.01 (по таблице для 1 ставки такой лот). Проигрываем и получаем убыток в 1$. Делаем 2 ставку – опять проигрываем, также получаем 1$ убытка, в сумме получилось 2$ убытка уже.

Делаем 3,4 ставку – убыток увеличивается до 4$. На 5 сделке мы увеличиваем сумму ставки до 0,02 лота и также получаем убыток.

Делаем 6,7,8 ставки – опять убытки!

На 8 ставке имеем убыток от сыгранных ставок равный 1$+1$+1$+1$+2$+2$+3$+3$= 14$. Но у нас еще 11 попыток чтобы получить прибыльную сделку.

На 9 сделке мы сделали ставку лотом 0,04 и выиграли 16$!!! В итоге получается, что все убытки по предыдущим сделкам ( это 14$ ) мы вернули и плюс к этому заработали 2$! То есть 8 убытков подряд и 1 прибыльная сделка в итоге принесли нам прибыль!

Таким образом, мы не только ничего не потеряли, но и заработали!

После этого игра начинается заново с первой ставки, пока снова мы не получим свою прибыль.

P.S. Эта система (в ручную) на реале работает безотказно.!

4000 купили -(1,2долл) +  (40) пункт  = 16 - 1,2 - 14,8 долл

Все сделано.Заявку не принимать во внимание