Получить матрицу, в которой поменяются местами верхние половины главной и побочной диагонали.

@ЮленькаКиев · Регистрация: 09.11.2010

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

Привет, товарищи программисты

Запрос на помощь!
Я уже наваяла тут что-то страшное-несустветное, но единственное что мне отвечает товарищ пролог -- no.

Задача звучит так:

Дана квадратная матрица неизвестного размера. Получить матрицу, в которой поменяются местами верхние половины главной и побочной диагонали.

Я тут написала что-то по примеру преподавателя, но как-то не очень оно работать хочет.

Помогите, пожалуйста.

Prolog

data_matrix(1,[[1,0,0,0,2],
        [0,1,0,2,0],
        [0,0,1,0,0],
        [0,0,0,0,0],
        [0,0,0,0,0]]).
%+matr, -matr
matrix_pro(L):-
    data_matrix(1,Matr),
    length(Matr,N),
    K is N/2 +1,
    matr_by_rows(Matr,1,N, K, L).
 
matr_by_row([R|Rs], Ian, Izn, K, L):-
    Ian=<K,
    Ian1 is Ian+1,
    Izn1 is Izn-1,
    row_by_items(R,1, Ian, Izn, Ia, Iz, K, L),
    matrix_by_rows(Rs, Ia1, Iz1, L).
matr_by_row(H, Ian, _, _, [H|L]):-
    Ian>K.
    
matr_by_rows([],_,_,_,L).
 
%+Row, +new first, +new last, +Acc, -L
row_by_items([X|Xs], I, Ian, Izn, Ia, Iz, L):-
    I =\= Ian,
    I1 is I+1,
    row_by_items(Xs, I1, Ia, Iz, [X|L]).
 
row_by_items([X|Xs], I, Ian, Izn, Ia, Iz, L):-
    I =:= Ian,
    Iz is X,
    finder([X|Xs], Izn, Ia),
    I1 is I+1,
    row_by_items(Xs, I1, Ia, Iz, [X|L]).
 
finder([_,Xs],G,F):-
    G>1,
    G1 is G-1,
    finder(Xs, G1, F).
finder([X|_],1,X).
row_by_items([], _,_,_,L).

@aag · 06.11.2011, 15:33

Prolog

DOMAINS
i=integer   il=i*   ill=il*
%
CONSTANTS
mx=[[1,0,0,0,2],[0,3,0,4,0],[0,0,5,0,0],[0,6,0,7,0],[8,0,0,0,9]]
%
PREDICATES
main(ill,ill)
x(il,ill,i,ill)
y(il,il,i,il)
z(il,i,il,i,il)
%
CLAUSES
main([A|B],C):- x(A,[A|B],0,C).
%
x([_,_|A],[B|C],D,[E|F]):- !, y(A,B,D,E), G=D+1, x(A,C,G,F).
x(_,A,_,A).
%
y(A,[B|C],0,[D|E]):- !, z(A,B,C,D,E).
y(A,[B|C],D,[B|E]):- F=D-1, y(A,C,F,E).
%
z([_|A],B,[C|D],E,[C|F]):- !, z(A,B,D,E,F).
z(_,A,[B|C],B,[A|C]).

Prolog

1
2
3

Goal: main(mx,Out)
Out=[[2,0,0,0,1],[0,4,0,3,0],[0,0,5,0,0],[0,6,0,7,0],[8,0,0,0,9]]
1 Solution

Для SWI уберите всё до CLAUSES(включительно). Замените "=" на "is".
Возможно, проще накидать матрицу в базу, меняя по ходу соответствующие индексы, а потом из базы собрать.

@ЮленькаКиев · 07.11.2011, 16:17 **[ТС]**

Оу, большое-большое спасибо)))

07.11.2011, 23:49

Добрый вечер. А если задачу поменять на такую *Дана квадратная матрица неизвестного размера. Получить матрицу, в которой поменяются местами половины главной и побочной диагонали, находящиеся слева от центра*., что бы поменялось в коде программы?

@aag · 08.11.2011, 11:34

Гы...
1. Матрицу транспонируем. Делаем то что выше. Ещё раз транспонируем.
2. Таки держим матрицу в виде database...mx(I,J,V) - проще перебивать, меняя по ходу соответствующие индексы.

3. Главное: МАТРИЦЫ ПРОЛОГУ - ГОРНЫЕ ЛЫЖИ ТУРИСТУ НА КРАСНОЙ ПЛОЩАДИ В ИЮНЕ МЕСЯЦЕ!!!!!!!!!!!!!!

Ещё раз "гы")))

Добавлено через 11 часов 0 минут

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

...*Дана квадратная матрица неизвестного размера. Получить матрицу, в которой поменяются местами половины главной и побочной диагонали, находящиеся слева от центра*...

Позголялся таки:

Prolog

DOMAINS
i=integer   il=i*   ill=il*
%
CONSTANTS
mx=[[1,0,0,0,2],[0,3,0,4,0],[0,0,5,0,0],[0,6,0,7,0],[8,0,0,0,9]]
%
PREDICATES
main(ill,ill)
x(il,ill,i,ill)
y(il,i,il,il,ill,ill)
z(i,il,il,il,il)
%
CLAUSES
%
main([A|B],C):- x(A,[A|B],0,C).
%
x([_,_|A],[B|C],D,[E|F]):- !, y(A,D,B,E,C,G), H=D+1, x(A,G,H,F).
x(_,A,_,A).
%
y([_|A],J,B,C,[D|E],[D|F]):- !, y(A,J,B,C,E,F).
y(_,J,A,B,[C|D],[E|D]):- z(J,A,B,C,E).
%
z(0,[A|B],[C|B],[C|D],[A|D]):- !.
z(A,[B|C],[B|D],[E|F],[E|G]):- H=A-1, z(H,C,D,F,G).

Prolog

1
2
3

Goal: main(mx,Out)
Out=[[8,0,0,0,2],[0,6,0,4,0],[0,0,5,0,0],[0,3,0,7,0],[1,0,0,0,9]]
1 Solution

Изврат, конечно, все эти матрицы))) Разве что со списочками потренироваться...

14.11.2011, 23:52

* а если справа относительно центра? что поменяется??

@ЮленькаКиев 0 / 0 / 0 Регистрация: 09.11.2010 Сообщений: 19
	07.11.2011, 16:17 [ТС]	3
	Оу, большое-большое спасибо))) 0

Arsene_Wenger
	07.11.2011, 23:49	4
	Добрый вечер. А если задачу поменять на такую Дана квадратная матрица неизвестного размера. Получить матрицу, в которой поменяются местами половины главной и побочной диагонали, находящиеся слева от центра., что бы поменялось в коде программы?

SergioRamos
	14.11.2011, 23:52	6
	* а если справа относительно центра? что поменяется??