混沌映射程序

【实例简介】
混沌映射的matlab仿真程序，包括帐篷映射等等各种映射
3.帐篷映射 y=varargin 2) otherwise 变换核 key=0.99 n1=a-(1+a)|x end a∈(0,1) N=n^2; xp=zeros (l, N); 绘图程序 a=0.998 %帐篷映射 for cir1=1: N 000<a<1 1(1+a)*abs(X) %a理想值0.99-1 end 00<x< for cir2=1: N x=a-(1+a) *abs(x); p(cir2)x; xp=zeros(I, N) Aa=ones(I, N) hold on: box on x=0.01%初值 c= reshape(xpn)%一维矩阵转换二维矩阵 fora=0:0.001:1; d=zeros(n, n) for n=1: N x=a-(lta)“abs(x); %维混沌矩阵调制 for a1-1 for k-1: N: for a2-1:n x=a-(1+a)*abs(x) if c(al, a2)=0 xp(k)=x d(al,a2)=1; clsc d(al, a2)=0; ploi(Aa a,xp, k., 'markersize, 1); end xlim([O, aD) end. 实用混沌加密函数: Do sum(sum(d) function chao ans=chaos tent(varargin) Chao ans= %帐篷映射 %o imshow(chao ans) 00<a<1 %a理想值0.91 %X初值作为密钥 000<x<1 %参数 %(n,kegy),n为矩阵阶数,key为迭代初始值。 %(n),n为矩阵阶数,key=0.99。 %()或(n,key,…,n-64,key=0.99 switch nargin case 1 n=varargin( 13 y=0.9; n-varargin 1) 4kent(肯特)映射 n= 1) kcy=0.8; O<xsa n=varargin1) argin (2) otherwise =0.8; 绘图程序 %肯特映射 p=zeros(l, N) xp=zeros(I, N) Aa=ones(1, N; a=0.4: 0.36 for cirl=l: N hold on; box on if X fora=0.01:0.001:0.5; for cirl=l: N: x-a, =(1-x)(1 x/a else X=(1-x)/(1-a) for cir3=1: N for cir3=1 else ifx X=(1-x)/(1-a) d cIsc ⅹp(cir3)=x; end c-reshape(xp.n,n);%一维矩阵转换二维矩阵 xp(cir3)=x %o figure %o imhist(c); plot(Aa*a, xp, 'k,'markcrsizc, 1); d=cros(n, n) end %二维混沌矩阵调制 xlim([O, a]) for al=l: n 实用混沌加密函数: ifc(al,a2)>=0.5; d(al,a2)=1; Ise d(al, a2)=0 function ichao ans chaos kent( varargin) end %0.1<x<1,将初值作为密钥key end: a<0.5,当大于0.4时比较理想 nd: %参数: sum(sum(d)) %(n,key),n为矩阵阶数,key为达代初始值。 chao ans=d %(n),n为矩阵阶数,key=0.8。 figure ()或(n,key,…),n=64,key=0.8。 imshow(chao ans) switch nargin case 【实例截图】
【核心代码】