Гонсалес Р., Вудс Р., Эддинс С. Цифровая обработка изображений в среде Matlab (2006), страница 101

ре(т сЬесКЬох, 'Ча1пе ', Ьеш11ев.рот (с) ); вес(Ьало1ев. СЖ сЬесКЬох, 'Ча1ие', Ьези11ев. се(т (с) ); йгарЬ(Ьал61ев); % Хппсс1ол вшоосЬ сЬесКЬох Са11ЬасК(ЬОЪ)есс, евелсе(аса, Ьвл61ев) % АссерС вшооСЬ1ли рагашеСет Хот сиггелс1у ве1ессее1 со1ог % сошропелс апо геогаи шарр1ли йшсс1ол. 11 иеС(ЬОЬ)есс, 'Ча1ие') Ьелд1ев.вшооСЬ(Ьеш11ев.с1ле(ех) = 1; ~Функции вызовов ооъектов тое. ~~6В П *Б пойея ~еСХАе16(Ьал61ев, Ьапй1ев.ситче); пойев = вргеайоиС(видев); Ьалй1ея = веС11еЫ(Ьал61ев, Ьал61ев. ситче, пойев); е1зе Ьал61ев. вшооСЬ(Ьал61ея.

с1пйех) = 0; епй рыбаса(ЬОЬ]есС, Ьел61ея); веС(Ьалд1ев.1се, 'Ро1псег', 'ваСсЬ'); цгарЬ(Ьалд1ев); гепйег(Ьал61ев); веС(Ьал61ев. 1се, 'Ро1псег', 'аттоле'); % -- ХипсС1оп гевеС ризЬЬиССоп Са11ЬасК(ЬОЬ]есС, енепсйаса, Ьап61ев) % 1пАС а11 Жвр1ау рагашесегв йот сиггепС1у яе1ессей со1ог % сошропепС, шаЬе шар 1:1, аай гебтав АС. Ьаа61ев = веС11е16(Ьало1ев, Ьап61ев.ситче, (О 0; 1 1]); с = Ьаай1ев.

с%паях; Ьаа61ев.вшооСЬ(с) = 0; яеС(Ьал61ев.вшооСЬ сЬесКЬох, 'Ча1ие', 0); Ьал61ев.в1оре(с) = 0; веС(Ьал61ев.з1оре сЬесКЬох, 'Ча1ие', 0); Ьалй1ев.рбмк(с) = 0; веС(Ьал61ев.рбмк сЬесЫЬох, 'Ча1ие', О); Ьап61ев.с61(с) = 0; вес(Ьал61ев.ойдо сЬесМЬох, 'Ча1ие', 0); витаса(ЬОЬ)есС, Ьал61ея); веС(Ьаа61ев.1се, 'Ро1псет', 'вассЬ'); вгарЬ(Ьап61ея); гепйег(Ьаа61ев); вес(Ьапс(1ев.хсе, 'Рохпсег', 'аггов'); % - -- йипсС1оп в1оре сЬесМЬох Са11ЬасЫ(ЬОЬ]есС, ечепсйаса, Ьзл61ев) % Ассерс в1оре с1ашр Хог ситгепС1у ве1ессей со1ог сошропепС алО % 6тав йшсС1оп 11 яшооСЬАпз 1в оп.

11 веС(ЬОЬ)есС, 'Ча1ие') Ьап61ея. в1оре(Ьапб1ев. с1пбех) = 1; е1зе Ьапб1ея.в1оре(Ьал61ев.с1пйех) = 0; еш1 виЫаса(ЬОЬ)есС, Ьыи)1ев); 1М Ьело1ея.вшооСЬ(Ьапо1ев.с1пйех) веС(Ьалс11ев.1се, 'Ро1псег', 'вассЬ'); вгарЬ(Ьалд1ев); гепйег(Ьал61ев); веС(Ьы~й1ев.Асе, 'РоАпсег', 'агтов'); епд % /— ХилсСАоп гевеСа11 ривЬЬиССоп Са11ЬасИЬОЬ]есС, ечепсйаса, Ьалй1ев) % 1пАС 61зр1ау рагашеСегв йот со1ог сошропепСз, шалите а11 шаря 1:1, % авй гебгач 61вр1ау. 1ог с = 1:4 ЬыЫ1ев.вшооСЬ(с) = 0; Ьал61ев.в1оре(с) = 0; Ьы~61ев.рбмк(с) = 0; Ьал61ев.сйт(с) = 0; Ьал61ея = яеС11е16(Ьап61ея, ['зеС' пиш2вгг(с)), [О 0; 1 1) ); еп6 веС(Ьал61ея.вшооСЬ сЬесКЬох, 'Ча1ие', О); веС(Ьап61ев.в1оре сЬесКЬох, 'Ча1ие', О); веС(Ьап61ев.р61 сЬесКЬох, 'Ча1ие', О); зеС(Ьап61ев.сМ сЬесКЬох„ 'Ча1ие', О); зи16ата(ЬОЬ) есС, Ьап61ея); яеС(Ьап61ез.Асе, 'РоАпсег', 'ватсЬ'); ягарЬ(Ьап61ев); геп6ег(Ьвл61ез); веС(Ьап61ев.Асе, 'РоАптег', 'аггея'); %-- -/ ашот%оп РЖ сЬесКЬох Са11ЬасК(ЬОЬ)есС, ечепС6аса, Ьап61ев) % АссерС РОР (ртоЬаЬ611Су 6епвАСу йшсСАоп ог ЬАвсоягаш) 61зр1ау % рагашегег Хог сиггепС1у ве1есте6 со1ог сошропепС ап6 ге6гаю % шаррАпв йшсСАоп Ай вшооСЬАпя Аз оп.

