Разбить множество n на k подмножеств

@Charlie Gordon · Регистрация: 14.03.2015

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

Здравствуйте!
Помогите,пожалуйста, написать код на Maple13.
Разбить множество n на k подмножеств.
Так для множества {1,2,3,4} и k=3
Правильный ответ
{1,2}{3}{4}
{1,4}{2}{3}
{1}{2,4}{3}
{1}{2}{3,4}
{1}{2,3}{4}
{1,3}{2}{4}
Помогите, пожалуйста!

zer0mail · 15.03.2015, 17:11

Я неопытный пользователь Maple, так что не уверен в эффективности и правильности подхода. Зато работает.

Matlab M

with(combinat); 
razb := proc (s, n) 
    local i, k, m, si, sn, ss, s1, s2; 
    k := numelems(s); 
    if n = 1 then return {{s}} end if; 
    ss := {}; 
    for i to k+1-n do 
        si := choose(k, i); 
        for s2 in si do 
            if op(1, s2) = 1 then 
                s1 := {}; 
                for m to i do s1 := {s1[], op(op(m, s2), s)} 
                end do; 
                sn := razb(`minus`(s, s1), n-1); 
                for m in sn do 
                    ss := {ss[], {m[], s1}} 
                end do 
            end if 
        end do 
    end do; 
    return ss 
end proc; 
    
s := {1, 2, 3, 4}; 
ss := razb(s, 3); 
for q in ss do 
    q[];
end do

@Charlie Gordon · 15.03.2015, 17:52 **[ТС]**

Извините, пожалуйста.
При запуске Вашего кода Maple выдает ошибку:
Error, (in razb) final value in for loop must be numeric or character.
Помогите,пожалуйста, исправить

Добавлено через 4 минуты
Извините, пожалуйста.
При запуске Вашего кода Maple выдает ошибку:
Error, (in razb) final value in for loop must be numeric or character.
Помогите,пожалуйста, исправить

@VSI · 15.03.2015, 17:57

Charlie Gordon, держите...

zer0mail · 15.03.2015, 18:03

Да, при копировании программы проблемы. Комментарии пропали, и не только комментарии, как видно.

Добавлено через 2 минуты
VSI, можно из Maple сохранить программу в текстовый файл? По-разному пробовал, но фигня получается...

@VSI · 15.03.2015, 18:09

zer0mail, из меню File\Export As... выберите <Имя файла>.rtf
Можно и в *.txt, но потом надо будет дорабатывать текст, чтобы было красиво...

@Charlie Gordon · 15.03.2015, 18:13 **[ТС]**

Скажите,пожалуйста, в какой версии Maple Вы работали?

zer0mail · 15.03.2015, 18:16

В 18-й.

Комментарий модератора

Файл сохранен в 16 версии...

@Charlie Gordon · 15.03.2015, 18:22 **[ТС]**

Спасибо большое!
Вы мне очень помогли!!!!

zer0mail · 15.03.2015, 18:43

Ёлы-палы, в rtf программа сохраняется как картинка

@Trex_22 · 13.05.2015, 22:59

Здравствуйте, увидел, что Вы онлайн и обрадовался

потому как возник вопрос по поводу этой задачки, так как при запуске данного кода Maple выдает туже ошибку:
Error, (in razb) final value in for loop must be numeric or character.
Подскажите, пожалуйста, где ошибка

@Trex_22 · 13.05.2015, 23:02

Здравствуйте. Недавно нашёл тут в одной из тем, уже потерявших, по-видимому, актуальность, код, который может решить часть одной моей задачи. Но в нём есть ошибка. В Maple не сильно разбираюсь, но сам алгоритм, вроде, правильный. Однако вытаёт ошибку. Пожалуйста помогите разобраться где эта ошибка.

Matlab M

with(combinat); 
razb := proc (s, n) 
    local i, k, m, si, sn, ss, s1, s2; 
    k := numelems(s); 
    if n = 1 then return {{s}} end if; 
    ss := {}; 
    for i to k+1-n do 
        si := choose(k, i); 
        for s2 in si do 
            if op(1, s2) = 1 then 
                s1 := {}; 
                for m to i do s1 := {s1[], op(op(m, s2), s)} 
                end do; 
                sn := razb(`minus`(s, s1), n-1); 
                for m in sn do 
                    ss := {ss[], {m[], s1}} 
                end do 
            end if 
        end do 
    end do; 
    return ss 
