> 1 <

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

zega.s

Members


Статус

6 сообщений

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

#3778   2010-12-26 15:14 GMT+3 часа(ов)      
Дано пять задачи:
1. Написать функцию, которая из исходного списка строит необходимую структуру: (q w e r t y)—>((((((y) t) r) e) w) q)
2. Осуществить поиск в глубину. BCA => CAB.
3. Определите функцию НОК (наименьшее общее кратное) двух чисел по модифицированному алгоритму Эвклида.
4. Написать функцию (PMATR m i j) – печатает матрицу m как таблицу i * j (вывод форматировать).
5. Используя функцию сопоставления с образцом (первый способ) или макросы (второй способ), определить функцию на языке LISP, обеспечивающую символьное дифференцирование заданных функций (df/dx).
Функция 1: x(3)+2x-3;
Функция 2: arcsin(sqrt(x/(1+x)))
За решение каждой задачи буду благодарен!

zega.s

Members


Статус

6 сообщений

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

#3783   2010-12-26 23:58 GMT+3 часа(ов)      
3. Уже не нужно, сам посидел, сделал все-таки. С остальными помогите-то.

megamanx

Members


Статус

307 сообщений

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

#3784   2010-12-27 00:39 GMT+3 часа(ов)      
(defun foo (L)
(cond
((null (cdr L)) L)
(T (list (foo (cdr L)) (car L)))))

заимей ещё привычку правильные решения выкладывать. Тут туева хуча народа, каждый просит однотипные задачи.
I wish I'd made you angry earlier

megamanx

Members


Статус

307 сообщений

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

#3785   2010-12-27 00:42 GMT+3 часа(ов)      
(defun diff (L x)
(cond
((atom l)
(if (eq l x) 1 0))
((eq (first l) '+)
(list '+
(diff (second l) x)
(diff (third l) x)))
((eq (first l) '*)
(list '+
(list '*
(diff (second l) x)
(third l)
)
(list '*
(diff (third l) x)
(second l)
)))
((eq (first l) '-)
(list '-
(diff (second l) x)
(diff (third l) x)))
((eq (first L)'/)
(list '/
(list '-
(list '*
(diff (second l) x)
(third l)
)
(list '*
(diff (third l) x)
(second l)
)
)
(list '*
(third l)
(third l)
)
)
)
((eq (first L) 'cos)
(list '-
(list '*
(list 'sin (second L))
(diff (second L) x)
)
)
)
((eq (first L) 'sin)
(list '*
(list 'cos (second L))
(diff (second L) x)
)
)
((eq (first L) 'tan)
(list '*
(list '/ '1
(list '*
(list 'cos (second L))
(list 'cos (second L))
)
)
(diff (second L) 'x)
)
)
(T l)))

Эту херь писал давно, когда сам учил лисп, полностью код их Сепюнинена, или как его там... Здесь немножко побольше вставлено. Вроде когда-то работало. Навставляй по аналогии арксинусы и sqrt.
I wish I'd made you angry earlier

misha

Moderators


Статус

1275 сообщений
http://racket-lang.org/
Где: Yemen
Род занятий:
Возраст:

#3791   2010-12-27 01:37 GMT+3 часа(ов)      
Цитата
zega.s :
А как кстати код в таком же отформатированном виде выкладывать?

А Вы как думаете?)

misha

Moderators


Статус

1275 сообщений
http://racket-lang.org/
Где: Yemen
Род занятий:
Возраст:

#3794   2010-12-27 01:43 GMT+3 часа(ов)      
>Ну я думаю, что не все же вручную перекрашивать и отодвигать-то.
bbCode:
[code]
[/code]

zega.s

Members


Статус

6 сообщений

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

#3798   2010-12-27 13:31 GMT+3 часа(ов)      
 
(defun NOD (A B)
(cond
((zerop A) nil)
((zerop B) nil)
((= A B)A)
((> A B) (NOD (- A B) B))
((< A B) (NOD (- B A) A))))
(defun NOK (A B)
(truncate(* B(/ A (NOD A B)))))
 


Поиск НОК. Алгоритм Эвклида.

megamanx

Members


Статус

307 сообщений

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

#3799   2010-12-27 18:44 GMT+3 часа(ов)      
2. Щито такое? в смысле примера BCA=>CAB? Поподробнее.
I wish I'd made you angry earlier

zega.s

Members


Статус

6 сообщений

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

#3801   2010-12-28 15:02 GMT+3 часа(ов)      
вообщем перемешение кубиков я написал так как на рисунке к заданию нарисовано.
B => C
C => A
A => B

zega.s

Members


Статус

6 сообщений

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

#3851   2011-01-13 16:34 GMT+3 часа(ов)      
4. Написать функцию (PMATR m i j) – печатает матрицу m как таблицу i * j (вывод форматировать).
 
(defun PMATR (m i j)
(dotimes (row i)
(dotimes (col j)
(format t "~3d " (aref m (+ (* row col) (* (- 1 i) (- 1 j)) ) ) ))
(format t "~%")))
 
> 1 <


Онлайн :

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