//+------------------------------------------------------------------+
//| OnTick function |
//+------------------------------------------------------------------+
void OnTick()
{
//--- check for history and trading
if(Bars<100 || IsTradeAllowed()==false)
return;
//--- calculate open orders by current symbol
if(CalculateCurrentOrders(Symbol())==0) CheckForOpen();
else CheckForClose();
//---
}
//+------------------------------------------------------------------+
//| Start function |
//+------------------------------------------------------------------+
void start()
{
//---- check for history and trading
if (Bars < 100 || IsTradeAllowed() == false){
return;
}
//---- calculate open orders by current symbol
if (check_active_order() == FALSE){
CheckForOpen();
} else {
CheckForClose();
}
//----
}
int start()
{
int err = 0;
int total = 0;
int prevticket = 0;
int modespread = MarketInfo(Symbol(), MODE_SPREAD);
//----
if (IsTradeAllowed()) {
RefreshRates();
modespread = MarketInfo(Symbol(), MODE_SPREAD);
} else {
return (0);
}
ObjectSetText(WT_INFO_NAME,
"Perceptron("+gOrderbar+"): " +
"Spread("+modespread+") "+
""+DoubleToStr(perceptron(), 2)+"",
7, "Arial", White);
// check for opened position
total = OrdersTotal();
//----
for (int i = 0; i < total; i++) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
// check for symbol & magic number
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
prevticket = OrderTicket();
gOrderbar = iBarShift(Symbol(), 0, OrderOpenTime());
// long position is opened
if (OrderType() == OP_BUY) {
// check profit
if (Bid > (OrderStopLoss() + (sl * 2 + modespread) * Point)) {
if (perceptron() < 0) { // reverse
gOrderTicket = OrderSend(Symbol(), OP_SELL, OrderLots(), Bid, 3,
Ask + sl * Point, 0, "AI Rev", MagicNumber, 0, Red);
Sleep(10000);
//----
if (gOrderTicket >= 0) {
OrderCloseBy(gOrderTicket, prevticket, Blue);
} else {
err=GetLastError();
Print("error[1](",err,"): ",ErrorDescription(err));
if (OrderStopLoss() < OrderOpenPrice()) {
if (!OrderModify(OrderTicket(), OrderOpenPrice(), OrderOpenPrice(), 0, 0, Blue)) {
Sleep(1000);
}
}
}
} else { // trailing stop
if (!OrderModify(OrderTicket(), OrderOpenPrice(), Bid - sl * Point, 0, 0, Blue)) {
Sleep(1000);
}
}
}
// short position is opened
} else {
// check profit
if (Ask < (OrderStopLoss() - (sl * 2 + modespread) * Point)) {
if (perceptron() > 0) { // reverse
gOrderTicket = OrderSend(Symbol(), OP_BUY, OrderLots(), Ask, 3,
Bid - sl * Point, 0, "AI Rev", MagicNumber, 0, Blue);
Sleep(10000);
//----
if (gOrderTicket >= 0) {
OrderCloseBy(gOrderTicket, prevticket, Blue);
} else {
err=GetLastError();
Print("error[2](",err,"): ",ErrorDescription(err));
if (OrderStopLoss() > OrderOpenPrice()) {
if (!OrderModify(OrderTicket(), OrderOpenPrice(), OrderOpenPrice(), 0, 0, Blue)) {
Sleep(1000);
}
}
}
} else { // trailing stop
if (!OrderModify(OrderTicket(), OrderOpenPrice(), Ask + sl * Point,
0, 0, Blue)) {
Sleep(1000);
}
}
}
}
// exit
return (0);
}
}
if (gOrderbar == iBarShift(Symbol(), 0, 0)) {
return (0);
}
lots = NormalizeDouble(AccountBalance() * aiGetRisk(Period()) / (sl + modespread), 2);
if (lots < 0.01) lots = 0.01;
// check for long or short position possibility
if (perceptron() > 0) { //long
gOrderTicket = OrderSend(Symbol(), OP_BUY, lots, Ask, 3, Bid - sl * Point, 0, "AI",
MagicNumber, 0, Blue);
//----
if (gOrderTicket < 0) {
Sleep(10000);
err=GetLastError();
Print("error[3](",err,"): ",ErrorDescription(err));
}
} else { // short
gOrderTicket = OrderSend(Symbol(), OP_SELL, lots, Bid, 3, Ask + sl * Point, 0, "AI",
MagicNumber, 0, Red);
if (gOrderTicket < 0) {
Sleep(10000);
err=GetLastError();
Print("error[4](",err,"): ",ErrorDescription(err));
}
}
//--- exit
return (0);
}
