danny91184 发表于 2009-5-24 20:22

Matlab求解分数阶微分方程组

请问一下,如何求解分数阶微分方程组吗?我知道整数阶的可以用ode45来解。

我在网上查了很多,而且也看了《高等应用数学问题的matlab求解》与分数阶有关的知识,就是不清楚分数阶方程如何来处理.

形如下述方程组,应如何求解?在附件中

wxl789 发表于 2009-5-25 19:58

回复 楼主 danny91184 的帖子

分数阶的 论坛里边好像有讨论的
搜索一下看看

pestp 发表于 2010-8-25 17:02

搜不到哦 我也想要

yufei422 发表于 2011-4-12 16:58

求解此方程

meiyongyuandeze 发表于 2011-4-13 10:28

本帖最后由 meiyongyuandeze 于 2011-4-13 10:42 编辑

下面是一个求解系数为常数的分数阶微分方程的程序,仅供你参考,希望对你有帮助!
建议斑竹将该帖移☞matlab讨论区!
% This function solves linear fractional-order differential equation (fode)
% with constant coefficients of the form:
%
%      n/v            (n-1)/v                1/v
% c1(1)*D   y(t)+c1(2)*D       y(t)+...+c1(n)*D   y(t)+c1(n+1)*y(t) =
%
%                m/v            (m-1)/v                1/v         
%         c2(1)*D   r(t)+c2(2)*D       r(t)+...+c2(m)*D   r(t)+c2(m+1)*r(t)      
%
%
% Inputs:
%
%         v: common denominator
%         c1 : vector of output coefficients (1x(n+1))
%         c2 : vector of input coefficients (1x(m+1))
%         r: samples of the input signal r(t)
%         h: sampling period
%
% Outputs:
%         y: vector of output samples
%         t: time vector (corresponding to y)
%
%
%
% Note: this function calls the function "fderiv.m" which is also
%       downloadable from MathWorks-File Exchange. The parameter "h" can
%       easily be tuned; it must be as small as approximate the input signal
%       r(t). The short memory principle has not neen used here, so the
%       length of input signal is limited to few hundred samples.
%
% Copyright (c), 2007.
%



function = fode2(v,c1,c2,r,h)

n = length(c1)-1;
% r = k*ones(1,100); % if the input signal is unit step
temp1 = zeros(size(r));
for i=1:length(c2)
    r_new = fderiv((length(c2)-i)/v,r,h);
    temp1 = temp1+c2(i)*r_new;
end

r = temp1;

t = *h;
y = zeros(1,length(r));

temp = zeros(1,n);

a = 0;
for i=1:length(c1)
    a = a+c1(i)/h^((n-i+1)/v);
end

for i=1:length(r)
    for k=n:-1:1
      for j=1:i-1
            temp(n-k+1) = temp(n-k+1)+(-1)^j*gamma(k/v+1)*y(i-j)/(gamma(j+1)*gamma(k/v-j+1));
      end
      temp(n-k+1) = -c1(n-k+1)*temp(n-k+1)/h^(k/v);
    end
    y(i) = (sum(temp)+r(i))/a;
    temp = zeros(1,n);
end
y = ;
%plot(t,y)



洪庆辉 发表于 2012-4-11 16:28

我也需要求解类似方程

猫头鹰先生 发表于 2014-4-4 20:02

偏微分方程怎么求解?
页: [1]
查看完整版本: Matlab求解分数阶微分方程组