第6号错误

Forex Trader 2005.08.11 21:09 #81

斯拉瓦，我已经把你的专家版，为12个窗口（12种货币）。错误较少，但也存在。对不起。我设法得到了138和1。自己试试吧。

希望得到进一步的指导。

夸克

Forex Trader 2005.08.11 21:21 #82

顺便说一下，代码

while(!IsStopped()) { if(GlobalVariableGet(strTradeSemaphore) == 0.0) { GlobalVariableSet(strTradeSemaphore, 1.0); bSemaphored = true; break; } Sleep(1000); }

承认在(GlobalVariableGet(strTradeSemaphore) == 0.0)和GlobalVariableSet(strTradeSemaphore, 1.0)之间；另一个EA会插手。我们需要一个函数来捕获并抑制执行线程（即等待资源），然后将控制权返回给专家顾问。类似于WaitForExclusive() 。虽然，也许这并不是重点。但错误不断出现，唉。

Forex Trader 2005.08.11 21:36 #83

那就更好了。但出现了以前没有的错误，如错误1。
希望能得到一些帮助。

顺便说一下，既然这个话题已经开始了，我怎样才能自动确定用NormalizeDouble 留下多少位数的价格，即EURUSD为4，EURJPY为2...?

double dStopLoss;
int nHoursToHold;

datetime timePrev = 0;

int nSlip = 5;

double dLotSize = 0.1;

int nMagic = 0;
int nDigits = 4;

string strTradeSemaphore = "TradeSemaphore";

//////////////////
int init ()
{
	if(!GlobalVariableCheck(strTradeSemaphore)) 
		GlobalVariableSet(strTradeSemaphore, 0.0);
	
	dStopLoss = 110 * Point;
	nHoursToHold = 1;
	
	if(Symbol() == "EURUSD")
		nMagic = 1;
	else if(Symbol() == "EURJPY")
	{
		nMagic = 2;
		nDigits = 2;
	}
	else if(Symbol() == "USDCHF")
		nMagic = 3;
	else if(Symbol() == "GBPUSD")
		nMagic = 4;
	else if(Symbol() == "GBPJPY")
	{
		nMagic = 5;
		nDigits = 2;
	}
	else if(Symbol() == "GBPCHF")
		nMagic = 6;
	else if(Symbol() == "USDJPY")
	{
		nMagic = 7;
		nDigits = 2;
	}
	else if(Symbol() == "AUDUSD")
		nMagic = 8;
	else if(Symbol() == "EURGBP")
		nMagic = 9;
	else if(Symbol() == "USDCAD")
		nMagic = 10;
	else if(Symbol() == "EURCHF")
		nMagic = 11;
	else if(Symbol() == "EURAUD")
		nMagic = 12;
		
	return(0);	
}

// ------

int deinit()
{
	return(0);
}

// ------

int start()
{
	if(Bars < 5)
		return(0);
	
	// The previous bar just closed
	bool bIsBarEnd = false;
	if(timePrev != Time[0] + nMagic) 
		bIsBarEnd = true;
	timePrev = Time[0] + nMagic;
	
	if(!bIsBarEnd)
		return(0);

	// ------
	
	int nSignal = GetSignal();

	while(!IsStopped())
	{
		if(GlobalVariableGet(strTradeSemaphore) == 0.0)
			GlobalVariableSet(strTradeSemaphore, nMagic);

		if(GlobalVariableGet(strTradeSemaphore) == nMagic)
			break;
		
		Sleep(1000);
	}

	for(int nCnt = OrdersTotal() - 1; nCnt >= 0; nCnt--)
	{
		OrderSelect(nCnt, SELECT_BY_POS, MODE_TRADES);

		if(OrderMagicNumber() == nMagic)
		{
			if(CurTime() - OrderOpenTime() > (nHoursToHold - 1) * 60 * 60)
			{
				if(OrderType() == OP_BUY)
					OrderClose(OrderTicket(), OrderLots(), Bid, nSlip, Aqua);
				else if(OrderType() == OP_SELL)
					OrderClose(OrderTicket(), OrderLots(), Ask, nSlip, OrangeRed);
			}
		}
	}

	if(nSignal == OP_BUY) 
		Buy();
	else if(nSignal == OP_SELL) 
		Sell();

	GlobalVariableSet(strTradeSemaphore, 0.0);	

	return(0);
}
// ------

