Add missing Matlab function

matlab/src/extractNodes.m

@@ -0,0 +1,91 @@
+function [int_xyz, int_i, n_xyz, n_i, nodes] = extractNodes(filename)
+% extractNodes -
+%
+% Syntax: [n_xyz, nodes] = extractNodes(filename)
+%
+% Inputs:
+%    - filename - relative or absolute path of the file that contains the Matrix
+%
+% Outputs:
+%    - n_xyz -
+%    - nodes - table containing the node numbers and corresponding dof of the interfaced DoFs
+
+arguments
+    filename
+end
+
+fid = fopen(filename,'rt');
+
+if fid == -1
+    error('Error opening the file');
+end
+
+n_xyz = []; % Contains nodes coordinates
+n_i = []; % Contains nodes indices
+
+n_num = []; % Contains node numbers
+n_dof = {}; % Contains node directions
+
+while 1
+    % Read a line
+    nextline = fgetl(fid);
+
+    % End of the file
+    if ~isstr(nextline), break, end
+
+    % Line just before the list of nodes coordinates
+    if contains(nextline, 'NODE') && ...
+            contains(nextline, 'X') && ...
+            contains(nextline, 'Y') && ...
+            contains(nextline, 'Z')
+
+        while 1
+            nextline = fgetl(fid);
+
+            if nextline < 0, break, end
+
+            c = sscanf(nextline, ' %f');
+
+            if isempty(c), break, end
+
+            n_xyz = [n_xyz; c(2:4)'];
+            n_i = [n_i; c(1)];
+        end
+    end
+
+    if nextline < 0, break, end
+
+    % Line just before the list of node DOF
+  if contains(nextline, 'NODE') && ...
+         contains(nextline, 'LABEL')
+
+        while 1
+            nextline = fgetl(fid);
+
+            if nextline < 0, break, end
+
+            c = sscanf(nextline, ' %d %s');
+
+            if isempty(c), break, end
+
+            n_num = [n_num; c(1)];
+
+            n_dof{length(n_dof)+1} = char(c(2:end)');
+        end
+
+        nodes = table(n_num, string(n_dof'), 'VariableNames', {'node_i', 'node_dof'});
+    end
+
+    if nextline < 0, break, end
+end
+
+fclose(fid);
+
+int_i = unique(nodes.('node_i')); % indices of interface nodes
+
+% Extract XYZ coordinates of only the interface nodes
+if length(n_xyz) > 0 && length(n_i) > 0
+    int_xyz = n_xyz(logical(sum(n_i.*ones(1, length(int_i)) == int_i', 2)), :);
+else
+    int_xyz = n_xyz;
+end

nass-fem.org

@@ -2417,6 +2417,101 @@ freqs = logspace(1,3,500); % Frequency vector [Hz]
 #+END_SRC
 
 * Matlab Functions                                                  :noexport:
+*** =extractNodes=
+#+begin_src matlab :tangle matlab/src/extractNodes.m :comments none :mkdirp yes :eval no
+function [int_xyz, int_i, n_xyz, n_i, nodes] = extractNodes(filename)
+% extractNodes -
+%
+% Syntax: [n_xyz, nodes] = extractNodes(filename)
+%
+% Inputs:
+%    - filename - relative or absolute path of the file that contains the Matrix
+%
+% Outputs:
+%    - n_xyz -
+%    - nodes - table containing the node numbers and corresponding dof of the interfaced DoFs
+
+arguments
+    filename
+end
+
+fid = fopen(filename,'rt');
+
+if fid == -1
+    error('Error opening the file');
+end
+
+n_xyz = []; % Contains nodes coordinates
+n_i = []; % Contains nodes indices
+
+n_num = []; % Contains node numbers
+n_dof = {}; % Contains node directions
+
+while 1
+    % Read a line
+    nextline = fgetl(fid);
+
+    % End of the file
+    if ~isstr(nextline), break, end
+
+    % Line just before the list of nodes coordinates
+    if contains(nextline, 'NODE') && ...
+            contains(nextline, 'X') && ...
+            contains(nextline, 'Y') && ...
+            contains(nextline, 'Z')
+
+        while 1
+            nextline = fgetl(fid);
+
+            if nextline < 0, break, end
+
+            c = sscanf(nextline, ' %f');
+
+            if isempty(c), break, end
+
+            n_xyz = [n_xyz; c(2:4)'];
+            n_i = [n_i; c(1)];
+        end
+    end
+
+    if nextline < 0, break, end
+
+    % Line just before the list of node DOF
+  if contains(nextline, 'NODE') && ...
+         contains(nextline, 'LABEL')
+
+        while 1
+            nextline = fgetl(fid);
+
+            if nextline < 0, break, end
+
+            c = sscanf(nextline, ' %d %s');
+
+            if isempty(c), break, end
+
+            n_num = [n_num; c(1)];
+
+            n_dof{length(n_dof)+1} = char(c(2:end)');
+        end
+
+        nodes = table(n_num, string(n_dof'), 'VariableNames', {'node_i', 'node_dof'});
+    end
+
+    if nextline < 0, break, end
+end
+
+fclose(fid);
+
+int_i = unique(nodes.('node_i')); % indices of interface nodes
+
+% Extract XYZ coordinates of only the interface nodes
+if length(n_xyz) > 0 && length(n_i) > 0
+    int_xyz = n_xyz(logical(sum(n_i.*ones(1, length(int_i)) == int_i', 2)), :);
+else
+    int_xyz = n_xyz;
+end
+#+end_src
+
 *** =initializeSimplifiedNanoHexapod=: Nano Hexapod
 
 #+begin_src matlab :tangle matlab/src/initializeSimplifiedNanoHexapod.m :comments none :mkdirp yes :eval no