07-搅拌机工作头旋轮轨迹分析与仿真-1.m

MATLAb 机械源码文件好东西啊

% 旋轮线轨迹模拟
% 圆锥齿轮传动参数
m=2;z7=11;z8=36;
dt7=10.5;dt8=35;
bt=65.25;            % 行星轮轴线与XOY平面夹角
% 搅拌杆外点旋转半径
l=65;
hd=pi/180;
% 圆锥齿轮几何尺寸
r7=0.5*m*z7;
% r7v=r7/cos(dt7*hd);
r8=0.5*m*z8;
% r8v=r8/cos(dt8*hd);
k1=r7+r8;
k2=(r7+r8)/r7;
% 1----二维旋轮线参数计算
for i=1:1:360
    x=k1*cos(i*hd)+l*cos(k2*i*hd);
    y=k1*sin(i*hd)+l*sin(k2*i*hd);
    xl1(i,:)=[i x y];
end
for i=1:1:720
    x=k1*cos(i*hd)+l*cos(k2*i*hd);
    y=k1*sin(i*hd)+l*sin(k2*i*hd);
    xl2(i,:)=[i x y];
end
for i=1:1:1080
    x=k1*cos(i*hd)+l*cos(k2*i*hd);
    y=k1*sin(i*hd)+l*sin(k2*i*hd);
    xl3(i,:)=[i x y];
end
for i=1:1:1440
    x=k1*cos(i*hd)+l*cos(k2*i*hd);
    y=k1*sin(i*hd)+l*sin(k2*i*hd);
    xl4(i,:)=[i x y];
end
% 绘制二维旋轮线
figure(1);                % 生成第1个图形窗口
subplot(2,2,1);           % 选择第1个子窗口
plot(xl1(:,2),xl1(:,3))
grid                      % 绘制网格线
title('二维旋轮线(\theta =360度)')
subplot(2,2,2);           % 选择第2个子窗口
plot(xl2(:,2),xl2(:,3))
grid                      % 绘制网格线
title('二维旋轮线(\theta =720度)')
subplot(2,2,3);           % 选择第3个子窗口
plot(xl3(:,2),xl3(:,3))
grid                      % 绘制网格线
title('二维旋轮线(\theta =1080度)')
subplot(2,2,4);           % 选择第4个子窗口
plot(xl4(:,2),xl4(:,3))
grid                      % 绘制网格线
title('二维旋轮线(\theta =1440度)')
% 2----三维旋轮线参数计算
for i=1:1:360
    x=(k1*cos(i*hd)+l*cos(k2*i*hd))*cos(bt*hd);
    y=(k1*sin(i*hd)+l*sin(k2*i*hd))*cos(bt*hd);
    z=sqrt(x^2+y^2)*tan(bt*hd);
    xlx1(i,:)=[i x y z];
end
for i=1:1:720
    x=(k1*cos(i*hd)+l*cos(k2*i*hd))*cos(bt*hd);
    y=(k1*sin(i*hd)+l*sin(k2*i*hd))*cos(bt*hd);
    z=sqrt(x^2+y^2)*tan(bt*hd);
    xlx2(i,:)=[i x y z];
end
for i=1:1:1080
    x=(k1*cos(i*hd)+l*cos(k2*i*hd))*cos(bt*hd);
    y=(k1*sin(i*hd)+l*sin(k2*i*hd))*cos(bt*hd);
    z=sqrt(x^2+y^2)*tan(bt*hd);
    xlx3(i,:)=[i x y z];
end
for i=1:1:1440
    x=(k1*cos(i*hd)+l*cos(k2*i*hd))*cos(bt*hd);
    y=(k1*sin(i*hd)+l*sin(k2*i*hd))*cos(bt*hd);
    z=sqrt(x^2+y^2)*tan(bt*hd);
    xlx4(i,:)=[i x y z];
end
% 矩阵cs(:,j)表示第j列的各行元素
% 绘制三维旋轮线
figure(2);                % 生成第2个图形窗口
subplot(2,2,1);           % 选择第1个子窗口
plot3(xlx1(:,2),xlx1(:,3),xlx1(:,4))
grid
title('三维旋轮线(\theta =360度)')
subplot(2,2,2);           % 选择第2个子窗口
plot3(xlx2(:,2),xlx2(:,3),xlx2(:,4))
grid
title('三维旋轮线(\theta =720度)')
subplot(2,2,3);           % 选择第3个子窗口
plot3(xlx3(:,2),xlx3(:,3),xlx3(:,4))
grid
title('三维旋轮线(\theta =1080度)')
subplot(2,2,4);           % 选择第4个子窗口
plot3(xlx4(:,2),xlx4(:,3),xlx4(:,4))
grid
title('三维旋轮线(\theta =1440度)')
% 输出数据
disp ' '
disp '          ==========   圆锥齿轮传动参数   ==========';
fprintf(1,'                   行星轮齿数    z7 = %3.0f \n',z7);
fprintf(1,'                   分度圆半径    r7 = %3.3f 度 \n',r7);
fprintf(1,'                   分度圆锥角   dt7 = %3.3f 度 \n',dt7);
fprintf(1,'                   中心轮齿数    z8 = %3.0f \n',z8);
fprintf(1,'                   分度圆半径    r8 = %3.3f 度 \n',r8);
fprintf(1,'                   分度圆锥角   dt8 = %3.3f 度 \n',dt8);
fprintf(1,'   中心轮与行星轮当量半径之比    rb = %3.0f \n',r8/r7);
disp ' '
['  行星轮公转',' 动点x坐标',' 动点y坐标',' 动点z坐标']
[xlx1(:,1),xlx1(:,2),xlx1(:,3),xlx1(:,4)]