Обучающе-моделирующая программа: Выбор способа закрепления заготовки для обеспечения заданной точности при точении вала (q basic)

CLS

SCREEN 12

PRINT " Лабораторная работа № 2"

PRINT

PRINT " Выбор способа закрепления заготовки для обеспечения"

PRINT " заданной точности при точении вала"

PRINT

PRINT " 1. Расчетная часть"

PRINT

PRINT "Введите данные с чертежа и из справочных таблиц:"

PRINT

INPUT ; "Lзаг = ", Lzag

IF Lzag = 1000 GOTO setka

INPUT ; " Dg min = ", Dg

INPUT ; " Dзаг max = ", Dzagmax

INPUT ; " tфак0 = ", tfac0

INPUT ; " S = ", S

INPUT " Cм = ", Cm

INPUT ; "Sigma в = ", SigmaB

INPUT ; " nv = ", nv

INPUT ; " Knv = ", Knv

INPUT ; " Kuv = ", Kuv

INPUT ; " Kfi v = ", Kfiv

INPUT " Kfi1v = ", Kfi1v

INPUT ; "Krv = ", Krv

INPUT ; " Kqv = ", Kqv

INPUT ; " Kov = ", Kov

INPUT ; " Cv = ", Cv

INPUT ; " m = ", m

INPUT ; " Xv = ", Xv

INPUT " Yv = ", Yv

T = 60

Kmv = Cm * (750 / SigmaB) ^ nv

Kv = Kmv * Knv * Kuv * Kfiv * Kfi1v * Krv * Kqv * Kov

Vp = Cv * Kv / (T ^ m * tfac0 ^ Xv * S ^ Yv)

npaz = 1000 * Vp / (3.141592 * Dg)

PRINT

PRINT , , "Результаты расчета:"

PRINT

PRINT , , "Vp = "; Vp; " (м/мин)"

PRINT , , "n pасч = "; npaz; " (об/мин)"

PRINT

PRINT "Введите из таблицы (паспорта) станка:"

PRINT

INPUT ; "nф = ", nf

INPUT ; " nk = ", nk

INPUT ; " Kfip = ", Kfip

INPUT ; " Kgamma p = ", Kgammap

INPUT ; " Klambda p = ", Klambdap

INPUT " Krp = ", Krp

INPUT ; "Cp = ", Cp

INPUT ; " Xp = ", Xp

INPUT ; " Yp = ", Yp

INPUT " np = ", np

Kg = 1.2

Jct = 2000

Kmp = (SigmaB / 750) ^ nk

Kp = Kmp * Kfip * Kgammap * Klambdap * Krp

Vf = 3.141592 * Dg * nf / 1000

tzad = tfac0 + tfac0 ^ Xp * Cp * Kp * Kg * S ^ Yp * Vf ^ np / Jct

PRINT

PRINT , , "Результаты расчета:"

PRINT

PRINT , , "tзад = "; tzad; " (мм)"

PRINT

PRINT " Нажмите клавишу пробел !"

SLEEP

CLS

PRINT

PRINT " Ожидаемое поле допуска от соотношения размеров детали"

PRINT

PRINT

PRINT

PRINT " Зона консольного закрепления детали в патроне"

LOCATE 27, 10

PRINT "0"

LOCATE 6

PRINT "Delta D,"

PRINT " мм"

LOCATE 27, 65

PRINT " 4 3"

LOCATE 28, 65

PRINT "(D / L ), мм"

DL = Dg ^ 4 / Lzag ^ 3

D4L3 = DL

A = 0: B = tfac0: E = .001

4345 C = (A + B) / 2

FA = A ^ Xp * Cp * Kp * Kg * S ^ Yp * Vf ^ np * (1 / Jct + 1 / (3100 * D4L3)) + A - tzad

FC = C ^ Xp * Cp * Kp * Kg * S ^ Yp * Vf ^ np * (1 / Jct + 1 / (3100 * D4L3)) + C - tzad