11 веС, с1еаг СОР 61вр1ау. 11 яеС(ЬОЬ)есС, 'Ча1ие') Ьап61ев.р6Х(Ьап61ев.сАп6ех) = 1; зеС(Ьап61ез.с6й сЬесКЬох, 'Ча1ие', О); Ьап61ея. с6Х (Ьап61ев. с[п6ех) = 0; е1ве Ьап61ев.рЖ(Ьап61ев.сАп6ех) = 0; еп6 яитбата(ЬОЬ) есС, Ьап61ея); ятарЬ(Ьап61ев); % / аСС%оп сЖ сЬесКЬох Са11ЬасК(ЬОЬ)есС, ечепС6ата, Ьап61ев) % Ассерт СОР (сиши1аСАче 6[ясгАЬиСАоп йшсСАоп) 61вр1ау рагашегег % тот ве1есСе6 со1ог сошропепС ел6 ге6тач шаррАпя йипсСАоп Ай % вшоосЬАпя Ав оп. 11 зеС, с1еаг СОР 6[вр1ау. АХ веС(ЬОЬ)есС, 'Ча1ие') Ьап61ея.

с6Х(Ьап61ез. стпбех) = 1; веС(Ьап61ев.р61 сЬесКЬох, 'Ча1ие', О); Ьап61ев.р6Х(Ьап61ев. стп6ех) = 0; е1ве Ьап61ев.с6Х(Ьап61ев.сАп6ех) = 0; еп6 яи16аСа(ЬОЬ)есс, Ьап61ев); ягарЬ(Ьап61ев); /— йшсСАоп шарЬат сЬесКЬох Са11ЬасК(ЬОЬ)есС, ечепС6ата, Ьап61ез) % АссерС сЬаляев Со Ьаг шар епаЬ1е вСаге ал6 ге6гач Ьагя. Ьап61ев.Ьагшар = яеС(ЬОЬ)есС, 'Ча1ие'); пи%баса(ЬОЬ)есС, Ьал61ея); геп6ег(Ьал61ея); %- йшсСАоп шар%шаве сЬесКЪох Са11ЬасК(ЬОЬ)есС, енепгбата, Ьал61ев) % Ассерс сЬапяев со сЬе Апаше шар всасе ап6 ге6гач Ашаяе. Ьап61ея.Ашаяешар = яеС(ЬОЬ)есС, 'Ча1ие'); пи%бага(ЬОЬ)есС, Ьап61ев); геп6ет(Ьал61ез); ПРИЛОЖЕНИЕ В Введение Это приложение содержит тексты всех М-фуикций, которые ие были приведены ранее в этой книге.

Функции упорядочены по алфавиту. Первые строки каждой функции набраны жирным шрифтом, что дает краткое описание функции, а также помогает при поиске нужной функции. СппсС1оп 1 = адргпей1ап[Я, Иглах) %АПРМЕ131А)ч РегСотгп аоарС1не гпей(ап 61Сег1пя. % Р = АОРМЕОТАМ(О, ЯМАХ) рег1огшв айарС1че шей1ап 111Сег1пЯ о1 % Сшайе О. ТЬе шей1ал 111Сег всагсв аС в1яе 3-Ьу-3 елй 1Сетатея ир % Со в1яе ЯМАХ-Ьу-ЯМАХ.

ЯМАХ чшвС Ье ап ойй 1псевег Ягеасег СЬал 1. % ЯМАХ шпвС Ье зл ойй, роз1С1че 1птейег Ягеатет СЬап 1. 11 (Яшах (= 1) ( (Яшах/2 == го1шй(Яшах/2)) ! (Яшах "= топай(Яшах)) еггог('ЯМАХ чшзт Ье ал ойй 1псейет > 1.') епй [М, М) = в1яе(я); % Тп1С1а1 яесир. 1=Я; 1(:) =О; а1геайуРгосеввей 1а1ве(в1яе(я)); / ВеЯ1п 111сег1пЯ.

уст 'к = 3:2:Яшах яш1п = отй111С2(Я, 1, опевот, к), 'вушшеяг1с'); яшах = отй111С2(Я, й е к, спев(к, к), 'яушшеСг1с'); яшей = шей111С2(Я, [к к), 'вушшест1с'); ргосеявпя1пЯЬече1В = (яшей > яшгл) й (яшах > яшей) й а1геайуРтосеввей; яВ = (Я > яш1п) й (яшах > Я); оигриСЕху = ргосезвпв1пЯЬене1В й гВ; оисриСЕшей = ргосеввОв1пЯЬече1В й яВ; 1(оиСрпСЕху) = Я(оисриСЕху); 1(опсриСЕшей) = яшей(оиСраСЕшей); а1геайургосеввей = а1теайуРтосеввей ) ргосеввпв1пяЬене1В; 11 а11(а1геайуРгосеввей(:)) Ьгеак; епй епй % Оитрпт яшей 1ог алу геша1л1пЯ 1шргосезвей р1хе1в.

Мосе СЬаС СЬСв % яшей чав сошрисей ив1пЯ а в1пйоч о1 вйге Яшах-Ьу-Яшах, чЬАсЬ Сз П В ° 7~~1~ % СЬе Ххпа1 ча1ие оХ Ь хп СЬе 1оор. Х( а1геайургосезвей) = яшей( а1геайургосеввей); ГппсС(оп гс пе» = Ьоппй2ехЕЬС(гс) %ВО1ЛхП)2Е1ОНТ СопчегС 4-соппесСей Ьоппйату Со 8-соппесСей Ьоппйагу. '/ КС ИЕИ = ВООМР2Е1СНТ(КС) сопчегСв а доит-соппесяей Ьоипйату Со ал % е1ЕЬС-соппесяей Ьоипйагу.

КС хв а Р-Ьу-2 шаст1х, еасЬ точ о1 % чЬхсЬ сопхахпз СЬе гоч апй со1ишп соогйхпаСев оХ а Ьоипйагу % р1хе1. КС шивС Ье а с1озей Ьоипйагу; хп оСЬег чогйв, СЬе 1азС % гоч о1 КС шивС еоиа1 СЬе 11гвС гоч оХ КС. ВООМО2Е1СНТ гешочев % Ьоипйагу р1хе1з СЬас аге песезвагу 1от доит-соппесхейпевз Ьия пос % песеввату Хог е1ЕЬС-соппесяейпевв. КС МЕч 1в а Ц-Ьу-2 шаятхх, % чЬеге Я <= Р. 11 "хвешрху(гс) й "хвеНиа1(гс(1, :), гс(епй, :)) егтог('Ехресяей хприС Ъоипйату Со Ье с1овей.'); епй 1Х в1яе(гс, 1) <= 3 % ЭеЕепегахе сазе.

гс печ = гс; геСигп; епй % Кешоче 1азС гоч, чЬхсЬ еНиа1з СЬе 11гвС гоч. хс печ = тс(1:епй — 1, :); % Кешоче СЬе шхйй1е рххе1 1п 1оиг-соппессей г1ЕЬС-апЕ1е хиты . Ые % сых йо СЬйз 1п а несхогхяей 1авЬхоп, Ьих че сюх'С йо 1С а11 аС % овсе. Яхш11ат Со СЬе чау СЬе 'СЬ1п' а1Еог1СЬш чогйв 1п ЬчшогрЬ, % че'11 гешоче 11гвС СЬе шхйй1е р1хе1з 1п 1оиг-союхесхей Сигпв чЬеге % СЬе гоч апй со1ипш ате ЬоСЬ ечеп; СЬеп СЬе ш1йй1е р1хе1в хп а11 % СЬе геша1п1пЕ доит-соппесяей Сигая чЬеге СЬе гоч 1в ечеп ыхй СЬе % со1ипш 1в ойй; СЬеп аЕахп чЬеге СЬе точ 1в ойй злй СЬе со1ишп хз % ечев; елй ххпа11у чЬете ЬоСЬ СЬе точ юхй со1ивш аге ойй.

гешоче 1осаС1опв = сошриСе гешоче 1осаС1оы(тс печ); 11е1й1 = тешоче 1осасхоив й (теш(тс печ(:, 1), 2) == О) й (геш(гс печ(:, 2), 2) == О); гс печ(11е1й1,:) = П; гешоче 1осаС1опв = сошриСе гешоче 1осаС1опв(гс печ); 11е1й2 = гешоне 1осаяхоы й (теш(гс печ(:, 1), 2) == О) й (геш(гс печ(:, 2), 2) == 1); гс печ(11е1й2, :) = Б; гешоне 1осаС1опв = сошрихе гешоче 1осаС1оы(гс печ); 11е1йЗ = тешоче 1осаСхопв й (геш(гс печ(:, 1), 2) == 1) й (геш(тс печ(:, 2), 2) == О); ~~~~У2 Приложение В гс печ(11е163,:) = (]; гешоче 1осаС1опв = сошрисе гешоче 1осаС1опв(гс печ); 11е164 = гешоне 1осаС1опв й (геш(гс печ(:, 1), 2) == 1) й (геш(гс печ(:, 2), 2) == 1); гс печ(11е164,:) = П; % МаЬе СЬе оисриС Ьо1ш6агу с1ове6 аЕа1п. гс печ = (гс печ; гс печ(1, :)]; %- ХипсС1оп гешоче = сошриСе гешоче 1осаС1опв(гс) % 01гси1аг 61гт.

6 = (гс(2:еп6, :); гс(1, :)] — гс; % ОоС рго6исС о1 еасЬ гоч оХ 6 ю1СЬ СЬе виЬве~]иепС точ о1 6, % регйогше6 1п с1гси1аг 1авЬ1оп. 61 = (6(2:еп6, :); 6(1, :)]; 6осрго6 = виш(6 .* 61, 2); % ЬосаС1опв оХ И, Я, Е, ап6 Н Сгапв1С1опв йо11оче6 Ьу % а г1ЕЬС-зпЕ1е Сити. гешоне = а11(6, 2) й (6осрго6 == О); % Вис че геа11у чапС Со тешоче СЬе ш1661е р1хе1 оХ СЬе Сити. гешоче = (гешоче(еп6,:); тешоче(1:еп6 — 1, :)]; 11 апу(гешоче) 6опе = 1; е1ве 16х = 11п6(гешоче); гс(гбх(1),:) = П; еп6 гппсС(оп гс пепе = Ьоипй2Гопг(гс) %ВО(Л~ПЭ2г'О\Ж СопчегС 8-соппесСей Ьоппйагу Со 4-соппесСед Ьоипе]агу. % КС ИЕч = ВООБР2РООВ(КС) сопчетСв ап е1ЕЬС-соппессе6 Ьо1ш6агу Со а % 1оит-соппессе6 Ьо1ш6агу.

НС 1в а Р-Ьу-2 шасг1х, еасЬ гоч оХ % чЬ1сЬ сопСагпв СЬе гоч ап6 со1илш соог6гпасев о1 а Ьо|ш6ату % р1хе1. ВООИ02РООВ 1пвегсв печ Ьо1ш6агу р1хе1в чЬегенег СЬеге 1в % а 61аЕопа1 соппесС1оп. 11 в1зе(тс, 1) > 1 % РЬазе 1: гешоче 61аЕопа1 Сигпз, опе аС а С1ше ипС11 СЬеу аге % а11 Еопе. 6опе = 0; гс1 = [гс(еп6 — 1, :); тс]; чЬ11е 6опе 6 = 6111(гс1, 1); 61аЕопа1 1осаС1опв = а11(6, 2); 6оиЬ1е 61аЕопа1в = 61аЕопа1 1осаС1опв(1:еп6 — 1) й (61тт(61аЕопа1 1осаС1опв, 1) == 0); 6оиЬ1е 61аЕопа1 16х = 11п6(6оиЫе 61аЕопа1в); Ситпв = апу(6(6оиЬ1е 61аЕопа1 16х, :) 6ИоиЬ1е 61адопа1 1дх + 1,:), 2); Сигы Ых = боиЬ1е 61авопа1 16х(сигов); 11 1вешргу(Сигпв 1дх) йопе = 1; е1ве 1%тес сити = сигов ых(1); тс1(11твС Сиги + 1,:) = (гс1(11гвС Сига,:) + гс1(11твС Сиги + 2,:)) / 2; 11 11гвС Сигп == 1 гс1(епс(,:) = гс1(2,:); епс( еж1 епй гс1 = гс1(2:еп6, :); еш1 % РЬаве 2: 1ыетС ехСга р1хе1в вЬете СЬеге ате ЖаВопа1 говйШ = 6111(тс1(:, 1)); со16Ш = 61гг(гс1(:, 2)); 61аВопа1 1осаС1опв = гово1Н й со161гг; пиш оЫ р1хе1в = в1хе(гс1, 1); пиш печ р1хе1в = пиш о16 р1хе1в + вишй1ацопа1 1осаС1оп гс пев = тетив(пиш пев р1хе1в, 2); % 1пвегс сЬе ог1в1па1 ча1иев 1псо сЬе ргорег 1осас1опв % шаСг1х.