rotrev.m

来自「用matlab编写的用于转子动力学分析的有限元程序」· M 代码 · 共 18 行

function [Wx,Wy]=rotrev(R,r)
%
%


dp=2*pi/20;
Wx=[];Wy=[];

for p=[0:dp:2*pi-dp]
   W = real(r)*cos(p)-imag(r)*sin(p);
   [vx,vy]=rotxy(R,W);
   Wx=[Wx vx];
   Wy=[Wy vy];
   
end