Artifact 2bba72298db2c9daef38a2dae4ea44e5b5e727ce6538a37558e8da36991b3732:

• Executable file mtt/lib/examples/Mechanical/Mechanical-1D/Beams/CantileverBeam/frequencies.m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 407) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/lib/examples/Mechanical/Mechanical-1D/Beams/CantileverBeam/frequencies.m — part of check-in [3fd9d6efa9] at 2000-12-28 18:17:57 on branch origin/master — To RCS (user: gawthrop@users.sourceforge.net, size: 407) [annotate] [blame] [check-ins using]

function [w_r,w_a,n_null] = frequencies (A,B,C,D)

  ## usage:  [w_r,w_a] = frequencies (A,B,C,D)
  ##
  ## Resonant and antiresonant frequencies for undampled beam

  poles = eig(A);
  Np = length(poles);
  zeros = tzero(A,B,C,D);
  Nz = length(zeros);
  w_r = sort(imag(poles)); w_r = w_r(Np/2+1:Np);
  w_a = sort(imag(zeros)); w_a = nozeros(w_a(Nz/2+1:Nz))';
  n_null = (Nz/2-length(w_a))*2;
endfunction