Построение алгоритма жеребьевки, нужна помощь... : Программирование

MWWRuza · █ 14.09.2015 21:09

Цитата:

OlegON ➤ и отсортировать по возрастанию.

По возрастанию чего? Индексов? А смысл... По размерам команд, пробовал, при чем в обе стороны... Результат неудовлетворительный...

Случайное число получаю с помощью "MSScriptControl.ScriptControl".
"ScrCtrl.ExecuteStatement("randomize");"
"СлучайноеЧисло = ScrCtrl.Eval("rnd");"

OlegON · █ 14.09.2015 21:23

Странно, чем он неудовлетворительный? В чем разница, за 100 циклов вытащить случайного пилота или сразу им произвольный порядок назначить? Прошу меня извинить, я начало темы забыл...

MWWRuza · █ 14.09.2015 21:40

Проблема то не в случайном порядке пилотов... С этим то как раз - проблем нет

Проблема в том, что случаино отсортированный список, это только исходные данные...

Далее их надо развести по 4-рем стартовым позициям(лентам, летают сразу по 4 пилота!), на 4 тура(в которых каждый должен отлетать по 1 разу), с учетом стыков из-за некратного четырем количества пилотов, развести по возможности от пересечения с членами своей команды, и при этом на протяжении всех 4-х туров, минимизировать повторы участников между собой.
И вот эта вся канитель, в моем варианте построения алгоритма всего этого безобразия, оказывается очень чувствительна к начальному расположению пилотов в списке. От того, как они там расположены, зависит конечный результат - остаток неразведенных повторов. Уловить как должны располагаться пилоты(по какому принципу), мне так и не удалось... Поэтому, как временная мера, для получения наилучшего конечного результата и использовал случайную перетасовку входных данных, отработку алгоритма, сравнение полученного результата с предыдущим сохраненным, и в случае лучшего результата - замена сохраненного результата на лучший.
Это конечно не правильно, но как это решать с точки зрения комбинаторики - х.з., у меня тут полный пробел в знаниях...

Shift · █ 27.09.2015 22:21

Если ещё актуально, то попробую поделиться некоторыми соображениями.
Исходя из условий задачи её можно решить (если это вообще возможно) только перебором всех возможных вариантов. Из комбинаторики Количество перестановок = n!. В нашем случае для 25 человек это 100 позиций и соответственно 100! вариантов.
Возникла следующая идея.
Поскольку из условий задачи каждый пилот должен по 1 разу отлетать на каждом цвете, то красный цвет мы можем расставить сразу, перечислив пилотов по порядку. Следующий (жёлтый) мы смещаем на какое-то число (не меньше чем Количество боёв в туре и не большее чем 1/3 боёв во всех турах). Соответственно следующий (зелёный) смещаем ещё на кое-то число с предыдущими ограничениями. Тем самым мы обеспечиваем распределение 75% позиций без дополнительных проверок. Остается только расставить оставшиеся 25%, что составляет 25!, если перебирать все варианты, а на самом деле гораздо меньше. Для уменьшения пересечения пилотов одной команды, соответственно отсортируем пилотов в порядке убывания размеров команд.
Вот что у меня получилось:

Цитата:

