P5_gear_sol.nb - Apply@Clear, Names@"Global`*"DD;...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Apply @ Clear, Names @ "Global` * " DD ; Off @ General:: spell D ; Off @ General:: spell1 D ; m = 10; H * module * L N1 = 28; N2 = 21; N4 = 16; r1 = m * N1 ê 2; r2 = m * N2 ê 2; r3 = r1 + 2 * r2; r4 = m * N4 ê 2; r5 = r1 + r2 + r4; Print @ "r1 = ", r1, " mm" D ; Print @ "r2 = ", r2, " mm" D ; Print @ "r3 = ", r3, " mm" D ; Print @ "r4 = ", r4, " mm" D ; Print @ "r5 = ", r5, " mm" D ; N3 = 2 * r3 ê m; N5 = 2 * r5 ê m; Print @ "N3 = ", N3 D Print @ "N5 = ", N5 D n1 = 370.; H * rpm * L n2 = - N1 * n1 ê N2; Print @ "n2 = - N1 n1 ê N2 = ", n2, " rpm" D n4 = n2; Print @ "n4 = n2 = ", n2, " rpm" D n5 = N4 * n4 ê N5; Print @ "n5 = N4 n4 ê N5 = ", n5, " rpm" D a = m; phi = N @ Pi D ê 9; Print @ " =========================== " D ; Print @ " === exterior gears: 1 - 2 === " D ; rb1 = r1 Cos @ phi D ; rb2 = r2 Cos @ phi D ; ra1 = r1 + a; ra2 = r2 + a; Print @ "ra1 = ", ra1, " mm" D ; Print @ "ra2 = ", ra2, " mm" D ; c12 = r1 + r2; Print @ "c12 = ", c12, " mm" D ; ramax1 = Sqrt @ rb1^2 + c12^2
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 3

P5_gear_sol.nb - Apply@Clear, Names@"Global`*"DD;...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online