void Sell()
{
	if(AccountFreeMargin() < 500)
		return;

	dLotSize = GetLotSize();

	int nResult = OrderSend(Symbol(), OP_SELL, dLotSize, NormalizeDouble(Bid, nDigits), 
		nSlip, NormalizeDouble(Bid + dStopLoss, nDigits), 0, "Friday", nMagic, 0, OrangeRed);

	if(nResult == -1)
	{
		int nError = GetLastError();
		Alert(Symbol() + ", sell: " + NormalizeDouble(Bid, nDigits) + ", Stop: " + 
			NormalizeDouble(Bid + dStopLoss, nDigits) + ", error: " + nError);
	}
}

// ------

void Buy()
{
	if(AccountFreeMargin() < 500)
		return;

	dLotSize = GetLotSize();

	int nResult = OrderSend(Symbol(), OP_BUY, dLotSize, NormalizeDouble(Ask, nDigits), 
		nSlip, NormalizeDouble(Ask - dStopLoss, nDigits), 0, "Friday", nMagic, 0, Aqua);

	if(nResult == -1)
	{
		int nError = GetLastError();
		Alert(Symbol() + ", buy: " + NormalizeDouble(Ask, nDigits) + 
			", Stop: " + NormalizeDouble(Ask - dStopLoss, nDigits) + ", error: " + nError);
	}
}
// ------

double GetLotSize()
{
	double dLot = 0.1;
	
	return(dLot);
}

// ------

int GetSignal()
{
	int nSignal;
	if(MathMod(Hour(), 2) == 0)
		nSignal = OP_BUY;
	else
		nSignal = OP_SELL;
		
	return(nSignal);
}

Forex Trader 2005.08.11 21:39 #84

错误138 有时确实会出现（我在分钟上运行12对，所以不需要很长时间就会出现错误），在完全正常的价格下也会出现错误129。

Forex Trader 2005.08.11 21:57 #85

所以。错误1。粗略地从服务台翻译过来，就是 "有问题"。12个货币对在几分钟内，大约每5-10分钟出错一次。

错误138。每分钟有几次（即12个专家顾问中的几个产生）。

错误129。我在配给价格，并做了很多其他的事情......。

Forex Trader 2005.08.12 00:01 #86

事实上，既然我们正在谈论它，你如何自动确定用NormalizeDouble为价格留下多少位，即欧元兑美元为4位，欧元兑日元为2位...？?

	int _Digits = MarketInfo( Symbol( ), MODE_DIGITS )。

和你的专家顾问与我的5给我一个错误 - 6。
我的专家顾问在我的校正中不工作 - 他们在这个构建中搞砸了 =)
哦，是的...我的5号也不工作 =))))，我们走吧...

Forex Trader 2005.08.12 00:07 #87

стати, раз уж этот разговор возник, как автоматически определить, сколько знаков оставлять для цены при помощи NormalizeDouble, то есть, 4 для EURUSD, 2 для EURJPY... ?

	int _Digits = MarketInfo( Symbol( ), MODE_DIGITS )。

而你的专家顾问与我的5号文件一起给出了一个错误--6号。
我的专家顾问在我的校正中不工作 - 他们在这个构建中搞砸了 =)
哦，是的...我的5号机也不工作 =)))) oh man...

谢谢你的代码，我自己要花很长时间才能找到它。
斯拉瓦建议的专家和我改进的专家:)在下面给出。你可以像我一样运行它--在12个窗口，用12种货币。它适用于任何时间范围，但在分钟上更快）。我一直收到错误，该死的。我希望我知道原因。

double dStopLoss;
int nHoursToHold;

