In article <nnd$6e563037$12f16139@08b1045f14ba952c>,
none) (albert <albert@cherry.> wrote:
I have a milling setup on my lathe. (Emco Maximat VP10)
The motor spins at 1380 rpm.
The spindle speeds are 350 640 780 and 1450.
Derive a possible (probable) configuration of gears with
their tooth count.
Hints:
do not expect gears with more than say 30 teeth
[This is an approximate problem, if you had to calculate gears
for thread cutting at the lathe, ratio's are fixed. ]
Finding an approximation for e.g. 350:1380 (milling setup)
was supposed to be an example of continued fractions.
1380 350 .CF
3 1 16 2 |10
This are the coefficients with 10 the greatest common divider.
Going back is easy enough
\\: 3 \\
OK
2DUP frac
1/3 OK
1 \\
OK
2DUP frac
1/4 OK
16 \\
OK
2DUP frac
17/67 OK
2 \\
OK
2DUP frac
35/138 OK
So feeding back the coefficients to \\: and \\ finds
approximations with increasing precision.
The words are not complicated.
\ For A B print its continued fraction and the GCD.
: .CF SWAP BEGIN OVER /MOD . DUP WHILE SWAP REPEAT DROP &| EMIT . ;
\ Leave START value for convergents.
: \\: 0 1 1 0 ;
\ For CONV1 CONV2 incorporate N (cf term), return CONV2 CONV3
: \\ >R 2SWAP 2OVER R@ * SWAP R> * SWAP D+ ;
You know the coefficients of sqr(3) : 1 1 2 1 2 1 2 ..
\\: 1 \\ 1 \\ 2 \\ 1 \\ 2 \\ 1 \\ 2 \\ 1 \\ 2 \\ 1 \\ 2 \\
1 \\ 2 \\ 1 \\ 2 \\ 1 \\ 2 \\ 1 \\ 2 \\ 1 \\ 2 \\
OK
2DUP frac
1542841/2672279 OK
Now check it
SQ SWAP SQ 2 + SWAP
OK
2DUP . .
2380358351281 7141075053843 OK
/MOD . .
3 0
The fraction was 2 units in 12 digits precise.
[Leaving the printing of fraction and SQ to the imagination
of the reader.]
Groetjes Albert
--
Don't praise the day before the evening. One swallow doesn't make
spring. You must not say "hey" before you have crossed the bridge.
Don't sell the hide of the bear until you shot it. Better one bird in
the hand than ten in the air. - the Wise from Antrim -
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)