перемешивание координат

[garr24]

Привет всем. Подскажите решение... Есть 12 пар координат.

Code: (clickermann) [Select]

$x1=325 (TFRead("number.txt", 45))
$y1=125 (TFRead("number.txt", 46))

$x2=244
$y2=103
...
$x12=437
$y12=132
Координаты задаются из текстового документа(отдельная строка для каждой координаты).
Нужно перемешать координаты (присвоить случайное значение из имеющихся, сохраняя пару координат)
как-то так:

Code: (clickermann) [Select]

$x1=244
$y1=103

$x2=437
$y2=132
...
$x12=325
$y12=125
Перемешать нужно именно сохраняя парность координат. Значения  $x1,$y1 переходят $x3,$y3, а не $x3,$y5 .

[Vint]

Зачем вообще нумеровать переменные если порядок не важен? Почему не загнать их в один массив и после доставать какие нужно перед самой обработкой?
Нужно правильно планировать решение задачи.

Code: (clickermann) [Select]

ARRPUSH($arr, (TFRead("number.txt", 45)))
ARRPUSH($arr, (TFRead("number.txt", 46)))
...Надеюсь $x2, $y2 не читались со строк 47,48. Если шли подряд зачем прописывать номера руками, читать нужно в цикле.

И вот в итоге у тебя массив $arr = [325, 125, 244, 103, ... , 437, 132]
Берёшь любую пару и обрабытываешь:

Code: (clickermann) [Select]

$index = RND(0,12-1)*2
$x = [$index]
$y = [$index+1]
или если не знаешь длину массива (сколько пар у тебя)

Code: (clickermann) [Select]

$index = RND(0, (ARRSIZE($arr)-2)/2)*2
$x = [$index]
$y = [$index+1]

Можно , конечно, замутить и перемешивание, как ты хочешь. Но это не есть гуд.

[Oraven]

В файле "number.txt" координаты должны быть в таком виде

Code: [Select]

258,389
330,477
405,557
375,654
360,712
Сам скрипт с перемешиванием

Code: (clickermann) [Select]

TFREADARR("number.txt", $arr1)

$siz = ARRSIZE($arr1)
FOR($a=0,$a<$siz)
   IF(ARRSIZE($ARR) = 0)
      $count1 = 0 // начальное число
      $count2 = $siz-1 // конечное число
      WHILE($count1 < $count2+1)
         ARRPUSH($ARR,$count1)
         INC($count1,1)
      END_CYC
   END_IF
   $ARR_SIZE = ARRSIZE($ARR)
   FOR ($i=0, $i<$ARR_SIZE*2)
      $n1 = RND(0,$ARR_SIZE-1)
      $n2 = RND(0,$ARR_SIZE-1)
      $R = $ARR[$n1]
      $ARR[$n1] = $ARR[$n2]
      $ARR[$n2] = $R
   END_CYC
   $r = ARRPOP($ARR)   
   STRSEPARATE($arr1[$r], ",", $arr3)
   ARRPUSH($arr4, $arr3[0])
   ARRPUSH($arr4, $arr3[1])
   UNDEFINE($arr3)
END_CYC

$x1 = $arr4[0]
$y1 = $arr4[1]

$x2 = $arr4[2]
$y2 = $arr4[3]

$x3 = $arr4[4]
$y3 = $arr4[5]

$x4 = $arr4[6]
$y4 = $arr4[7]

$x5 = $arr4[8]
$y5 = $arr4[9]

$x6 = $arr4[10]
$y6 = $arr4[11]

$x7 = $arr4[12]
$y7 = $arr4[13]

$x8 = $arr4[14]
$y8 = $arr4[15]

$x9 = $arr4[16]
$y9 = $arr4[17]

$x10 = $arr4[18]
$y10 = $arr4[19]

$x11 = $arr4[20]
$y11 = $arr4[21]

$x12 = $arr4[22]
$y12 = $arr4[23]

UNDEFINE($arr)
UNDEFINE($arr1)
UNDEFINE($arr3)
UNDEFINE($arr4)
Жалко что #define не принимает переменных, можно было бы сделать короче.

[garr24]

Oraven, спасибо огромное! я и хотел сделать на похожем(случайные числа исключая повторения(за него тоже пасиб)) скрипте, только не знал как не разорвать пару координат.(не хватает мозга и опыта работы с массивами...) Спасибо всем за помощь!

[cahmep]

У меня тоже возникла подобная задача... нужно в случайном порядке перемешать пары координат в массиве...
Принцип такой: берем случайную пару координат (х,у) из нашего массива и исполузуем на свои нужды (например сохраняем в новый массив), потом на место использованных координат последовательно перемещаем все последующие координаты, а исходный массив в итоге уменьшается на 2 элемента. Все это зацикливаем, пока размер исходного массива не станет равным нулю. Выглядит очень просто:

Code: (clickermann) [Select]

WHILE(ARRSIZE($arr1) > 0)

 $_N = ARRSIZE($arr1)/2        // количество пар координат
 $numb = 2*RND(0, $_N-1)      // номер в массиве первой координата из случайной пары

ARRPUSH($arr2, $arr1[ $numb])
ARRPUSH($arr2, $arr1[ $numb+1])

WHILE($numb < ARRSIZE($arr1)-2)
 $arr1[$numb] = $arr1[$numb +2] // исключаю использованные координаты
 $numb = $numb +1             // на их место перезаписываю следующие по счету
END_CYC
 $numb = ARRPOP($arr1)         // пара последних координат теперь передвинулась
 $numb = ARRPOP($arr1)         // на 2 позиции ближе к началу массива, поэтому 2 последних элемента массива можно извлечь

END_CYC