rotrev.m

来自「利用matalab编制的转子动力学计算软件。其中模型利用有限元建模」· 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