久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機械社區

標題: 求直廓環面蝸桿實際車削步驟 [打印本頁]
作者: lingcheng    時間: 2014-5-29 08:28
標題: 求直廓環面蝸桿實際車削步驟
包括車刀類型，材質，主軸轉速等，求大神帶
5 C+ ]/ v" Q4 u1 B
作者: lingcheng    時間: 2014-5-29 08:29
學生做論文，找不到資料，尷尬
作者: 希望54    時間: 2014-5-29 09:45
書上大把啊，機械切削手冊里。
作者: lingcheng    時間: 2014-5-29 09:46
希望54 發表于 2014-5-29 09:45
: v: d% ~0 e2 a- N, N書上大把啊，機械切削手冊里。
7 m# H, y! m4 p' a4 \
謝謝我去看看
4 `5 }8 ~2 a6 L
作者: 東海fyh126    時間: 2014-5-29 10:31
找龍九吧，，，，，，，
作者: lingcheng    時間: 2014-5-29 14:53
東海fyh126 發表于 2014-5-29 10:31 4 p: F3 w! ]2 p. ?
找龍九吧，，，，，，，
5 l% H: Z3 U% [$ v; d( @
大神求帶啊，關于實例車削直廓環面蝸桿，包括齒根和齒頂- r  U$ w- G/ F4 w. p: q+ T

2 h0 F2 F. g" ^2 D  r: ]8 h! d
, v# k/ x. o8 S# A
作者: lingcheng    時間: 2014-5-29 17:09
lingcheng 發表于 2014-5-29 14:53 * Q) W/ m5 i0 y; {8 G- ~: _
大神求帶啊，關于實例車削直廓環面蝸桿，包括齒根和齒頂
! z9 c8 ]) T  j6 Q
關鍵是我不認識啊，剛申請的號，新人
2 P; Y* ]; E1 }5 w
作者: lingcheng    時間: 2014-5-29 17:11
東海fyh126 發表于 2014-5-29 10:31
' K1 C  t+ q2 J找龍九吧，，，，，，，

& w" c4 A* B- I- _) Y* L9 U新手，不認識人。求帶啊
+ h$ Z2 Z* ]/ H' f- o1 Q* X
作者: 東海fyh126    時間: 2014-5-29 17:13
lingcheng 發表于 2014-5-29 17:11
) b! I3 v9 L6 v- z/ Z新手，不認識人。求帶啊

$ d0 m4 v( c1 D9 J0 p; u2 r這個涉及到人家飯碗的問題，確實不好弄啊。。。。。。。
作者: lingcheng    時間: 2014-5-29 18:34
東海fyh126 發表于 2014-5-29 17:13 ! T5 c' b4 p4 h
這個涉及到人家飯碗的問題，確實不好弄啊。。。。。。。

) u* z4 F0 j. ~我大四畢業論文，實在圖書館沒東西。捉急啊# O# B0 x8 l) r8 Q
作者: 東海fyh126    時間: 2014-5-29 18:38
lingcheng 發表于 2014-5-29 18:34
. e7 k1 I! ~& a6 _6 |, t2 [, {我大四畢業論文，實在圖書館沒東西。捉急啊
3 B( D  f2 i+ z- O3 S/ Y
簡單點說就是角相位和進刀量的函數關系問題，，，，，，，，
作者: lingcheng    時間: 2014-5-29 18:40
東海fyh126 發表于 2014-5-29 18:38
* l. S. b3 D/ O4 \& ?, ^簡單點說就是角相位和進刀量的函數關系問題，，，，，，，，
! `" G: ^( x0 D& m4 M
你也是大神啊，我有刀具軌跡的MATLAB代碼，但是看不懂，尷尬
* h6 c$ m( P* W, X* \* L
作者: lingcheng    時間: 2014-5-29 18:57
lingcheng 發表于 2014-5-29 14:53 8 M0 |, J* Q; ~: L$ Y
大神求帶啊，關于實例車削直廓環面蝸桿，包括齒根和齒頂
6 i3 I5 b* s- V; J
大神帶我飛吧9 i$ ?3 V# I- L. \4 |; i
作者: lingcheng    時間: 2014-5-29 18:58
function worm3  X) ^+ O& ]/ s
clear7 \$ L, N7 s2 e) y8 ]: k" S" U3 c6 ^
clc
/ A* Y3 z9 I/ a( K5 Z9 H- s, Oa=240.65;%中心距7 [3 j+ i( N3 ~  Z& v
z1=1;%蝸桿頭數
) V) S& J8 h' y% n' t& Oz2=40;%齒輪齒數
8 W& d0 T  p( O+ h) t2 }$ l" p1 Ri12=z2/z1;%傳動比# `% O/ j' {' X) N' B0 S' O
zc=4;%蝸桿包圍蝸輪齒數: h' ^( q# s( e+ t+ z
d1=80;%蝸桿分度圓直徑0 N* |) a& {. X0 I: b
d2=2*a-d1;%蝸輪分度圓直徑3 B$ K4 _6 E/ h4 _# y5 R4 W# g
mt=d2/z2;%蝸輪端面模數  W* a8 h, F6 Y- v# x, e
da2=417.36;%蝸輪齒頂圓直徑2 ^8 \& `' q' ?2 @
df2=381.24;%蝸輪齒根圓直徑- ~1 x' q5 D3 t4 B9 c
ha=(da2-d2)/2;%齒頂高
3 H2 N. L1 x5 ?. t: C+ B1 Ihf=(d2-df2)/2;%齒根高: y& K# b& j) j% ~6 a7 `  U5 @
da1=d1+2*ha;%蝸桿頂圓直徑
, O  F: g8 L$ Z7 p3 Bdf1=d1-2*hf;%蝸桿根圓直徑
0 K0 o3 }- @; a. l$ h. URf1=a-df1/2;%蝸桿齒根圓弧半徑& e# E6 G6 Z$ q2 h* G  r0 @# r: j. J
Ra1=a-da1/2;%蝸桿齒頂圓弧半徑7 W1 ^- m  {  `+ F) w# ?
gama=atan(d2/d1/i12);%蝸桿喉部分度圓導程角& G( M' Z4 H- t, r2 f% D
tau=2*pi/z2;%齒距角, ^* D4 \9 q5 N+ x
db=153;%主基圓直徑
; ~  q( S5 x$ Malpha=asin(db/d2);%蝸輪分度圓壓力角$ s& f7 p. z, k3 I. w$ V
phi_w=0.5*tau*(zc-0.45);%蝸桿包圍蝸輪的工作半角+ N0 J6 y$ @. D, R4 X# U
phi_0=alpha-phi_w;%工作起始角( Y0 s" |2 c( S! o! k6 A+ B4 K& [
Lw=d2*sin(phi_w);%蝸桿工作部分長度
# u6 R/ Z. x( a- o9 k' gbeta=11/180*pi;%母平面傾斜角0 c8 z4 L2 q# N+ Z
phi0min=phi_0;
" h8 Y" i0 H; v* L7 f( Ophi0max=phi_0+2*phi_w;
) P4 n7 }8 w1 Q3 iu0=((d2/2)^2-(db/2)^2)^0.5;
% u# [% E& X- M- Hphi0=linspace(phi0min,phi0max,300);  ]0 s2 m0 d& i
R=linspace(Ra1,Rf1,10);+ x" ^6 d2 R- D
phi1=phi0.*i12;. \- z0 a( G: r! Y' w2 i
cath=2*alpha+162/z2/180*pi;
, A& n; A8 o. T  @' V8 V0 I3 m5 a: ?5 ?
%預設矩陣3 i! \+ R+ t. x: @
u1=zeros(length(phi0),length(R));v1=zeros(length(phi0),length(R));%甲面參數7 P: |4 _: R! ~; S6 }' A) U* K) Y
x01=zeros(length(phi0),length(R));y01=zeros(length(phi0),length(R));z01=zeros(length(phi0),length(R));%甲面的平面
3 Q0 k6 I- S4 dx11=zeros(length(phi0),length(R));y11=zeros(length(phi0),length(R));z11=zeros(length(phi0),length(R));%蝸桿甲面0 m$ R# ^6 m3 D
x13=zeros(length(R),length(phi0));y13=zeros(length(R),length(phi0));z13=zeros(length(R),length(phi0));%甲面的螺旋線形式
# n/ ^. \/ L) H6 jtheta1=zeros(length(R),length(phi0));R1=zeros(length(R),length(phi0));Z1=zeros(length(R),length(phi0));%甲面的加工參數
, R. _% D4 Y7 q, S" q( t/ l( L& k$ K0 Z
u2=zeros(length(phi0),length(R));v2=zeros(length(phi0),length(R));%乙面參數
, E( d# H7 Y, Ix03=zeros(length(phi0),length(R));y03=zeros(length(phi0),length(R));z03=zeros(length(phi0),length(R));%乙面的平面+ \% t+ A0 c, m' ?  n/ o
x02=zeros(length(phi0),length(R));y02=zeros(length(phi0),length(R));z02=zeros(length(phi0),length(R));%乙面的平面- ~4 [5 Y! B, {. M! b8 t
x12=zeros(length(phi0),length(R));y12=zeros(length(phi0),length(R));z12=zeros(length(phi0),length(R));%蝸桿乙面
6 K$ b0 X) E) a4 |, x* O% v4 n, U1 |2 Nx14=zeros(length(R),length(phi0));y14=zeros(length(R),length(phi0));z14=zeros(length(R),length(phi0));%甲面的螺旋線形式
. s9 g$ q1 v8 m8 \, j2 Ltheta2=zeros(length(R),length(phi0));R2=zeros(length(R),length(phi0));Z2=zeros(length(R),length(phi0));%甲面的加工參數* [2 p. U$ h! M" C

2 S: f% L" s3 M0 n0 F& nfigure(1)
: d$ V5 j  `1 p" L$ z  \for i=1:length(phi0)
6 z3 u* N+ P, L0 @1 c    for j=1:length(R)
, }1 u) p. i, |        f1=@(x)[(a-((x(1)*cos(phi0(i))-(x(2)*sin(beta)-db/2)*sin(phi0(i))-a)^2+(x(2)*cos(beta))^2)^0.5)^2+(x(1)*sin(phi0(i))+(x(2)*sin(beta)-db/2)*cos(phi0(i)))^2-R(j)^2;(x(1)*(cos(beta)/i12+sin(beta)*cos(phi0(i)))+(db/2*sin(phi0(i))-a)*sin(beta))/sin(phi0(i))-x(2)];8 u5 u# }9 g5 F3 Q
        options=optimset('Display','off','TolFun',1e-7);
  u" r2 ^8 g1 c; B4 [7 M1 Y        x0=[u0 0];
5 D) \" B; W- |+ X( W8 y        x=fsolve(f1,x0,options);& k2 x) f' T! F) d( O# [  g( j
        u1(i,j)=x(1);$ \/ s8 w- Q  \. ]' U
        v1(i,j)=x(2);
) K. q6 |! E+ k        x01(i,j)=u1(i,j);
; ]$ c! U' O6 o/ Y1 G3 r: c        y01(i,j)=v1(i,j).*sin(beta)-db/2;# k1 R( O8 ?9 Z* l3 ^* d6 n* @
        z01(i,j)=v1(i,j).*cos(beta);  v$ R8 }, Y. G9 F( s0 ^
        x11(i,j)=-cos(phi1(i)).*cos(phi0(i)).*x01(i,j)+cos(phi1(i)).*sin(phi0(i)).*y01(i,j)-sin(phi1(i)).*z01(i,j)+a.*cos(phi1(i));+ i# n4 d: w+ W% |
        y11(i,j)=sin(phi1(i)).*cos(phi0(i)).*x01(i,j)-sin(phi1(i)).*sin(phi0(i)).*y01(i,j)-cos(phi1(i)).*z01(i,j)-a.*sin(phi1(i));" x& [  b4 m. U' O  @4 y
        z11(i,j)=-sin(phi0(i)).*x01(i,j)-cos(phi0(i)).*y01(i,j);
# d/ U* z  d$ f) {    end
  H0 p6 U) ^2 F. G' ]4 s    plot3(x11(i,,y11(i,,z11(i,,'r')
: U% g, D+ c. B+ k" n    hold on
, S& r- O$ d( i/ W. ]end
) X; K+ c/ w/ H9 d5 Q+ oaxis equal
$ Y2 Z* S$ y$ V# U
# T8 z% I* X! K$ E1 Tfigure(1)
$ A1 O2 E' Q2 Q* }1 d+ Tfor i=1:length(phi0)! }) r' G5 {! b. C# J. g
    for j=1:length(R)& X2 |% s- S7 h, o% {1 q
        f2=@(x)[(a-(((x(1)*cos(cath)+(x(2)*sin(beta)+db/2)*sin(cath))*cos(phi0(i))-(-x(1)*sin(cath)+(x(2)*sin(beta)+db/2)*cos(cath))*sin(phi0(i))-a)^2+(x(2)*cos(beta))^2)^0.5)^2+((x(1)*cos(cath)+(x(2)*sin(beta)+db/2)*sin(cath))*sin(phi0(i))+(-x(1)*sin(cath)+(x(2)*sin(beta)+db/2)*cos(cath))*cos(phi0(i)))^2-R(j)^2;(x(1)*(cos(beta)/i12+sin(beta)*cos(phi0(i)-cath))+(-db/2*sin(phi0(i)-cath)-a)*sin(beta))/sin(phi0(i)-cath)-x(2)];
2 ]: v& A9 P2 T4 [1 {        options=optimset('Display','off','TolFun',1e-7);
4 s3 n" p; P3 ^6 x1 \  h' G, P6 W        x0=[u0 0];* W/ {* ]/ b% J( F$ b- h0 v
        x=fsolve(f2,x0,options);7 i9 ^6 D2 S4 X6 Y
        u2(i,j)=x(1);
% U0 g/ i- Z2 E  X  G        v2(i,j)=x(2);6 {; _2 c* i6 E
        x03(i,j)=u2(i,j);- J; i5 v  B4 J) w
        y03(i,j)=v2(i,j).*sin(beta)+db/2;
' {$ x# P) A* B2 }0 R5 @        z03(i,j)=v2(i,j).*cos(beta);5 ^9 }1 [# O7 q* c
        x02(i,j)=x03(i,j).*cos(cath)+y03(i,j).*sin(cath);
) Q; J) R, T3 ^) `+ t7 ]- k        y02(i,j)=-x03(i,j).*sin(cath)+y03(i,j).*cos(cath);$ D: Y/ Q1 _; j6 _& z+ m( F; I
        z02(i,j)=z03(i,j);
: X- n1 m8 _  s$ t, N, h1 n        x12(i,j)=-cos(phi1(i)).*cos(phi0(i)).*x02(i,j)+cos(phi1(i)).*sin(phi0(i)).*y02(i,j)-sin(phi1(i)).*z02(i,j)+a.*cos(phi1(i));
) [  g4 v6 S' D1 z        y12(i,j)=sin(phi1(i)).*cos(phi0(i)).*x02(i,j)-sin(phi1(i)).*sin(phi0(i)).*y02(i,j)-cos(phi1(i)).*z02(i,j)-a.*sin(phi1(i));/ ]) X7 C; z' ?
        z12(i,j)=-sin(phi0(i)).*x02(i,j)-cos(phi0(i)).*y02(i,j);0 `7 q: }3 h1 N! P9 h8 D
    end
