popsm.m

来自「关于电机的.m程序」· M 代码 · 共 16 行

%set popup for smss1
val=get(hpop,'Value');
pf=eval(get(hpf,'String'));
thetapf=acos(pf);
s1='Under-excited motor'; s2='Over-excited motor';          
 s3='Over-excited generator'; s4='Under-excited generator';
switch val
    case 1
                  theta=thetapf;   mode=s1; 
    case 2
                  theta=-thetapf;  mode=s2;
    case 3
                  theta=thetapf-pi; mode=s3;
    case 4
                  theta=-thetapf+pi; mode=s4;
end