zonghemoxing1.m

来自「内燃机转子仿真」· M 代码 · 共 43 行

%function ff=zonghemoxing1(t)
clear all;
clc;
close all;
format long;
a=pi/4;
h=1.000000000000000e-004;
t=1;
w=2*pi*1000/60;
%T=2*pi/w;
bt=rem(t,h);
bbt=t-bt;
n1=bbt/h;
    k=0;
for i=1:n1
    t(:,i)=(i-1)*h;


    oo=w*t(:,i);
   
    if oo<=2*k*pi+0.5*pi-a&oo>=2*k*pi

        ff(:,i)=1;
    elseif oo<=2*k*pi+0.5*pi+a&oo>2*k*pi+0.5*pi-a

        ff(:,i)=0.5*(1+cos((0.5*(oo-0.5*pi+a)/a)*pi));
    elseif oo<=2*k*pi+3*pi/2-a&oo>2*k*pi+0.5*pi+a

        ff(:,i)=0;
    elseif oo<=2*k*pi+3*pi/2+a&oo>2*k*pi+3*pi/2-a

        ff(:,i)=0.5*(1-cos((0.5*(oo-3*pi/2+a)/a)*pi));
    %elseif oo>2*k*pi+3*pi/2+a&oo<=2*pi+2*k*pi
    elseif 2*k*pi+3*pi/2+a<oo<=2*pi+2*k*pi
         ff(:,i)=1;
    end
     if oo>2*(k+1)*pi
        k=k+1;
    end
end
plot(t(:),ff(:));