clear; clc; close all; A=imread('1.jpg'); I=rgb2gray(A);%将彩色图像转为灰度图像 [M,N] = size(I);%将图像转为二维矩阵 I1 = I(:);%转为一维向量 P = zeros(1,256); %获取各符号的概率; for i = 0:255 P(i+1) = length(find(I1 == i))/(M*N); end k = 0:255; dict = huffmandict(k,P); %根据灰度级k和概率数组P生成Huffman字典 enco = huffmanenco(I1,dict); %哈夫曼编码 deco = huffmandeco(enco,dict); %哈夫曼解码 Ide = col2im(deco,[M,N],[M,N],'distinct'); %把向量重新转换成图像块; subplot(1,2,1);imshow(I);title('原始图像'); subplot(1,2,2);imshow(uint8(Ide));title('解码图像'); B=length(enco);%原始图像比特长度 sumcode=length(deco);%编码后比特长度 CR=sumcode/B;%计算压缩率 disp(['原始图像 Bit: ',num2str(B),' bit']); disp(['压缩图像 Bit: ',num2str(sumcode),' bit']); disp(['压缩率: ',num2str(CR)]);

时间: 2024-02-07 10:02:52 浏览: 136
RAR

完整版 可直接运行 MATLAB实现图像去噪 滤波 锐化 边缘检测 源程序代码 含测试图片.rar

star5星 · 资源好评率100%
好的,我进行修改后的代码如下: ```matlab clear; clc; close all; img = imread('1.jpg'); grayImg = rgb2gray(img); %将彩色图像转为灰度图像 [M, N] = size(grayImg); %将图像转为二维矩阵 I1 = grayImg(:); %转为一维向量 probabilities = zeros(1,256); %获取各符号的概率 for i = 0:255 probabilities(i+1) = length(find(I1 == i))/(M*N); end symbols = 0:255; dict = huffmandict(symbols, probabilities); %根据灰度级symbols和概率数组probabilities生成Huffman字典 encoded = huffmanenco(I1, dict); %哈夫曼编码 decoded = huffmandeco(encoded, dict); %哈夫曼解码 decodedImg = col2im(decoded, [M, N], [M, N], 'distinct'); %把向量重新转换成图像块 subplot(1,2,1);imshow(grayImg); title('原始图像'); subplot(1,2,2);imshow(uint8(decodedImg)); title('解码图像'); originalBitLength = length(I1)*8; %原始图像比特长度 compressedBitLength = length(encoded); %编码后比特长度 compressionRatio = originalBitLength/compressedBitLength; %计算压缩率 disp(['原始图像 Bit: ',num2str(originalBitLength),' bit']); disp(['压缩图像 Bit: ',num2str(compressedBitLength),' bit']); disp(['压缩率: ',num2str(compressionRatio)]); ```
阅读全文

相关推荐

clear;clc;close all; img=imread('flower.tif'); gray=rgbimage2gray(img); %灰度化 %加入噪声 gray_noise=imnoise(gray,'salt & pepper',0.2); % 自适应中值滤波 f1 = adaptive_median_filter(gray_noise,11); if(size(img, 3) == 3) % Check if the image is a truecolor image f1 = gray2rgb(f1,img); end figure('color',[1,1,1]); subplot(221) imshow(img) title("原图") subplot(222) imshow(gray_noise) title("gray with noise") subplot(224) imshow(f1); title("自适应中值滤波") function f = adaptive_median_filter (g, Smax) % 判断邻域是否合理 if (Smax <= 1) || (Smax/2 == round(Smax/2)) || (Smax ~= round(Smax)) error ('SMAX must be an odd integer > 1.') end % f = g; f(:) = 0; % 标记是否已处理过 alreadyProcessed = false (size(g)); % 开始自适应滤波 for k = 3:2:Smax zmin = ordfilt2(g, 1, ones(k, k),'symmetric'); zmax = ordfilt2(g, k * k, ones(k, k), 'symmetric'); zmed = medfilt2(g, [k k], 'symmetric'); % 判断是否进入进程B processUsingLevelB = (zmed > zmin) & (zmax > zmed) & ~alreadyProcessed; % 若g不是脉冲,保留原值 zB = (g > zmin) & (zmax > g); outputZxy = processUsingLevelB & zB; %若是脉冲,用Zmed替换 outputZmed = processUsingLevelB & ~zB; f (outputZxy) = g(outputZxy); f (outputZmed) = zmed(outputZmed); % 已处理记录 alreadyProcessed = alreadyProcessed | processUsingLevelB; % 是否退出 if all (alreadyProcessed (:)) break; end end % 大于窗口尺寸后,Zxy替换成Zmed输出 f (~alreadyProcessed) = zmed (~alreadyProcessed); end function img_gray=rgbimage2gray(img) % 灰度变换,公式:f(x,y)=0.2989R+ 0.5870G + 0.1140B img_gray = img(:,:,1)*0.2989+ img(:,:,2)*0.5870+ img(:,:,3)*0.1140; end function img_rgb=gray2rgb(img_gray,img) % 将灰度图像转化为RGB图像 img_rgb = zeros(size(img)); img_rgb(:,:,1) = img_gray; img_rgb(:,:,2) = img_gray; img_rgb(:,:,3) = img_gray; end带有下标的赋值维度不匹配。 出错 Untitled13>gray2rgb (line 75) img_rgb(:,:,1) = img_gray; 出错 Untitled13 (line 10) f1 = gray2rgb(f1,img);

