📄 07-搅拌机工作头旋轮轨迹分析与仿真-1.m__.htm
字号:
<html><head><title>MATLAB.rar 07-搅拌机工作头旋轮轨迹分析与仿真-1.m</title>
<LINK href="/inc/read_style.css" type=text/css rel=stylesheet></head>
<body>
<p><a href=http://www.pudn.com>www.pudn.com</a> > <a href="http://www.pudn.com/downloads111/sourcecode/graph/detail461284.html">MATLAB.rar</a> > 07-搅拌机工作头旋轮轨迹分析与仿真-1.m</p><!-- saved from http://www.pudn.com -->
<script src="/inc/gg_read1.js"></script><BR>
<pre name="code" class="m">
% 旋轮线轨迹模拟
% 圆锥齿轮传动参数
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)]
</pre>
<script src="/inc/gg_read2.js"></script><BR>
<script src="http://s117.cnzz.com/stat.php?id=1236358&web_id=1236358&show=pic" language="JavaScript" charset="gb2312"></script>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -