Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2017.11.12;
Скачать: [xml.tar.bz2];

Вниз

подскажите обратную формулу   Найти похожие ветки 

 
ВладОшин ©   (2015-12-21 09:04) [0]

в стороннем приложении имею коорд.сетку X/Y,
X и Y от -400 до 0 и до 400 включительно
координата внутри представлена одним числом

Методом проб выяснил, что так
 Z := (400-Y)*801 + (400+X) +1;

Наоборот наверняка тоже можно, т.е. из Z получить X и Y
но я что-то не соображу с утра и не попадаю )
надо тут что-то аля
(не попало, но как-то так должно быть)
 X := (Z mod 800) - 400 ;
 Y := (Z div 800) - 400 -1;


 
Sha ©   (2015-12-21 09:19) [1]

ВладОшин ©   (21.12.15 09:04)  

зачем делишь на 800, если умножаешь на 801?


 
ВладОшин ©   (2015-12-21 09:30) [2]

во, так похоже
 X := (Z mod 801) - 400 - 1;
 Y := 400 - (Z div 801);


 
ВладОшин ©   (2015-12-21 09:32) [3]


> Sha ©   (21.12.15 09:19) [1]

ну да
у меня 400 и 400 в голове, + = 800
дурацкий 0 посредине ))


 
Рамиль ©   (2015-12-21 09:36) [4]

А так не вернее?
Y = 400-(Z-1) div 801;
X = (Z-1) mod 801-400;


 
ВладОшин ©   (2015-12-21 09:43) [5]


> Рамиль ©   (21.12.15 09:36) [4]

да, вернее, похоже
спасибо



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2017.11.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.002 c
15-1467495002
Юрий
2016-07-03 00:30
2017.11.12
С днем рождения ! 3 июля 2016 воскресенье


6-1284011253
Alexandro
2010-09-09 09:47
2017.11.12
Как получить доступ к элементу в TWebBrowser?


1-1355034458
mfender
2012-12-09 10:27
2017.11.12
RTTI. Бесчеловечный AV для некоторых типов


2-1449542054
Арлекино
2015-12-08 05:34
2017.11.12
Корректно ли объявление аргумента как var Param: PByte?


15-1465507801
Юрий
2016-06-10 00:30
2017.11.12
С днем рождения ! 10 июня 2016 пятница





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский