0

我一直在做一个项目,我需要找到给定非线性微分方程的解,见下图:

在此处输入图像描述 现在,我尝试使用matlabs内置函数bvp4c,但是语法比较难,不知道结果是否可靠。对于某些值,bvp4c 函数只会产生错误。我还需要考虑边界条件,见下图:

在此处输入图像描述

在此处输入图像描述

我为这些可怕的数字感到抱歉。现在我知道这不是一个数学论坛,但我需要用数字解决这个问题,我想用最好的方法来解决它。我现在的代码如下所示:

function [theta_0 y2]=flow_BVP

theta_0=linspace(0,1,1000); % pi/18
solinit2=bvpinit(theta_0,[0 1 1]);
sol2=bvp4c(@flow_ode,@flow_bc,solinit2);
x2=sol2.x;
y2=sol2.y(1,:);


hold on
%plot(x1,y1) %gammal
plot(x2,y2) %ny
%hold off


function v=flow_init(x)
v=[sin(x); 1; 1];

function dydx=flow_ode(x,y)
q=0.0005;
v=1;
dydx = [y(2); y(3); 2*q/v*y(1)*y(2)-4*y(2)];

function res=flow_bc(ya,yb)
res=[ya(1);yb(1);ya(2)-5.59];

重复我的问题,这是解决这个问题的最佳方法、最简单、最容易理解和实施的方法?也许是射击?

最好的问候 SimpleP。

编辑到目前为止我得到的结果是这样的在此处输入图像描述

该图显示 f 与 \theta 。积分是 1,应该是这样。

4

1 回答 1

2

合并积分的一般方法是在 ODE 系统中添加反导数Ff也就是说,作为第四个分量和变量

F' = f  with   F(0)=0,  F(alpha)=1

并且其他组件需要移动一个索引,

function v=flow_init(x)
v=[sin(x); 1; 1; 1-cos(x)];

function dydx=flow_ode(x,y)
% y is [ f, f', f'', F ]
q=0.0005;
v=1;
dydx = [y(2); y(3); 2*q/v*y(1)*y(2)-4*y(2); y(1)];

function res=flow_bc(ya,yb)
res=[ya(1); ya(4); yb(1); yb(4)-1];

使用蟒蛇:

q, v = 0.0005, 1
def flow_ode(t,u): return [ u[1], u[2], 2*q/v*u[0]*u[1]-4*u[1], u[0] ]

def flow_bc(u0, u1): return [ u0[0], u0[3], u1[0], u1[3]-1 ]

x = x_init = np.linspace(0,1,11);
u_init = [ 6*x*(1-x), 0*x, 0*x, x ]

res = solve_bvp(flow_ode, flow_bc, x_init, u_init, tol = 1e-5)

print res.message
if res.success:
     x = x_sol = np.linspace(0,1,201);
     u_sol = res.sol(x_sol);
     plt.subplot(2,1,1)
     plt.plot(x_sol, u_sol[0]); plt.plot(x, 6*x*(1-x), lw=0.5); plt.grid()
     plt.subplot(2,1,2)
     plt.plot(x_sol, u_sol[3]); plt.grid()
     plt.show()

解和反导数图

可以看出,这里最初的猜测非常接近。由于 ODE 是 的一个小扰动4f'+f'''=0,因此解必须接近其解a+b*sin(2x)+c*cos(2x),其在边界条件下计算为

f(x)=A * [ (1-cos(2))*sin(2*x)-sin(2)*(1-cos(2*x)) ]
    = 4*A*sin(1) * sin(x)*sin(1-x)

A使得积分为一。


如果切换 ODE 中的参数值,q=1并且v=0.0005,则解将具有大小为 的边界层sqrt(v/q)另一个场景的情节

于 2018-12-04T10:28:33.037 回答