end proc; 
    
s := {1, 2, 3, 4}; 
ss := razb(s, 3); 
for q in ss do 
    q[];
end do

Добавлено через 9 минут
Данную тему тут, думаю, следует удалить - обсуждение переношу по месту назначения, так сказать

@Charlie Gordon · 13.05.2015, 23:05 **[ТС]**

В maple 18 надо запускать

@VSI · 15.05.2015, 18:19

Trex_22, и в чем ошибка? Все работает...

zer0mail 2664 / 2239 / 240 Регистрация: 03.07.2012 Сообщений: 8,141 Записей в блоге: 1
	15.03.2015, 18:43	10
	Ёлы-палы, в rtf программа сохраняется как картинка 0

@Charlie Gordon 1 / 1 / 0 Регистрация: 14.03.2015 Сообщений: 6
		1
	Разбить множество n на k подмножеств 14.03.2015, 20:21. Показов 5751. Ответов 13 Метки нет (Все метки) Здравствуйте! Помогите,пожалуйста, написать код на Maple13. Разбить множество n на k подмножеств. Так для множества {1,2,3,4} и k=3 Правильный ответ {1,2}{3}{4} {1,4}{2}{3} {1}{2,4}{3} {1}{2}{3,4} {1}{2,3}{4} {1,3}{2}{4} Помогите, пожалуйста! 0

@Charlie Gordon 1 / 1 / 0 Регистрация: 14.03.2015 Сообщений: 6
	15.03.2015, 17:52 [ТС]	3
	Извините, пожалуйста. При запуске Вашего кода Maple выдает ошибку: Error, (in razb) final value in for loop must be numeric or character. Помогите,пожалуйста, исправить Добавлено через 4 минуты Извините, пожалуйста. При запуске Вашего кода Maple выдает ошибку: Error, (in razb) final value in for loop must be numeric or character. Помогите,пожалуйста, исправить 0

zer0mail 2664 / 2239 / 240 Регистрация: 03.07.2012 Сообщений: 8,141 Записей в блоге: 1
	15.03.2015, 18:03	5
	Да, при копировании программы проблемы. Комментарии пропали, и не только комментарии, как видно. Добавлено через 2 минуты VSI, можно из Maple сохранить программу в текстовый файл? По-разному пробовал, но фигня получается... 0

@VSI Модератор $Эксперт по математике/физике$ 5240 / 4027 / 1385 Регистрация: 30.07.2012 Сообщений: 12,288
	15.03.2015, 18:09	6
	zer0mail, из меню File\Export As... выберите <Имя файла>.rtf Можно и в *.txt, но потом надо будет дорабатывать текст, чтобы было красиво... 1

@Charlie Gordon 1 / 1 / 0 Регистрация: 14.03.2015 Сообщений: 6
	15.03.2015, 18:13 [ТС]	7
	Скажите,пожалуйста, в какой версии Maple Вы работали? 0

@Charlie Gordon 1 / 1 / 0 Регистрация: 14.03.2015 Сообщений: 6
	15.03.2015, 18:22 [ТС]	9
	Спасибо большое! Вы мне очень помогли!!!! 0

@Trex_22 0 / 0 / 1 Регистрация: 31.01.2012 Сообщений: 30
	13.05.2015, 22:59	11
	Здравствуйте, увидел, что Вы онлайн и обрадовался потому как возник вопрос по поводу этой задачки, так как при запуске данного кода Maple выдает туже ошибку: Error, (in razb) final value in for loop must be numeric or character. Подскажите, пожалуйста, где ошибка 0

@Charlie Gordon 1 / 1 / 0 Регистрация: 14.03.2015 Сообщений: 6
	13.05.2015, 23:05 [ТС]	13
	В maple 18 надо запускать 1

@VSI Модератор $Эксперт по математике/физике$ 5240 / 4027 / 1385 Регистрация: 30.07.2012 Сообщений: 12,288
	15.05.2015, 18:19	14
	Trex_22, и в чем ошибка? Все работает... 0

Разбить множество n на k подмножеств

Решение