IF FA * FC < 0 THEN GOTO 4389

A = C: GOTO 4391

4389 B = C

4391 IF B - A > E THEN GOTO 4345

tfak = (A + B) / 2

dDkritical = 2 * (tzad - tfak)

LOCATE 14

PRINT "Del Dp ="

D$ = STR$(dDkritical)

FOR i = 1 TO LEN(D$)

IF MID$(D$, i, 1) = "." THEN D$ = MID$(D$, 1, i + 3): GOTO 568

NEXT i

568 LOCATE 15

PRINT "="; D$

DRAW "c15bm80,80 ta15nd15a0 ta-15nd15a0 d320r480 ta15nl15a0ta-15nl15a0"

REM setka

FOR x = 80 TO 540 STEP .01 * 460 / (DL + .05)

LINE (x, 400)-(x, 100), 15

NEXT x

FOR y = 400 TO 100 STEP -1 * 300 / (2 * tzad)

LINE (80, y)-(540, y), 15

NEXT y

REM end of setka

REM polovinnoe delenie

x = 80:

FOR D4L3 = .00001 TO DL + .05 STEP (DL + .05) / 460

x = x + 1

A = 0: B = tfac0: E = .001

345 C = (A + B) / 2

FA = A ^ Xp * Cp * Kp * Kg * S ^ Yp * Vf ^ np * (1 / Jct + 1 / (3100 * D4L3)) + A - tzad

FC = C ^ Xp * Cp * Kp * Kg * S ^ Yp * Vf ^ np * (1 / Jct + 1 / (3100 * D4L3)) + C - tzad

IF FA * FC < 0 THEN GOTO 389

A = C: GOTO 391

389 B = C

391 IF B - A > E THEN GOTO 345

tfak = (A + B) / 2

REM end of polovinnoe delenie

dD = 2 * (tzad - tfak)

faktor = INT(150 / tzad)

ynew = 400 - faktor * dD

PSET (x, ynew), 14

IF D4L3 > DL AND klon = 0 THEN LINE (x, 100)-(x, 399), 12: LINE (x, ynew)-(81, ynew), 12: klon = 1

IF flag = 1 THEN LINE (xlast, ylast)-(x, ynew), 14

flag = 1

xlast = x

ylast = 400 - faktor * dD

NEXT D4L3

LOCATE 28

PRINT " Нажмите клавишу пробел !"

SLEEP

fly: CLS

PRINT

PRINT

PRINT " 2. Экспериментальная часть"

PRINT

PRINT "Введите номер обрабатываемого материала:"

PRINT "1. Сталь 3"

PRINT "2. Сталь 45"

PRINT "3. Сталь 30ХГСА", , ,

INPUT material

IF material = 4 THEN GOTO ex

PRINT "Введите максимальный диаметр заготовки, мм:",

INPUT D

PRINT "Введите длину заготовки, мм:", ,

INPUT L0

PRINT "Введите номер схемы закрепления заготовки:"

PRINT "1. В токарном патроне"

PRINT "2. В токарном патроне и вращающемся центре",

INPUT shema

PRINT "Введите номер материала режущей части резца:"

PRINT "1. Т15К6"

PRINT "2. Р6М5", , , ,

INPUT rezec

PRINT "Введите для резца:"

PRINT "Главный угол в плане", , ,

INPUT fi

PRINT "Радиус вершины резца, мм", , ,

INPUT R

PRINT "Передний угол", , , ,

INPUT gamma

PRINT "Угол наклона главного лезвия", ,

INPUT lambda

PRINT "Введите параметры резания:"

PRINT "Глубина резания, мм", , ,

INPUT T

PRINT "Подача, мм/об", , , ,

INPUT S

PRINT "Число оборотов шпинделя, об/мин", ,

INPUT n

PRINT ""

LOCATE 28, 1

PRINT " Нажмите клавишу пробел !"

SLEEP

CLS

glubina = 5

ypatrona = 160

ykulv = ypatrona - 35

ykuln = ypatrona + 115

xrez = 460: yrez = 400

lcentra = 20

patron$ = "c15bm20," + STR$(ypatrona) + "r20d20r20u60r60d160l60u100d40l20u40d60l20 br30bu30p8,15 br20p8,15"

kulv$ = "c15bm120," + STR$(ykulv) + "r10d10r10d10r10d20l30 br10bu10p8,15"

kuln$ = "c15bm120," + STR$(ykuln) + "r10u10r10u10r10u20l30 br10bd10p8,15"

centr$ = "c15bm620," + STR$(ypatrona) + "l20d20l" + STR$(lcentra) + "u10l20d10l20g20f20nu40r20u40d50r20u50d40r" + STR$(lcentra) + "u40d60r20 bl30bu30p8,15bl" + STR$(lcentra) + "p8,15bl20p8,15bu10 bl15p8,15"

rez$ = "c15bm" + STR$(xrez) + "," + STR$(yrez) + "nu40r80u40l80r20u45 ta135 d30a0ta-30r22a0d55l40 u10ta130d50a0" + "bm" + STR$(xrez) + "," + STR$(yrez) + "br40bu20p8,15bu30p8,15bu20p8,15"

DRAW patron$

DRAW kulv$

DRAW kuln$

IF shema = 2 THEN DRAW centr$

DRAW rez$

LINE (131, ypatrona + 11)-(509, ypatrona + 69), 7, BF

LOCATE 28, 1

PRINT " Нажмите клавишу пробел !"

SLEEP

LOCATE 28, 1

PRINT " "

REM zagim

ykulv = ypatrona - 30

ykuln = ypatrona + 110

lcentra = 50

LINE (121, ypatrona - 40)-(160, ypatrona + 120), 0, BF

LINE (500, ypatrona)-(620, ypatrona + 80), 0, BF

kulv$ = "c15bm120," + STR$(ykulv) + "r10d10r10d10r10d20l30 br10bu10p8,15"

kuln$ = "c15bm120," + STR$(ykuln) + "r10u10r10u10r10u20l30 br10bd10p8,15"

centr$ = "c15bm620," + STR$(ypatrona) + "l20d20l" + STR$(lcentra) + "u10l20d10l20g20f20nu40r20u40d50r20u50d40r" + STR$(lcentra) + "u40d60r20 bl30bu30p8,15bl" + STR$(lcentra) + "p8,15bl20p8,15bu10 bl15p8,15"

DRAW kulv$

DRAW kuln$

IF shema = 2 THEN DRAW centr$

LINE (121, ypatrona + 11)-(499, ypatrona + 69), 7, BF

REM end of zagim

REM vrashenie

vrashenie:

w = 250

LINE (121, ypatrona)-(149, ypatrona + 80), 8, BF

LINE (150, ypatrona)-(150, ypatrona + 80), 15

DRAW "c15bm130," + STR$(ypatrona - 20) + "d120r10u120"

vrash = 39

LINE (61, ypatrona - vrash)-(119, ypatrona - vrash + 20), 7, BF

70 IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 7, BF

LINE (61, ypatrona - vrash + 21)-(119, ypatrona - vrash + 21), 7, BF

LINE (61, ypatrona - vrash)-(119, ypatrona - vrash), 8, BF

w = w - .1

FOR i = 1 TO w

NEXT i

vrash = vrash - 1

IF vrash <= -99 THEN LINE (61, ypatrona - vrash)-(119, ypatrona - vrash + 20), 8, BF: vrash = 39

LINE (61, ypatrona - vrash)-(119, ypatrona - vrash + 20), 7, BF

IF w <= 40 THEN GOTO 90

IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 8, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 8, BF

GOTO 70

90 REM end of vrashenie

LINE (61, ypatrona - 39)-(119, ypatrona + 119), 8, BF

REM podacha

65 LINE (61, ypatrona + 119)-(119, ypatrona + 99), 7, BF

LINE (61, ypatrona - 39)-(119, ypatrona - 19), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 7, BF

LINE (xrez, yrez)-(xrez + 80, yrez - 40), 0, BF

LINE (xrez + 20, yrez - 40)-(xrez + 60, yrez - 106), 0, BF

yrez = yrez - 1

rez$ = "c15bm" + STR$(xrez) + "," + STR$(yrez) + "nu40r80u40l80r20u45 ta135 d30a0ta-30r22a0d55l40 u10ta130d50a0" + "bm" + STR$(xrez) + "," + STR$(yrez) + "br40bu20p8,15bu30p8,15bu20p8,15"

DRAW rez$

FOR h = 1 TO 1000

NEXT h

LINE (61, ypatrona + 119)-(119, ypatrona + 99), 8, BF

LINE (61, ypatrona - 39)-(119, ypatrona - 19), 8, BF

IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 8, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 8, BF

IF yrez >= ypatrona + 177 THEN GOTO 65

REM end of podacha

REM rezanie

rezblack$ = "bm" + STR$(xrez) + "," + STR$(yrez) + "br40bu20 p0,15bu30p0,15bu20p0,15" + "c0bm" + STR$(xrez) + "," + STR$(yrez) + "nu40r80u40l80r20u45 ta135 d30a0ta-30r22a0d55l40 u10ta130d50a0"

DRAW rezblack$

x = xrez - 15: y = ypatrona + 100 - glubina: A = 3: endj = 1060

yrez = yrez - glubina

LINE (492, ypatrona + 10)-(500, ypatrona + 10 + glubina), 0, BF

LINE (492, ypatrona + 70)-(500, ypatrona + 70 - glubina), 0, BF

FOR xrez = 460 TO 185 STEP -2

rez$ = "c15bm" + STR$(xrez) + "," + STR$(yrez) + "nu40r80u40l80r20u45 ta135 d30a0ta-30r22a0d55l40 u10ta130d50a0"

DRAW rez$

j = 1035: i = j MOD 360: lam = i - 360

DRAW "c7bm" + STR$(x - 2) + "," + STR$(y) + "ta" + STR$(i) + "br" + STR$(INT(A * j / 180)) + "a0ta" + STR$(lam) + "bu60d" + STR$(L) + "br1u" + STR$(L) + "br1d" + STR$(L)

10 IF L <> 60 THEN GOTO 20

LINE (61, ypatrona + 119)-(119, ypatrona + 99), 8, BF

LINE (61, ypatrona - 39)-(119, ypatrona - 19), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 7, BF

DRAW "c7 bm" + STR$(x - 1) + "," + STR$(y) + "ta" + STR$(i) + "br" + STR$(INT(A * j / 180)) + "d7"

50 i = i - 8: j = j - 8

IF i = -1 THEN i = 360

IF j <= endj THEN GOTO 20

LINE (61, ypatrona - 39)-(119, ypatrona - 19), 8, BF

LINE (61, ypatrona + 119)-(119, ypatrona + 99), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 8, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 8, BF

GOTO 10

20 j = 1035: i = j MOD 360: lam = i - 360

DRAW "c0bm" + STR$(x - 2) + "," + STR$(y) + "ta" + STR$(i) + "br" + STR$(INT(A * j / 180)) + "a0ta" + STR$(lam) + "bu60d" + STR$(L) + "br1u" + STR$(L) + "br1d" + STR$(L)

LINE (x - 17, y - 20)-(x + 28, y + 18), 0, BF

L = L + 10: IF L >= 60 THEN L = 60

IF L = 60 THEN endj = endj - 5: IF endj <= 600 THEN endj = 600

rezblack$ = "bm" + STR$(xrez) + "," + STR$(yrez) + "br40bu20 p0,15bu30p0,15bu20p0,15" + "c0bm" + STR$(xrez) + "," + STR$(yrez) + "nu40r80u40l80r20u45 ta135 d30a0ta-30r22a0d55l40 u10ta130d50a0"

DRAW rezblack$

