Файл: С.А. Рябов Расчет и проектирование коробок скоростей при помощи ЭВМ.pdf

14

GOTO 15 25 s = s + 1 GOTO 10

30 n = i: m = 1

j = 1: DIM p(n)

35 IF j > n THEN GOTO 45

IF k(j) - 3 < 0 THEN GOTO 40 l = k(j)

k(j) = k(m) k(m) = l m = m + 1

40 j = j + 1 GOTO 35

45 PRINT "Разложение числа s = "; w = 1

FOR i = 1 TO n

p(i) = k(i): PRINT p(i);

IF i < n THEN PRINT "*"; w = w * i

NEXT i

PRINT "Для продолжения нажмите [Enter]"; : INPUT klavisha$: CLS PRINT : PRINT "Определение характеристики группы передач - h"

15

IF l = n THEN GOTO 90

85 SWAP Hl(m), Hl(m - 1): m = m - 1: 'PRINT "обмен местами Hl(m) и Hl(m - 1)" 90 k = k + 1: l = 1

95 h(j, l) = Hl(l): l = l + 1

IF l = n + 1 THEN j = j + 1 ELSE GOTO 95

IF k > l - 1 OR k = l - 1 THEN l = l - 1 ELSE GOTO 85 IF l = k THEN m = m + 1 ELSE GOTO 80

IF j = n THEN m = m - 1 IF m = u THEN m = m + 1 u = m

IF j > w THEN GOTO 100

IF m = n + 1 THEN GOTO 100 GOTO 50

100 FOR u = 1 TO j - 1 FOR i = 1 TO n PRINT h(u, i); NEXT i

PRINT " ", u

IF u / 20 = INT(u / 20) THEN PRINT "Для продолжения нажмите [Enter]" ELSE GOTO 103

PRINT "Но если вы увидели интересующий вас вариант, то нажмите 1 и

[Enter]";

INPUT klavisha$

IF klavisha$ = "1" THEN GOTO 105 ELSE CLS 103 NEXT u

105 PRINT "Теперь выберите № варианта (из предложенных) характеристики " INPUT "передач , который необходимо рассчитать "; u: u = INT(u + .5): e = u IF u > j - 1 THEN GOTO 105 ELSE CLS

PRINT "Итак вы выбрали вариант №"; u; "( h ="; FOR i = 1 TO n

PRINT h(u, i);

IF i = n THEN PRINT ")"; ELSE PRINT "*"; NEXT i

PRINT : PRINT "Вычисление характеристики всей цепи и ее разложение" Umax = nmax / nmin: DIM hmax(n)

hmax = ((LOG(Umax) / LOG(10)) / (LOG(y) / LOG(10))): hmax = INT(hmax) PRINT "hmax="; hmax; "=";

110 ih = hmax / n: ih = INT(ih + .5): iz = ih * n: id = hmax - iz j = 1

115 IF j > n THEN GOTO 120 hmax(j) = ih

j = j + 1: GOTO 115 120 j = 1

125 IF j > n THEN GOTO 135

16

IF id = 0 THEN GOTO 130 hmax(n - j + 1) = hmax(n - j + 1) - 1 id = id + 1

130 j = j + 1: GOTO 125 135 j = 1

140 IF j > n THEN GOTO 150 o = INT(y ^ hmax(j) + .5)

IF o < 4 OR o = 4 THEN j = j + 1 ELSE GOTO 145 GOTO 140

145 hmax = hmax - 1 nd = nmin * y ^ hmax

GOTO 110

150 FOR i = 1 TO n PRINT hmax(i);

IF i < n THEN PRINT "+"; NEXT i

PRINT "Для продолжения нажмите [Enter]"; : INPUT klavisha$: CLS PRINT : PRINT "Расчёт передаточных отношений Uij , где :" PRINT " j - номер передачи в группе"

PRINT " i - номер группы": PRINT DIM u(n, n)

FOR i = 1 TO n FOR j = 1 TO p(i)

u(i, j) = y ^ hmax(i) / y ^ ((j - 1) * h(u, i)) PRINT "U"; i; j; "="; u(i, j)

NEXT j PRINT NEXT i

PRINT "Для продолжения нажмите [Enter]"; : INPUT klavisha$: CLS PRINT "Построение матрицы частот вращения": w = 1

FOR i = 1 TO n w = w * p(i) NEXT i

DIM n(n, w): u = 1: q = n: l = n FOR j = 1 TO p(1)

n(1, j) = nd / u(1, j)

PRINT " n"; u; j; "="; INT(n(1, j)); NEXT j

PRINT : PRINT : j = 1: l = 1: q = p(1): u = p(1) FOR k = 2 TO n

FOR t = 1 TO p(k) FOR i = l TO q

'IF u(k, t) = 0 THEN GOTO 155 n(k, i) = n(k - 1, j) / u(k, t)

17

PRINT " n"; k; i; "="; INT(n(k, i)); IF INT(j / 3) = j / 3 THEN PRINT

j = j + 1 NEXT i j = 1

IF t = p(k) THEN GOTO 153 l = q + 1: q = q + u

153 NEXT t

155 PRINT : PRINT : l = 1: u = q NEXT k

PRINT "Для продолжения нажмите [Enter]"; : INPUT klavisha$: CLS PRINT "Определение числа зубьев в каждой паре "

'INPUT "Введите межосевое расстояние"; p DIM z(n, n): DIM xs(n, n)

FOR i = 1 TO n

u = 90 ': IF i = n THEN u = 92 FOR j = 1 TO p(i)

NT = 10

157 z(i, j) = u(i, j) * NT / (u(i, j) + 1) zs(i, j) = NT / (u(i, j) + 1)

uij = z(i, j) / zs(i, j): yh = uij ^ (-h(e, i))

IF ABS(yh - y) > .01 THEN GOTO 165 ELSE GOTO 160 160 IF j + 1 > p(i) THEN GOTO 165

z(i, j) = u(i, j + 1) * NT / (u(i, j + 1) + 1): z(i, j + 1) = INT(z(i, j + 1) + .5) zs(i, j) = NT / (u(i, j) + 1): zs(i, j + 1) = INT(zs(i, j + 1) + .5)

u = u + 1: GOTO 170 165 NT = NT + 1

IF NT - u > 0 THEN GOTO 170 ELSE GOTO 157 170 NEXT j

NEXT i

'PRINT "Определение числа зубьев в каждой паре " FOR i = 1 TO n

FOR j = 1 TO p(i)

z(i, j) = INT(z(i, j) + .5) zs(i, j) = INT(zs(i, j) + .5)

PRINT "Z"; i; j; "="; z(i, j); : PRINT " Z'"; i; j; "="; zs(i, j); " " NEXT j

PRINT NEXT i END.

18

3. ТРЕБОВАНИЯ К ОТЧЕТУ

Отчет оформляется в соответствии с требованиями к текстовым документам и должен содержать исходные данные для расчета, общую блок схему расчета, распечатку программы и результатов расчета, выводы.

4. СПИСОК РЕКОМЕНДУЕМОЙ ЛИТЕРАТУРЫ

1. Пуш В.Э. Конструирование металлорежущих станков. –М.: Машиностроение, 1977. – 392 с.

2.Металлорежущие станки и автоматы: Учеб. для машиностроительных втузов / Под ред. А.С. Проникова. – М.: Машинострое-

ние, 1981. – 497 с., ил.

19

Составители Сергей Александрович Рябов

Константин Алексеевич Павловец Андрей Александрович Цехин Игорь Владимирович Шемчук

РАСЧЕТ И ПРОЕКТИРОВАНИЕ КОРОБОК СКОРОСТЕЙ ПРИ ПОМОЩИ ЭВМ

Методические указания к выполнению практических работ по курсу "Конструирование, расчёт и САПР станков и станочного комплекса" для студентов по специальности 120200 “Металлорежущие станки и инструменты”

Редактор З.М. Савина

ЛР № 020313 от 23.12.96

Подписано в печать 20.10.2000. Формат 60х84/16.

Бумага офсетная. Отпечатано на ризографе. Уч.-изд.л. 1.00. Тираж 75 . Заказ Кузбасский государственный технический университет.

650026, Кемерово, ул. Весенняя, 28.

Типография Кузбасского государственного технического университета. 650099, Кемерово, ул. Д. Бедного, 4а.