datetime timePrev = 0;

int nSlip = 50;

double dLotSize = 0.1;

int nMagic = 0;
int nDigits;

string strTradeSemaphore = "TradeSemaphore";

//////////////////
int init ()
{
	if(!GlobalVariableCheck(strTradeSemaphore)) 
		GlobalVariableSet(strTradeSemaphore, 0.0);
	
	dStopLoss = 110 * Point;
	nHoursToHold = 1;

	nDigits = MarketInfo( Symbol(), MODE_DIGITS );
	
	if(Symbol() == "EURUSD")
		nMagic = 1;
	else if(Symbol() == "EURJPY")
		nMagic = 2;
	else if(Symbol() == "USDCHF")
		nMagic = 3;
	else if(Symbol() == "GBPUSD")
		nMagic = 4;
	else if(Symbol() == "GBPJPY")
		nMagic = 5;
	else if(Symbol() == "GBPCHF")
		nMagic = 6;
	else if(Symbol() == "USDJPY")
		nMagic = 7;
	else if(Symbol() == "AUDUSD")
		nMagic = 8;
	else if(Symbol() == "EURGBP")
		nMagic = 9;
	else if(Symbol() == "USDCAD")
		nMagic = 10;
	else if(Symbol() == "EURCHF")
		nMagic = 11;
	else if(Symbol() == "EURAUD")
		nMagic = 12;
		
	return(0);	
}

// ------

int deinit()
{
	return(0);
}

// ------

int start()
{
	if(Bars < 5)
		return(0);
	
	// The previous bar just closed
	bool bIsBarEnd = false;
	if(timePrev != Time[0] + nMagic) 
		bIsBarEnd = true;
	timePrev = Time[0] + nMagic;
	
	if(!bIsBarEnd)
		return(0);

	// ------
	
	while(!IsStopped())
	{
		if(GlobalVariableGet(strTradeSemaphore) == 0.0)
			GlobalVariableSet(strTradeSemaphore, nMagic);

		if(GlobalVariableGet(strTradeSemaphore) == nMagic)
			break;
		
		Sleep(1000);
	}

	for(int nCnt = OrdersTotal() - 1; nCnt >= 0; nCnt--)
	{
		OrderSelect(nCnt, SELECT_BY_POS, MODE_TRADES);

		if(OrderMagicNumber() == nMagic)
		{
			if(CurTime() - OrderOpenTime() > (nHoursToHold - 1) * 60 * 60)
			{
				if(OrderType() == OP_BUY)
					OrderClose(OrderTicket(), OrderLots(), Bid, nSlip, Aqua);
				else if(OrderType() == OP_SELL)
					OrderClose(OrderTicket(), OrderLots(), Ask, nSlip, OrangeRed);
			}
		}
	}

	Sleep(500);

	int nSignal = GetSignal();
	
	if(nSignal == OP_BUY) 
		Buy();
	else if(nSignal == OP_SELL) 
		Sell();

	Sleep(500);
	
	GlobalVariableSet(strTradeSemaphore, 0.0);	
	
	return(0);
}
// ------

void Sell()
{
	if(AccountFreeMargin() < 500)
		return;

	dLotSize = GetLotSize();

	double dNormalizer = MathPow(10, nDigits);
	double dBid = MathFloor(Bid * dNormalizer) / dNormalizer; //NormalizeDouble(Bid, nDigits);
	double dStop = MathFloor((Bid + dStopLoss) * dNormalizer) / dNormalizer; //NormalizeDouble(Bid + dStopLoss, nDigits);

	int nResult = OrderSend(Symbol(), OP_SELL, dLotSize, dBid, 
		nSlip, dStop, 0, "Friday", nMagic, 0, OrangeRed);

	if(nResult == -1)
	{
		int nError = GetLastError();
		Alert(Symbol() + ", sell: " + dBid + ", Stop: " + dStop + ", error: " + nError);
	}
}

// ------

