SDT-visc         Contents     Functions         Previous Next     PDF Index

comp13

Purpose

These developments were initially funded by CALME and EPICE projects.

Avnirexample

First an example for the circular AVNIR/GrindSonic test. This script is stored in comp13/Avnir/t_avnir.m and should be started as explained in the installation.

 d_visco('TutoComp13-savnir')

blade

Now example with Snecma blade. This script is stored in comp13/bladefree/t_blade.m and should be started as explained in the installation.

wd=comp12('wdtest','comp13/aubfree');clear comp13
comp13('setProject',struct('ProjectWd',wd, ... % File save location
    'PlotWd',fullfile(wd,'plots')));  % Figure save location

% Import model
comp13('SetFEMLink',struct('Code','SAMCEF'))
comp13('SetFEMLink',struct('FileName',fullfile(wd,'Q611_MonoS_50SOL_BlD.dat')))
comp13('SetFEMLink',struct('Import','do'))

% Reduce after choosing split and Omega
comp13('setSolve',struct('MatId','28 29 30','Omega','0 RPM')) 
PA=comp13('paramvh');PA.mdl=stack_set(PA.mdl,'info','EigOpt',[5 10 0]);
comp13('SetSolve',struct('FixCyclic','do'))
comp13('solveMVR reset'); % Reduce with components  -reset

%xxx reloadMVR

% Finally choose material variation and do WZ range
comp13('setSolve',struct('MatCfg','MatVa')) % Displays material variation
comp13('setSolve',struct('IndMode','rb+(1:4)')) 
comp13('setSolve',struct('WZ','do'))
figure(10);comgui('imwrite');
figure(100);comgui('imwrite');

comp13('solveEFracNom');  % comgui imwrite


comp13('setSolve',struct('MatCfg','MatVAvnir')) % Displays material variation
comp13('setSolve',struct('WZ','do'))

% Now set target modes and compute EFracNom and ESplit
comp13('setSolve',struct('IndMode','rb+(1:4)'))
comp13('solveEFracNom');  % comgui imwrite
comp13('solveESplit');fecom scc10

Install

To run the application

dev

Some internal commands for testing

edit comp13_en-us.csv
if 1==2
 Range=comp13('Range',{'MeshCfg',{'Avnir',{@comp12,'AvnirMesh'}};
  'RedCfg',{'Fixed',struct;'Free',struct};
  'PostCfg',{'E1','E2'}});
 comp13('SetRange',Range);
 fe_range('Loop',Range);

end

xxx

Old

Single sector mono-harmonic computations have been considered in

aubefan08('epice'), tm11('ok').

Range


©1991-2025 by SDTools
Previous Up Next