Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
RLEncode.m
Package: work.rar [view]
Upload User: hwtw888
Upload Date: 2016-03-15
Package Size: 177k
Code Size: 1k
Category:
Compress-Decompress algrithms
Development Platform:
Matlab
- function [zipped, info] = RLEncode(vector)
- [m, n] = size(vector);
- %vector = vector(:)';
- vector = uint8(vector(:));
- L = length(vector);
- c = vector(1);
- e(1, 1) = c; %e(:, 1)存放灰度
- e(1, 2) = 0; %e(:, 2)存放行程
- t1 = 1;
- for j = 1: L
- if((vector(j) == c))
- e(t1, 2) = double(e(t1,2)) + 1;
- else
- c = vector(j);
- t1 = t1 + 1;
- e(t1, 1) = c;
- e(t1, 2) = 1;
- end
- end
- zipped = e;
- info.rows = m;
- info.cols = n;
- [m, n] = size(e);
- info.ratio = m*n/(info.rows * info.cols);