Математический форум Math Help Planet
Обсуждение и решение задач по математике, физике, химии, экономике Теоретический раздел |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
новый онлайн-сервис число, сумма и дата прописью |
|
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Страница 1 из 1 |
[ 1 сообщение ] |
|
Автор | Сообщение | |
---|---|---|
irinascher |
|
|
Error, (in Maplets:-Tools:-CleanElements) invalid input: op expects 1 or 2 arguments, but received 0 Error, (in writebytes) permission denied restart; with(ImageTools); with(LinearAlgebra); img := RGBtoGray(Read("C:\\MPEI.jpg")); Filter := proc (z, im) local IMG, s, G1, G2, i, j, A, X, Y, w, h; global img; w := Width(im); h := Height(im); img := Create(h, w); IMG := convert(im, Matrix); s := [(1/2)*z, z, (1/2)*z]; G1 := Matrix([s, [0, 0, 0], -s]); G2 := Transpose(G1); for i from 2 to h-1 do for j from 2 to w-1 do A := SubMatrix(IMG, [i-1, i, i+1], [j-1, j, j+1]); X := add(add(A[k, m]*G1[k, m], k = 1 .. 3), m = 1 .. 3); Y := add(add(A[k, m]*G2[k, m], k = 1 .. 3), m = 1 .. 3); img[i, j] := sqrt(X^2+Y^2) end do end do; img end proc; Filter*(1, img); img1 := 1-img; View(img1); Write("C:\\MPEI2.jpg", img1); |
||
Вернуться к началу | ||
[ 1 сообщение ] |
Похожие темы | Автор | Ответы | Просмотры | Последнее сообщение |
---|---|---|---|---|
Фильтр 2-го порядка
в форуме Электричество и Магнетизм |
0 |
290 |
14 дек 2015, 19:34 |
|
Полосовой фильтр
в форуме Электричество и Магнетизм |
0 |
237 |
16 дек 2015, 18:02 |
|
Оптимальный фильтр Лежандра 4-го порядка
в форуме Начала анализа и Другие разделы школьной математики |
0 |
408 |
10 июн 2018, 04:02 |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Кто сейчас на конференции |
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11 |
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения |