同伦算法的Matlab程序

2015-10-23 23:40| 发布者: aspen| 查看: 1674| 评论: 0|原作者: suffer|来自: 声振论坛

摘要: %% N 为积分部数，h 为积分步长，其值视计算精度而定 %% x0 为初始值，可任意给定 %% Equfun(x)为非线性方程组表达式（列向量）， %% Jacobfun(x)为雅可比矩阵 N=100; h=1/N; x0='; x=x0; %format ...

%% N 为积分部数，h 为积分步长，其值视计算精度而定

%% x0 为初始值，可任意给定

%% Equfun(x)为非线性方程组表达式（列向量），

%% Jacobfun(x)为雅可比矩阵

N=100;
h=1/N;
x0=[0 0 0]';
x=x0;

%format long
f=Equfun(x);
b=-h*f;

for i=1:N
A=Jacobfun(x);
k1=inv(A)*b;
A=Jacobfun(x+0.5*k1);
k2=inv(A)*b;
A=Jacobfun(x+0.5*k2);
k3=inv(A)*b;
A=Jacobfun(x+0.5*k3);
k4=inv(A)*b;
x=x+(k1+2*k2+2*k3+k4)/6;
end

disp('The Solution is:')
disp('x=');disp(x);

%%%%%%%%%%%%%%%%%%%%%%%%%

%%%下面是非线性方程组及其雅可比行列式

%%%%%%%%%%%%%%%%%%%%%%%%%

function y=Equfun(x)

%nonliner functions

y=[3*x(1)-cos(x(2)*x(3))-1/2;
x(1)^2-81*(x(2)+0.1)^2+sin(x(3))+1.06;
exp(-x(1)*x(2))+20*x(3)+(10*pi-3)/3];

%%%%%%%%%%%%%%%%%%%%%%%%%

function y=Jacobfun(x)

%Jacobi function
%J=zeros(length(x));

y(1,1)=3;
y(1,2)=x(3)*sin(x(2)*x(3));
y(1,3)=x(2)*sin(x(2)*x(3));
y(2,1)=2*x(1);
y(2,2)=-162*(x(2)+0.1);
y(2,3)=cos(x(3));
y(3,1)=-x(2)*exp(-x(1)*x(2));
y(3,2)=-x(1)*exp(-x(1)*x(2));
y(3,3)=20;

收藏分享邀请

下一篇：在Delphi中调用matlab的例子

账号		自动登录	找回密码
密码			我要加入

同伦算法的Matlab程序

最新评论

相关分类