Упростить скрипт Опции

[veiron]

Код

    set #xDelta #xField - #x
    set #yDelta #yField - #y
    set #vector 2 * (#xDelta) * (#yDelta) + 2 + ( abs(#xDelta))
// 8 индивидуальных
// set #vector  (#xDelta) * (#yDelta) + 5 * (#xDelta) * (#yDelta) + #xDelta + #yDelta * 2 + 8

Это надо перед тем gosub что вставлял в скрипт я ?

Gosub делать на #vector. Закомментированное не вставлять.

Мой госуб заменить на Gosub #vector ?
Названия подпрограмм будут:

Код

gosub 5          || -1 -1
gosub 5          || 1 1
gosub 1          || -1 1
gosub 1          || 1 -1
gosub 2          || 0 -1
gosub 2          || 0 1
gosub 3          || -1 0
gosub 3          || 1 0

Справа указаны относительные координаты второго шара от первого.

куда это вставлять ?

Скрипт тестирования дифференцирования пар

Код

set linedelay 0
log mode compact
log clear
// 1
// 
// 10
// 02
set %arr [ 1 1 ] 3
set %arr [ 1 2 ] 4
set %arr [ 1 3 ] 4
set %arr [ 1 4 ] 5
// 2
// 
// 20
// 01
set %arr [ 2 1 ] 4
set %arr [ 2 2 ] 5
set %arr [ 2 3 ] 3
set %arr [ 2 4 ] 4
// 3
// 
// 01
// 20
set %arr [ 3 1 ] 3
set %arr [ 3 2 ] 4
set %arr [ 3 3 ] 4
set %arr [ 3 4 ] 3
// 4
// 
// 02
// 10
set %arr [ 4 1 ] 4
set %arr [ 4 2 ] 3
set %arr [ 4 3 ] 3
set %arr [ 4 4 ] 4
// 5
// 
// 12
// 00
set %arr [ 5 1 ] 3
set %arr [ 5 2 ] 4
set %arr [ 5 3 ] 3
set %arr [ 5 4 ] 5
// 6
// 
// 21
// 00
set %arr [ 6 1 ] 3
set %arr [ 6 2 ] 5
set %arr [ 6 3 ] 3
set %arr [ 6 4 ] 4
// 7
// 
// 10
// 20
set %arr [ 7 1 ] 3
set %arr [ 7 2 ] 5
set %arr [ 7 3 ] 4
set %arr [ 7 4 ] 5
// 8 
// 
// 20
// 10 
set %arr [ 8 1 ] 4
set %arr [ 8 2 ] 5
set %arr [ 8 3 ] 3
set %arr [ 8 4 ] 5

for #i 1 8 1
    set #xDelta %arr [ #i 1 ] -  %arr [ #i 3 ]
    set #yDelta %arr [ #i 2 ] -  %arr [ #i 4 ]
    set #vector 2 * (#xDelta) * (#yDelta) + 2 + ( abs(#xDelta))
// 8 индивидуальных
// set #vector  (#xDelta) * (#yDelta) + 5 * (#xDelta) * (#yDelta) + #xDelta + #yDelta * 2 + 8
    log gosub #vector          || #xDelta #yDelta 
end_for
log timer
stop_script

С этим что делать ?

А иф то где с ними?

какой иф?

Ты сам выбрал пару:
10
02
Поиск надо делать от ВЕРХНЕГО шара, если они горизонтально, то от левого.
Ты фактически сделал gosub 5

теперь 3 мне надо делать от
01
20
--
12
00
---
10
20
правильноя понимаю?

[DarkMaster]

Это надо перед тем gosub что вставлял в скрипт я ?

1) А у нас их несколько что ли?)
2) Могу и я вставить, но тебе бы все равно неплохо иметь копию полноценную скрипта.

какой иф?

Сравнение первого и третьего цвета где? Мы пол дня разбирались, где хранятся цвета, чтобы их сравнить, а в итоге не сравнили.

правильно я понимаю?

Ага. Именно так.

[veiron]

1) А у нас их несколько что ли?)

один

2) Могу и я вставить, но тебе бы все равно неплохо иметь копию полноценную скрипта.

