/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
/*
Hi all. Neurex is switching to MQ4 in a couple months, and thus my
current system is soon to be obsolete. Can someone please convert
my code? I promise it is very simple - I just have no idea how to
do MQ4. I have posted my code below. Thanks a ton!
*/
/*[[
Name := Trading
Author := Copyright © 2005
Lots := 0.10
Stop Loss := 25
Take Profit := 100
Trailing Stop := 15
]]*/
extern int Slippage=3;
extern int mm=1;
extern int risk=50;
start()
{
sl=0;
tp=0;
maxSimOpen=0;
mode=0;
buffer=0;
lastHigh=0;
target=0;
entryTS=0;
lastLow=0;
cnt=0;
first=0;
lotMM=0;
tHour=0;
cnt=1;
If Bars<100 or TakeProfit<10 then Exit;
If IsIndirect(Symbol)=TRUE then Exit;
/////////////////////////////////////////////////
// Main Script Conditions
/////////////////////////////////////////////////
// PYRAMIDING - LINEAR
//
// Money management risk exposure compounding
if mm<>0 then
{
lotMM=Ceil(Balance*risk/10000)/10;
if lotMM < 0.1 then {
lotMM = lots;
};
If lotMM > 1 then {
lotMM = Ceil(lotMM);
};
If lotMM > 100 then {
lotMM = 100;
};
} else {
lotMM=Lots;
};
// Adding simultaneously opened position
if mm = 1 then {
If balance < 1000000 then maxSimOpen=1;
If balance > 1000000 then {
maxSimOpen=(Balance*risk/10000)/1000;
} else {
maxSimOpen=1;
}
};
if mm = 2 then {
if balance < 1000000 then maxSimOpen=1;
if balance > 1000000 then {
maxSimOpen=(Balance*risk/10000)/1000;
if maxSimOpen > 20 then maxSimOpen=20;
} else {
maxSimOpen=1;
};
};
/////////////////////////////////////////////////
// Comment on the chart
/////////////////////////////////////////////////
/////////////////////////////////////////////////
// Long/Short Entry and Re-entry Trades
/////////////////////////////////////////////////
If TotalTrades<maxSimOpen Then
{// íåò íè îäíîãî îòêðûòîãî îðäåðà
// íà âñÿêèé ñëó÷àé ïðîâåðèì, åñëè ó íàñ ñâîáîäíûå äåíüãè íà
ñ÷åòó?
// çíà÷åíèå 1000 âçÿòî äëÿ ïðèìåðà, îáû÷íî ìîæíî îòêðûòü 1 ëîò
// äåíåã íåò - âûõîäèì
// ïðîâåðèì, íå ñëèøêîì ëè ÷àñòî ïûòàåìñÿ îòêðûòüñÿ?
// åñëè ïîñëåäíèé ðàç òîðãîâàëè ìåíåå ÷åì 5 ìèíóò(5*60=300 ñåê)
// íàçàä, òî âûõîäè
// ïðîâåðÿåì íà âîçìîæíîñòü âñòàòü â äëèííóþ ïîçèöèþ (BUY)
If ask > close[1] + 5*Point and curtime-LastTradeTime > 43200
then
{
SetOrder(OP_BUY,Lotmm,ask,slippage,ask-
stoploss*point,ask+takeprofit*point,Cyan); // èñïîëíÿåì
Exit; // âûõîäèì, òàê êàê âñå ðàâíî ïîñëå ñîâåðøåíèÿ òîðãîâîé
îïåðàöèè
// íàñòóïèë 10-òè ñåêóíäíûé òàéìàóò íà ñîâåðøåíèå
òîðãîâûõ îïåðàöèé
};
// ïðîâåðÿåì íà âîçìîæíîñòü âñòàòü â êîðîòêóþ ïîçèöèþ (SELL)
If bid < close[1] - 5*Point and curtime-LastTradeTime > 43200
then
{
SetOrder(OP_SELL,Lotmm,bid,slippage,bid+stoploss*point,bid-
takeprofit*point,Fuchsia); // èñïîëíÿåì
Exit; // âûõîäèì
};
// çäåñü ìû çàâåðøèëè ïðîâåðêó íà âîçìîæíîñòü îòêðûòèÿ íîâûõ
ïîçèöèé.
// íîâûå ïîçèöèè îòêðûòû íå áûëè è ïðîñòî âûõîäèì ïî Exit, òàê êàê
// âñå ðàâíî àíàëèçèðîâàòü íå÷åãî
Exit;
};
for cnt=1 to TotalTrades
{
mode=OrderValue(cnt,VAL_TYPE);
If mode=OP_BUY then // if the already opened position were BUY
{
// lets check if EMA(16) has crossed EMA(60) downwards?
If iac(1) <-5 then
{
// try to close the position at current Bid price
CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue
(cnt,VAL_LOTS),Bid,Slippage,RED);
Exit;
};
// Here we check the trailing stop at open position.
// Trailing stop ( Stop Loss) of the BUY position is being
// kept at level 20 points below the market.
// If the profit (current Bid-OpenPrice) more than
TrailingStop (20) pips
If (Bid-OrderValue(cnt,VAL_OPENPRICE))>(TrailingStop*Point)
then
{
// we have won already not less than 'TrailingStop' pips!
If OrderValue(cnt,VAL_STOPLOSS)<(Bid-TrailingStop*Point)
then
{
// move the trailing stop (Stop Loss) to the
level 'TrailingStop' from the market
ModifyOrder(OrderValue(cnt,VAL_TICKET),OrderValue
(cnt,VAL_OPENPRICE),
Bid-Point*TrailingStop,OrderValue
(cnt,VAL_TAKEPROFIT),Red);
Exit;
};
};
};
If mode=OP_SELL then // if the already opened position were SELL
{
// check if EMA(16) has crossed already EMA(60) upwards?
If iac(1) >5 then
{
// try to close the position at current Ask price
CloseOrder(OrderValue(cnt,VAL_TICKET),OrderValue
(cnt,VAL_LOTS),Ask,Slippage,RED);
Exit;
};
// Here we check the trailing stop at open position.
// Trailing stop ( Stop Loss) of the BUY position is being
// kept at level 20 points below the market.
// If the profit (current Bid-OpenPrice) more than
TrailingStop (20) pips
If (OrderValue(cnt,VAL_OPENPRICE)-Ask)>(TrailingStop*Point)
then
{
// we have won already not less than 'TrailingStop' pips!
If OrderValue(cnt,VAL_STOPLOSS)>(Ask+TrailingStop*Point) or
OrderValue(cnt,VAL_STOPLOSS)=0 then
{
// move the trailing stop (Stop Loss) to the
level 'TrailingStop' from the market
ModifyOrder(OrderValue(cnt,VAL_TICKET),OrderValue
(cnt,VAL_OPENPRICE),
Ask+Point*TrailingStop,OrderValue
(cnt,VAL_TAKEPROFIT),Red);
Exit;
};
};
};};
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: