大江东去 发表于 2013-9-20 14:39

耦合两个程序,分数阶和李指数,有酬金

下面是计算分数阶吸引子的程序,分数阶的系统已经计算出来了,按照整数阶的规律画李指数应该很简单,可惜不会。顺便附带整数阶李指数的程序,看有木有人能给耦合一下,做出来结果,酬金三百。
    function =FOChen(parameters, orders, TSim, Y0)

% time step:
h=0.005;
% number of calculated mesh points:

n=round(TSim/h);

%orders of derivatives, respectively:

q1=orders(1); q2=orders(2); q3=orders(3);

% constants of Chen's system:
r=parameters(1);
% binomial coefficients calculation:
cp1=1; cp2=1; cp3=1;
for j=1:n
   c1(j)=(1-(1+q1)/j)*cp1;
   c2(j)=(1-(1+q2)/j)*cp2;
   c3(j)=(1-(1+q3)/j)*cp3;
   cp1=c1(j); cp2=c2(j); cp3=c3(j);
end
% initial conditions setting:
x(1)=Y0(1); y(1)=Y0(2); z(1)=Y0(3);
% calculation of phase portraits /numerical solution/:
for i=2:n
   x(i)=(10*(y(i-1)-x(i-1)))*h^q1 - memo(x, c1, i);
   y(i)=(-x(i)*z(i-1)+(24-r*4)*x(i)+r*y(i-1))*h^q2 - memo(y, c2, i);
   z(i)=(x(i)*y(i)-8/3*z(i-1))*h^q3 - memo(z, c3, i);
end
for j=1:n
   Y(j,1)=x(j);
   Y(j,2)=y(j);
   Y(j,3)=z(j);
end
T=h:h:TSim;


=FOchen(, , 100, [-8.3 -1012]);
figure
plot3(y(:,1), y(:,3), y(:,2), 'k');
xlabel('z(t)'); ylabel('x(t)'); zlabel('y(t)'); grid;
title('chenxiyinzi x,y,z')



Z1=[];Z2=[];Z3=[];
global a;
global b;
global r;
a=10;b=8/3;
for r=linspace(0,5,40);
    y=;
    lp=0;
    for k=1:100
      =FOchen(, , 10, [-8.3 -1012]);
      y = Y(size(Y,1),:);
      y0 = [y(4) y(7) y(10);
            y(5) y(8) y(11);
            y(6) y(9) y(12)];
      y0=GS(y0);
      mod(1)=norm(y0(:,1));
      mod(2)=norm(y0(:,2));
      mod(3)=norm(y0(:,3));
      lp = lp+log(abs(mod));
      y0(:,1)=y0(:,1)/mod(1);
      y0(:,2)=y0(:,2)/mod(2);
      y0(:,3)=y0(:,3)/mod(3);
      y(4:12) = y0';
    end
    lp=lp/100;
    Z1=;
    Z2=;
    Z3=;
end
r=linspace(0,5,40);
plot(r,Z1,'-',r,Z2,'-',r,Z3,'-');
title('Lyapunov exponents of Lorenz')
xlabel('parameter r'),ylabel('lyapunov exponents')
grid on

正交化;
function A = GS(V)
v1 = V(:,1);
v2 = V(:,2);
v3 = V(:,3);
a1 = zeros(3,1);
a2 = zeros(3,1);
a3 = zeros(3,1);
a1 = v1;
a2 = v2-((a1'*v2)/(a1'*a1))*a1;
a3 = v3-((a1'*v3)/(a1'*a1))*a1-((a2'*v3)/(a2'*a2))*a2;
A = ;

牛小贱 发表于 2013-9-28 13:20

居然没有大神们出来啊!!这个论坛真么回事啊?!{:{40}:}

ChaChing 发表于 2013-9-28 21:37

牛小贱 发表于 2013-9-28 13:20 static/image/common/back.gif
居然没有大神们出来啊!!这个论坛真么回事啊?!

个人倒不以为没人回应会奇怪!
请看看LZ的空间并google下, 会发现这已经是重覆好几帖了(虽不同id但不难猜测是楼主)
原则上此帖并非matlab编程问题, 是不应该出现在这版块的
若个人还管事的话, 可能早就清理乾净了

牛小贱 发表于 2013-9-28 22:29

ChaChing 发表于 2013-9-28 21:37 static/image/common/back.gif
个人倒不以为没人回应会奇怪!
请看看LZ的空间并google下, 会发现这已经是重覆好几帖了(虽不同id但不难猜 ...

{:{31}:}好吧!

大江东去 发表于 2013-10-1 13:03

没人做我当然多发几个了,有人做的话我只发一个啊。话说竟然有人去goole,霸气的人
页: [1]
查看完整版本: 耦合两个程序,分数阶和李指数,有酬金