С Новым годом! Форум программистов, компьютерный форум, киберфорум
Wolfram Mathematica
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Mathematica Не могу построить график С помощью функции Solve решаю уравнение и нахожу зависимость амплитуды D от частоты омега. Уравнение решается, но график построить не получается. Ошибок не выдает. Может проблема в функции Solve, так как в решении я хочу получить именно функциональную зависимость? https://www.cyberforum.ru/ mathematica/ thread2325288.html Mathematica Найти такие натуральные p и q, не имеющие общих делителей, что p/q=m/n
даны натуральные числа m и n найти такие натуральные p и q не имеющие общих делителей, что p/q=m/n Do < 0; Mod = 0, Break,]; a = m/n, {i, 100}] a
Mathematica Как найти изображение (преобразование Лапласа), если задан индикатор отрезка Как в вольфраме найти изображение (преобразование Лапласа) , если задан индикатор отрезка? https://www.cyberforum.ru/ mathematica/ thread2324218.html Mathematica Работа со списками https://www.cyberforum.ru/ mathematica/ thread2323053.html
1. Создать сложный список, состоящий из фамилий и имён студентов. Создаю список S:={{Сидоров, Артем, Петрович},{Иванова, Кристина, Игоревна},{Мишин, Олег, Андреевич}} 2.Используя функцию Sort, упорядочить список группы по первому и по второму элементам его подсписков. Вот это уже не понимаю как сделать, если я использую Sort, то получается сортировка по количеству символов в фамилии, а...
Mathematica Построить матрицы заданных отношений, определить тип отношений
На заданных множествах – доменах: 1). построить матрицы заданных отношений, определить тип отношений; 2). проверить, является ли данное отношение функцией, и определить тип функции. Домены: d1 - номера учебных групп d2 - названия факультетов Отношение: принадлежность группы факультету. помогите пожалуйста, очень трудно дается wolfram mathematica
Mathematica Не отображается график по результату решения https://www.cyberforum.ru/ mathematica/ thread2283143.html
Тоже не отображается график по результату решения ДУ. Ввожуyy = DSolve == x, y == 0}, y, x] yyy = yy]]] Plot, {x, -2, 2}]и получаю пустой график без указания каких-либо ошибок Ещё попробовалyy = DSolve == x, y == 0}, y, x] yyy = yy]]] Plot, {x, -2, 2}]но результат не поменялся.
Mathematica Построение графика производной функции, предвычисления Здравствуйте! Прошу помочь. Wolfram Mathematica ругается на следующий код (ниже), а именно в строчке Plot3D, так понимаю что необходимо сначала вычислить функцию суммы производных D, x] + D, y], каким оператором возможно произвести данные предвычисления? Спасибо. ClearAll https://www.cyberforum.ru/ mathematica/ thread2277580.html Mathematica Нужно решение данной задачи не программным способом
Добрый день. Решал задачу по математической логике и теории алгоритмов. Ниже прикрепляю скриншот из wolfram mathematica с решенной задачей и алгоритм решения Multinomial@@@ (Union/@ (Sort/@ ({n1,n2,n3,n4}//. {ToRules])))// Length Нужно решение данной задачи не программным способом ( расписать математически на бумаге). Найдите количество...
Mathematica Не выводит график после вычисления https://www.cyberforum.ru/ mathematica/ thread2267149.html
solution = NDSolve = u/0.01 Sqrt^2 + v^2 + w^2], x == 5.0, y' == v/x (0.01 Sqrt^2 + v^2 + w^2]) sin, y == 5.0, z' == w/x (0.01 Sqrt^2 + v^2 + w^2]), z = .00001, u' == 0, u == 0.0, v' == 0, 01 (x (Sqrt^2 + v^2 + w^2]) sin - x - z),
Mathematica Производная от функции, заданной численно Здравствуйте! Подскажите, пожалуйста, как можно построить производную от функции, которая задана численным решением уравнения типа FindRoot? In:= V := (2*Pi/n)*7.596*2.137*0.081 In:= l = 2 ; In:= f1 := U*(BesselJ/BesselJ) f2 := (V^2 - U^2)^(1/2)*(BesselK^2 - U^2)^(1/2)]/BesselK^2 - U^2)^(1/2)]) In:= y := f1 - f2 In:= x1 := FindRoot, {U, 4, 5}] In:= U1 := U /. x1 https://www.cyberforum.ru/ mathematica/ thread2266242.html
Вывод результата операции Mathematica
Подскажите пожалуйста. Пишу команду, нажимаю ентр, но снизу появляется не число, а другое выражение.
Mathematica Интегрирование в Wolfram Mathematica https://www.cyberforum.ru/ mathematica/ thread2262505.html
Имею сложную функцию: 2*b*Cos + 0.5*((a/b)^q)*Exp] + 2*Pi*r)] хочу проинтегрировать по x,y. Параметры a,b,q - задаются системой, параметр r=r(q).
Эксперт функциональных языков программированияЭксперт по математике/физике
4300 / 2091 / 431
Регистрация: 19.07.2009
Сообщений: 3,163
Записей в блоге: 24
25.09.2018, 23:50 0