rezblack$ = "bm" + STR$(xrez - 1) + "," + STR$(yrez) + "br40bu20 p0,15bu30p0,15bu20p0,15" + "c0bm" + STR$(xrez) + "," + STR$(yrez) + "nu40r80u40l80r20u45 ta135 d30a0ta-30r22a0d55l40 u10ta130d50a0"

DRAW rezblack$

DRAW "c0bm" + STR$(xrez + 40) + "," + STR$(ypatrona + 10 + glubina) + "ta45u40a0"

DRAW "c0bm" + STR$(xrez + 41) + "," + STR$(ypatrona + 10 + glubina) + "ta45u40a0"

x = x - 2

NEXT xrez

rez$ = "c15bm" + STR$(xrez) + "," + STR$(yrez) + "nu40r80u40l80r20u45 ta135 d30a0ta-30r22a0d55l40 u10ta130d50a0" + "bm" + STR$(xrez) + "," + STR$(yrez) + "br40bu20p8,15bu30p8,15bu20p8,15"

DRAW rez$

REM end of rezanie

REM podacha

56 LINE (61, ypatrona + 119)-(119, ypatrona + 99), 7, BF

LINE (61, ypatrona - 39)-(119, ypatrona - 19), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 7, BF

rezblack$ = "bm" + STR$(xrez) + "," + STR$(yrez) + "br40bu20 p0,15bu30p0,15bu20p0,15" + "c0bm" + STR$(xrez) + "," + STR$(yrez) + "nu40r80u40l80r20u45 ta135 d30a0ta-30r22a0d55l40 u10ta130d50a0"

DRAW rezblack$

yrez = yrez + 1

rez$ = "c15bm" + STR$(xrez) + "," + STR$(yrez) + "nu40r80u40l80r20u45 ta135 d30a0ta-30r22a0d55l40 u10ta130d50a0" + "bm" + STR$(xrez) + "," + STR$(yrez) + "br40bu20p8,15bu30p8,15bu20p8,15"

DRAW rez$

FOR h = 1 TO 1000

NEXT h

LINE (61, ypatrona + 119)-(119, ypatrona + 99), 8, BF

LINE (61, ypatrona - 39)-(119, ypatrona - 19), 8, BF

IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 8, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 8, BF

IF yrez >= 400 THEN GOTO 76

GOTO 56

REM end of podacha

76 IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 8, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 8, BF

LINE (61, ypatrona + 119)-(119, ypatrona + 99), 8, BF

LINE (61, ypatrona - 39)-(119, ypatrona - 19), 8, BF

LINE (61, ypatrona + 119)-(119, ypatrona + 99), 7, BF

LINE (61, ypatrona - 39)-(119, ypatrona - 19), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 11)-(549, ypatrona + 16), 7, BF

IF shema = 2 THEN LINE (531, ypatrona + 65)-(549, ypatrona + 69), 7, BF

z = z + 1

IF z < 2000 GOTO 76

grafik: CLS

PRINT

PRINT " Результаты промеров обработанного вала"

LOCATE 5, 1

PRINT " 1 2 3 4 5 6 7 8 9 10 11"

LOCATE 14, 1

PRINT " 1 2 3 4 5 6 7 8 9 10 11"

row = 16: col = 3

LOCATE row, col

PRINT "-----------------------------------------------------------------------"

LOCATE row + 1, col

PRINT "¦"

LOCATE row + 2, col

PRINT "+----------------------------------------------------------------------"

LOCATE row + 3, col

PRINT "¦"

LOCATE row + 4, col

PRINT "L----------------------------------------------------------------------"

FOR i = 14 TO 62 STEP 8

LOCATE row, col + i

PRINT "T"

LOCATE row + 1, col + i

PRINT "¦"

LOCATE row + 2, col + i

PRINT "+"

LOCATE row + 3, col + i

PRINT "¦"

LOCATE row + 4, col + i

PRINT "+"

NEXT i

LOCATE row, col + 70

PRINT "¬"

LOCATE row + 1, col + 70