Шабельский Геннадий(Алиса-Эйр) * Диденко Анатолий(Волжанин) * Александров Сергей(RC-Lytkarino) * Костенко Иван(СТК-СЮТ Клин)
Борисов Алексей(Алиса-Эйр) * Иванов Герман(Волжанин) * Кувакин Олег(RC-Lytkarino) * Савельев Максим(СТК-СЮТ Клин)
Никулин Артем(Алиса-Эйр) * Дронов Михаил(РуПъ) * Нестеров Владимир(Юпитер) * Курбатов Руслан(СТК-СЮТ Клин)
Гринжола Артем(Алиса-Эйр) * Медведев Владислав(РуПъ) * Захарчук Игорь(Юпитер) * Карпов Игорь(RC-Lytkarino)
Долганов Александр(Алиса-Эйр) * Сашин Алексей(АК Метеор УСЦ ДОСААФ) * Гладченко Александр(Юпитер) * Шукуров Рауф(Авиаклуб Диар-Флай)
Сысоев Сергей(Алиса-Эйр) * Должиков Сергей(Анна) * Китаев Александр(Авиаклуб Диар-Флай) * Курбатов Николай(СТК-СЮТ Клин)
Ворфоломеев Петр(Алиса-Эйр) * Шабельский Геннадий(Алиса-Эйр) * Шукуров Рауф(Авиаклуб Диар-Флай) * Нестеров Владимир(Юпитер)
Курбатов Николай(СТК-СЮТ Клин) * Борисов Алексей(Алиса-Эйр) * Диденко Анатолий(Волжанин) * Захарчук Игорь(Юпитер)
Костенко Иван(СТК-СЮТ Клин) * Никулин Артем(Алиса-Эйр) * Иванов Герман(Волжанин) * Гладченко Александр(Юпитер)
Савельев Максим(СТК-СЮТ Клин) * Гринжола Артем(Алиса-Эйр) * Дронов Михаил(РуПъ) * Китаев Александр(Авиаклуб Диар-Флай)
Курбатов Руслан(СТК-СЮТ Клин) * Долганов Александр(Алиса-Эйр) * Медведев Владислав(РуПъ) * Должиков Сергей(Анна)
Карпов Игорь(RC-Lytkarino) * Сысоев Сергей(Алиса-Эйр) * Сашин Алексей(АК Метеор УСЦ ДОСААФ) * Кувакин Олег(RC-Lytkarino)
Александров Сергей(RC-Lytkarino) * Ворфоломеев Петр(Алиса-Эйр) * Должиков Сергей(Анна) * Иванов Герман(Волжанин)
Кувакин Олег(RC-Lytkarino) * Курбатов Николай(СТК-СЮТ Клин) * Шабельский Геннадий(Алиса-Эйр) * Дронов Михаил(РуПъ)
Нестеров Владимир(Юпитер) * Костенко Иван(СТК-СЮТ Клин) * Борисов Алексей(Алиса-Эйр) * Медведев Владислав(РуПъ)
Захарчук Игорь(Юпитер) * Савельев Максим(СТК-СЮТ Клин) * Никулин Артем(Алиса-Эйр) * Сашин Алексей(АК Метеор УСЦ ДОСААФ)
Гладченко Александр(Юпитер) * Курбатов Руслан(СТК-СЮТ Клин) * Гринжола Артем(Алиса-Эйр) * Ворфоломеев Петр(Алиса-Эйр)
Китаев Александр(Авиаклуб Диар-Флай) * Карпов Игорь(RC-Lytkarino) * Долганов Александр(Алиса-Эйр) * Диденко Анатолий(Волжанин)
Шукуров Рауф(Авиаклуб Диар-Флай) * Александров Сергей(RC-Lytkarino) * Сысоев Сергей(Алиса-Эйр) * Гринжола Артем(Алиса-Эйр)
Диденко Анатолий(Волжанин) * Кувакин Олег(RC-Lytkarino) * Ворфоломеев Петр(Алиса-Эйр) * Никулин Артем(Алиса-Эйр)
Иванов Герман(Волжанин) * Нестеров Владимир(Юпитер) * Курбатов Николай(СТК-СЮТ Клин) * Долганов Александр(Алиса-Эйр)
Дронов Михаил(РуПъ) * Захарчук Игорь(Юпитер) * Костенко Иван(СТК-СЮТ Клин) * Сысоев Сергей(Алиса-Эйр)
Медведев Владислав(РуПъ) * Гладченко Александр(Юпитер) * Савельев Максим(СТК-СЮТ Клин) * Шабельский Геннадий(Алиса-Эйр)
Сашин Алексей(АК Метеор УСЦ ДОСААФ) * Китаев Александр(Авиаклуб Диар-Флай) * Курбатов Руслан(СТК-СЮТ Клин) * Александров Сергей(RC-Lytkarino)
Должиков Сергей(Анна) * Шукуров Рауф(Авиаклуб Диар-Флай) * Карпов Игорь(RC-Lytkarino) * Борисов Алексей(Алиса-Эйр)