void Buy()
{
	if(AccountFreeMargin() < 500)
		return;

	dLotSize = GetLotSize();

	double dNormalizer = MathPow(10, nDigits);
	double dAsk = MathFloor(Ask * dNormalizer) / dNormalizer; //NormalizeDouble(Bid, nDigits);
	double dStop = MathFloor((Ask - dStopLoss) * dNormalizer) / dNormalizer; //NormalizeDouble(Bid + dStopLoss, nDigits);

	int nResult = OrderSend(Symbol(), OP_BUY, dLotSize, dAsk, 
		nSlip, dStop, 0, "Friday", nMagic, 0, Aqua);

	if(nResult == -1)
	{
		int nError = GetLastError();
		Alert(Symbol() + ", buy: " + dAsk + 
			", Stop: " + dStop + ", error: " + nError);
	}
}
// ------

double GetLotSize()
{
	double dLot = 0.1;
	
	return(dLot);
}

// ------

int GetSignal()
{
	int nSignal;
	if(MathMod(Hour(), 2) == 0)
		nSignal = OP_BUY;
	else
		nSignal = OP_SELL;
		
	return(nSignal);
}

Forex Trader 2005.08.12 10:56 #88

顺便说一下，代码[skipped]<br/ translate="no">允许另一个EA在if(GlobalVariableGet(strTradeSemaphore) == 0.0)和GlobalVariableSet(strTradeSemaphore, 1.0);之间进行切割。我们需要一个函数来捕获并抑制执行线程（即等待资源），然后将控制权返回给专家顾问。类似于WaitForExclusive()

。虽然，也许这并不是重点。但可惜的是，错误不断出现。

这正是我对假设函数GlobalVariableSetOnCondition的意思，它可以将全局变量设置为第一个参数，只要它的值等于第二个参数的值。由于对全局变量的访问被阻止，它将给出 "原子性 " 。现在关于函数IsStopped。它检查停止标志，这样EA就可以正常停止（它有2.5秒的时间）。建议将这个函数作为循环条件之一，特别是对于无限循环

Forex Trader 2005.08.12 11:32 #89

<br / translate="no">这就是为什么我在谈论一个假设的函数GlobalVariableSetOnCondition，它可以通过第一个参数设置一个全局变量，只要其值等于第二个参数的值。

斯拉瓦，就我而言，我不明白这段文字。请用其他语言解释，或者让我看看你的意思。如果你能。

顺便问一下，我重写的代码有什么问题？我的意思是，很明显有些东西是错的，因为它不工作，但我没有看到错误。根据我的预感，这应该是提供独家访问的......

while(!IsStopped()) { if(GlobalVariableGet(strTradeSemaphore) == 0.0) GlobalVariableSet(strTradeSemaphore, nMagic); if(GlobalVariableGet(strTradeSemaphore) == nMagic) break; Sleep(1000); }

Forex Trader 2005.08.12 11:45 #90

именно так. я поэтому и говорил про гипотетическую функцию GlobalVariableSetOnCondition, которая могла бы устанавливать глобальную переменную первым параметром при условии, что значение её равно значению второго параметра. так как доступ к глобальным переменным блокируется, то это даст "атомарность"

斯拉瓦，就我而言，我不明白这段文字。要么用其他词语解释，要么让我看看你的意思。如果你能。

我们谈论的是防止在调用GlobalVariableGet 和GlobalVariableSet函数之间发生楔入的可能性。另一个专家顾问的楔入是真实的，因为仍然可以观察到错误。这就是为什么我在谈论原子访问。你和我谈论的是解决一个相同的问题，但用不同的话说。

顺便问一下，我重写的那段代码有什么问题？我的意思是，很明显有问题，因为它不工作，但我没有看到错误。根据我的预感，这应该是提供独家访问的......

while(!IsStopped()) { if(GlobalVariableGet(strTradeSemaphore) == 0.0) GlobalVariableSet(strTradeSemaphore, nMagic); if(GlobalVariableGet(strTradeSemaphore) == nMagic) break; Sleep(1000); }

你的例子更好

第6号错误 - 页 9