Учебное пособие 800407
.pdf171
«Тарирование расходной шайбы»
700 : CLS |
|
|
|
|
|
|
SCREEN 12 |
|
|
|
|
|
|
VIEW PRINT 2 TO 30 |
|
|
|
|
||
" |
|
|
Лабораторная работа # 6" |
|
||
" |
|
|
Тарирование расходной шайбы |
" |
||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
"Температура воды t=20 C.Кинематический коэффициент вязкости |
||||||
воды-0.0101 см2/c " |
|
|
|
|
||
|
|
|
|
|
|
|
"Введите степень открытия вентиля B VIII: 1,2,3,4,5,6,7 " |
|
|||||
INPUT |
BVIII |
|
|
|
|
|
n = 1 |
|
|
|
|
|
|
"Для запуска программы нажмите клавишу ENTER" |
|
|||||
ON BVIII GOTO 1, 2, 3, 4, 5, 6, 7 |
|
|
|
|||
50 : CLS |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
" |
|
|
|
B VIII" |
||
" |
BI " |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
" |
Y |
X |
H10 |
Н11 |
|
|
" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
" |
|
|
|
мерный" |
|
|
" |
|
|
|
бак V=3л" |
|
|
" |
|
|
|
-->" |
|
|
DRAW "c15bm260,420 m240,440r40m260,420u20l100u40r60u40bu160u80l120d20r20m80,140r40m80,1 00r20bd20l30u20d40u20r30bd20d20bd160d40r60bu280u20r140u20r40d40l20u4 0l20d40 r20l10d260l20u20br60d20l20u260r10 u20r60u20m440,80u40m400,80u20br20u30r20l40r20d30br20r160d300l100d40b r60d40l120u40 "
LINE (80, 320)-(120, 160), 15, B
LINE (200, 320)-(240, 160), 15, B
LINE (280, 320)-(300, 90), 15, B
LINE (340, 320)-(360, 90), 15, B PAINT (100, 130), 9, 15
PAINT (260, 430), 9, 15
PAINT (100, 110), 9, 15
PAINT (410, 60), 9, 15
PAINT (430, 60), 9, 15
PAINT (310, 60), 9, 15
PAINT (330, 60), 9, 15
172
IF BVIII > 4 THEN h12 = h12 + 30: h13 = h13 + 10 x1 = 319: x2 = 319: x4 = 439: x5 = 319: x6 = 319
z = 20: x10 = INT(h12 / z): x20 = INT(h13 / z): x50 = INT(H10 / z): x60 = INT(H11 / z): x40 = 17 / z
FOR h = 1 TO z
FOR x1 = x1 TO x1 - x10 STEP -1 LINE (81, x1)-(119, x1), 9
NEXT x1
FOR x2 = x2 TO x2 - x20 STEP -1
LINE (201, x2)-(239, x2 - 20), 7, BF LINE (201, x2)-(239, x2), 9
NEXT x2
LINE (81, x1)-(119, x1 - 20), 7, BF FOR x5 = x5 TO x5 - x50 STEP -1 LINE (281, x5)-(299, x5), 9
NEXT x5
FOR x6 = x6 TO x6 - x60 STEP -1 LINE (341, x6)-(359, x6), 9 NEXT x6
LINE (500, 400)-(500, 438), 9 FOR x4 = x4 TO x4 - x40 STEP -1 LINE (441, x4)-(559, x4), 9 NEXT x4
FOR i = 1 TO 7000 NEXT i
NEXT h
FOR x4 = 420 TO 405 STEP -1 LINE (441, x4)-(559, x4), 9 FOR i = 1 TO 7000
NEXT i NEXT x4
PRINT " Нажмите клавишу пробел" SLEEP
IF BVIII > 4 THEN h12 = h12 - 30: h13 = h13 - 10 CLS
PRINT " X", " Y", " T", "B VIII"; " H10", " H11" PRINT
PRINT h13; "дел.", h12; "дел.", ty; "с", BVIII; " "; H10; "cм", " "; H11; "cм"
PRINT "" PRINT
PRINT "Нажмите клавишу пробел" SLEEP
RUN
END
1 : h13 = 20: h12 = 21: ty = 15.5: tx = 0: H10 = 212: H11 = 144 GOTO 50
2 : h13 = 34: h12 = 35: tx = 0: ty = 15: H10 = 209: H11 = 136 GOTO 50
3 : h13 = 45: h12 = 46: tx = 0: ty = 14.5: H10 = 207: H11 = 129 GOTO 50
4 : h13 = 52: h12 = 54: tx = 0: ty = 14: H10 = 204: H11 = 120 GOTO 50
5 : h13 = 63: h12 = 65: tx = 0: ty = 13: H10 = 197: H11 = 100 GOTO 50
6 : h13 = 73: h12 = 76: tx = 0: ty = 12: H10 = 188: H11 = 74 GOTO 50
7 : h13 = 84: h12 = 86: tx = 0: ty = 11: H10 = 177: H11 = 42 GOTO 50
173
ПРИЛОЖЕНИЕ 7 Программа моделирования лабораторной работы №7
«Энергетические испытания шестеренного насоса»
CLS |
|
|
SCREEN 12 |
|
|
|
|
|
PRINT " |
Лабораторная работа № 7" |
|
PRINT " |
Энергетические испытания" |
|
PRINT " |
шестеренного насоса |
" |
|
|
PRINT "Введите степень открытия вентиля I: 1,2,3,4,5,6 "
INPUT n
|
174 |
ON n GOTO 1, 2, 3, 4, 5, 6 |
|
50 CLS |
|
|
|
PRINT " |
Вентиль I" |
|
|
|
|
|
|
PRINT " |
Манометр" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
Вакууметр" |
PRINT " |
|
Мерный" |
|
PRINT " |
бак- |
3л." |
|
|
|
PRINT " |
|
3" |
|
|
|
PRINT " |
2 |
" |
|
|
|
|
|
PRINT " |
|
1" |
|
DRAW "c15 b m200,420d40r120u40d10l120r60u50l200u120r20 e10f10e10f10e10bm80,260u40l40d40r20 ne10nh10 u60l40d40r20u20r20u160r300u10m400,70u20m360,70u10br20u20l10r20l10d20 br20r120d360bm480,330d130r80nr10u40nr10u40nr10u40nr10u10 "
DRAW "c15 bm260,60d60nl40d60m250,200r20m260,180bd80d60nl40d60 bm360,420e5g10e5u20l20u20bu40u40nr20u40r30 u23br20d23r30d40nl20d100l20d20e5g10e5 bm340,240u10nr23u20nr23u10m320,240u10nl21u20nl21u10 "
DRAW " c15 bm370,230u20m380,220m390,210d20 bm380,350nm370,330m390,330 bm300,350nm290,370nm310,370bd14r7l14 " CIRCLE (260, 220), 40, 15
CIRCLE (340, 360), 20, 15
CIRCLE (380, 300), 20, 15
CIRCLE (380, 220), 20, 15
CIRCLE (200, 120), 20, 15
CIRCLE (200, 320), 20, 15
CIRCLE (380, 300), 2, 15
CIRCLE (340, 360), 2, 15
CIRCLE (200, 120), 2, 15
CIRCLE (200, 320), 2, 15 point$ = "u18nf5ng5d32nf3ng3"
DRAW "c15 bm380,300 ta-30 x" + VARPTR$(point$) DRAW "c15 bm340,360 ta-30 x" + VARPTR$(point$) DRAW "c15 bm200,120 ta 150 x" + VARPTR$(point$) DRAW "c15 bm200,320 ta 150 x" + VARPTR$(point$) PAINT (220, 440), 9, 15
PAINT (260, 190), 9, 15
CIRCLE (380, 300), 15, 15, 0, 1.9
CIRCLE (340, 360), 15, 15, 0, 1.9
175
PRINT "Нажмите пробел"
SLEEP
DRAW "c0 bm200,120 ta 150 x" + VARPTR$(point$)
DRAW "c0 bm200,320 ta 150 x" + VARPTR$(point$)
CIRCLE (200, 120), 20, 15, -1.047, -4.18879
CIRCLE (200, 320), 20, 15, -2.094, -4.18879
PAINT (190, 110), 1, 15
PAINT (190, 310), 1, 15
DRAW "c15 bm200,120 ta-30 x" + VARPTR$(point$)
DRAW "c15 bm200,320 ta 30 x" + VARPTR$(point$)
CIRCLE (375, 440), 5, 15, 0, 4.7123
CIRCLE (385, 440), 5, 15, 3.1416, 1.57
LINE (520, 420)-(520, 459), 9
FOR x = 459 TO 340 STEP -1
CIRCLE (380, 300), 15, 15, 0, 1.9
CIRCLE (340, 360), 15, 15, 0, 1.9
LINE (481, x)-(559, x), 9
IF INT(x / 2) <> x / 2 GOTO 234
DRAW "c15 |
bm380,300 ta-30 x" + VARPTR$(point$) |
||
DRAW "c15 |
bm340,360 ta-30 x" + VARPTR$(point$) |
||
FOR i = 1 |
TO 3000 |
|
|
NEXT i |
|
|
|
DRAW "c0 bm380,300 ta-30 |
x" + VARPTR$(point$) |
||
DRAW "c0 bm340,360 ta-30 |
x" + VARPTR$(point$) |
||
DRAW "c15 |
bm380,300 ta-50 |
x" + VARPTR$(point$) |
|
DRAW "c15 |
bm340,360 ta-50 |
x" + VARPTR$(point$) |
|
FOR i = 1 TO 3000 NEXT i
DRAW "c0 bm380,300 ta-50 x" + VARPTR$(point$) DRAW "c0 bm340,360 ta-50 x" + VARPTR$(point$) DRAW "c15 bm380,300 ta-20 x" + VARPTR$(point$) DRAW "c15 bm340,360 ta-20 x" + VARPTR$(point$) FOR i = 1 TO 3000
NEXT i
DRAW "c0 bm380,300 ta-20 x" + VARPTR$(point$) DRAW "c0 bm340,360 ta-20 x" + VARPTR$(point$) 234 NEXT x
DRAW "c15 bm380,300 ta-30 x" + VARPTR$(point$)
DRAW "c15 |
bm340,360 ta-30 x" + VARPTR$(point$) |
PRINT " |
еще раз!" |
SLEEP |
|
CLS |
|
|
|
|
|
|
|
|
|
PRINT " |
Результаты наблюдений" |
PRINT "" |
|
PRINT " |
Положение вентиля I = "; n |
|
|
PRINT " |
Вакууметр (Рвх),мм.рт.ст. = "; a |
|
|
PRINT " |
Манометр (Рвых),кгс/см2 = "; b |
|
|
PRINT " |
Время наполнения бака (t),c = "; c |
|
|
PRINT " |
Амперметр (A),a = "; d$ |
|
|
PRINT " |
Вольтметр (V),в = "; e |
|
|
PRINT " |
Нажмите клавишу пробел" |
SLEEP |
|
RUN |
|
176
20 END
1 : a = 460: b = 0: c = 20: d$ = "0.60": e = 240 GOTO 50
2 : a = 450: b = 1: c = 21: d$ = "0.62": e = 240 GOTO 50
3 : a = 450: b = 2: c = 24: d$ = "0.65": e = 238 GOTO 50
4 : a = 420: b = 3: c = 31: d$ = "0.69": e = 238 GOTO 50
5 : a = 420: b = 4: c = 44: d$ = "0.72": e = 235 GOTO 50
6 : a = 400: b = 5: c = 210: d$ = "0.75": e = 235 GOTO 50
ПРИЛОЖЕНИЕ 8 Программа моделирования лабораторной работы №8
«Исследование объемного гидропривода с дроссельным регулированием»
CLS |
|
|
SCREEN 12 |
|
|
|
|
|
PRINT " |
Лабораторная работа № 8" |
|
PRINT " |
Исследование объемного гидропривода " |
|
PRINT " |
с дроссельным регулиролванием |
" |
|
|
|
PRINT "Введите степень открытия дросселя : 1,2,3,4,5 "
INPUT n
ON n GOTO 1, 2, 3, 4, 5, 6 50 CLS
point$ = "u18nf5ng5d32nf3ng3" flow$ = "u32nf10ng10"
flow1$ = "u18nf7ng7d36"
LINE (361, 449)-(619, 431), 9, B
LINE (180, 30)-(280, 20), 15, B PAINT (500, 441), 1, 9
DRAW "c15bm180,30"
177
FOR i = 1 TO 5
DRAW "r4nu4r4nu4r4nu4r4nu4r4nu7 " NEXT i
DRAW "c15bm40,300u120r70nd20u30l50u20l30nd10nu30u10f10e10f10 bm60,130u20r80d40l40nu40r30d10r50u20r20d100l20d40r40u40l20u20r40d30n l20r20u10r40d40l40u40r20u20r40d30l20u10l20u100nl80r120d40l30d50r10nu 10d30r40u40l20nl20u40r60d40nl20r20d40l40u30nu10l10nl10u50"
DRAW "c15bm460,260d40l60nu40l120nu20l80nu20l90u20nu60l20u40r40d40l20 bm400,140r120u20r60nu20d20m560,160nr40m580,180m600,160m580,140bd40d2 0bd80d20nl30d20l10m590,360l20m590,320l10bd20r20u10d20bd10bl20d20m560 ,400nr40m580,420m600,400m580,380bd40d20br40nu20d10l260u30d20br40u140
" |
|
|
|
|
|
|
DRAW " |
c15bm130,110u10r270u30 r10u30l130d30r10nr110d20l180d20 |
|||||
bm580,200m570,220r20m580,200 " |
|
|||||
DRAW "c15bm420,260e5f5e4bm480,260e5f5e4" |
||||||
CIRCLE |
(40, 320), 20, |
15 |
|
|
||
CIRCLE |
(30, 90), 10, 15 |
|
|
|||
CIRCLE |
(110, 212), 8, |
15 |
|
|
||
CIRCLE |
(530, 300), 20, 15 |
|
|
|||
CIRCLE |
(580, 80), 20, |
15 |
|
|
||
CIRCLE |
(580, 240), 40, 15 |
|
|
|||
CIRCLE |
(95, |
260), |
15, |
15, |
4.71, |
1.57 |
CIRCLE |
(125, |
260), |
15, |
15, |
1.57, |
4.71 |
||
DRAW |
"c15 |
bm110,260 ta-60 x" + VARPTR$(flow1$) |
||||||
DRAW |
"c15 |
bm210,244 a2 |
x" + VARPTR$(flow$) |
|||||
DRAW |
"c15 |
bm280,244 a2 |
x" + VARPTR$(flow$) |
|||||
DRAW |
"c15 |
bm390,224 a2 |
x" + VARPTR$(flow$) |
|||||
DRAW |
"c15 |
bm450,224 a2 |
x" + VARPTR$(flow$) |
|||||
DRAW |
"c15 |
bm130,146 a0 |
x" + VARPTR$(flow$) |
|||||
DRAW |
"c15 |
bm110,114 a2 |
x" + VARPTR$(flow$) |
|||||
DRAW |
"c15 |
bm80,130 ta135 |
x" + VARPTR$(flow1$) |
|||||
DRAW |
"c15 |
bm80,130 ta45 x" + VARPTR$(flow1$) |
||||||
LINE |
(280, 50)-(280, 60), 0 |
|
|
|||||
LINE |
(110, 200)-(95, 215), 15 |
|
||||||
LINE |
(110, 200)-(125, 215), 15 |
|
||||||
PAINT (580, 405), 1, 15 |
|
|
|
|||||
PAINT (580, 170), 1, 15 |
|
|
|
|||||
PAINT (580, 210), 1, 15 |
|
|
|
|||||
PAINT (580, 330), 1, 15 |
|
|
|
|||||
PAINT (580, 350), 1, 15 |
|
|
|
|||||
x5 = |
240: |
u5 = 140: GOSUB 444 |
|
|||||
x5 = |
415: |
u5 = 180: GOSUB 444 |
|
|||||
CIRCLE |
(190, |
190), |
10, |
15, |
4.71, |
1.57 |
||
CIRCLE |
(210, |
190), |
10, |
15, |
1.57, |
4.71 |
||
DRAW |
"c15 |
bm240,140 ta-25 u15nf5ng5d30" |
||||||
FOR x = 380 TO 300 STEP -1 |
|
|
||||||
LINE |
(x, 69)-(x + 10, 41), 15, B |
|
||||||
LINE |
(x - |
115, 60)-(x, 50), 15, B |
|
|||||
LINE |
(x - |
121, 60)-(x - 115, 40), 15, B |
||||||
LINE |
(x - |
121, 40)-(x - 118, 35), 15 |
||||||
LINE |
(x - |
118, 35)-(x - 115, 40), 15 |
||||||
PAINT (400, 60), 1, 15 |
|
|
|
|||||
PAINT (290, 45), 1, 15 |
|
|
|
|||||
PAINT (290, 65), 1, 15 |
|
|
|
|||||
DRAW |
"c15 |
bm580,80 ta-30 x" + VARPTR$(point$) |
||||||
DRAW |
"c15 |
bm530,300 ta-30 x" + VARPTR$(point$) |
||||||
DRAW |
"c15 |
bm40,320 ta-30 x" + VARPTR$(point$) |
||||||
FOR i = 1 |
TO 300 * a |
|
|
|
||||
NEXT |
i |
|
|
|
|
|
|
|
DRAW |
"c0 bm580,80 ta-30 x" + VARPTR$(point$) |
|||||||
DRAW |
"c0 bm530,300 ta-30 x" + VARPTR$(point$) |
|||||||
DRAW |
"c0 bm40,320 ta-30 x" + VARPTR$(point$) |
|||||||
DRAW |
"c15 |
bm580,80 ta-50 x" + VARPTR$(point$) |
||||||
|
|
|
|
|
|
|
178 |
DRAW |
"c15 bm530,300 ta-50 x" + VARPTR$(point$) |
||||||
DRAW |
"c15 bm40,320 ta-50 x" + VARPTR$(point$) |
||||||
FOR i = 1 TO 300 * a |
|
|
|
||||
NEXT |
i |
|
|
|
|
|
|
DRAW |
"c0 bm580,80 ta-50 x" + VARPTR$(point$) |
||||||
DRAW |
"c0 bm530,300 ta-50 x" + VARPTR$(point$) |
||||||
DRAW |
"c0 bm40,320 ta-50 x" + VARPTR$(point$) |
||||||
DRAW |
"c15 bm580,80 ta-20 x" + VARPTR$(point$) |
||||||
DRAW |
"c15 bm530,300 ta-20 x" + VARPTR$(point$) |
||||||
DRAW |
"c15 bm40,320 ta-20 x" + VARPTR$(point$) |
||||||
FOR i = 1 TO 300 * a |
|
|
|
||||
NEXT |
i |
|
|
|
|
|
|
DRAW |
"c0 bm580,80 ta-20 x" + VARPTR$(point$) |
||||||
DRAW |
"c0 bm530,300 ta-20 x" + VARPTR$(point$) |
||||||
DRAW |
"c0 bm40,320 ta-20 x" + VARPTR$(point$) |
||||||
CIRCLE (580, 80), 2, 15 |
|
|
|||||
CIRCLE (530, 300), 2, 15 |
|
|
|||||
CIRCLE (40, 320), 2, 15 |
|
|
|||||
CIRCLE |
(580, |
80), |
15, |
15, |
0, |
1.9 |
|
CIRCLE |
(530, |
300), |
15, |
15, |
0, |
1.9 |
|
CIRCLE |
(40, |
320), |
15, |
15, |
0, |
1.9 |
|
LINE |
(x, 69)-(x + 10, 41), 0, BF |
||||||
LINE |
(x - 115, 60)-(x, 50), 0, B |
||||||
LINE |
(x - 121, 60)-(x - 115, 40), 0, B |
||||||
LINE |
(x - 121, 40)-(x - 118, 35), 0 |
||||||
LINE |
(x - 118, 35)-(x - 115, 40), 0 |
||||||
NEXT |
x |
|
|
|
|
|
|
LINE |
(x, 69)-(x + 10, 41), 15, B |
||||||
LINE |
(x - 115, 60)-(x, 50), 15, B |
||||||
LINE |
(x - 121, 60)-(x - 115, 40), 15, B |
||||||
LINE |
(x - 121, 40)-(x - 118, 35), 15 |
||||||
LINE |
(x - 118, 35)-(x - 115, 40), 15 |
||||||
DRAW |
"c15 bm580,80 ta-20 x" + VARPTR$(point$) |
||||||
DRAW |
"c15 bm530,300 ta-20 x" + VARPTR$(point$) |
||||||
DRAW |
"c15 bm40,320 ta-20 x" + VARPTR$(point$) |
||||||
PRINT "Нажмите пробел" |
|
|
|
||||
SLEEP |
|
|
|
|
|
|
|
CLS |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
|
|
|
|
|
Результаты наблюдений" |
|
|
|
|
|
|
|
|
|
PRINT " |
|
|
|
Положение дросселя = "; n |
|||
|
|
|
|
|
|
|
|
PRINT " |
|
|
|
Время рабочего хода шток-поршня, c = "; a |
|||
|
|
|
|
|
|
|
|
PRINT " |
|
|
|
Вакууметр, мм.рт.ст. = "; b |
|||
|
|
|
|
|
|
|
|
PRINT " |
|
|
|
Манометр на входе в гидроцилиндр, кГс/см2 = |
|||
"; c |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
|
|
|
Манометр на выходе из гидроцилиндра, кГс/см2 |
|||
= "; |
d |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
|
|
|
|
|
Нажмите клавишу пробел" |
|
SLEEP |
|
|
|
|
|
|
|
RUN |
|
|
|
|
|
|
|
6 END
444 CIRCLE (x5, u5 - 10), 10, 15, 3.44, 5.98 CIRCLE (x5, u5 + 10), 10, 15, .3, 2.84 RETURN
|
|
179 |
1 |
: a = |
2.5: b = 350: c = 9.5: d = 1.28 |
GOTO 50 |
|
|
2 |
: a = |
3: b = 358: c = 9.8: d = 1.92 |
GOTO 50 |
|
|
3 |
: a = |
3.4: b = 366: c = 10.2: d = 4.48 |
GOTO 50 |
|
|
4 |
: a = |
3.8: b = 380: c = 10.5: d = 6.72 |
GOTO 50 |
|
|
5 |
: a = |
5.6: b = 475: c = 10.8: d = 11.84 |
GOTO 50 |
|
|
ПРИЛОЖЕНИЕ 9
Титульный лист расчетно-пояснительной записки к курсовой работе
Министерство общего и профессионального образования
Российской Федерации
Воронежский государственный технический университет
Кафедра «Технология машиностроения»
КУРСОВАЯ РАБОТА
по дисциплине : «Гидравлика, гидропневмопривод и гидропневмоавтоматика станочного оборудования»
Тема : «Расчет объемного гидропривода с дроссельным регулированием»
Выполнил: студент группы ТМ-951 ____________ К.В. Петров
180
Руководитель |
____________ В.В. Бородкин |
Нормоконтролер |
____________ В.Б. Бочаров |
Защищена _____________ |
Оценка ________________ |
Воронеж 1999
ПРИЛОЖЕНИЕ 10 Титульный лист расчетно-пояснительной записки к
курсовому проекту
Министерство общего и профессионального образования
Российской Федерации
Воронежский государственный технический университет
Кафедра «Технология машиностроения»
КУРСОВОЙ ПРОЕКТ
по дисциплине : «Гидравлика, гидропневмопривод специальных технологических систем»
Тема : «Проектирование объемного гидропривода с дроссельным регулированием»