daoju_gonge.m

vb与matlab混合编程的例子

function daoju_gonge(z,x,m,ha,c,b)
%输入：z=20,a=20,x=0,m=10,ha=1,c=0.25，b=10（宽度）
%%刀具与齿轮啮合渐开线段
%1齿轮部分
%z=20;
a=pi*20/180;
%x=0;m=10;
r1=m*z/2;
%c=0.25;ha=1;
b1 =c/(1-sin(a)) ;
%r =(m*z/2)*cos(a);
%fi1=0.23260454787975;
%fi2=0.389684787976;
fi1=2/z*(pi/4-ha*tan(a)-(ha-x)/tan(a));
fi2=2/z*(ha*tan(a)+pi/4+(ha+x)/tan(a));
fi=linspace(fi1,fi2,50);
x2=m*((1/(tan(a)+1/tan(a))*(fi*z/2-pi/4+x*tan(a))-x)*tan(a)+pi/4);
y2= m/(tan(a)+1/tan(a))*(fi*z/2-pi/4+x*tan(a));
x1=(x2-r1.*fi).*cos(fi)+(y2+r1).*sin(fi);
y1=-(x2-r1.*fi).*sin(fi)+(y2+r1).*cos(fi)-r1;
z1=linspace(0,b,30);
z2=linspace(0,b,30);
[X1,Z1]=meshgrid(x1,z1);
[Y1,Z1]=meshgrid(y1,z1);
figure(1)
%subplot(2,1,1)
surf(X1,Z1,Y1)
%刀具部分
[X2,Z2]=meshgrid(x2,z2);
[Y2,Z2]=meshgrid(y2,z2);
%subplot(2,1,2)
%figure(2)
hold on
surf(X2,Z2,Y2)
hold off
%light
shading interp
%刀具与齿轮啮合过渡曲线段

%fi3=-0.23260478795;
%fi4=0.389684587976;
fi3=2/z*(pi/4-ha*tan(a)-b1*cos(a))-0.00000000000001 ; %%消除图片中的毛刺
fi4=2/z*(pi/4-ha*tan(a)-(ha-x)/tan(a));
fi5=linspace(fi3,fi4,50);
x3=m*(pi/4-ha*tan(a)-b1*cos(a));
y3=m*(x-ha+b1*sin(a));
x4=x3+b1*m.*cos(atan(y3./(x3-r1.*fi5)));    %刀具方程
y4=y3+b1*m.*sin(atan(y3./(x3-r1.*fi5)));
x5=(x4-r1.*fi5).*cos(fi5)+(y4+r1).*sin(fi5);%齿轮方程
y5=-(x4-r1.*fi5).*sin(fi5)+(y4+r1).*cos(fi5)-r1;
z3=linspace(0,b,30);
z4=linspace(0,b,30);
figure(2)
%hold on
[X4,Z3]=meshgrid(x4,z3);
[Y4,Z3]=meshgrid(y4,z3);
surf(X4,Z3,Y4)
%hold off
hold on
%figure(3)
[X5,Z4]=meshgrid(x5,z4);
[Y5,Z4]=meshgrid(y5,z4);
surf(X5,Z4,Y5)
hold off
%light
shading interp