Функция, вычисляющая расстояние между городами

@MahovIV · Регистрация: 17.09.2013

Author24 — интернет-сервис помощи студентам

Предположим, что у имени города есть свойства х и у, которые содержат коор-
динаты места нахождения города относительно некоторого начала координат.
Напишите функцию (РАССТОЯНИЕ a b), вычисляющую расстояние между го-
родами а и b.
Как это сделать?

@Lambdik · 23.03.2016, 19:37

Сообщение от MahovIV

Как это сделать?

через свойства символа.

@MahovIV · 23.03.2016, 19:40 **[ТС]**

А можно подробнее?

@Catstail · 23.03.2016, 19:47

HomeLisp:

Lisp

(defun dist (c1 c2)
  (let ((x1 (getprop c1 'x))
        (y1 (getprop c1 'y)) 
        (x2 (getprop c2 'x))
        (y2 (getprop c2 'y)))
   (sqr (+ (^ (- x1 x2) 2) (^ (- y1 y2) 2)))))
 
==> dist
 
(putprop 'saratov 'x -200)
 
==> saratov
 
(putprop 'saratov 'y 600)
 
==> saratov
 
(putprop 'moskow 'x 0)
 
==> moskow
 
(putprop 'moskow 'y 0)
 
==> moskow
 
(dist 'moskow 'saratov)
 
==> 632.455532033676

@MahovIV · 23.03.2016, 19:55 **[ТС]**

Но в list-works не работает. Есть ли другой вариант?

@Lambdik · 23.03.2016, 20:12

Lisp

(defun Distance (a b) 
  (sqrt (+ (expt (- (get a 'x) (get b 'x)) 2)
           (expt (- (get a 'y) (get b 'y)) 2))))
 
(setf (get 'Kyiv 'x) 0)
(setf (get 'Kyiv 'y) 0)
 
(setf (get 'Lviv 'x) 470)
(setf (get 'Lviv 'y) 65)

вызовы

Lisp

> (Distance 'Kyiv 'Lviv)
474.4734
 
> (symbol-plist 'Kyiv)
(y 0 x 0)
> (symbol-plist 'Lviv)
(y 65 x 470)

@vlisp · 23.03.2016, 20:17

Сообщение от Catstail

(sqr (+ (^ (- x1 x2) 2) (^ (- y1 y2) 2))))

Предлагаю посерьезнее задачку: подсчитать убытки строительной компании на строительстве дороги Москва-Саратов, если известно, что при подсчете длины трассы не была учтена выпуклость земной поверхности

@Catstail · 23.03.2016, 20:48

Для CommonLisp:

Lisp

CL-USER 10 > (setf (get 'saratov 'x) -200)
-200
 
CL-USER 11 > (setf (get 'saratov 'y) 800)
800
 
CL-USER 12 > (setf (get 'moskow 'x) 0)
0
 
CL-USER 13 > (setf (get 'moskow 'y) 0)
0
 
CL-USER 16 > (defun dist (c1 c2)
  (let ((x1 (get c1 'x))
        (y1 (get c1 'y)) 
        (x2 (get c2 'x))
        (y2 (get c2 'y)))
   (sqrt (+ (expt (- x1 x2) 2) (expt (- y1 y2) 2)))))
DIST
 
CL-USER 19 : 1 > (dist 'moskow 'saratov)
824.62116

@MahovIV · 23.03.2016, 20:53 **[ТС]**

А для LispWorks?

@Catstail · 24.03.2016, 12:13

MahovIV, это из LispWorks и взято

@MahovIV · 24.03.2016, 13:27 **[ТС]**

Ну спасибо.

@MahovIV 6 / 7 / 4 Регистрация: 17.09.2013 Сообщений: 337
		1
	Функция, вычисляющая расстояние между городами 23.03.2016, 19:29. Показов 1392. Ответов 10 Метки нет (Все метки) Предположим, что у имени города есть свойства х и у, которые содержат коор- динаты места нахождения города относительно некоторого начала координат. Напишите функцию (РАССТОЯНИЕ a b), вычисляющую расстояние между го- родами а и b. Как это сделать? 0

@Lambdik 1050 / 944 / 107 Регистрация: 04.11.2012 Сообщений: 974 Записей в блоге: 3
	23.03.2016, 19:37	2
	Сообщение от MahovIV Как это сделать? через свойства символа. 0

@MahovIV 6 / 7 / 4 Регистрация: 17.09.2013 Сообщений: 337
	23.03.2016, 19:40 [ТС]	3
	А можно подробнее? 0

@MahovIV 6 / 7 / 4 Регистрация: 17.09.2013 Сообщений: 337
	23.03.2016, 19:55 [ТС]	5
	Но в list-works не работает. Есть ли другой вариант? 0

@vlisp 621 / 941 / 150 Регистрация: 10.08.2015 Сообщений: 5,018
	23.03.2016, 20:17	7
	Сообщение от Catstail (sqr (+ (^ (- x1 x2) 2) (^ (- y1 y2) 2)))) Предлагаю посерьезнее задачку: подсчитать убытки строительной компании на строительстве дороги Москва-Саратов, если известно, что при подсчете длины трассы не была учтена выпуклость земной поверхности 2

@MahovIV 6 / 7 / 4 Регистрация: 17.09.2013 Сообщений: 337
	23.03.2016, 20:53 [ТС]	9
	А для LispWorks? 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,640 Записей в блоге: 13
	24.03.2016, 12:13	10
	MahovIV, это из LispWorks и взято 0

@MahovIV 6 / 7 / 4 Регистрация: 17.09.2013 Сообщений: 337
	24.03.2016, 13:27 [ТС]	11
	Ну спасибо. 0