Преобразование матрицы 6х3 в две квадратные матрицы 3х3

@AHDREY33 · Регистрация: 24.04.2015

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

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

Задание: Матрицу размерностью 6х3 преобразовать в две квадратные матрицы 3х3 и подсчитать среднее значение элементов главной диагонали для каждой из них.

@Sasha_Smirnov · 16.10.2015, 15:58

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

Есть предложение: создать отдельный подраздел: "Ищем минимум, максимум, среднее"

Нечто похожее я делал в 1994 году на паскале для некой Казанской, передавшей мне 2 месяца спустя поздравления от своего научного руководителя (за изумительный код).

Но визуальный бэйсик своей визуальностью-то и хорош! AHDREY33, это и уникальная тема (где взяли?), и большое удовольствие*! В файле Квадратура.xls на листе 1 две кнопки, подматрицы предполагается выводить на лист 2. Если не будете зюзей, как несравненная Shlaypnikova в своей теме, награды и премии вам обеспечены!
____________________
* балдел с 20:31 до 3 ч ночи, а потом ещё час отладкой наслаждался!

@Sasha_Smirnov · 21.10.2015, 16:54

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

Нет предела совершенству.

После отладки и доводки — приложу готовый проект.

@Sasha_Smirnov · 22.10.2015, 17:46

Получился нехилый демостратор функций офсет и офсайд, ой, нет: offset и resize:

@Sasha_Smirnov · 07.06.2016, 21:00

По принципу из темы AHDREY33 делал для произвольной области, почти удалось:

@Sasha_Smirnov · 08.06.2016, 05:00

Тьфу, немного не там ответил; имеется в виду тема прошлой недели из ветки QBasic: Заполнить матрицу числами натурального ряда, которую вбросила (а может, и бросила) наша babushka888.

А кстати, это любопытный класс задач — geh, например, проникся:

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

Золотой фонд задач форума.

Кому лень работать или мусолить что-то сугубо учебное — можете поразмяться!

@Sasha_Smirnov · 10.06.2016, 16:33

Строки 45—46:

Visual Basic

1
2
3

If пик And (y - 2) Mod 4 = 0 Then .Value = .Value + 4
If пик And (y - 5) Mod 4 = 0 Then .Value = .Value + 2
'тут не повредит добавить ещё один If (не знаю какой)

рожал дня три, а так вроде норм:

@Sasha_Smirnov · 10.06.2016, 16:36

Особая благодарность форуму за методику из темы http://cyberforum.ru/vba/thread1559839.html#2 (Апострофф)!

Вот испытайте кому не лень:

@Sasha_Smirnov · 11.06.2016, 18:24

Catstail, спасибо, конечно, это душевно, но Апострофф’а-то за что вычеркнули?! Ещё вчера был…

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

Visual Basic

1	'тут не повредит добавить ещё один If (не знаю какой)

Это я вроде бы погорячился. Посмотрите на досуге. Там всё непросто!..

@Catstail · 11.06.2016, 19:27

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

но Апострофф’а-то за что вычеркнули?! Ещё вчера был…

- у Апостроффа свои "терки" с администрацией. Я, кстати, не модерирую раздел VB.

@Sasha_Smirnov · 27.10.2016, 02:56

И ещё испытайте (хочу 5+ просмотров*):

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

Перетекание.xls (73.5 Кб, 3 просмотров)

Критические замечания приветствуются.

_________
* а то ведь это же не по-русски: 4 просмотров (а уж до 21 просмотров не дойдёт, покрайней мере до ЧМ по футболу)

я для статистики тут помечу, что на 585 просмотров темы AHDREY33 — просмотров решений: 4-4-4

@AHDREY33 0 / 0 / 0 Регистрация: 24.04.2015 Сообщений: 14
		1
	Преобразование матрицы 6х3 в две квадратные матрицы 3х3 25.09.2015, 16:06. Показов 1596. Ответов 10 Метки нет (Все метки) Добрый День всем участникам форума. Помогите пожалуйста с кодом для VBA по заданию. Задание: Матрицу размерностью 6х3 преобразовать в две квадратные матрицы 3х3 и подсчитать среднее значение элементов главной диагонали для каждой из них. 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	21.10.2015, 16:54	3
	Сообщение от KoGG Нет предела совершенству. После отладки и доводки — приложу готовый проект. 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	07.06.2016, 21:00	5
	По принципу из темы AHDREY33 делал для произвольной области, почти удалось: Миниатюры 1

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	08.06.2016, 05:00	6
	Тьфу, немного не там ответил; имеется в виду тема прошлой недели из ветки QBasic: Заполнить матрицу числами натурального ряда, которую вбросила (а может, и бросила) наша babushka888. А кстати, это любопытный класс задач — geh, например, проникся: Сообщение от geh Золотой фонд задач форума. Кому лень работать или мусолить что-то сугубо учебное — можете поразмяться! 0

@Catstail Модератор 37302 / 20736 / 4272 Регистрация: 12.02.2012 Сообщений: 34,126 Записей в блоге: 14
	11.06.2016, 19:27	10
	Сообщение от Sasha_Smirnov но Апострофф’а-то за что вычеркнули?! Ещё вчера был… - у Апостроффа свои "терки" с администрацией. Я, кстати, не модерирую раздел VB. 1

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	27.10.2016, 02:56	11
	И ещё испытайте (хочу 5+ просмотров): Сообщение от Sasha_Smirnov* Перетекание.xls (73.5 Кб, 3 просмотров) Критические замечания приветствуются. _________ * а то ведь это же не по-русски: 4 просмотров (а уж до 21 просмотров не дойдёт, покрайней мере до ЧМ по футболу) я для статистики тут помечу, что на 585 просмотров темы AHDREY33 — просмотров решений: 4-4-4 0

Преобразование матрицы 6х3 в две квадратные матрицы 3х3

Решение