А ВЫ в моем скрипте вставте который я последний выкладывал, а я потом скапирую.

Сравнение первого и третьего цвета где? Мы пол дня разбирались, где хранятся цвета, чтобы их сравнить, а в итоге не сравнили.

if %field [ #x #y ] = %field [%thridImage[#с 1] %thridImage[#с 2]]
Совпадение
end_if

Правильный иф ?

[DarkMaster]

А ВЫ моем скрипте вставте

такой страх просто скопировать строчки?)

Правильный иф ?

да

Давай в кучу. Неправильно скопируешь - изменю.

[veiron]

Собранный скрипт

Код

// Координата левого верхнего изображения.
// С точностью до пикселя.
set #startOffsetX 260
set #startOffsetY 146
// Шаг сетки изображений.
// С точностью до пикселя.
set #cellOffsetX 41
set #cellOffsetY 41
// Изображения шариков
set %image [ 1 ] 458231        
set %image [ 2 ] 106948     
set %image [ 3 ] 151005     
set %image [ 4 ] 468460   
set %image [ 5 ] 545904
set #countImage size (%image) 
 
for #i 1 #countImage
   set $a findcolor ( 260 146 465 351 41 41 (%image[ #i ]) %arr  2 )
    for #n 1 $a 1
        set #fieldX ( %arr [ #n 1 ] - #startOffsetX ) / #cellOffsetX + 1
        set #fieldY ( %arr [ #n 2 ] - #startOffsetY ) / #cellOffsetY + 1
        set %field [ #fieldY #fieldX ] #i
    end_for
end_for

///////////////////////////////////
for #xField 1 6 1 // Я хз какого размера у тебя поле. Предположим 10 на 10.
    for #yField 1 6 1 
        if #xField < 2
           set #xStart 1
        else
           set #xStart #xField - 1
        end_if
        if #xField > 5
           set #xEnd 6
        else
           set #xEnd #xField + 1
        end_if
        if #yField < 2
           set #yStart 1
        else
           set #yStart #yField - 1
        end_if
        if #yField > 5
           set #yEnd 6
        else
           set #yEnd #yField + 1
        end_if
        for #x #xStart #xEnd 1
            for #y #yStart #yEnd 1
                if %field [ #x #y ] = %field [ #xField #yField ] and ( #x != #xField or #y != #yField )
                log #x #y и #xField #yField
                   set #xDelta #xField - #x
                   set #yDelta #yField - #y
                   set #vector 2 * (#xDelta) * (#yDelta) + 2 + ( abs(#xDelta))
                   gosub #vector
                   set #n #n + 1
                end_if
            end_for
        end_for
    end_for
end_for
log timer  #n
end_script


:5
    set #f 0
    if #x1 < 6 and #y1 != 1
        set #f #f + 1
        Set %thridImage[#f 1] #x1 + 1
        Set %thridImage[#f 2] #y1 - 1
    end_if
    if #x1 < 5 
        set #f #f + 1
        Set %thridImage[#f 1] #x1 + 2
        Set %thridImage[#f 2] #y1
    end_if
    if #y1 < 5
        set #f #f + 1
        Set %thridImage[#f 1] #x1
        Set %thridImage[#f 2] #y1 + 2
    end_if
    if #x1 != 1 and #y1 < 6
        set #f #f + 1
        Set %thridImage[#f 1] #x1 - 1
        Set %thridImage[#f 2] #y1 + 1
    end_if
    for #с 1 #f 1
        if %field [ #x #y ] = %field [%thridImage[#с 1] %thridImage[#с 2]]
            log %field [%thridImage[#с 1] %thridImage[#с 2]]
        end_if
    end_for
return

Вот, собрал.

Сообщение отредактировал DarkMaster - 21.8.2013, 15:41

[DarkMaster]

Поправил. А я то никак не мог понять чего ты напугался) Там надо было просто вставить 3 строки. Все) Ну метку подправить и госаб, что ты кстати сделал.

Пиши остальные три.

[veiron]

Поправил. А я то никак не мог понять чего ты напугался) Там надо было просто вставить 3 строки. Все) Ну метку подправить и госаб, что ты кстати сделал.
Пиши остальные три.

А тот длинный скрипт уже не нужен?

[DarkMaster]

тот это который? тест пар? Это я для себя выложил, чтобы не потерять. Это только для отладки.

[veiron]

тот это который? тест пар? Это я для себя выложил, чтобы не потерять. Это только для отладки.

Да который вы выкладывали. Тогда у меня еще вопрос, а в поиске 3 шара переменные #x1 #y1 от которых идет смещение это не ошибка, откуда они берутся, ведь в %field стоят #x #y .

[DarkMaster]

Тогда у меня еще вопрос, а в поиске 3 шара переменные #x1 #y1 от которых идет смещение это не ошибка, откуда они берутся, ведь в %field стоят #x #y .

Ошибка. Но намеренная. Там будет еще маленький иф, который будет оборачивать данные, если начальный шар оказался не в той позиции. Например:
20
01
он внизу справа, что для нас недопустимо. Под это будет одно простенькое условие, но тоже индивидуальное для каждой из 4 веток.

// Смени #x1 на #thridImageX, а то скрипт нечитаемым получается. С "y" аналогично. Просто потом сам же будешь путаться. Рабочее название пофиг какое, но когда в скрипт идет, то нужно причесывать.

Ушел на 2 часа +/-.

[veiron]

Код

  000000
  0x0000
  x01000
  020x00
  00x000
  000000
    if #thridImageX != 1 and #thridImageY < 6
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageY < 5
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 2
        Set %thridImage[#f 2] #thridImageY
    end_if
   if #thridImageX < 6 and #thridImageY != 1
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 1
        Set %thridImage[#f 2] #thridImageY + 1
    end_if
    if #thridImageX < 5 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX
        Set %thridImage[#f 2] #thridImageY + 2
    end_if
--------------------------
    000000   
    000000  
    0х00х0    
    х0120х    
    0х00х0  
    000000 

     if #thridImageX < 6 and #thridImageY != 1
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageX < 5 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY + 2
    end_if
    if #thridImageY < 5
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 2
        Set %thridImage[#f 2] #thridImageY
    end_if
    if #thridImageX != 1 and #thridImageY < 6
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 2
        Set %thridImage[#f 2] #thridImageY 
    end_if
        if #thridImageY < 5
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY + 1
    end_if
    if #thridImageX != 1 and #thridImageY < 6
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 2
        Set %thridImage[#f 2] #thridImageY + 1
    end_if

--------------------------------------
    00х000   
    0х0х00  
    001000    
    002000    
    0х0х00  
    00х000 

     if #thridImageX < 6 and #thridImageY != 1
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 2
        Set %thridImage[#f 2] #thridImageY 
    end_if
    if #thridImageX < 5 
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageY < 5
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 1
        Set %thridImage[#f 2] #thridImageY - 1
    end_if
    if #thridImageX != 1 and #thridImageY < 6
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX - 1
        Set %thridImage[#f 2] #thridImageY + 2 
    end_if
        if #thridImageY < 5
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX + 1
        Set %thridImage[#f 2] #thridImageY + 2
    end_if
    if #thridImageX != 1 and #thridImageY < 6
        set #f #f + 1
        Set %thridImage[#f 1] #thridImageX
        Set %thridImage[#f 2] #thridImageY + 3
    end_if

Вот сделал, посмотрите правильно или нет. Я пока отбегу от компа, не знаю пока насколько.

[DarkMaster]

первый скрипт

#thridImageY < 6
set #f #f + 1
Set %thridImage[#f 1] #thridImageX - 1
Set %thridImage[#f 2] #thridImageY - 1

ошибка

if #thridImageY < 5
set #f #f + 1
Set %thridImage[#f 1] #thridImageX - 2

ошибка

#thridImageY != 1
set #f #f + 1
Set %thridImage[#f 1] #thridImageX + 1
Set %thridImage[#f 2] #thridImageY + 1

ошибка

if #thridImageX < 5
set #f #f + 1
Set %thridImage[#f 1] #thridImageX
Set %thridImage[#f 2] #thridImageY + 2

ошибка.

Все ошибки в ифах.
Дальше пока не смотрел.
1) Внимательно смотри где X и где Y.
2) Не поленись, нарисуй в тетрадке или на бумажке вектора и посмотри, что происходит при прибавлении и вычитании. Так же нарисуй вектора на знаки <, > и !=.
3) После того, как плюнул и пропустил пункт 2, встань с кресла, возьми ручку, возьми бумажку и нарисуй эти вектора.

[DarkMaster]

ну как там ручка и бумажка? жду фотку векторов)

[veiron]

ну как там ручка и бумажка? жду фотку векторов)

Сейчас начну пробовать исправлять ошибку с ифами. А что я должен за фотку сделать с вектарами. Не понимаю про что вы?

[DarkMaster]

очень не люблю задавать такие вопросы, ибо считаю их не корректными. Сколько тебе лет? Какие оценки по математике/геометрии были в 7-8 классе? Если лет мало, то лучше так и скажи. Я тебе проще вектора объясню, чем головой об стенку биться буду.

[veiron]

очень не люблю задавать такие вопросы, ибо считаю их не корректными. Сколько тебе лет? Какие оценки по математике/геометрии были в 7-8 классе? Если лет мало, то лучше так и скажи. Я тебе проще вектора объясню, чем головой об стенку биться буду.

1.Школу я закончил 25 лет назад.
2. В 7-8 классе, мне зауч оценки ставила, лишь бы вы избавить школу от меня.А что такое алгебра и геометрия я знаю, потому что вспоминаю, что вроде был в школе такой предмет.
Из школы алгебра и геометрия, я запомнил что у кого-то из них есть синус и косинус. Тяга к математике у меня закончилась после изучения таблицы умножения.

P.S Кстати и не сколько не жалею о том, как учился в детстве. Единственное что тогда надо было учить это английский язык. А не запомнить всего одно слово, из школьной программы.

[DarkMaster]

читаем, вникаем.
http://ru.wikipedia.org/wiki/%D0%A7%D0%B8%...%BE%D1%81%D1%8C
это более наглядно. Тоже самое нарисуй себе. 90% проблем уйдет сразу же со сравнением чисел. На графиках закрашенная точка обозначает, что число входит в область/диапазон/отрезок/вектор, а кружочек с пустотой, что НЕ входит. Т.е. "1>=" - будет закрашен, а "1>" будет не закрашен.
http://uchit.rastu.ru/education/2/10/867/

[veiron]

читаем, вникаем.
http://ru.wikipedia.org/wiki/%D0%A7%D0%B8%...%BE%D1%81%D1%8C
это более наглядно. Тоже самое нарисуй себе. 90% проблем уйдет сразу же со сравнением чисел. На графиках закрашенная точка обозначает, что число входит в область/диапазон/отрезок/вектор, а кружочек с пустотой, что НЕ входит. Т.е. "1>=" - будет закрашен, а "1>" будет не закрашен.
http://uchit.rastu.ru/education/2/10/867/

Мне это обязательно изучать ?

[DarkMaster]

http://scienceland.info/algebra6/comparison
очень неплохо, почитай.

Мне это обязательно изучать ?

Я хз как ты строишь ифы, если ты этого не понимаешь/не знаешь. Остальное будет гадание. Там очень все просто и примитивно. Это из учебников за 6 и за 1(первый) класс. Это просто визуальное изображение <>.

[veiron]

http://scienceland.info/algebra6/comparison
очень неплохо, почитай.
Я хз как ты строишь ифы, если ты этого не понимаешь/не знаешь. Остальное будет гадание. Там очень все просто и примитивно. Это из учебников за 6 и за 1(первый) класс. Это просто визуальное изображение <>.

Потому такие я и не строю. У меня самый сложный для меня иф в скрипте это #i > 5, есть еще ифы но они такие if 345, 567 456456. Все, на этом сложность моих скриптов заканчивается. Только ифы, фколор и фимедж, больше ни чего я в скриптах не использую. Для меня эти статьи, это как, если вам сейчас дать книгу на китайском, и сказать, прочитайте и перескажите.