Теперь жирный минус - алгоритм работает для 23,25 и более команд, хотя в теории без повторений нельзя развести менее 13 пилотов (каждый встречается с 3*4=12 пилотами). Возможно надо попробовать поиграться со сдвигом при начальном заполнении.

Код для 1С ниже:
скрытое

Код:

Перем Таб;    


Функция Жеребьевка(ТПилотов)  
	КолПилотов=ТПилотов.КоличествоСтрок();   
	КБ=Цел(КолПилотов/4); 
	Остаток=КолПилотов-4*КБ;    
	
	ТПилотов.НоваяКолонка("ЗП");
	ТПилотов.НоваяКолонка("ВП");
	ТПилотов.НоваяКолонка("КУ");
	ТПилотов.НоваяКолонка("Э");   
	    
	Стр="";
	Для сч=1 По КолПилотов Цикл
		Стр=Стр+Симв(сч);
	КонецЦикла;
		
	ТПилотов.Заполнить(Стр,,,"ВП");
	ТПилотов.Заполнить("",,,"ЗП");
	
	Сетка=СоздатьОбъект("ТаблицаЗначений");
	Сетка.НоваяКолонка("НП");
	Сетка.КоличествоСтрок(КолПилотов*4);
	Сетка.Заполнить(0);
	
	ТКоманд=СоздатьОбъект("ТаблицаЗначений");
	ТКоманд.Загрузить(ТПилотов);  
	ТКоманд.Заполнить(1,,,"КУ");  
	ТКоманд.Свернуть("Команда","КУ");
	
	КолКоманд=ТКоманд.КоличествоСтрок();
	Для сч=1 По КолКоманд Цикл
		КУ=ТКоманд.ПолучитьЗначение(сч,"КУ");
	КонецЦикла;  
	  
	Для сч=1 По КолПилотов Цикл
		нк=0;
		ТКоманд.НайтиЗначение(тПилотов.ПолучитьЗначение(сч,"Команда"),нк,"Команда");
		КУ=ТКоманд.ПолучитьЗначение(нк,"КУ");
		ТПилотов.УстановитьЗначение(сч,"КУ",КУ);
	КонецЦикла;
	
	ТПилотов.Сортировать("КУ-,Команда");       
	КУ=ТПилотов.ПолучитьЗначение(1,"КУ");  
	
	дельта0=0;
	дельта1=?(остаток=2,КБ+1,?(остаток=3,КБ+1,КБ));
	дельта2=?(остаток=2,2*КБ+3,?(остаток=3,2*КБ+3,2*КБ+1));
	
	
	
	Для сч=1 По КолПилотов Цикл 
		нк=(сч+дельта0-?(сч+дельта0>КолПилотов,КолПилотов+1,1))*4+1;
		нж=(сч+дельта1-?(сч+дельта1>КолПилотов,КолПилотов+1,1))*4+2;
		нз=(сч+дельта2-?(сч+дельта2>КолПилотов,КолПилотов+1,1))*4+3; 
		
		ТПилотов.УстановитьЗначение(сч,"Э",10-?(нк<=КолПилотов,1,?(нк<=КолПилотов*2,2,?(нк<=КолПилотов*3,3,4)))-
												?(нж<=КолПилотов,1,?(нж<=КолПилотов*2,2,?(нж<=КолПилотов*3,3,4)))-
												?(нз<=КолПилотов,1,?(нз<=КолПилотов*2,2,?(нз<=КолПилотов*3,3,4))));
		//красный         
		Сетка.УстановитьЗначение(нк,"НП",сч);
		//желтый
		Сетка.УстановитьЗначение(нж,"НП",сч);
		//зелёный
		Сетка.УстановитьЗначение(нз,"НП",сч);
	КонецЦикла;  
	
	Для сч=1 По КолПилотов Цикл  
		ном=(сч-1)*4+1;
		нк=Сетка.ПолучитьЗначение(ном,"НП");
		нж=Сетка.ПолучитьЗначение(ном+1,"НП");
		нз=Сетка.ПолучитьЗначение(ном+2,"НП");
		
		ТПилотов.УстановитьЗначение(нк,"ВП",СтрЗаменить(СтрЗаменить(СтрЗаменить(ТПилотов.ПолучитьЗначение(нк,"ВП"),Симв(нж),""),Симв(нз),""),Симв(нк),""));
		ТПилотов.УстановитьЗначение(нж,"ВП",СтрЗаменить(СтрЗаменить(СтрЗаменить(ТПилотов.ПолучитьЗначение(нж,"ВП"),Симв(нж),""),Симв(нз),""),Симв(нк),""));
		ТПилотов.УстановитьЗначение(нз,"ВП",СтрЗаменить(СтрЗаменить(СтрЗаменить(ТПилотов.ПолучитьЗначение(нз,"ВП"),Симв(нж),""),Симв(нз),""),Симв(нк),""));
	КонецЦикла;
	
	
	Стр="";
	Для сч=1 По КолПилотов Цикл
		Стр=Стр+Симв(сч);      
		//Проверка
		Если СтрДлина(ТПилотов.ПолучитьЗначение(сч,"ВП"))+7<>КолПилотов Тогда
			//Сообщить("Ошибка расстановки! " + сч);   
			Возврат -1;
		КонецЕсли;
	КонецЦикла;    
	
	ня=4;
	нц=1;
	Пока Стр<>"" Цикл
		Э=?(ня<=КолПилотов,1,?(ня<=2*КолПилотов,2,?(ня<=3*КолПилотов,3,4))); 
		Ф=0;
		Для сч=нц По СтрДлина(Стр) Цикл  
			нс=КодСимв(Сред(Стр,сч,1)); 
			Если ТПилотов.ПолучитьЗначение(нс,"Э")<>Э Тогда
				//в этом этапе уже был
				продолжить;
			КонецЕсли; 
			нк=Сетка.ПолучитьЗначение(ня-3,"НП");
			нж=Сетка.ПолучитьЗначение(ня-2,"НП");
			нз=Сетка.ПолучитьЗначение(ня-1,"НП");
			ЗП=ТПилотов.ПолучитьЗначение(нс,"ЗП");
			Если Найти(ЗП,Симв(нк))<>0 Тогда
				продолжить;
			КонецЕсли;
			Если Найти(ЗП,Симв(нж))<>0 Тогда
				продолжить;
			КонецЕсли;
			Если Найти(ЗП,Симв(нз))<>0 Тогда
				продолжить;
			КонецЕсли; 
			ВП=ТПилотов.ПолучитьЗначение(нс,"ВП");
			Если Найти(ВП,Симв(нк))=0 Тогда
				продолжить;
			КонецЕсли;
			Если Найти(ВП,Симв(нж))=0 Тогда
				продолжить;
			КонецЕсли;
			Если Найти(ВП,Симв(нз))=0 Тогда
				продолжить;
			КонецЕсли;
			Ф=1;
			ТПилотов.УстановитьЗначение(нк,"ЗП",ТПилотов.ПолучитьЗначение(нк,"ЗП")+Симв(нс));
			ТПилотов.УстановитьЗначение(нж,"ЗП",ТПилотов.ПолучитьЗначение(нж,"ЗП")+Симв(нс));
			ТПилотов.УстановитьЗначение(нз,"ЗП",ТПилотов.ПолучитьЗначение(нз,"ЗП")+Симв(нс)); 
			Сетка.УстановитьЗначение(ня,"НП",нс);
			ня=ня+4; 
			нц=1;     
			Стр=СтрЗаменить(стр,симв(нс),"");
			прервать; 
		КонецЦикла;
		Если ф=1 Тогда
			продолжить;
		КонецЕсли;
		//откат
		ня=ня-4; 
		Если ня=0 Тогда
			//крах 
			Возврат -2;
		КонецЕсли;
		нк=Сетка.ПолучитьЗначение(ня-3,"НП");
		нж=Сетка.ПолучитьЗначение(ня-2,"НП");
		нз=Сетка.ПолучитьЗначение(ня-1,"НП");
		нс=Сетка.ПолучитьЗначение(ня,"НП");
			
		ТПилотов.УстановитьЗначение(нк,"ЗП",СтрЗаменить(ТПилотов.ПолучитьЗначение(нк,"ЗП"),Симв(нс),""));
		ТПилотов.УстановитьЗначение(нж,"ЗП",СтрЗаменить(ТПилотов.ПолучитьЗначение(нж,"ЗП"),Симв(нс),""));
		ТПилотов.УстановитьЗначение(нз,"ЗП",СтрЗаменить(ТПилотов.ПолучитьЗначение(нз,"ЗП"),Симв(нс),"")); 
		Сетка.УстановитьЗначение(ня,"НП",0);
		    
		сч=СтрДлина(Стр);
		Пока сч>0 Цикл
			Если КодСимв(Сред(Стр,сч,1))<нс Тогда
				прервать;
			КонецЕсли;
			сч=сч-1;
		КонецЦикла;
		встр=Сред(Стр,1,сч)+Симв(нс)+Сред(Стр,сч+1);
		стр=встр;
		нц=сч+2;  
		
	КонецЦикла;
	
	Возврат Сетка;
