牛头刨机械原理matlab代码

课程设计的任务是根据要求拟定和论证机器的主体机构的设计方案，并对选定方案进行运动分析，确定飞轮转动惯量，对进给凸轮机构和齿轮机构进行设计计算，最后完成设计图纸，设计说明书，打印源程序和计算结果、图表结果。
课程设计包括，主体机构设计，凸轮机构设计，齿轮机构设计三个部分。主体机构为自定设计方案，进给凸轮机构和齿轮机构采用统一设计方案。
我把matlab命令放下面了

R2=0.090;                      %取曲柄长90mm
pi=3.14;degree=pi/180;H=0.30;n=64;P=9000;
%H:行程300mm；P：切削力9000N；n：曲柄转速64r/min
w=n*2*pi/64;
ANG40=105*degree;
R4=H/2/sin(15*degree);
R9=R2/sin(15*degree);
R5=R4/4;
R10=R4*(1-cos(15*degree));
R1=R4-R10/2;
ANG50=asin(R10/2/R5);
S0=R5*cos(ANG50)-R4*cos(ANG40);
ANG2=195*degree:-3*degree:(195-360)*degree;
%曲柄转角ANG2从195度开始转，每隔-3度取点，转一周
R8x=sqrt(R9^2+R2^2+2*R2*R9*sin(ANG2));
ANG4=acos(R2*cos(ANG2)./R8x);
ANG5=asin((R4*sin(ANG4)-R1)/R5);
X=S0+R4*cos(ANG4)-R5*cos(ANG5);            %刨刀位移量X
ANG=ANG2*180/pi;                           %将曲柄转角弧度转化为角度
figure(1);
plot(ANG,X);                                  %画出刨刀的位移曲线
xlabel('曲柄转角'),ylabel('刨刀位移');
title('刨刀位移曲线');
grid on;
w2=w;%曲柄角速度
w4=w2*R2*cos(ANG2-ANG4)./R8x;
V8x=-w2*R2.*sin(ANG2-ANG4);
w5=w4*R4.*cos(ANG4)./(R5*cos(ANG5));
V=w5*R5.*sin(ANG5)-w4*R4.*sin(ANG4);
figure(2);
plot(ANG,V);                                             %画出刨刀的速度曲线
xlabel('曲柄转角'),ylabel('刨刀速度');
title('刨刀的速度曲线');
grid on;
ALPHA4=(-w2.^2*R2.*sin(ANG2-ANG4)-2*w4.*V8x)./R8x;
a8x=w4.^2.*R8x-w2.^2*R2.*sin(ANG2-ANG4);
ALPHA5=(w5.^2*R5.*sin(ANG5)+ALPHA4*R4.*cos(ANG4)-w4.^2*R4.*sin(ANG4))./(R5.*cos(ANG5));
a=ALPHA5*R5.*sin(ANG5)+w5.^2*R5.*cos(ANG5)-ALPHA4*R4.*sin(ANG4)-w4.^2*R4.*cos(ANG4);
figure(3);
plot(ANG,a);                                             %画出刨刀加速度曲线
xlabel('曲柄转角'),ylabel('刨刀加速度');
title('刨刀的加速度曲线');
grid on;
Mr=zeros(0,400);Wr=zeros(0,600);
Wd=zeros(0,400);
for i=1:361
    if(X(i)>0.05*H&X(i)<0.95*H&V(i)<0)%等效阻力矩Mr
        Mr(i)=P*abs(V(i))/w2;
    else
        Mr(i)=0;%在行程的前后0.05H和回程时Mr为零
    end
end
figure(4);
plot(ANG,Mr);%等效阻力矩、等效驱动力矩线图
xlabel('曲柄转角'),ylabel('等效力矩');
title('等效阻力矩、等效驱动力矩线图');
grid on;

for i=1:360
    Wr(i+1)=0.5*(Mr(i+1)+Mr(i))*abs(ANG2(i+1)-ANG2(i))+Wr(i);%阻力矩做功Wr
end
Md=Wr(361)/6.28;%等效驱动力矩
hold on;
plot(ANG,Md,'b');
figure(5);
plot(ANG,Wr);%阻力矩做功
title('阻力矩做功、驱动力矩做功图');
grid on;
Md;%输出等效驱动力矩值
%求解驱动力矩做功
Wd(1)=0;
for i=1:360
    Wd(i+1)=Md*abs(ANG2(i+1)-ANG2(i))+Wd(i);%驱动力矩做功Wd
end
hold on;
plot(ANG,Wd);
DLT=0.15;                               %速度不均匀系数为0.15
E=Wd-Wr;                               %机构的能量
DLTWmax=max(E)-min(E);                 %最大盈亏功
JF=DLTWmax/(w^2*DLT);                  %飞轮转动惯量
DLTWmax;JF;                             %输出最大盈亏功和飞轮转动惯量值

运行结果如下

在这里插入图片描述