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

SCREEN 12

CLS

DIM delta(1 TO 12) AS STRING, delta1(1 TO 12) AS STRING

DIM DPy(1 TO 12) AS STRING, DPy1(1 TO 12) AS STRING

delta(1) = " 0"

delta(2) = "0.01"

delta(3) = "0.07"

delta(4) = "0.18"

delta(5) = "0.29"

delta(6) = "0.37"

delta(7) = "0.40"

delta(8) = "0.39"

delta(9) = "0.32"

delta(10) = "0.22"

delta(11) = "0.11"

delta(12) = "0.03"

delta1(1) = " 0"

delta1(2) = "0.01"

delta1(3) = "0.10"

delta1(4) = "0.23"

delta1(5) = "0.36"

delta1(6) = "0.46"

delta1(7) = "0.50"

delta1(8) = "0.49"

delta1(9) = "0.40"

delta1(10) = "0.27"

delta1(11) = "0.14"

delta1(12) = "0.04"

DPy(1) = "15.9"

DPy(2) = "54.4"

DPy(3) = "148.2"

DPy(4) = "272.8"

DPy(5) = "398.7"

DPy(6) = "492.8"

DPy(7) = "527.8"

DPy(8) = "491.7"

DPy(9) = "396.9"

DPy(10) = "270.7"

DPy(11) = "146.2"

DPy(12) = "52.9"

DPy1(1) = "15.9"

DPy1(2) = "53.9"

DPy1(3) = "146.9"

DPy1(4) = "270.2"

DPy1(5) = "395.0"

DPy1(6) = "488.3"

DPy1(7) = "522.9"

DPy1(8) = "487.2"

DPy1(9) = "393.2"

DPy1(10) = "268.1"

DPy1(11) = "144.8"

DPy1(12) = "52.6"

shema = 2

E3 = 5: R3 = 40

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

PRINT " Исследование жесткости технологической

системы производственным методом"

PRINT

PRINT " 1.1. Измерение радиального биения заготовки"

LOCATE 7, 34

PRINT "Нажмите пробел"

eks = 0: diam = 50: lin = 53: angle = 0

DRAW "c15 bm300,260 l10d10u10r60d10u10l10u120l40d120u70 l20u20r20br40r19 bd20l19u50 l15u10l10nd10l5r20u10l20nd10r6u3r8d3"

DRAW "c15bm521,190r10u20l10"

CIRCLE (440, 180), 80, 15

CIRCLE (440, 180), 70, 15

CIRCLE (440, 180), 2, 15

CIRCLE (185, 180), 25, 15

PAINT (185, 180), 7, 15

DRAW "a0c11bm185,180nu80nd80nl80r80"

FOR al = 0 TO 360 STEP 15

limb$ = "c15bm440,180ta" + STR$(al) + "bu70d10"

DRAW limb$

NEXT al

FOR j = 0 TO 360

DRAW "c15bm185,180ta" + STR$(eks) + "bl10ta" + STR$(j) + "br" + STR$(diam) + "l1"

NEXT j

igla$ = "bm279,175l" + STR$(lin - 5) + "g5f5r" + STR$(lin - 5) + "bm532,175r" + STR$(65 - lin) + "u5r10f3d14g3 nu20 l10nu15u5l" + STR$(65 - lin)

DRAW "c15" + igla$

strelka$ = "ta" + STR$(angle) + "bm440,180 d55nf4ng4 u120" + "ta" + STR$(angle + 7) + "nd15" + "ta" + STR$(angle - 7) + "nd15"

DRAW "c15" + strelka$

row = 19: 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 = 22 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 "Радиальное биение, мм"

row = 24: 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 = 22 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 "Радиальное биение, мм"

SLEEP

LOCATE 7, 34

PRINT " "

DRAW "c0" + strelka$

row = 19: col = 26: delta = .345

FOR eks = 0 TO 360 STEP 30

IF eks <= 360 THEN delta = SQR(R3 ^ 2 - (E3 ^ 2) * SIN(eks * 3.1415926# / 180) ^ 2) - R3 + E3 * (1 - COS(eks * 3.1415926# / 180))

IF eks < 270 THEN delta = SQR(R3 ^ 2 - (E3 ^ 2) * COS((eks - 90) * 3.1415926# / 180) ^ 2) - R3 + E3 * (SIN((eks - 90) * 3.1415926# / 180) + 1)

IF eks <= 180 THEN delta = SQR(R3 ^ 2 - (E3 ^ 2) * COS((eks - 90) * 3.1415926# / 180) ^ 2) - R3 + E3 * (SIN((eks - 90) * 3.1415926# / 180) + 1)

IF eks < 90 THEN delta = SQR(R3 ^ 2 - (E3 ^ 2) * SIN(eks * 3.1415926# / 180) ^ 2) - R3 + E3 * (1 - COS(eks * 3.1415926# / 180))

IF eks <= 180 THEN lin = 53 - INT(eks / 9)

IF eks > 180 THEN lin = 53 - INT((360 - eks) / 9)

igla$ = "a0bm279,175l" + STR$(lin - 5) + "g5f5r" + STR$(lin - 5) + "bm532,175r" + STR$(65 - lin) + "u5r10f3d14g3 nu20 l10nu15u5l" + STR$(65 - lin)

DRAW "c15" + igla$

CIRCLE (185, 180), 25, 15

CIRCLE (440, 180), 2, 15

FOR al = 0 TO 360 STEP 15

limb$ = "c15bm440,180ta" + STR$(al) + "bu70d10"

DRAW limb$

NEXT al

angle = -(53 - lin) * 16

strelka$ = "ta" + STR$(angle) + "bm440,180 d55nf4ng4 u120" + "ta" + STR$(angle + 7) + "nd15" + "ta" + STR$(angle - 7) + "nd15a0"

DRAW "c15" + strelka$

PAINT (185, 180), 7, 15

DRAW "a0c11bm185,180nu80nd80nl80r80"

FOR j = 0 TO 360

DRAW "c15bm185,180ta" + STR$(eks) + "bl10ta" + STR$(j) + "br" + STR$(diam) + "l1"

NEXT j

IF eks = 360 GOTO 2020

LOCATE row + 1, col + 1

IF delta = 0 THEN LOCATE row + 1, col + 2

PRINT eks

LOCATE row + 3, col + 1

IF delta = 0 THEN LOCATE row + 3, col + 3

IF delta = 10 THEN LOCATE row + 3, col + 2

PRINT MID$(STR$(delta), 2, 4)

col = col + 8

IF col = 74 THEN col = 26: row = 24

FOR i = 1 TO 50000

NEXT i

DRAW "c0" + strelka$

LINE (100, 100)-(279, 280), 0, BF

LINE (532, 100)-(600, 280), 0, BF

NEXT eks

2020

LOCATE 7, 34

PRINT "Нажмите пробел"

PRINT " "

SLEEP

fj:

CLS

SCREEN 12

PRINT

PRINT

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

PRINT

PRINT "Материал обтачиваемых колец - сталь 45; предел прочности - 690 МПа"

PRINT

PRINT "Диаметр обтачиваемого кольца Dз=80 мм; Эксцентриситет кольца Eз=5 мм;"

PRINT

PRINT "Минимальная глубина резания (глубина резания на минимальном радиусе"

PRINT

PRINT "эксцентричных колец) t=0.2 мм; Диаметр жесткой оправки Do=60 мм"

PRINT

PRINT

PRINT "Резец - Р6М5: fi=20'; Kfip=1.63; gamma=15'; Kgammap=1.6; lambda=0'"

PRINT

PRINT "Klambdap=1.0; r=1.0; Krp=0.82;nk=2;Cp=125;Xp=0.9;Yp=0.75;np=0;"

PRINT ""

PRINT

PRINT "Введите подачу S, мм/об:"

INPUT S

PRINT

PRINT "Введите число оборотов шпинделя n, об/мин:"

INPUT n

LOCATE 26, 1

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

SLEEP

rez:

CLS

shema = 2

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

LINE (225, ypatrona - 6)-(265, ypatrona + 100), 7, BF

LINE (332, ypatrona - 6)-(372, ypatrona + 100), 7, BF

LINE (440, ypatrona - 6)-(480, ypatrona + 100), 7, BF

LINE (225, ypatrona - 6)-(265, ypatrona + 100), 15, B

LINE (332, ypatrona - 6)-(372, ypatrona + 100), 15, B

LINE (440, ypatrona - 6)-(480, ypatrona + 100), 15, B

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 (225, ypatrona - 6)-(265, ypatrona + 100), 0, BF

LINE (332, ypatrona - 6)-(372, ypatrona + 100), 0, BF

LINE (440, ypatrona - 6)-(480, ypatrona + 100), 0, BF

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

LINE (215, ypatrona - 6)-(255, ypatrona + 100), 7, BF

LINE (322, ypatrona - 6)-(362, ypatrona + 100), 7, BF

LINE (430, ypatrona - 6)-(470, ypatrona + 100), 7, BF

LINE (215, ypatrona - 6)-(255, ypatrona + 100), 15, B

LINE (322, ypatrona - 6)-(362, ypatrona + 100), 15, B

LINE (430, ypatrona - 6)-(470, ypatrona + 100), 15, B

REM end of zagim

REM vrashenie

vrashenie:

w = 250: k = 1: ys = ypatrona - 6: df = 106: pf = 0: v = 0

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 (215, ys + df)-(470, ys + df), 0

LINE (216, ys + pf)-(254, ys + pf), 7

LINE (323, ys + pf)-(361, ys + pf), 7

LINE (431, ys + pf)-(469, ys + pf), 7

ys = ys - 1 * k

LINE (215, ys)-(255, ys + 106), 15, B

LINE (322, ys)-(362, ys + 106), 15, B

LINE (430, ys)-(470, ys + 106), 15, B

IF ys <= ypatrona - 20 + v THEN k = k * (-1): df = 0: pf = 106

IF ys >= ypatrona - 6 - v THEN k = k * (-1): df = 106: pf = 0

IF w < 220 THEN v = 1

IF w < 190 THEN v = 2

IF w < 160 THEN v = 3

IF w < 130 THEN v = 4

IF w < 100 THEN v = 5

IF w < 70 THEN v = 6

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

LINE (215, ys)-(255, ys + 106), 0, BF

LINE (322, ys)-(362, ys + 106), 0, BF

LINE (430, ys)-(470, ys + 106), 0, BF

LINE (215, ypatrona - 13)-(255, ypatrona + 93), 7, BF

LINE (322, ypatrona - 13)-(362, ypatrona + 93), 7, BF

LINE (430, ypatrona - 13)-(470, ypatrona + 93), 7, BF

LINE (215, ypatrona - 13)-(255, ypatrona + 93), 15, B

LINE (322, ypatrona - 13)-(362, ypatrona + 93), 15, B

LINE (430, ypatrona - 13)-(470, ypatrona + 93), 15, B

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 + 195 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 + 123 - glubina: a = 3: endj = 1060

FOR xrez = 460 TO 174 STEP -2

IF xrez < 175 THEN LINE (215, ypatrona - 8)-(255, ypatrona + 88), 15, B

IF xrez < 282 THEN LINE (322, ypatrona - 8)-(362, ypatrona + 88), 15, B

IF xrez < 390 THEN LINE (430, ypatrona - 8)-(470, ypatrona + 88), 15, B

IF xrez < 215 AND xrez > 175 THEN strug = 1

IF xrez < 322 AND xrez > 282 THEN strug = 1

IF xrez < 430 AND xrez > 390 THEN strug = 1

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

DRAW rez$

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

IF strug = 0 THEN GOTO 20

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

strug = 0

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 = 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 - 13 + glubina) + "ta45u40a0"

DRAW "c0bm" + STR$(xrez + 41) + "," + STR$(ypatrona - 13 + 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

LOCATE 28, 1

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

SLEEP

CLS

fgh:

REM front babka

PRINT

PRINT " 1.3. Измерение радиального биения кольца у

передней бабки после обтачивания"

LOCATE 7, 34

PRINT "Нажмите пробел"

Rd = 35.05: Ed = .25

eks = 0: diam = 35: lin = 62: angle = 0

DRAW "c15 bm300,260 l10d10u10r60d10u10l10u120l40d120u70 l20u20r20br40r19 bd20l19u50 l15u10l10nd10l5r20u10l20nd10r6u3r8d3"

DRAW "c15bm521,190r10u20l10"

CIRCLE (440, 180), 80, 15

CIRCLE (440, 180), 70, 15

CIRCLE (440, 180), 2, 15

CIRCLE (185, 180), 25, 15

PAINT (185, 180), 7, 15

DRAW "a0c11bm185,180nu80nd80nl80r80"

FOR al = 0 TO 360 STEP 15

limb$ = "c15bm440,180ta" + STR$(al) + "bu70d10"

DRAW limb$

NEXT al

FOR j = 0 TO 360

DRAW "c15bm185,180ta" + STR$(eks) + "bl4ta" + STR$(j) + "br" + STR$(diam) + "l1"

NEXT j

igla$ = "bm279,175l" + STR$(lin - 5) + "g5f5r" + STR$(lin - 5) + "bm532,175r" + STR$(74 - lin) + "u5r10f3d14g3 nu20 l10nu15u5l" + STR$(74 - lin)

DRAW "c15" + igla$

strelka$ = "ta" + STR$(angle) + "bm440,180 d55nf4ng4 u120" + "ta" + STR$(angle + 7) + "nd15" + "ta" + STR$(angle - 7) + "nd15"

DRAW "c15" + strelka$

row = 19: 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 = 22 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 "Радиальное биение, мм"

row = 24: 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 = 22 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 "Радиальное биение, мм"

SLEEP

LOCATE 7, 34

PRINT " "

DRAW "c0" + strelka$

row = 19: col = 26

g = 0

FOR eks = 0 TO 360 STEP 30

IF eks <= 360 THEN a = (eks - 270) * 3.14159 / 180: b = (eks - 180) * 3.1415926# / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * COS(a) ^ 2) - Rd + Ed * (1 - SIN(a)) - .1 * (1 - SIN(b / 2))

IF eks < 270 THEN a = (eks - 180) * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * SIN(a) ^ 2) - Rd + Ed * (COS(a) + 1) - .1 * (1 - SIN(a / 2))

IF eks <= 180 THEN a = (eks - 90) * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * COS(a) ^ 2) - Rd + Ed * (SIN(a) + 1) - .1 * SIN(eks * 3.1415926# / 360)

IF eks < 90 THEN a = eks * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * SIN(a) ^ 2) - Rd + Ed * (1 - COS(a)) - .1 * SIN(a / 2)

IF eks <= 180 THEN lin = 62 - INT(eks / 21)

IF eks > 180 THEN lin = 62 - INT((360 - eks) / 21)

igla$ = "a0bm279,175l" + STR$(lin - 5) + "g5f5r" + STR$(lin - 5) + "bm532,175r" + STR$(74 - lin) + "u5r10f3d14g3 nu20 l10nu15u5l" + STR$(74 - lin)

DRAW "c15" + igla$

CIRCLE (185, 180), 25, 15

CIRCLE (440, 180), 2, 15

FOR al = 0 TO 360 STEP 15

limb$ = "c15bm440,180ta" + STR$(al) + "bu70d10"

DRAW limb$

NEXT al

angle = -(62 - lin) * 16

strelka$ = "ta" + STR$(angle) + "bm440,180 d55nf4ng4 u120" + "ta" + STR$(angle + 7) + "nd15" + "ta" + STR$(angle - 7) + "nd15a0"

DRAW "c15" + strelka$

PAINT (185, 180), 7, 15

DRAW "a0c11bm185,180nu80nd80nl80r80"

FOR j = 0 TO 360

DRAW "c15bm185,180ta" + STR$(eks) + "bl4ta" + STR$(j) + "br" + STR$(diam) + "l1"

NEXT j

IF eks = 360 GOTO 3020

LOCATE row + 1, col + 1

PRINT eks

LOCATE row + 3, col + 1

g = g + 1

PRINT delta(g)

col = col + 8

IF col = 74 THEN col = 26: row = 24

FOR i = 1 TO 50000

NEXT i

DRAW "c0" + strelka$

LINE (100, 100)-(279, 280), 0, BF

LINE (532, 100)-(600, 280), 0, BF

NEXT eks

3020

LOCATE 7, 34

PRINT "Нажмите пробел"

SLEEP

CLS

REM back babka

Rd = 35.1: Ed = .3

PRINT

PRINT " 1.4. Измерение радиального биения кольца у

задней бабки после обтачивания"

LOCATE 7, 34

PRINT "Нажмите пробел"

eks = 0: diam = 35: lin = 62: angle = 0

DRAW "c15 bm300,260 l10d10u10r60d10u10l10u120l40d120u70 l20u20r20br40r19 bd20l19u50 l15u10l10nd10l5r20u10l20nd10r6u3r8d3"

DRAW "c15bm521,190r10u20l10"

CIRCLE (440, 180), 80, 15

CIRCLE (440, 180), 70, 15

CIRCLE (440, 180), 2, 15

CIRCLE (185, 180), 25, 15

PAINT (185, 180), 7, 15

DRAW "a0c11bm185,180nu80nd80nl80r80"

FOR al = 0 TO 360 STEP 15

limb$ = "c15bm440,180ta" + STR$(al) + "bu70d10"

DRAW limb$

NEXT al

FOR j = 0 TO 360

DRAW "c15bm185,180ta" + STR$(eks) + "bl4ta" + STR$(j) + "br" + STR$(diam) + "l1"

NEXT j

igla$ = "bm279,175l" + STR$(lin - 5) + "g5f5r" + STR$(lin - 5) + "bm532,175r" + STR$(74 - lin) + "u5r10f3d14g3 nu20 l10nu15u5l" + STR$(74 - lin)

DRAW "c15" + igla$

strelka$ = "ta" + STR$(angle) + "bm440,180 d55nf4ng4 u120" + "ta" + STR$(angle + 7) + "nd15" + "ta" + STR$(angle - 7) + "nd15"

DRAW "c15" + strelka$

row = 19: 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 = 22 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 "Радиальное биение, мм"

row = 24: 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 = 22 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 "Радиальное биение, мм"

SLEEP

LOCATE 7, 34

PRINT " "

DRAW "c0" + strelka$

row = 19: col = 26

g = 0

FOR eks = 0 TO 360 STEP 30

IF eks <= 360 THEN a = (eks - 270) * 3.14159 / 180: b = (eks - 180) * 3.1415926# / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * COS(a) ^ 2) - Rd + Ed * (1 - SIN(a)) - .1 * (1 - SIN(b / 2))

IF eks < 270 THEN a = (eks - 180) * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * SIN(a) ^ 2) - Rd + Ed * (COS(a) + 1) - .1 * (1 - SIN(a / 2))

IF eks <= 180 THEN a = (eks - 90) * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * COS(a) ^ 2) - Rd + Ed * (SIN(a) + 1) - .1 * SIN(eks * 3.1415926# / 360)

IF eks < 90 THEN a = eks * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * SIN(a) ^ 2) - Rd + Ed * (1 - COS(a)) - .1 * SIN(a / 2)

IF eks <= 180 THEN lin = 62 - INT(eks / 21)

IF eks > 180 THEN lin = 62 - INT((360 - eks) / 21)

igla$ = "a0bm279,175l" + STR$(lin - 5) + "g5f5r" + STR$(lin - 5) + "bm532,175r" + STR$(74 - lin) + "u5r10f3d14g3 nu20 l10nu15u5l" + STR$(74 - lin)

DRAW "c15" + igla$

CIRCLE (185, 180), 25, 15

CIRCLE (440, 180), 2, 15

FOR al = 0 TO 360 STEP 15

limb$ = "c15bm440,180ta" + STR$(al) + "bu70d10"

DRAW limb$

NEXT al

angle = -(62 - lin) * 16

strelka$ = "ta" + STR$(angle) + "bm440,180 d55nf4ng4 u120" + "ta" + STR$(angle + 7) + "nd15" + "ta" + STR$(angle - 7) + "nd15a0"

DRAW "c15" + strelka$

PAINT (185, 180), 7, 15

DRAW "a0c11bm185,180nu80nd80nl80r80"

FOR j = 0 TO 360

DRAW "c15bm185,180ta" + STR$(eks) + "bl4ta" + STR$(j) + "br" + STR$(diam) + "l1"

NEXT j

IF eks = 360 GOTO 33020

LOCATE row + 1, col + 1

PRINT eks

LOCATE row + 3, col + 1

g = g + 1

PRINT delta1(g)

col = col + 8

IF col = 74 THEN col = 26: row = 24

FOR i = 1 TO 50000

NEXT i

DRAW "c0" + strelka$

LINE (100, 100)-(279, 280), 0, BF

LINE (532, 100)-(600, 280), 0, BF

NEXT eks

33020

LOCATE 7, 34

PRINT "Нажмите пробел"

SLEEP

suptabl:

CLS

PRINT

PRINT " 1.5. Расчет радиальной составляющей

силы резания Py"

PRINT

PRINT " Y = Deltaд; t = tmin+(Deltaз-Deltaд)"

PRINT " np"

PRINT " Kмр = (бв/750) ; Kp = Kмр*Kfip*Kgammap*Klambdap*Krp"

PRINT " Xp Yp np"

PRINT " Py = Cp*t * S * V * Kp"

PRINT

PRINT " Передняя бабка"

row = 12: 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 "+--------------------------------------------"

LOCATE row + 5, col

PRINT "¦"

LOCATE row + 6, col

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

FOR i = 22 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 "+"

LOCATE row + 5, col + i

PRINT "¦"

LOCATE row + 6, 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 + 5, col + 70

PRINT "¦"

LOCATE row + 6, col + 70

PRINT "-"

LOCATE row + 1, col + 1

PRINT "Угол, градусов"

LOCATE row + 3, col + 1

PRINT "Y, мм"

LOCATE row + 5, col + 1

PRINT "Py, кГс"

row = row + 7: 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 "+--------------------------------------------"

LOCATE row + 5, col

PRINT "¦"

LOCATE row + 6, col

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

FOR i = 22 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 "+"

LOCATE row + 5, col + i

PRINT "¦"

LOCATE row + 6, 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 + 5, col + 70

PRINT "¦"

LOCATE row + 6, col + 70

PRINT "-"

LOCATE row + 1, col + 1

PRINT "Угол, градусов"

LOCATE row + 3, col + 1

PRINT "Y, мм"

LOCATE row + 5, col + 1

PRINT "Py, кГс"

col = 26: row = 12: g = 1

FOR eks = 0 TO 330 STEP 30

LOCATE row + 1, col + 1

PRINT eks

LOCATE row + 3, col + 1

PRINT delta(g)

LOCATE row + 5, col + 1

PRINT DPy(g)

g = g + 1

col = col + 8

IF col = 74 THEN col = 26: row = row + 7

NEXT eks

LOCATE 27, 34

PRINT "Нажмите пробел"

SLEEP

CLS

PRINT

PRINT

PRINT " Задняя бабка"

row = 5: 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 "+--------------- ----------------------------"

LOCATE row + 5, col

PRINT "¦"

LOCATE row + 6, col

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

FOR i = 22 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 "+"

LOCATE row + 5, col + i

PRINT "¦"

LOCATE row + 6, 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 + 5, col + 70

PRINT "¦"

LOCATE row + 6, col + 70

PRINT "-"

LOCATE row + 1, col + 1

PRINT "Угол, градусов"

LOCATE row + 3, col + 1

PRINT "Y, мм"

LOCATE row + 5, col + 1

PRINT "Py, кГс"

row = row + 7: 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 "+-------------------------- -----------------"

LOCATE row + 5, col

PRINT "¦"

LOCATE row + 6, col

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

FOR i = 22 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 "+"

LOCATE row + 5, col + i

PRINT "¦"

LOCATE row + 6, 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 + 5, col + 70

PRINT "¦"

LOCATE row + 6, col + 70

PRINT "-"

LOCATE row + 1, col + 1

PRINT "Угол, градусов"

LOCATE row + 3, col + 1

PRINT "Y, мм"

LOCATE row + 5, col + 1

PRINT "Py, кГс"

col = 26: row = 5: g = 1

FOR eks = 0 TO 330 STEP 30

LOCATE row + 1, col + 1

PRINT eks

LOCATE row + 3, col + 1

PRINT delta1(g)

LOCATE row + 5, col + 1

PRINT DPy1(g)

g = g + 1

col = col + 8

IF col = 74 THEN col = 26: row = row + 7

NEXT eks

LOCATE 25, 34

PRINT "Нажмите пробел"

SLEEP

drafik:

CLS

E3 = 5: R3 = 40

PRINT

PRINT " 1.6. Построение зависимостей 'нагрузка-

перемещение' для передней и задней

бабки токарного станка"

REM setka

FOR x = 80 TO 540 STEP 20

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

NEXT x

FOR y = 100 TO 400 STEP 20

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

NEXT y

REM end of setka

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

LOCATE 5, 7

PRINT "Py"

LOCATE 27, 71

PRINT "Y"

DRAW "c14bm100,425 r40 bd15c12l40"

LOCATE 27, 20

PRINT "передняя бабка"

LOCATE 28, 20

PRINT "задняя бабка"

REM front babka grafik

Rd = 35.05: Ed = .25: p = 0

FOR eks = 0 TO 360 STEP 1

IF eks <= 360 THEN a = (eks - 270) * 3.14159 / 180: b = (eks - 180) * 3.1415926# / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * COS(a) ^ 2) - Rd + Ed * (1 - SIN(a)) - .1 * (1 - SIN(b / 2))

IF eks < 270 THEN a = (eks - 180) * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * SIN(a) ^ 2) - Rd + Ed * (COS(a) + 1) - .1 * (1 - SIN(a / 2))

IF eks <= 180 THEN a = (eks - 90) * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * COS(a) ^ 2) - Rd + Ed * (SIN(a) + 1) - .1 * SIN(eks * 3.1415926# / 360)

IF eks < 90 THEN a = eks * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * SIN(a) ^ 2) - Rd + Ed * (1 - COS(a)) - .1 * SIN(a / 2)

IF eks <= 360 THEN delta3 = SQR(R3 ^ 2 - (E3 ^ 2) * SIN(eks * 3.1415926# / 180) ^ 2) - R3 + E3 * (1 - COS(eks * 3.1415926# / 180))

IF eks < 270 THEN delta3 = SQR(R3 ^ 2 - (E3 ^ 2) * COS((eks - 90) * 3.1415926# / 180) ^ 2) - R3 + E3 * (SIN((eks - 90) * 3.1415926# / 180) + 1)

IF eks <= 180 THEN delta3 = SQR(R3 ^ 2 - (E3 ^ 2) * COS((eks - 90) * 3.1415926# / 180) ^ 2) - R3 + E3 * (SIN((eks - 90) * 3.1415926# / 180) + 1)

IF eks < 90 THEN delta3 = SQR(R3 ^ 2 - (E3 ^ 2) * SIN(eks * 3.1415926# / 180) ^ 2) - R3 + E3 * (1 - COS(eks * 3.1415926# / 180))

t = .2 + delta3 - delta

Py = 67.66 * t ^ .9

x = INT(delta * 900) + 85

y = 400 - INT(Py * .57)

IF p = 0 THEN x1 = x: y1 = y: p = 1

LINE (x, y)-(x1, y1), 14

x1 = x: y1 = y

NEXT eks

REM back babka grafik

Rd = 35.1: Ed = .3: p = 0

FOR eks = 0 TO 360 STEP 1

IF eks <= 360 THEN a = (eks - 270) * 3.14159 / 180: b = (eks - 180) * 3.1415926# / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * COS(a) ^ 2) - Rd + Ed * (1 - SIN(a)) - .1 * (1 - SIN(b / 2))

IF eks < 270 THEN a = (eks - 180) * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * SIN(a) ^ 2) - Rd + Ed * (COS(a) + 1) - .1 * (1 - SIN(a / 2))

IF eks <= 180 THEN a = (eks - 90) * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * COS(a) ^ 2) - Rd + Ed * (SIN(a) + 1) - .1 * SIN(eks * 3.1415926# / 360)

IF eks < 90 THEN a = eks * 3.14159 / 180: delta = SQR(Rd ^ 2 - (Ed ^ 2) * SIN(a) ^ 2) - Rd + Ed * (1 - COS(a)) - .1 * SIN(a / 2)

IF eks <= 360 THEN delta3 = SQR(R3 ^ 2 - (E3 ^ 2) * SIN(eks * 3.1415926# / 180) ^ 2) - R3 + E3 * (1 - COS(eks * 3.1415926# / 180))

IF eks < 270 THEN delta3 = SQR(R3 ^ 2 - (E3 ^ 2) * COS((eks - 90) * 3.1415926# / 180) ^ 2) - R3 + E3 * (SIN((eks - 90) * 3.1415926# / 180) + 1)

IF eks <= 180 THEN delta3 = SQR(R3 ^ 2 - (E3 ^ 2) * COS((eks - 90) * 3.1415926# / 180) ^ 2) - R3 + E3 * (SIN((eks - 90) * 3.1415926# / 180) + 1)

IF eks < 90 THEN delta3 = SQR(R3 ^ 2 - (E3 ^ 2) * SIN(eks * 3.1415926# / 180) ^ 2) - R3 + E3 * (1 - COS(eks * 3.1415926# / 180))

t = .2 + delta3 - delta

Py = 67.66 * t ^ .9

x = INT(delta * 900) + 85

y = 400 - INT(Py * .57)

IF p = 0 THEN x1 = x: y1 = y: p = 1

LINE (x, y)-(x1, y1), 12

x1 = x: y1 = y

NEXT eks

LOCATE 27, 50

PRINT "Нажмите пробел!"

SLEEP

RUN

END

Приложение В