КонецФункции

Процедура ПриНачалеРаботыСистемы()  
	
	Таб1=СоздатьОбъект("ТаблицаЗначений");
	Для йй=13 по 36 Цикл 
		Если йй<=25 Тогда
			Таб1.Загрузить(Таб);
			Таб1.КоличествоСтрок(йй);
		Иначе
			Таб1.НоваяСтрока();  
			Таб1.Пилот="Пилот "+йй;
			Таб1.Команда="Команда "+йй;
		КонецЕсли;
			
		Сообщить(">>"+ТекущееВремя());
		Ж=Жеребьевка(Таб1);
		Сообщить("<<"+ТекущееВремя()); 
		Если Ж=-1 Тогда
			Сообщить("Ошибка предварительной расстановки пилотов="+йй);
			продолжить;
		ИначеЕсли Ж=-2 Тогда
			Сообщить("Не могу расположить пилотов="+йй);
			продолжить;    
		КонецЕсли;
		Сообщить("Расстановка для "+йй+ "пилотов");
		Для Сч=1 по Таб1.КоличествоСтрок() Цикл
			КП=Ж.ПолучитьЗначение((Сч-1)*4+1,"НП");
			ЖП=Ж.ПолучитьЗначение((Сч-1)*4+2,"НП");
			ЗП=Ж.ПолучитьЗначение((Сч-1)*4+3,"НП");
			СП=Ж.ПолучитьЗначение((Сч-1)*4+4,"НП");
			
			Сообщить(""+Таб1.ПолучитьЗначение(КП,"Пилот")+"("+Таб1.ПолучитьЗначение(КП,"Команда")+") * "+
						Таб1.ПолучитьЗначение(ЖП,"Пилот")+"("+Таб1.ПолучитьЗначение(ЖП,"Команда")+") * "+
						Таб1.ПолучитьЗначение(ЗП,"Пилот")+"("+Таб1.ПолучитьЗначение(ЗП,"Команда")+") * "+
						?(СП=0,"---------------------------",Таб1.ПолучитьЗначение(СП,"Пилот")+"("+Таб1.ПолучитьЗначение(СП,"Команда")+")")); 
			
		КонецЦикла;
	КонецЦикла;
	
		
	
