|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.09.2016, 11:23 | #1 |
Новичок
Джуниор
Регистрация: 27.09.2016
Сообщений: 3
|
Найти ошибку в коде Wolfram Mathematica
Необходимо проверить метод простых итераций. Но код не работает. Объясните, пожалуйста, что с ним не так
SI[Matr_, Vect_, eps_] := Module[{q = Norm[Matr, 2], f = Vect, h = Matr, xs, xn = {}, k = 0}, xs = f; xn = h.xs; q = q/(1 - q); k++ While[(q*Max[Abs[xs - xn]] >= eps), xs = xn; xn = h.xs + f; k++]; Print[k "- количество шагов"]; Return[xn]] S1 = N[SI[H, f, eps]] |
27.09.2016, 13:37 | #5 | |
Новичок
Джуниор
Регистрация: 27.09.2016
Сообщений: 3
|
Цитата:
программа сама работает, но количество итераций не может быть равно 0. |
|
27.09.2016, 13:40 | #6 | |
Новичок
Джуниор
Регистрация: 27.09.2016
Сообщений: 3
|
Цитата:
|
|
27.09.2016, 13:47 | #7 |
Участник клуба
Регистрация: 14.05.2016
Сообщений: 1,793
|
А что такое "k++" в строчке:
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Система Wolfram Mathematica | McFrey | Помощь студентам | 7 | 19.12.2016 16:18 |
помощь в написании кода в Wolfram Mathematica | Нигуш | Помощь студентам | 3 | 12.05.2015 20:06 |
Решение задачу в Wolfram Mathematica | xameleon94 | Фриланс | 0 | 07.03.2015 20:24 |
Mathematica Wolfram | Toni Milano | Фриланс | 0 | 10.03.2011 15:57 |
Wolfram Mathematica 7. Вставка кнопок управления. | AlDelta | Помощь студентам | 0 | 29.03.2010 16:15 |