Выделение линейно независимых строк матрицы - Mathematica - Ответ 12923938

25.09.2018, 23:50. Показов 1807. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено crazymadman18 как решение

Решение

Сначала заметки насчёт кода. Они могут быть полезными в будущем.
C++
1
2
3
4
5
6
7
8
9
10
11
12
(* Было *)
row = Length[A];
col = Length[A[[1]]];
 
(* Лучше *)
{row, col} = Dimensions[A, 2];
 
(* Было *)
((fl == 1) & (j == col))
 
(* Должно быть *)
(fl == 1) && (j == col)
Оригинальное решение я не понял.
Вот моё предложение:
C++
1
2
3
4
5
6
7
8
Module[{rIndices = {}, rowCount = Length[A]},
 Do[
  With[{rIndices1 = Append[rIndices, r], n = Length[rIndices]},
   With[{submatrix = Take[A, r][[rIndices1]]},
    If[MatrixRank[submatrix] == n + 1, rIndices = rIndices1];
    ]], {r, rowCount}];
 rIndices
 ]
Для справки: With и Module делают лексическое замыкание (связывают переменные, чтобы не загаживать глобальную область видимости),
With делает синоним, а Module изменяемую переменную.
rIndices содержит список индексов строк базиса.

Добавлено через 3 минуты
По-хорошему, можно было ещё в заголовок (первый аргумент) Module внести переменную r.
Впрочем, Do использует механизм динамического связывания Block. Аналогичный механизм используется в Table, например. В принципе, можно оставить как есть, врядли это создаст конфликт имён.

Вернуться к обсуждению:
Выделение линейно независимых строк матрицы Mathematica
1
Заказать работу у эксперта
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Блог
25.09.2018, 23:50
Готовые ответы и решения:

Найти число линейно независимых строк в матрице
А как сделать это? матрица n на n (квадратная) 1) найти число линейно независимых строк в этой...

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

Свойства линейно независимых решений
Добрый день. Готовлюсь к курсовой на тему свойства линейно независимых решений дифференциального...

Выбор максимального набора линейно независимых многочленов
Выберите из следующего набора многочленов набор из максимального количества линейно независимых...

1
25.09.2018, 23:50
BasicMan
Эксперт
19315 / 2622 / 84
Регистрация: 17.02.2009
Сообщений: 10,364
Блог
25.09.2018, 23:50
Помогаю со студенческими работами здесь

Посчитать количество линейно независимых систем из 4 векторов
Посчитать количество линейно независимых систем из 4 векторов. Векторы размера 4 на 1, каждый...

Найти число линейно независимых векторов в системе
Найти число линейно независимых векторов в системе (2,5,-3,4) (-3,-1,6,7) (-5,7,12,29)(0,13,3,26)

При каком условии система линейно-независимых уравнений является базисом?
Нужна помощь с линейной алгеброй, буду благодарен. 2) При каком условии система...

Найти все линейно зависимые пары строк матрицы
Дана матрица A . Найти все линейно зависимые пары строк

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru