- UID
- 22641
- 好友
注册时间2008-12-22
威望值 点
最后登录1970-1-1
激情值 点
积分465
认证分 分
齿轮币 枚
回帖0
|
修改相关参数即可
function woganchimian(x)
%定义参数值
i10=55;%传动比
A0=300;%中心距
beta=8*pi/180;%母面倾角
rb=190/2;%主基圆半径
ra1=240;%蜗杆齿顶圆弧半径
rf1=260;%蜗杆齿根圆弧半径
L=150;%蜗杆有效工作长度
%蜗杆转角循环
for fi0=0:0.0025:45*pi/180;
fi1=fi0*i10;
x=[];
y=[];
z=[];
n=1;
%母平面参数沿蜗杆径向循环
for u=150:1:250;
v=(1/i10*u*cos(beta)+sin(beta)*(u*cos(fi0)+rb*sin(fi0)-A0))/sin(fi0);
x0=u;
y0=v*sin(beta)-rb;
z0=v*cos(beta);
x1=(-cos(fi1)*cos(fi0))*x0+(cos(fi1)*sin(fi0))*y0+(-sin(fi1))*z0+cos(fi1)*A0
y1=(sin(fi1)*cos(fi0))*x0+(-sin(fi1)*sin(fi0))*y0+(-cos(fi1))*z0-sin(fi1)*A0
z1=(-sin(fi0))*x0+(-cos(fi0))*y0
r=sqrt((A0-sqrt(x1^2+y1^2))^2+z1^2);
%齿面条件限制
if r<rf1&r>ra1&abs(z1)<L/2+10;
x(n)=x1;
y(n)=y1;
z(n)=z1;
n=n+1;
end
end
%画一包时瞬时接触线
plot3(x,y,z);
hold on ;
end
axis equal;
axis([-100,100,-100,100,-100,100]);
X1=[0 0];
Y1=[0 0];
Z1=[-200 200];
plot3(X1,Y1,Z1,'r');
hold on; |
评分
-
1
查看全部评分
-
|