使用parfor扫描一组ODE的初始条件

Question

我目前正在尝试使用parfor来扫描由ode45解决的一组微分方程的一系列初始条件。 使用两个嵌套的for循环，代码可以正常工作，但是我希望parfor可以使过程更高效。 不幸的是，我遇到了一个问题，即求解器能够求解代表一系列变量的初始条件的矩阵中的一种组合，但是其他组合似乎将其初始值全部设置为0，而不是指定的值由初始条件决定。 这可能与以下事实有关：我需要创建一个零矩阵（'P'），并将结果写入其中，或者覆盖初始条件（？），我们将不胜感激。

谢谢，凯尔

function help(C, R)

A = 0.01;
B = 0.00;
C = [0.001,0.01];
D = 0.00;
R = [1e-10,1e-9];

[CGrid,RGrid] = meshgrid(C,R);

parfor ij = 1 : numel(CGrid)
        c2 = [A; B; CGrid(ij); D; RGrid(ij)];
        [t,c] = ode45('ode_sys',[0:1:300],c2);
        for k=1:length([0:1:300])
            for l=1:length(c2)
                if c(k,l)<0
                    c(k,l)=0;
                end
            end
        end

    P = zeros(301,5,numel(R),numel(C));
    temp = zeros(301,5);      
    temp(:,1) = c(:,1);
    temp(:,2) = c(:,2);
    temp(:,3) = c(:,3);
    temp(:,4) = c(:,4);
    temp(:,5) = c(:,5);
    P(:,:,ij)=temp;

    parsave('data.mat', P);
    end
end

Answer 1

您将遇到一个错误，并且有一些机会可以简化代码。

在parfor循环中，此行P = zeros(301,5,numel(R),numel(C)); 每次迭代都会用全零覆盖P 将其放在parfor循环之前。

可以使用max(c,0)完成使c负元素为零的第一个double- for循环，这应该更有效。 您也可以直接执行P(:,:,ij)=c(:,1:5) 。

因此，您可以将parfor循环替换为

P = zeros(301,5,numel(R),numel(C));
for ij = 1 : numel(CGrid)
    c2 = [A; B; CGrid(ij); D; RGrid(ij)];
    [t,c] = ode45('ode_sys',0:300,c2);
    c = max(c,0);
    P(:,:,ij) = c(:,1:5);
    parsave('data.mat',P);
end