PRINT "¦"

LOCATE row + 2, col + 70

PRINT "+"

LOCATE row + 3, col + 70

PRINT "¦"

LOCATE row + 4, col + 70

PRINT "-"

LOCATE row + 1, col + 1

PRINT "Номер сечения"

LOCATE row + 3, col + 1

PRINT "Диаметр, мм"

FOR i = 18 TO 66 STEP 8

LOCATE row + 1, i + 2

g = g + 1

PRINT g

NEXT i

row = 21: col = 3

LOCATE row, col

PRINT "-----------------------------------------------"

LOCATE row + 1, col

PRINT "¦"

LOCATE row + 2, col

PRINT "+----------------------------------------------"

LOCATE row + 3, col

PRINT "¦"

LOCATE row + 4, col

PRINT "L----------------------------------------------"

FOR i = 14 TO 38 STEP 8

LOCATE row, col + i

PRINT "T"

LOCATE row + 1, col + i

PRINT "¦"

LOCATE row + 2, col + i

PRINT "+"

LOCATE row + 3, col + i

PRINT "¦"

LOCATE row + 4, col + i

PRINT "+"

NEXT i

LOCATE row, col + 46

PRINT "¬"

LOCATE row + 1, col + 46

PRINT "¦"

LOCATE row + 2, col + 46

PRINT "+"

LOCATE row + 3, col + 46

PRINT "¦"

LOCATE row + 4, col + 46

PRINT "-"

LOCATE row + 1, col + 1

PRINT "Номер сечения"

LOCATE row + 3, col + 1

PRINT "Диаметр, мм"

FOR i = 18 TO 42 STEP 8

LOCATE row + 1, i + 2

g = g + 1

PRINT g

NEXT i

IF material = 1 AND rezec = 2 THEN nk = .35 ELSE nk = .75

IF material = 1 THEN sigma = 380

IF material = 2 THEN sigma = 690

IF material = 3 THEN sigma = 780

V = 3.141592 * D * L0 / 1000

Kmp = (sigma / 750) ^ nk

IF fi = 30 AND rezec = 1 THEN Kfi = 1.3

IF fi = 45 AND rezec = 1 THEN Kfi = 1

IF fi = 60 AND rezec = 1 THEN Kfi = .77

IF fi = 90 AND rezec = 1 THEN Kfi = .5

IF fi = 30 AND rezec = 2 THEN Kfi = 1.63

IF fi = 45 AND rezec = 2 THEN Kfi = 1

IF fi = 60 AND rezec = 2 THEN Kfi = .71

IF fi = 90 AND rezec = 2 THEN Kfi = .44

IF gamma = -15 AND rezec = 1 THEN Kgamma = 2

IF gamma = 0 AND rezec = 1 THEN Kgamma = 1.4

IF gamma = 10 AND rezec = 1 THEN Kgamma = 1

IF gamma = 15 AND rezec = 2 THEN Kgamma = 1.6

IF gamma = 25 AND rezec = 2 THEN Kgamma = 1

IF lambda = -5 THEN Klambda = .75

IF lambda = 0 THEN Klambda = 1

IF lambda = 5 THEN Klambda = 1.25

IF lambda = 15 THEN Klambda = 1.7

IF R = .5 THEN Kr = .66

IF R = 1 THEN Kr = .82

IF R = 2 THEN Kr = 1

IF R = 3 THEN Kr = 1.14

IF R = 4 THEN Kr = 1.33

Kp = Kmp * Kfi * Kgamma * Klambda * Kr

IF rezec = 1 THEN Cp = 243: Xp = .9: Yp = .6: np = -.3

IF rezec = 1 THEN Cp = 125: Xp = .9: Yp = .75: np = 0

IF shema = 1 THEN DRAW "c7bm80,120d40ta-2r440a0 u72 ta2l440a0 d20br10p7,7 bl10 c11 nl30r470 l30nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50": GOTO 83

CIRCLE (300, 140), 350, 7, , , .08