КонецПроцедуры






Таб=СоздатьОбъект("ТаблицаЗначений"); 
Таб.НоваяКолонка("Пилот");
Таб.НоваяКолонка("Команда");
Таб.НоваяСтрока();  
Таб.Пилот="Кувакин Олег";
Таб.Команда="RC-Lytkarino";
Таб.НоваяСтрока();  
Таб.Пилот="Александров Сергей";
Таб.Команда="RC-Lytkarino";
Таб.НоваяСтрока();  
Таб.Пилот="Карпов Игорь";
Таб.Команда="RC-Lytkarino";
Таб.НоваяСтрока();  
Таб.Пилот="Шукуров Рауф";
Таб.Команда="Авиаклуб Диар-Флай";
Таб.НоваяСтрока();  
Таб.Пилот="Китаев Александр";
Таб.Команда="Авиаклуб Диар-Флай";
Таб.НоваяСтрока();  
Таб.Пилот="Сашин Алексей";
Таб.Команда="АК Метеор УСЦ ДОСААФ";
Таб.НоваяСтрока();  
Таб.Пилот="Никулин Артем";
Таб.Команда="Алиса-Эйр";
Таб.НоваяСтрока();  
Таб.Пилот="Гринжола Артем";
Таб.Команда="Алиса-Эйр";
Таб.НоваяСтрока();  
Таб.Пилот="Долганов Александр";
Таб.Команда="Алиса-Эйр";
Таб.НоваяСтрока();  
Таб.Пилот="Сысоев Сергей";
Таб.Команда="Алиса-Эйр";
Таб.НоваяСтрока();  
Таб.Пилот="Ворфоломеев Петр";
Таб.Команда="Алиса-Эйр";
Таб.НоваяСтрока();  
Таб.Пилот="Борисов Алексей";
Таб.Команда="Алиса-Эйр";
Таб.НоваяСтрока();  
Таб.Пилот="Шабельский Геннадий";
Таб.Команда="Алиса-Эйр";
Таб.НоваяСтрока();  
Таб.Пилот="Должиков Сергей";
Таб.Команда="Анна";
Таб.НоваяСтрока();  
Таб.Пилот="Диденко Анатолий";
Таб.Команда="Волжанин";
Таб.НоваяСтрока();  
Таб.Пилот="Иванов Герман";
Таб.Команда="Волжанин";
Таб.НоваяСтрока();  
Таб.Пилот="Дронов Михаил";
Таб.Команда="РуПъ";
Таб.НоваяСтрока();  
Таб.Пилот="Медведев Владислав";
Таб.Команда="РуПъ";
Таб.НоваяСтрока();  
Таб.Пилот="Курбатов Руслан";
Таб.Команда="СТК-СЮТ Клин";
Таб.НоваяСтрока();  
Таб.Пилот="Савельев Максим";
Таб.Команда="СТК-СЮТ Клин";
Таб.НоваяСтрока();  
Таб.Пилот="Костенко Иван";
Таб.Команда="СТК-СЮТ Клин";
Таб.НоваяСтрока();  
Таб.Пилот="Курбатов Николай";
Таб.Команда="СТК-СЮТ Клин";
Таб.НоваяСтрока();  
Таб.Пилот="Нестеров Владимир";
Таб.Команда="Юпитер";
Таб.НоваяСтрока();  
Таб.Пилот="Захарчук Игорь";
Таб.Команда="Юпитер";
Таб.НоваяСтрока();  
Таб.Пилот="Гладченко Александр";
Таб.Команда="Юпитер";

