XIAN-FEM-2026June/三维matlab代码/matlab 3D一阶基+散射边界条件+周期边界/assembly_pbc_single.m

function solver=assembly_pbc_single(mesh,solver)

P=speye(solver.dof);
phi=mesh.PBCIndex(:,3)*mesh.PBCphi;
nbrPBC=length(phi);
for i=1:nbrPBC
    P(mesh.PBCIndex(i,2),mesh.PBCIndex(i,1))=phi(i);
end
P(:,mesh.PBCIndex(:,2))=[];

solver.P=P;

end