📄 evolve_normal_vector_weno_sd.m
字号:
function [delta, H1_abs, H2_abs] = evolve_normal_vector_WENO_SD(phi, dx, dy, Vn_ext, u_ext, v_ext)
%
% Finds the amount of evolution under a force in
% normal direction and a force based on a vector field,
% and using 5th order accurate WENO scheme.
% Assumes that phi is approximately a signed
% distance function and uses Godunov scheme.
%
% Author: Baris Sumengen sumengen@ece.ucsb.edu
% http://vision.ece.ucsb.edu/~sumengen/
%
delta = zeros(size(phi)+6);
data_ext = zeros(size(phi)+6);
data_ext(4:end-3,4:end-3) = phi;
% Calculate the derivatives (both + and -)
phi_x_minus = zeros(size(phi)+6);
phi_x_plus = zeros(size(phi)+6);
phi_y_minus = zeros(size(phi)+6);
phi_y_plus = zeros(size(phi)+6);
phi_x = zeros(size(phi)+6);
phi_y = zeros(size(phi)+6);
% first scan the rows
for i=1:size(phi,1)
phi_x_minus(i+3,:) = der_WENO_minus(data_ext(i+3,:), dx);
phi_x_plus(i+3,:) = der_WENO_plus(data_ext(i+3,:), dx);
phi_x(i+3,:) = select_der_normal_vector_SD(u_ext(i+3,:), Vn_ext(i+3,:), phi_x_minus(i+3,:), phi_x_plus(i+3,:));
end
% then scan the columns
for j=1:size(phi,2)
phi_y_minus(:,j+3) = der_WENO_minus(data_ext(:,j+3), dy);
phi_y_plus(:,j+3) = der_WENO_plus(data_ext(:,j+3), dy);
phi_y(:,j+3) = select_der_normal_vector_SD(v_ext(:,j+3), Vn_ext(:,j+3), phi_y_minus(:,j+3), phi_y_plus(:,j+3));
end
abs_grad_phi = sqrt(phi_x.^2 + phi_y.^2);
H1_abs = abs(u_ext+Vn_ext.*phi_x);
H2_abs = abs(v_ext+Vn_ext.*phi_x);
H1_abs = H1_abs(4:end-3,4:end-3);
H2_abs = H2_abs(4:end-3,4:end-3);
delta = u_ext.*phi_x + v_ext.*phi_y + Vn_ext.*abs_grad_phi;
delta = delta(4:end-3,4:end-3);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -