電動機・発電機の理論 pp.130-131を参考に。
http://energychord.com/children/publications/mg.html
function simulator clear; close all; Phi0 = 1; w = 1;%[rad/s] t = linspace(0,20,100); PhiU = Phi0 * cos(w * t); PhiV = Phi0 * cos(w * t - 2*pi/3); PhiW = Phi0 * cos(w * t + 2*pi/3); Bx = 1/2*(PhiV+PhiW) - PhiU; By = sqrt(3)/2*(PhiW - PhiV); angle = atan2(By,Bx); % argument lgt = sqrt(Bx.^2+By.^2); % absolute value for idx=1:100 polarplot(angle(idx),lgt(idx),'r-o'); drawnow(); pause(0.01); end end