DRAW "c7bm80,120d40br440u40d20 bl10 p7,7bl430 c11 nl30r470 l30nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50 l44nu50nd50"

LINE (0, 119)-(79, 161), 0, BF

LINE (521, 119)-(640, 161), 0, BF

83 row = 19: col = 11

FOR Li = 0 TO L0 STEP L0 / 10

REM polovinnoe delenie

A = 0: B = T: E = .001

45 C = (A + B) / 2

IF shema = 1 THEN FA = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + (Li ^ 3) / (.31 * D ^ 4 * (10 ^ 4))) * A ^ Xp + A - T: FC = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + (Li ^ 3) / (.31 * D ^ 4 * (10 ^ 4))) * C ^ Xp + C - T

IF shema = 2 AND Li <= .649 * L0 THEN FA = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + (Li ^ 3) / (30890 * D ^ 4)) * A ^ Xp + A - T: FC = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + (Li ^ 3) / (30890 * D ^ 4)) * C ^ Xp + C - T

IF shema = 2 AND Li > .649 * L0 THEN FA = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + ((L0 - Li) ^ 3) / (4886.5 * D ^ 4)) * A ^ Xp + A - T: FC = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + ((L0 - Li) ^ 3) / (4886.5 * D ^ 4)) * C ^ Xp + C - T

IF FA * FC < 0 THEN GOTO 89

A = C: GOTO 91

89 B = C

91 IF B - A > E THEN GOTO 45

tfak = (A + B) / 2

REM end of polovinnoe delenie

col = col + 8

IF col > 67 THEN row = row + 5: col = 19

LOCATE row, col

PRINT MID$(STR$(D - 2 * tfak), 2, 6)

NEXT Li

IF shema = 1 GOTO 654

A = 0: B = T: E = .001: Li = .649 * L0

145 C = (A + B) / 2

IF shema = 1 THEN FA = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + (Li ^ 3) / (.31 * D ^ 4 * (10 ^ 4))) * A ^ Xp + A - T: FC = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + (Li ^ 3) / (.31 * D ^ 4 * (10 ^ 4))) * C ^ Xp + C - T

IF shema = 2 AND Li <= .649 * L0 THEN FA = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + (Li ^ 3) / (30890 * D ^ 4)) * A ^ Xp + A - T: FC = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + (Li ^ 3) / (30890 * D ^ 4)) * C ^ Xp + C - T

IF shema = 2 AND Li > .649 * L0 THEN FA = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + ((L0 - Li) ^ 3) / (4886.5 * D ^ 4)) * A ^ Xp + A - T: FC = Cp * (S ^ Yp) * (V ^ np) * Kp * 1.2 * (1 / 2000 + ((L0 - Li) ^ 3) / (4886.5 * D ^ 4)) * C ^ Xp + C - T

IF FA * FC < 0 THEN GOTO 189

A = C: GOTO 191

189 B = C

191 IF B - A > E THEN GOTO 145

tfak = (A + B) / 2

LOCATE 22, 55

PRINT "Dmax = "; MID$(STR$(D - 2 * tfak), 2, 6)

654 LOCATE 27, 1

PRINT " Для перехода введите: часть 1 - 'R', часть 2 - 'W', выход - 'Q'";

INPUT per$

IF per$ = "Q" OR per$ = "q" GOTO ex

IF per$ = "W" OR per$ = "w" THEN CLEAR : GOTO fly

RUN

ex: END

Учебное издание

Болдырев Александр Иванович

Бородкин Владимир Васильевич

Сухоруков Николай Владимирович

ОСНОВЫ

ТЕХНОЛОГИИ МАШИНОСТРОЕНИЯ

ЛАБОРАТОРНЫЙ ПРАКТИКУМ

В авторской редакции

омпьютерный набор В. В. Бородкина

Подписано к изданию 01.03.2010.

Уч.-изд. л. 6,1. «С»

ГОУВПО «Воронежский государственный технический

университет»