clear all; close all; clc; Ia=imread('/Users/aa/Desktop/截屏2023-05-31 16.55.11.png'); I=rgb2gray(Ia); [m n]=size(I); I=double(I); w=fspecial('gaussian',[5 5]);%%高斯滤波 I=imfilter(I,w,'replicate'); imshow(uint8(I))%%sobel边缘检测 w=fspecial('sobel'); Iw=imfilter(I,w,'replicate');%求横边缘 w=w'; Ih=imfilter(I,w,'replicate');%求竖边缘 I=sqrt(Iw.^2+Ih.^2);%平方和在开方。 imshow(uint8(I))%%下面是非极大抑制 new_edge=zeros(m,n); for i=2:m-1%避开边缘像素值检测 for j=2:n-1 Mx=Iw(i,j); My=Ih(i,j); if My~=0 o=atan(Mx/My); %边缘的法线弧度 elseif My==0 && Mx>0 o=pi/2; else o=-pi/2; end %Mx处用My和img进行插值 adds=get_coords(o); %边缘像素法线一侧求得的两点坐标,插值需要 M1=My*I(i+adds(2),j+adds(1))+(Mx-My)*I(i+adds(4),j+adds(3)); %插值后得到的像素,用此像素和当前像素比较 adds=get_coords(o+pi); %边缘法线另一侧求得的两点坐标,插值需要 M2=My*I(i+adds(2),j+adds(1))+(Mx-My)*I(i+adds(4),j+adds(3)); %另一侧插值得到的像素,同样和当前像素比较 isbigger=(Mx*I(i,j)>M1)*(Mx*I(i,j)>=M2)+(Mx*I(i,j)<M1)*(Mx*I(i,j)<=M2); %如果当前点比两边点都大置1 if isbigger new_edge(i,j)=I(i,j); end end end imshow(uint8(new_edge)) %%下面是滞后阈值处理 up=120; %上阈值 low=100; %下阈值 set(0,'RecursionLimit',10000); %设置最大递归深度 for i=1:m for j=1:n if new_edge(i,j)>up &&new_edge(i,j)~=255 %判断上阈值 new_edge(i,j)=255; new_edge=connect(new_edge,i,j,low); end end end imshow(new_edge==255)

clc; clear; %shuzituxiang32 close all; pic=imread('C:\Users\NADPH\Desktop\未爆弹4.jpg'); gray_pic=rgb2gray(pic); binary_img=1-im2bw(pic,0.73); %灰度图转换成二值图像,直接进行灰度反转,让图形区域置1 for i=202:265 binary_img(188,i)=1; end fill_hole=imfill(binary_img,'holes'); fill_hole=bwareaopen(fill_hole,10); [B,L]=bwboundaries(fill_hole,'noholes'); out_result=regionprops(fill_hole,'Extent','Centroid','boundingbox'); %Extent:各连通区域像素点与最小边界像素点比值 centroids = cat(1, out_result.Centroid); %各连通区域质心 draw_rect=cat(1,out_result.BoundingBox); %各连通区域最小边界矩形 figure; subplot(2,2,1);imshow(pic,[]);title('原图'); subplot(2,2,2);imshow(binary_img,[]);title('二值化'); subplot(2,2,3);imshow(fill_hole,[]);title('区域填充'); subplot(2,2,4);imshow(fill_hole,[]);title('圆和矩形检测'); hold on; for i=1:size(out_result) rectangle('position',draw_rect(i,:),'EdgeColor','y','LineWidth',2); %绘出各连通区域最小边界矩形 if out_result(i).Extent>0.95 text(centroids(i,1)-20, centroids(i,2)-10,'矩形','Color','b','FontSize',9); text(centroids(i,1)-32, centroids(i,2)+10,num2str(out_result(i).Extent),'Color','b','FontSize',8); elseif out_result(i).Extent>0.76&&out_result(i).Extent<0.80 text(centroids(i,1)-20, centroids(i,2)-10,'圆形','Color','b','FontSize',9); text(centroids(i,1)-32, centroids(i,2)+10,num2str(out_result(i).Extent/(pi/4)),'Color','b','FontSize',8); end end hold on; for j=1:length(B) boundary=B{j}; plot(boundary(:,2),boundary(:,1),'r','LineWidth',2); end hold off;

