![]() |
[ Home | SDTools |
SDT |
Sales ] [ Support | Services | Publications] |
Enforced displacement with NASTRAN modes
$ In the case control - - - - - - - - - - - - - - - - - - - - $ Ask to use residual vectors. With or without inertia relief (as shown here) RESVEC(NOINRL)= YES ... $ input locations $ In the bulk - - - - - - - - - - - - - - - - - - - - $ Define DOFS for residual vectors at force AND displacement $ input locations RVDOF1 123 4131 RVDOF1 123456 9999 $ Put stiff springs at locations of displacement inputs CELAS2,6001,1.e9,9999,1 CELAS2,6002,1.e9,9999,2 CELAS2,6003,1.e9,9999,3 CELAS2,6004,1.e13,9999,4 CELAS2,6005,1.e13,9999,5 CELAS2,6006,1.e13,9999,6
Case=fe_case(fe_case,'DofSet','Base',9999, ...
'DofLoad','Force',4131+[1:3]'/100, ...
'SensDof','Sensors',4131);
sys=nor2ss(DEF,.03,Case);
iiplot;
IIw=linspace(DEF.data(1),DEF.data(end,1),1024)'*2*pi;
RESP=qbode(sys,IIw,'struct');
XF(1).w=RESP.w;XF(1).xf=RESP.xf;XF(1).lab=RESP.lab;
iicom(';submagpha;titopt116')