Shift · █ 27.09.2015 22:33

Небольшое дополнение насчет сортировки - можно сортировать участников внутри команды, а так-же сами команды если количество участников в этих командах меньше количеста боёв в одном туре.

MWWRuza · █ 28.09.2015 13:53

Спасибо, что нашли время вникнуть в мою проблему!

Я тут тоже время не терял, много чего написал, восновном для анализа...

Вот база на текущий момент...

А вот, как выглядит закладка документа "Этап" с "обилием вариантов"

жеребьевки:

Каждая кнопочка формирует таблицу жеребьевки, разными способами, используя список пилотов в документе, таблицу "повторов", и исходный список:

С Вашим кодом пока не разбирался, вечером попробую. Я так понимаю, это обработка, без обращения к БД, с заполнением списка при открытии из модуля... На форме нужны какие-то реквизиты, кроме кнопки "Жеребьевка()" - ?

И еще вопрос - что означает восклицательный знак - "100!" - ? Я просто не знаком с правилами записи формул в комбинаторике, это степень числа или еще что-то?

Stels · █ 28.09.2015 13:56

Цитата:

MWWRuza ➤ "100!" - ?

читается Факториал

n! = 1* 2 *3 *4 * ...* n

MWWRuza · █ 28.09.2015 14:14

Цитата:

Shift ➤ красный цвет мы можем расставить сразу, перечислив пилотов по порядку. Следующий (жёлтый) мы смещаем на какое-то число (не меньше чем Количество боёв в туре и не большее чем 1/3 боёв во всех турах).

