Уравнения кода

Уравнения для ${\mathit{v}}^{\prime }\left(\mathit{x}\right)$ и ${\mathit{C}}^{\prime }\left(\mathit{x}\right)$ зависьте от решаемой области. Для многоточечных краевых задач производная функция должна принять третий входной параметр region, который используется, чтобы идентифицировать область, где производная оценивается. Решатель нумерует области слева направо, начиная с 1.

Создайте функцию, чтобы закодировать уравнения с подписью dydx = f(x,y,region,p), где:

Используйте оператор switch, чтобы возвратить различные уравнения в зависимости от решаемой области. Функция

function dydx = f(x,y,region,p) % equations being solved
n = p(1);
eta = p(4);

dydx = zeros(2,1);
dydx(1) = (y(2) - 1)/n;

switch region
    case 1    % x in [0 1]
        dydx(2) = (y(1)*y(2) - x)/eta;
    case 2    % x in [1 lambda]
        dydx(2) = (y(1)*y(2) - 1)/eta;
end
end

Примечание: Все функции включены как локальные функции в конце примера.

Граничные условия кода

Решение двух дифференциальных уравнений первого порядка в двух областях требует четырех граничных условий. Два из этих условий прибывают из исходной проблемы:

$\mathit{v}\left(0\right)=0$,

$\mathit{C}\left(\lambda \right)-1=0$.

Другие два условия осуществляют непрерывность левых и правых решений в интерфейсной точке $\mathit{x}=1$:

${\mathit{v}}_{\mathit{L}}\left(1\right)-{\mathit{v}}_{\mathit{R}}\left(1\right)=0$,

${\mathit{C}}_{\mathit{L}}\left(1\right)-{\mathit{C}}_{\mathit{R}}\left(1\right)=0$.

Для многоточечного BVPs аргументы граничных условий функционируют YL и YR станьте матрицами. В частности, kстолбец th YL(:,k) решение на левом контуре kобласть th. Точно так же YR(:,k) решение на правильном контуре kобласть th.

В этой проблеме, $\mathit{y}\left(0\right)$ аппроксимирован YL(:,1)в то время как $\mathit{y}\left(\lambda \right)$ аппроксимирован YR(:,end). Непрерывность решения в $\mathit{x}=1$ требует того YR(:,1) = YL(:,2).

Функция, которая кодирует остаточное значение этих четырех граничных условий,

function res = bc(YL,YR)
res = [YL(1,1)               % v(0) = 0
       YR(1,1) - YL(1,2)     % Continuity of v(x) at x=1
       YR(2,1) - YL(2,2)     % Continuity of C(x) at x=1
       YR(2,end) - 1];       % C(lambda) = 1
end

Сформируйте исходное предположение

Для многоточечного BVPs граничные условия автоматически применяются вначале и конец интервала интегрирования. Однако необходимо задать двойные записи в xmesh для других интерфейсных точек. Простое предположение, которое удовлетворяет граничным условиям, является постоянным предположением y = [1; 1].

xc = 1;
xmesh = [0 0.25 0.5 0.75 xc xc 1.25 1.5 1.75 2];
yinit = [1; 1];
sol = bvpinit(xmesh,yinit);

Решите уравнение

Задайте значения постоянных параметров и поместите их в векторный p. Предоставьте функцию bvp5c с синтаксисом @(x,y,r) f(x,y,r,p) обеспечить вектор из параметров.

Вычислите решение для нескольких значений $\kappa$, использование каждого решения как исходное предположение для следующего. Для каждого значения $\kappa$, вычислите значение osmolarity $\mathrm{Os}=\frac{1}{\mathit{v}\left(\lambda \right)}$. Для каждой итерации цикла сравните вычисленное значение с аппроксимированным аналитическим решением.

lambda = 2;
n = 5e-2;
for kappa = 2:5
   eta = lambda^2/(n*kappa^2);
   p = [n kappa lambda eta];
   sol = bvp5c(@(x,y,r) f(x,y,r,p), @bc, sol);
   K2 = lambda*sinh(kappa/lambda)/(kappa*cosh(kappa));
   approx = 1/(1 - K2);
   computed = 1/sol.y(1,end);
   fprintf('  %2i    %10.3f     %10.3f \n',kappa,computed,approx);
end

   2         1.462          1.454 
   3         1.172          1.164 
   4         1.078          1.071 
   5         1.039          1.034 

Постройте решение

Постройте компоненты решения для $\mathit{v}\left(\mathit{x}\right)$ и $\mathit{C}\left(\mathit{x}\right)$ и вертикальная линия в интерфейсной точке $\mathit{x}=1$. Отображенное решение для $\kappa =5$ результаты итоговой итерации цикла.

plot(sol.x,sol.y(1,:),'--o',sol.x,sol.y(2,:),'--o')
line([1 1], [0 2], 'Color', 'k')
legend('v(x)','C(x)')
title('A Three-Point BVP Solved with bvp5c')
xlabel({'x', '\lambda = 2, \kappa = 5'})
ylabel('v(x) and C(x)')

Локальные функции

Перечисленный здесь локальные функции помощника что решатель BVP bvp5c вызовы, чтобы вычислить решение. В качестве альтернативы можно сохранить эти функции как их собственные файлы в директории на пути MATLAB.

function dydx = f(x,y,region,p) % equations being solved
n = p(1);
eta = p(4);

dydx = zeros(2,1);
dydx(1) = (y(2) - 1)/n;

switch region
    case 1    % x in [0 1]
        dydx(2) = (y(1)*y(2) - x)/eta;
    case 2    % x in [1 lambda]
        dydx(2) = (y(1)*y(2) - 1)/eta;
end
end
%-------------------------------------------
function res = bc(YL,YR) % boundary conditions
res = [YL(1,1)               % v(0) = 0
       YR(1,1) - YL(1,2)     % Continuity of v(x) at x=1
       YR(2,1) - YL(2,2)     % Continuity of C(x) at x=1
       YR(2,end) - 1];       % C(lambda) = 1
end
%-------------------------------------------