> 1 <

Автор Сообщение

vao

Members


Статус

4 сообщений

Где: Ukraine
Род занятий:
Возраст:

#175   2008-12-04 00:24 GMT+3 часа(ов)      
Очень надо написать на лиспе.==>>> Определить или два графа являются инцидентными.
Помогите пожалуйста...

nosilverbullet

Members


Статус

14 сообщений
http://shmat-razum.blogspot.com
Где: Russia
Род занятий: программист
Возраст:

#176   2008-12-04 15:12 GMT+3 часа(ов)      
Что такое инцидентные графы? Может быть, изоморфные графы имеются в виду?

vao

Members


Статус

4 сообщений

Где: Ukraine
Род занятий:
Возраст:

#177   2008-12-04 22:24 GMT+3 часа(ов)      
Именно инцидентность

Инцидентность - понятие, используемое только в отношении ребра и вершины: если v1,v2 — вершины, а e = (v1,v2) — соединяющее их ребро, тогда вершина v1 и ребро e инцидентны, вершина v2 и ребро e тоже инцидентны. Две вершины (или два ребра) инцидентными быть не могут. Для обозначения ближайших вершин (рёбер) используется понятие смежности

nosilverbullet

Members


Статус

14 сообщений
http://shmat-razum.blogspot.com
Где: Russia
Род занятий: программист
Возраст:

#178   2008-12-04 23:34 GMT+3 часа(ов)      
Ты сказал много того, что я знаю, но не сказал того, что я спрашивал.

Какая задача-то у тебя? "Определить или два графа являются инцидентными" -- это не формулировка вообще.

vao

Members


Статус

4 сообщений

Где: Ukraine
Род занятий:
Возраст:

#179   2008-12-05 00:17 GMT+3 часа(ов)      
надо написать задачку, которая определяет инцидентны два графа между собой или нет... мне самому она попала вот в таком вот виде... некоторые говорят что ето скорее всего ввиду имеется изоморфизм графов...

nosilverbullet

Members


Статус

14 сообщений
http://shmat-razum.blogspot.com
Где: Russia
Род занятий: программист
Возраст:

#180   2008-12-05 00:49 GMT+3 часа(ов)      
Скорее всего, они правы.

Гугл выдаёт несколько ссылок на реализацию этой задачи на Лиспе

http://www.google.com/codesearch?as_q=graph+isomorphism+&as_lang=lisp

например, вот:

http://www.google.com/codesearch?hl=en&q=graph+isomorphism+lang:lisp+show:ykNWEgBlwg4:laydAaYspnE:NUWQ5WgylIM&sa=N&cd=2&ct=rc&cs_p=http://www.ram.org/computing/misc/AI88.tar.Z&cs_f=AI88/graph.lsp

vao

Members


Статус

4 сообщений

Где: Ukraine
Род занятий:
Возраст:

#181   2008-12-05 01:50 GMT+3 часа(ов)      
Спасибо... помогло...

polonez

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#7265   2014-02-07 18:30 GMT+3 часа(ов)      
ПОМОГИТЕ ПЛИЗЗЗЗ !!!!! Написать программу с помощью предложения DO , которая считает длинну списка. в ЛИСП

romaks

Members


Статус

3 сообщений

Где: Russia Димитровград
Род занятий: Программирование
Возраст: 29

#7314   2014-03-12 19:43 GMT+3 часа(ов)      
Цитата
polonez :
ПОМОГИТЕ ПЛИЗЗЗЗ !!!!! Написать программу с помощью предложения DO , которая считает длинну списка. в ЛИСП



(defun func(lst)
(do ((rez 0))
((null lst) rez)
(setq rez (+ rez 1))
(setq lst (cdr lst))))
Знание это препятствие на пути неизвестности.

Ghostik

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#7326   2014-03-30 00:57 GMT+3 часа(ов)      
Добрый день,прошу небольшой помощи, нужно найти ошибку в программе..(
(DEFUN C:Graf()
(Initget 7)
(SETQ xBase(GETPOINT "\nНачальная координата x:"))
(Initget 7)
(SETQ yBase(GETPOINT "\nНачальная Координата y:"))
(Initget 7)
(SETQ L(GETPOINT "\nМежцентровое расстояние L:"))
(Initget 7)
(SETQ D(GETPOINT "\nДиаметр дуги D:"))
(Initget 7)
(SETQ R(GETPOINT "\nРадиус круга R:"))
(Initget 7)

(SETQ xBase (cadr Base))
(SETQ yBase (cadr Base))
(SETQ yP1 (+yBase D))
(SETQ P1(List xBase yP1))
(SETQ xP2 (+yP1 L))
(SETQ P2(List xP2 yP1))
(SETQ yP3(-xP2 D))
(SETQ P3(List xP2 yP3))
(SETQ yP4(+ yBase (D/2)))
(SETQ P4(List xBase yP4))
(SETQ yP5(+ yP3 (D/2)))
(SETQ P5(List xP3 yP5))

(Command "_line" Base P3 "")
(Command "_line" P1 P2 "")
(Command "_arc" P1 "_c" P4 Base)
(Command "_arc" P3 "_c" P5 P2)
(Command "_circle" P4 R)
(Command "_circle" P5 R)
(prin1)
)

gomer

Members


Статус

24 сообщений

Где: Ukraine
Род занятий:
Возраст:

#7327   2014-03-30 20:10 GMT+3 часа(ов)      
Ошибка ваша в том что вы ничего не понимаете в лиспе, а посему совет: комментируйте каждую строчку вашего кода, указывая зачем она нужна, а так же тип данных всех переменных
Вот ваша программа, дальше сами разбирайтесь
(defun c:graf ()
(initget 7)
(setq base (getpoint "\nБазовая точка: "))
(initget 7)
(setq l (getdist "\nМежцентровое расстояние l:"))
(initget 7)
(setq d (getdist "\nДиаметр дуги d:"))
(initget 7)
(setq r (getdist "\nРадиус круга r:"))
 
(setq xbase (car base))
(setq ybase (cadr base))
(setq yp1 (+ ybase d))
(setq p1 (list xbase yp1))
 
(setq xp2 (+ yp1 l))
(setq p2 (list xp2 yp1))
(setq yp3 (- xp2 d))
(setq p3 (list xp2 yp3))
(setq yp4 (+ ybase (* 0.5 d)))
(setq p4 (list xbase yp4))
(setq yp5 (+ yp3 (* 0.5 d)))
(setq p5 (list xp3 yp5))
 
(command "_line" base p3 "")
(command "_line" p1 p2 "")
(command "_arc" p1 "_c" p4 base)
(command "_arc" p3 "_c" p5 p2)
(command "_circle" p4 r)
(command "_circle" p5 r)
(prin1)
)

Ghostik

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#7328   2014-03-30 20:25 GMT+3 часа(ов)      
Как бы печально это не звучало, но я согласен с Вашим мнением,ничего не понимаю...буду разбираться. Спасибо огромное за помощь!
> 1 <


Онлайн :

0 пользователь(ей), 44 гость(ей) :