iscross.m

来自「beamlet变化的工具箱」· M 代码 · 共 28 行

%  IsCross -- If there is an beam in the path which cross beam (vold,vnew)
%   Usage
%     logic = IsCross(Last1,Last2,Last3,vold,vnew,ind)
%   Inputs
%     Last1      list, first coordinate of the last vertex
%     Last2      list, second coordinate of the last vertex
%     Last3      list, index of the quadruplet at the last vertex
%     vold       old vertex
%     vnew       new vertex
%     ind        index of the quadruplet at 'vold'
%   Output
%     logic      if exist an beam cross (vold,vnew), then = 1; otherwise = 0
% 
%
%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%