/ j8 X/ h/ r- a$ V. D+ r* a%: Y' j c" |8 r6 M4 h
M3S200T101
- z! f% G2 t2 p0 p1 N7 C3 lG0X100# I% o' {5 c3 j m( O0 I
Z10$ Z8 V7 U$ ^+ X& d$ x4 v1 v% l
G65 P9003
8 W$ f" A2 Q3 F0 hA模數
$ z. D) E0 y8 W7 GB槽底寬 1 Y; h& x) b v b
C齒頂外徑
2 W3 l3 E, D0 M* q( |6 zI 角 度
5 J f2 r2 D9 | K$ lJ 全齒高 @) {- q3 V" T( ^/ @+ @2 \# M- t
K螺紋長度 " r4 a8 D3 K" Y
T 刀寬( u: f. s/ l" w. b% X
F進給
5 I; r! G: L- c: d+ R1 Y: R3 ~, F! CD頭數3 N1 h1 e4 F, H
G0X200 M5- \! C1 v+ v9 u2 U5 g
Z10
! M* F e+ U; K: r) TM30
" ?. A0 [; A" y8 d%
' g$ f1 T4 c; }# c! h/ r(******************************)
3 ]% \# i% L. H$ h3 t% fO9003
$ ^0 \: Z' L$ M2 ^. D/ z. R#100=#4
% K& ?, Z6 n8 O+ f7 Q0 a#28=#5* O8 z5 n! b- Q0 v: f1 {& y
#144=#3 % O ], Y5 ~+ u
IF[#7LE1]THEN#7=1
7 C; K/ S ~! ]/ WIF[#7EQ#0]THEN#7=1: a1 J% u3 o% r8 R/ n) H
#10=#1*3.141593*#73 C5 [8 ?! j. D) i) v/ e0 r
#130=15 i; o, Q! n7 a+ Y
WHILE[#130LE#7]DO1
, A8 V) k3 o+ Y7 @" H8 p) T#131=#10/#7 ' G' G; b) k; `( x, H
#132=#130-1
) S: W9 u* g) i+ m9 `WHILE[#28GE0]DO2
! U; j Z l4 m) o#101=TAN[#100]*#28+#2/2-#20/2 5 e/ ?0 N" _7 X1 M. r0 F$ t
#30=1 + l" o: i1 B" g$ @: ^
WHILE[#30LE2]DO32 Q) B" ^: M6 s6 G5 i p
IF[#30EQ1]THEN#29=ABS[#101]
9 E3 L9 E$ B i. i8 u! k% n1 t( ~9 CIF[#30EQ2]THEN#29=-[ABS[#101]]& B9 H" a9 j* p0 m: p
G0Z[#10/2+#29+#132*#131]0 V. N. }* s% C' O) }& a
X#3
! R7 B% k. u9 P) _! F5 u7 iG32Z-[#6+#1/2]F#10
2 v& ?8 j0 K2 ]4 U! H( P1 }G0X[#1*5+#3]
6 W. r& Y3 t* w) P$ A6 b) E#30=#30+1
; t9 V7 x c( XEND3$ m" F# R1 {8 K1 C0 J
#3=#3-#9*26 q& t5 Y) w9 ~# [$ D7 g
#28=#28-#9& g, e6 X% t8 v' W7 z2 _+ h0 p3 B; v; o( D
END21 a+ s! V6 X. g/ \
#28=#53 R3 o+ Z4 r: J2 T2 v
#3=#144 ; [( F! H# e( r8 f$ b# `% G9 ]
#130=#130+1 ' ^ ^6 ~ ^# ~
END1
% k5 ^% u! n6 U& NM99 ; L; `9 A* l+ ~6 y2 `. @3 u! S- X3 k
% 這里的F進給不是螺距,是每次的切刀深度,一般0.08-0.12左右,根據你齒面粗糙度決定數據大小
9 T! O) ^- l. d! x9 k
! m4 I, D( Y }# h" v
z! X& q' s# J! S
9 c. M( q1 W) Y! G3 \車再大螺距也不會崩刀 |
發表于 2012-5-8 10:41:46
QQ好友和群
QQ空間