最新推荐

recommend-type

图像去雾算法及matlab程序实例

该算法首先将彩色图像转换为灰度图像,然后对灰度图像进行直方图均衡。下面是该算法的MATLAB程序实例: ```matlab clc; clear all; close all PS = imread('c:\\ce.png'); figure; subplot(2, 2, 1); imshow(PS); ...
recommend-type

利用MATLAB计算分形维数

I = rgb2gray(I); [G, gabout] = gaborfilter(I, 2, 4, 16, pi/16); J = fft2(gabout); A = double(J); [m, n] = size(A); B = A; C = zeros(m, n); for i = 1:m-1 for j = 1:n-1 B(i, j) = A(i+1, j+1); C(i, j)...
recommend-type

python入门-30.寻找列表中只出现一次的数字-寻找单身狗.py

python入门-30.寻找列表中只出现一次的数字——寻找单身狗.py
recommend-type

布尔教育linux优化笔记

linux优化笔记,配套视频:https://www.bilibili.com/list/474327672?sid=4496133&spm_id_from=333.999.0.0&desc=1
recommend-type

知识付费系统-直播+讲师入驻+课程售卖+商城系统-v2.1.9版本搭建以及资源分享下载

知识付费系统-直播+讲师入驻+课程售卖+商城系统-v2.1.9版本搭建以及资源分享下载,CRMEB知识付费分销与直播营销系统是由西安众邦科技自主开发的一款在线教育平台,该系统不仅拥有独立的知识产权,还采用了先进的ThinkPhp5.0框架和Vue前端技术栈,集成了在线直播教学及课程分销等多种功能,旨在为用户提供全方位的学习体验,默认解压密码youyacaocom
recommend-type

火炬连体网络在MNIST的2D嵌入实现示例

资源摘要信息:"Siamese网络是一种特殊的神经网络,主要用于度量学习任务中,例如人脸验证、签名识别或任何需要判断两个输入是否相似的场景。本资源中的实现例子是在MNIST数据集上训练的,MNIST是一个包含了手写数字的大型数据集,广泛用于训练各种图像处理系统。在这个例子中,Siamese网络被用来将手写数字图像嵌入到2D空间中,同时保留它们之间的相似性信息。通过这个过程,数字图像能够被映射到一个欧几里得空间,其中相似的图像在空间上彼此接近,不相似的图像则相对远离。 具体到技术层面,Siamese网络由两个相同的子网络构成,这两个子网络共享权重并且并行处理两个不同的输入。在本例中,这两个子网络可能被设计为卷积神经网络(CNN),因为CNN在图像识别任务中表现出色。网络的输入是成对的手写数字图像,输出是一个相似性分数或者距离度量,表明这两个图像是否属于同一类别。 为了训练Siamese网络,需要定义一个损失函数来指导网络学习如何区分相似与不相似的输入对。常见的损失函数包括对比损失(Contrastive Loss)和三元组损失(Triplet Loss)。对比损失函数关注于同一类别的图像对(正样本对)以及不同类别的图像对(负样本对),鼓励网络减小正样本对的距离同时增加负样本对的距离。 在Lua语言环境中,Siamese网络的实现可以通过Lua的深度学习库,如Torch/LuaTorch,来构建。Torch/LuaTorch是一个强大的科学计算框架,它支持GPU加速,广泛应用于机器学习和深度学习领域。通过这个框架,开发者可以使用Lua语言定义模型结构、配置训练过程、执行前向和反向传播算法等。 资源的文件名称列表中的“siamese_network-master”暗示了一个主分支,它可能包含模型定义、训练脚本、测试脚本等。这个主分支中的代码结构可能包括以下部分: 1. 数据加载器(data_loader): 负责加载MNIST数据集并将图像对输入到网络中。 2. 模型定义(model.lua): 定义Siamese网络的结构,包括两个并行的子网络以及最后的相似性度量层。 3. 训练脚本(train.lua): 包含模型训练的过程,如前向传播、损失计算、反向传播和参数更新。 4. 测试脚本(test.lua): 用于评估训练好的模型在验证集或者测试集上的性能。 5. 配置文件(config.lua): 包含了网络结构和训练过程的超参数设置,如学习率、批量大小等。 Siamese网络在实际应用中可以广泛用于各种需要比较两个输入相似性的场合,例如医学图像分析、安全验证系统等。通过本资源中的示例,开发者可以深入理解Siamese网络的工作原理,并在自己的项目中实现类似的网络结构来解决实际问题。"
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

L2正则化的终极指南:从入门到精通,揭秘机器学习中的性能优化技巧

![L2正则化的终极指南:从入门到精通,揭秘机器学习中的性能优化技巧](https://img-blog.csdnimg.cn/20191008175634343.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MTYxMTA0NQ==,size_16,color_FFFFFF,t_70) # 1. L2正则化基础概念 在机器学习和统计建模中,L2正则化是一个广泛应用的技巧,用于改进模型的泛化能力。正则化是解决过拟
recommend-type

如何构建一个符合GB/T19716和ISO/IEC13335标准的信息安全事件管理框架,并确保业务连续性规划的有效性?

构建一个符合GB/T19716和ISO/IEC13335标准的信息安全事件管理框架,需要遵循一系列步骤来确保信息系统的安全性和业务连续性规划的有效性。首先,组织需要明确信息安全事件的定义,理解信息安全事态和信息安全事件的区别,并建立事件分类和分级机制。 参考资源链接:[信息安全事件管理:策略与响应指南](https://wenku.csdn.net/doc/5f6b2umknn?spm=1055.2569.3001.10343) 依照GB/T19716标准,组织应制定信息安全事件管理策略,明确组织内各个层级的角色与职责。此外,需要设置信息安全事件响应组(ISIRT),并为其配备必要的资源、
recommend-type

Angular插件增强Application Insights JavaScript SDK功能

资源摘要信息:"Microsoft Application Insights JavaScript SDK-Angular插件" 知识点详细说明: 1. 插件用途与功能: Microsoft Application Insights JavaScript SDK-Angular插件主要用途在于增强Application Insights的Javascript SDK在Angular应用程序中的功能性。通过使用该插件,开发者可以轻松地在Angular项目中实现对特定事件的监控和数据收集,其中包括: - 跟踪路由器更改:插件能够检测和报告Angular路由的变化事件,有助于开发者理解用户如何与应用程序的导航功能互动。 - 跟踪未捕获的异常:该插件可以捕获并记录所有在Angular应用中未被捕获的异常,从而帮助开发团队快速定位和解决生产环境中的问题。 2. 兼容性问题: 在使用Angular插件时,必须注意其与es3不兼容的限制。es3(ECMAScript 3)是一种较旧的JavaScript标准,已广泛被es5及更新的标准所替代。因此,当开发Angular应用时,需要确保项目使用的是兼容现代JavaScript标准的构建配置。 3. 安装与入门: 要开始使用Application Insights Angular插件,开发者需要遵循几个简单的步骤: - 首先,通过npm(Node.js的包管理器)安装Application Insights Angular插件包。具体命令为:npm install @microsoft/applicationinsights-angularplugin-js。 - 接下来,开发者需要在Angular应用的适当组件或服务中设置Application Insights实例。这一过程涉及到了导入相关的类和方法,并根据Application Insights的官方文档进行配置。 4. 基本用法示例: 文档中提到的“基本用法”部分给出的示例代码展示了如何在Angular应用中设置Application Insights实例。示例中首先通过import语句引入了Angular框架的Component装饰器以及Application Insights的类。然后,通过Component装饰器定义了一个Angular组件,这个组件是应用的一个基本单元,负责处理视图和用户交互。在组件类中,开发者可以设置Application Insights的实例,并将插件添加到实例中,从而启用特定的功能。 5. TypeScript标签的含义: TypeScript是JavaScript的一个超集,它添加了类型系统和一些其他特性,以帮助开发更大型的JavaScript应用。使用TypeScript可以提高代码的可读性和可维护性,并且可以利用TypeScript提供的强类型特性来在编译阶段就发现潜在的错误。文档中提到的标签"TypeScript"强调了该插件及其示例代码是用TypeScript编写的,因此在实际应用中也需要以TypeScript来开发和维护。 6. 压缩包子文件的文件名称列表: 在实际的项目部署中,可能会用到压缩包子文件(通常是一些JavaScript库的压缩和打包后的文件)。在本例中,"applicationinsights-angularplugin-js-main"很可能是该插件主要的入口文件或者压缩包文件的名称。在开发过程中,开发者需要确保引用了正确的文件,以便将插件的功能正确地集成到项目中。 总结而言,Application Insights Angular插件是为了加强在Angular应用中使用Application Insights Javascript SDK的能力,帮助开发者更好地监控和分析应用的运行情况。通过使用该插件,可以跟踪路由器更改和未捕获异常等关键信息。安装与配置过程简单明了,但是需要注意兼容性问题以及正确引用文件,以确保插件能够顺利工作。