6 [# \2 k" o, N  b0 ^- T. X9 O    plot3(x12(i,:),y12(i,:),z12(i,:))
3 r* l$ ?  U; [# n    hold on
$ s$ ?8 W9 p3 b: Q3 lend1 a1 B$ C# \: L: h; _) m, m
axis equal& k$ i7 z5 X* a

7 o! b- P% L* p; }2 _1 \  tfigure(2)
4 M- }: w9 b4 M( V9 ?% tfor j=1:length(R) ; ~/ j1 a0 c# ]2 K+ N# x6 \
    plot3(x11(:,j),y11(:,j),z11(:,j),'r')
" B3 G/ F2 P: X    hold on
6 L0 Y  m9 [5 p: P& fend
, R* P9 T6 g/ G$ _* Aaxis equal
  n6 g& z: c! Sfigure(2)9 U) U. J3 \5 j2 j$ p, ~& [
for j=1:length(R)
, W! C2 h6 m* C4 f    plot3(x12(:,j),y12(:,j),z12(:,j))
4 B, Y( E8 V4 w: k' ^    hold on+ {0 N; r& \' {1 I
end/ N6 {* W# R$ |: Y" J. T; E: q
axis equal( ]; v: h" J0 S' n
9 x' u5 k* |) h3 I7 |1 R
x13=x11';%轉換為螺旋線的格式/ S1 T5 @- b- k, U+ B7 t  J. W' L
y13=y11';: [' R- J9 g1 e1 V
z13=z11';$ P$ h2 O6 u: s( |6 D1 c
x14=x12';" w" ^2 U% J. `3 ?4 P& z
y14=y12';8 x/ o4 A" D' ]+ V
z14=z12';
( ^+ Q9 ?; x. e8 g: F5 ]; p
: _8 d# J; P3 I- y& Z$ |for i=1:length(R)+ g- A& m" V0 e
    for j=1:length(phi0)% U; P; q8 m7 \5 E. o
        theta1(i,j)=cal_theta(x13(i,j),y13(i,j))/pi*180;+ n( M: y, c6 U( k
        R1(i,j)=(x13(i,j)^2+y13(i,j)^2)^0.5;%車床X方向為直徑值
. E4 P9 H1 x6 Z$ C% L        Z1(i,j)=z13(i,j);" d& c% S. `6 p. j! E
        theta2(i,j)=cal_theta(x14(i,j),y14(i,j))/pi*180;$ P+ j7 R' ?1 n6 u! t+ F2 s7 z
        R2(i,j)=(x14(i,j)^2+y14(i,j)^2)^0.5;; K4 \9 V  `" W: T. ~
        Z2(i,j)=z14(i,j);4 Y1 `0 d5 ^7 z: E
    end
3 K, o: [5 B! _% h; a7 {8 A: aend
" r8 H# J5 U. o5 G: f  H" x
; E2 a+ h, {- F1 b! O%角度轉換為絕對式' a  r/ y) w3 ]/ q6 ^* V/ l, l5 _
for  i=1:length(R)# H: e  Z& q+ i+ `# R. @
    for j=1length(phi0)-1)5 g, r3 n* k+ H9 \
        if theta1(i,j+1)<theta1(i,j)
8 E; [5 `/ \& B4 x+ f8 ~- W            for k=(j+1):length(phi0)
& [7 m  Y& t) j1 b/ Z                theta1(i,k)=theta1(i,k)+360;; y: J+ }) z/ }) B0 }) W: F
            end7 A+ ?3 x; c/ \. L) k4 }0 f
        end1 q+ o& Y% M: ^  G: r' v' ^
         if theta2(i,j+1)<theta2(i,j)! B; o! _! m  }+ i8 H; K* K' j7 m
            for k=(j+1):length(phi0)
( \* v6 L. T% [; C$ j8 g2 S                theta2(i,k)=theta2(i,k)+360;
0 J- p! @$ d9 u2 O( L            end
4 L  K' P* V  t* K5 D& L/ [1 D        end# B! `5 v: \5 q) r5 E$ F( h2 d4 z
    end+ O1 L4 b/ I. \( [* R% {9 O
end8 N) w1 _: m3 h

6 A" f$ P6 f; r0 Qassignin('base','X1',R1)+ d  v: W) M  V8 a& l0 g
assignin('base','Z1',Z1)
( l: W- A; R, q2 |) n2 T$ U$ Rassignin('base','C1',theta1)
$ W9 Q- f% i: S( a+ }assignin('base','X2',R2)# d7 c% W9 P7 k+ H/ M
assignin('base','Z2',Z2)9 r& }/ H# u' L- w1 i7 f9 p, H+ t
assignin('base','C2',theta2)( F2 j4 W" c* F) n2 _7 Q
/ r" e  X! [6 u
%G代碼的輸出
% }) P) y9 m& a' q3 ~8 Y% fid=fopen('turncode.txt','wt');* m# K9 q6 @% u. {# X6 @# E  X
% fprintf(fid,'O0001\n');8 k3 ]+ [6 l8 a% g
% for  i=1:length(R)% S3 k5 Q2 d7 L4 |' H$ D4 k- T; G/ `
%     for j=1:length(phi0)1 B8 I1 G+ f6 e1 m
%         fprintf(fid,'X=%0.4f\t',R1(i,j))- z8 u3 Z" O" [, K5 {
%         fprintf(fid,'Z=%0.4f\t',Z1(i,j))
# ~; w' s2 t4 e%         fprintf(fid,'C=%0.4f\n',theta1(i,j))
! i! ^# z) c# f" D% Y% N%     end6 ^7 j& z9 z/ T0 L: @
% end+ N+ n* f, x4 ?4 K) d. a; n6 x7 R

3 y* y' ?' k& K/ j# L* w( [
# b, S) ?3 s+ n8 N5 J, m
1 I; a/ w1 h% i* j
: V& y$ Z0 `& D7 H% Y8 Yfunction theta=cal_theta(x1,y1)! K" ~7 U7 J7 C( P: i' x) g1 M8 q& ?
if (x1>0)&&(y1<0)
$ ^! y6 a) y. L    theta=acos(x1./(x1^2+y1^2)^0.5);%電機轉是角度還是弧度？/ ]8 B  J) H+ L8 G
elseif (x1<0)&&(y1<0);' ^  I0 Z$ y3 }3 q# h' G( [2 `
theta=acos(x1./(x1^2+y1^2)^0.5);5 I2 \- u, c0 v2 d
elseif (x1<0)&&(y1>0);
5 G+ k3 |' X2 `5 ]    theta=2*pi-acos(x1./(x1^2+y1^2)^0.5);
* u) S% H* d% G9 K# Z0 z3 aelseif (x1>0)&&(y1>0);6 `% j. V# L- W8 Q# N, L  S( W3 {, T
    theta=2*pi-acos(x1./(x1^2+y1^2)^0.5);2 z7 k( g7 Z, D5 \  ^1 ^, L
elseif (x1>0)&&(y1>0);- q' q; C$ ~: \1 J# d: Q
    theta=2*pi-acos(x1./(x1^2+y1^2)^0.5);
2 f: Z( q5 r9 ~0 @" M9 Zelseif (x1>0)&&(y1==0);5 C' Z% u' P& }+ o5 y" j1 Y
    theta=0;( O: i; W$ C+ }1 z
elseif (x1<0)&&(y1==0);7 v# ~- O. ~1 r6 W. D
    theta=pi;0 T9 Q1 i* |5 v; e6 E
elseif (x1==0)&&(y1<0);; B1 n! }7 ^: m5 P& s
    theta=pi/2;8 p  h5 c) y5 q7 Q: u6 o
elseif (x1==0)&&(y1>0);
1 A3 \' ]% I3 P9 Z! L    theta=3*pi/2;
+ x5 Q3 O; Z9 E4 L2 H% J+ tend
作者: 東海fyh126    時間: 2014-5-29 22:26
我也看不懂，，，，，
作者: jxcrxssh    時間: 2014-6-27 22:00
看了頭暈，有這么復雜，算了路過！/ Z( n& [8 t: `! l/ K# M: ?
作者: car1982    時間: 2014-6-28 09:32
不懂
5 b$ [2 J4 G- Q  r; G% I& R& j. Q4 q7 R+ g

7 N8 [  j+ u2 b( j3 O



歡迎光臨 機械社區 (http://www.ytsybjq.com/) Powered by Discuz! X3.5