[Velik84]

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

[VVA]

Здесь речь идет не о программке, а о стандартной функции лиспа:
1.

Код:

[Выделить все]

(setq pt1 '(10 20 30) ;_Точка
      ang 0.785398 ;_Угол в радианах (~ 45 градусов)
      dst 120 ;_расстояние
      )
(setq pt2 (polar pt1 ang dst))
;;Проверка
(command "_Line" "_non" pt1 "_non" pt2 "")

2. pt1 и pt2 из предыдущего примера

Код:

[Выделить все]

(angle pt1 pt2)

Что-то смутно подсказывает, что нужны будут дирекционные углы. Посмотреть можно здесь

[Velik84]

Программка нужна для того чтобы определять не графически координаты или расстояния от координаты до координаты. или определять румб (угол отрезка относительно геодезической сетки). То есть я например ввожу координату х и у направление в град минутах и секундах и расстояние до следующей координаты и ответ мне дожен выдаться вторая координата х и у. И другая задача-это у меня есть две координаты мне нужно определить роасстояние между этими координатами. вот

[VVA]

Программка нужна для того чтобы определять не графически координаты или расстояния от координаты до координаты.

А где графика в предыдущем примере? Тоже что и выше с запросами

Код:

[Выделить все]

(defun C:TEST ()
(initget 1)
(setq pt1 (getpoint "\nВведите координату:"))
(initget 1)
(setq ang (getangle "\nВведите угол (пример 22d12'13.5\"): "))
(initget 1)
(setq  dst (getdist "\nВведите расстояние: "))
(setq pt2 (polar pt1 ang dst))
(terpri)  
(princ(apply 'strcat (mapcar '(lambda(x)(strcat (rtos x 2 2) " ")) pt2)))
(princ)  
)
(defun C:TEST2 ( / *error* )
  (defun *error* (msg)(princ msg)
(mapcar 'setvar '("ANGDIR" "ANGBASE") (list 0 0))
(princ)); end of *error*
(initget 1)
(setq pt1 (getpoint "\n1-я Точка :"))
(initget 1)
(setq pt2 (getpoint pt1 "\n2-я Точка :"))
(mapcar 'setvar '("ANGDIR" "ANGBASE") (list 0 0))
(setq ang (angle pt1 pt2))
(setq CurrAng (angtos ang 1 4))  
(mapcar 'setvar '("ANGDIR" "ANGBASE") (list 1 (* 0.5 PI)))
(setq Dirang (angtos ang 1 4))
(mapcar 'setvar '("ANGDIR" "ANGBASE") (list 0 0))
(princ "\nУказанный угол: ")(princ CurrAng)
(princ "  Дирекционный угол: ")(princ DirAng)
(princ "\nРасстояние: ")(princ (distance pt1 pt2))  
(princ)
  )

[Velik84]

А как запустиь прогу эту? defun нету же...?!

[VVA]

Добавил.

[Velik84]

А можно сделать чтоб ответ -координата округлялась до второго знака после запятой
а обратную задачу можно сюда же включить, то есть есть две координаты нужно найти расстояние и направление

[VVA]

Velik84,
1. Отредактировал #4
2. Посмотри внимательнее там есть TEST2

[Velik84]

Спасибки большое! проверил тест2-работает отлично, расстояние выдает замечательно. а вот тест - ответ все равно выдает не точно, он округляет до целых а нужно до второго знака после запятой)))

[VVA]

пробуй снова

[Velik84]

ага! терь отлично))) а в тест 2 можно добавть чтоб показывал кроме расстояния еще и дирекционный угол? я наверно задолбал вас)))

[VVA]

Все показывает. F2 нажми

Команда: test2 1-я Точка : 2-я Точка : Указанный угол: 28d26'0" Дирекционный угол: 61d34'0" Расстояние: 65.6454 Команда:

[Velik84]

Спасибы огромные! выручили!!!