Почти так, но не совсем... А как в таком случае "стыковые бои" распределятся? (в моей табличке, жирной пунктирной линией отделены туры с учетом стыков). А так, в принципе я так и делал начальное заполнение колонок, только для каждого тура в отдельности с учетом стыков... И если до запучка алгоритма разведения, посмотреть на таблицу, то она как-бы будет в диагональную полосочку - если в первом туре пилот был на Красной, то во втором будет на Желтой, в третьем на Зеленой, и в четвертом на Синей. Если в первом попал на Желтую, то во втором на Зеленую, в третьем на Синюю, и в четвертом - на Красную...
Потом, первым проходом, развожу команды - двигаю пилотов в пределах туров вверх/вниз, чтобы убрать пересечения команд во всех четырех турах. Потом, развожу повторы - так-же двигаю вверх/вниз пилотов в своих колонках, естественно, что-бы не вылезти за границы туров - с учетом стыков. Например, в первом туре красную позицию можно сдвинуть в пределах строк с первой по седьмую, желтую-синюю - в пределах строк с первой по шестую. И далее в том-же стиле. После отработки всех этих алгоритмов, пилоты должны остаться в пределах туров, куда изначально попали, по максимуму разойтись от повторов и пересечения со своими однокомандниками...

PS Там в программе самая нижняя кнопочка "Произвести жеребьевку(случ. перемешать каждый тур)" пока не доделан алгоритм, я только вчера ее начал делать, как раз призвана уйти от "диагональных полос", каждый тур заполняю случайным порядком, ориентируясь только на цвета лент(чтобы каждый не более одного раза был на одной ленте), а потом разводить теми-же процедурами от повторов и пересечений... Думаю, в таком варианте больше будет случайных комбинаций...

Shift · █ 28.09.2015 16:08

Если я правильно понял, то стыковой бой это например 7 (красный участник в 1 туре, а остальные во 2 туре).
В таком случае распределение происходит само собой. Например для 25 это будет так:

Код:

К - Ж - З
1 - 20 - 13
2 - 21 - 14
3 - 22 - 15
4 - 23 - 16
5 - 24 - 17
6 - 25 - 18
7- 1 - 19
8 - 2 - 20
9 - 3 - 21
10 - 4 - 22
11 - 5 - 23
12 - 6 - 24
13 - 7 - 25
14 - 8 - 1
15 - 9 - 2
16 - 10 - 3
17 - 11 - 4
18 - 12 - 5
19 - 13 - 6
20 - 14 - 7
21 - 15 - 8
22 - 16 - 9
23 - 17 - 10
24 - 18 - 11
25 - 19 - 12

За счет того что смещение желтых относительно красных не равно смещению зеленых относительно желтых, а так-же потому, что эти смещения не меньше количества боев в одном туре, как раз и получается что каждый из участников поучаствовал в 3-х турах и в 3-х цветах. Остается только расставить последний цвет.

MWWRuza · █ 28.09.2015 22:27

Вообще, интересный подход... Надо попробовать сделать рабочий вариант по такому принципу... Но, это только расстановка начальной таблицы, потом, придется все равно переставлять пилотов внутри туров, чтобы развести со "своими" членами команд... И кроме того, даже в начальной таблице четвертую(синюю) колонку тоже придется заполнять подбором - "кто подойдет", а вариантов может и не быть... Вобщем, есть над чем подумать...
Я до этого заполнял по такому принципу:

Цитата:

01 - 02 - 03 - 04
05 - 06 - 07 - 08
09 - 10 - 11 - 12
13 - 14 - 15 - 16
17 - 18 - 19 - 20
21 - 22 - 23 - 24
25 - 01 - 02 - 03 - стык
04 - 05 - 06 - 07
08 - 09 - 10 - 11
12 - 13 - 14 - 15
16 - 17 - 18 - 19
20 - 21 - 22 - 23
24 - 25 - 01 - 02 - стык
03 - 04 - 05 - 06
07 - 08 - 09 - 10
11 - 12 - 13 - 14
15 - 16 - 17 - 18
19 - 20 - 21 - 22
23 - 24 - 25 - 01 - стык
02 - 03 - 04 - 05
06 - 07 - 08 - 09
10 - 11 - 12 - 13
14 - 15 - 16 - 17
18 - 19 - 20 - 21
22 - 23 - 24 - 25

Немного другой подход, надо попробовать по Вашему, может и лучше получится...