2805
.pdf
|
|
161 |
50 : CLS |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
|
B VIII" |
PRINT " |
BI " |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
Y |
X |
" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
мерный" |
PRINT " |
бак V=3л" |
PRINT " |
-->" |
DRAW "c15 b m260,420 |
|
m240,440r40m260,420u20l100u40r60u40bu160u80l120d20r20m80,140r40m80,1
00r20bd20l30u20d40u20r30bd20d20bd160d40r60bu280u20r140u20r40d40l20u4
0l20d40r40u20r60u20m440,80u40m400,80u20br20u30r20l40r20d30br20r160d3
00l100d40br60d40l120u40"
LINE (80, 320)-(120, 160), 15, B
LINE (200, 320)-(240, 160), 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
IF BVIII > 4 THEN h12 = h12 + 30: h13 = h13 + 10 x1 = 319: x2 = 319: g = 0
z = 20: x10 = INT(h12 / z): x20 = INT(h13 / z)
IF n = 0 THEN h = z: x20 = h13: g = 1000: LINE (81, x1)- -(119, x1 - 20), 7, BF: GOTO 100
FOR h = 1 TO z
FOR x1 = x1 TO x1 - x10 STEP -1 LINE (81, x1)-(119, x1), 9
NEXT x1
100 : FOR x2 = x2 TO x2 - x20 STEP -1 LINE (201, x2)-(239, x2 - 20), 7, BF LINE (201, x2)-(239, x2), 9
FOR i = 1 TO g NEXT i
NEXT x2
LINE (81, x1)-(119, x1 - 20), 7, BF FOR i = 1 TO 3000
NEXT i NEXT h
LINE (500, 400)-(500, 438), 9 FOR x4 = 439 TO 405 STEP -1 LINE (441, x4)-(559, x4), 9 FOR i = 1 TO 7000
162
NEXT i NEXT x4
PRINT " Нажмите клавишу пробел" SLEEP
IF BVIII > 4 THEN h12 = h12 - 30: h13 = h13 - 10 CLS
PRINT " BI"; " X", " Y", " Tx", " Ty", "B VIII" PRINT
PRINT n; h13; "дел.", h12; "дел.", tx; "c", ty; "с", BVIII PRINT ""
PRINT "Нажмите клавишу пробел" SLEEP
RUN
END
1 : h13 = 20: h12 = 21: ty = 15.5: tx = 0: IF n = 0 THEN h13 = 20: h12 = 0: tx = 31: ty = 0
GOTO 50
2 : h13 = 34: h12 = 35: tx = 0: ty = 15: IF n = 0 THEN h13 = 35: h12 = 0: tx = 30: ty = 0
GOTO 50
3 : h13 = 45: h12 = 46: tx = 0: ty = 14.5: IF n = 0 THEN h13 = 53: h12 = 0: tx = 28: ty = 0
GOTO 50
4 : h13 = 52: h12 = 54: tx = 0: ty = 14: IF n = 0 THEN h13 = 64: h12 = 0: tx = 26: ty = 0
GOTO 50
5 : h13 = 63: h12 = 65: tx = 0: ty = 13: IF n = 0 THEN h13 = 75: h12 = 0: tx = 24: ty = 0
GOTO 50
6 : h13 = 73: h12 = 76: tx = 0: ty = 12: IF n = 0 THEN h13 = 86: h12 = 0: tx = 22: ty = 0
GOTO 50
7 : h13 = 84: h12 = 86: tx = 0: ty = 11: IF n = 0 THEN h13 = 98: h12 = 0: tx = 20: ty = 0
GOTO 50
163
ПРИЛОЖЕНИЕ 3 Программа моделирования лабораторной работы №3
«Экспериментальная иллюстрация уравнения Д.Бернулли. Построение напорной и пьезометрической линий»
CLS
SCREEN 12
VIEW PRINT 2 TO 30
PRINT " |
Лабораторная работа # 3" |
PRINT " |
Экспериментальная иллюстрация уравнения Д.Бернулли. |
" |
|
PRINT " |
Построение напорной и пьезометрической линий. |
" |
|
|
PRINT "Температура воды t=20 C. Кинематический коэффициент вязкости воды-0.0101 см2/c "
PRINT "Введите положение вентиля B IV : 1 , 2"
INPUT n
ON n GOTO 1, 2, 3 50 : CLS
|
|
|
|
164 |
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
Y |
X" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
|
H14 |
H15 |
H16 |
H17 |
H18 |
H19 |
H20 |
" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
|
14 |
15 |
16 |
17 |
18 |
19 " |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
|
|
|
|
|
|
20 |
" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
|
|
|
|
|
|
B IV" |
DRAW "c15 b m280,420m260,440r40m280,420u20l210u100r20u20bu160u20l40d20bd160d20r2 0bu200u60r90d80r10m150,160r20m150,120r10bd40d120r40u40d40r20u10m260, 290u20m220,290u10br40r20u40d40r20u10m340,290u20m300,290u10br40r20u40 d40r40u10r20u30d30r20d20l40u10br40r40u40d40r40u40d100r40u100d100l40d 60l40u10m440,410u20m480,410u10bl20 u15l15r30l15d15bl20 l60d25u5br20d20l40u20 "
x = 190
LINE (x, 240)-(x + 20, 40), 15, B
LINE (x + 80, 240)-(x + 100, 40), 15, B
LINE (x + 160, 240)-(x + 180, 40), 15, B
LINE (x + 220, 240)-(x + 240, 40), 15, B
LINE (x + 280, 240)-(x + 300, 40), 15, B
LINE (x + 320, 240)-(x + 340, 40), 15, B
LINE (x + 360, 240)-(x + 380, 40), 15, B LINE (40, 280)-(60, 120), 15, B
LINE (80, 280)-(100, 120), 15, B PAINT (230, 280), 9, 15
PAINT (250, 280), 9, 15
PAINT (310, 280), 9, 15
PAINT (330, 280), 9, 15
PAINT (280, 430), 9, 15
PAINT (160, 130), 9, 15
PAINT (160, 150), 9, 15
PAINT (420, 280), 9, 15
PAINT (450, 400), 9, 15
PAINT (470, 400), 9, 15
x1 = 280: x2 = 280: x3 = 240: x4 = 240: x5 = 240: x6 = 240: x7 = 240: x8 = 240: x9 = 240
z = 20
x10 = INT(y / z): x20 = INT(xb / z): x30 = INT(h14 / z): x40 = INT(h15 / z): x50 = INT(h16 / z): x60 = INT(h17 / z): x70 = INT(h18 / z): x80 = INT(h19 / z): x90 = INT(h20 / z) FOR h = 1 TO z
FOR x3 = x3 TO x3 - x30 STEP -1 LINE (x, x3)-(x + 20, x3), 9 NEXT x3
FOR x4 = x4 TO x4 - x40 STEP -1 LINE (x + 80, x4)-(x + 100, x4), 9 NEXT x4
FOR x5 = x5 TO x5 - x50 STEP -1 LINE (x + 160, x5)-(x + 180, x5), 9 NEXT x5
FOR x6 = x6 TO x6 - x60 STEP -1 LINE (x + 220, x6)-(x + 240, x6), 9
165
NEXT x6
FOR x7 = x7 TO x7 - x70 STEP -1 LINE (x + 280, x7)-(x + 300, x7), 9 NEXT x7
FOR x8 = x8 TO x8 - x80 STEP -1 LINE (x + 320, x8)-(x + 340, x8), 9 NEXT x8
FOR x9 = x9 TO x9 - x90 STEP -1 LINE (x + 360, x9)-(x + 380, x9), 9 NEXT x9
FOR x1 = x1 TO x1 - x10 STEP -1 LINE (40, x1)-(60, x1), 9
NEXT x1
FOR x2 = x2 TO x2 - x20 STEP -1 LINE (80, x2)-(100, x2), 9
NEXT x2
LINE (40, x1)-(60, x1 - 10), 7, BF LINE (80, x2)-(100, x2 - 10), 7, BF FOR i = 1 TO 8000
NEXT i NEXT h
PRINT "Нажмите клавишу пробел" SLEEP
CLS
PRINT " X"; " Y"; " H14"; " H15"; " H16";
"H17"; " H18"; " H19"; " H20"
PRINT " "; xb; " "; y; " "; h14; " "; " "; h15; " "; h16; " "; h17; " "; " "; h18; " "; h19; " "; h20
PRINT " Нажмите клавишу пробел" SLEEP
RUN
3 : END
1 : h14 = 108: h15 = 105: h16 = 71: h17 = 73: h18 = 68: h19 = 66: h20 = 61: xb = 39: y = 40
GOTO 50
2 : h14 = 160: h15 = 152: h16 = 114: h17 = 116: h18 = 111: h19 = 106: h20 = 101: xb = 50: y = 52
GOTO 50
166
ПРИЛОЖЕНИЕ 4 Программа моделирования лабораторной работы №4
«Определение коэффициента потерь на трение по длине трубопровода (коэффициента Дарси) »
CLS |
|
SCREEN 12 |
|
VIEW PRINT 2 TO 30 |
|
PRINT " |
Лабораторная работа # 4" |
PRINT " |
Определение коэффициента потерь на трение" |
PRINT " |
по длине трубопровода (коэффициента Дарси) |
" |
|
|
PRINT "Температура воды t=20 C.Кинематический коэффициент вязкости
воды-0.0101 см2/c " |
|
|
|
|
|
|
|
|
|
PRINT "Введите степень открытия вентиля 0,1,2,3,4,5 " |
|
|||
INPUT n |
|
|
|
|
ON n + 1 GOTO 1, 2, 3, 4, 5, 6 |
|
|
||
50 : CLS |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
PRINT " |
X |
Y |
H12 |
H13 |
" |
|
|
|
|
|
167 |
|
|
PRINT " |
B II" |
DRAW "c15 b m540,340 |
|
r40u20d80l200d25u5br20d20l40u20bm460,340l40u20d20l180u300l140d20r40d
20u20l80d20bd160d20r80u20d20l40d140r60u20d40m180,400u30r20l40r20d30m
200,380d40m160,380d20br40r60d20m240,440r40m260,420" LINE (560, 320)-(600, 40), 15, B
LINE (400, 320)-(440, 40), 15, B
LINE (460, 360)-(540, 320), 15, B LINE (40, 240)-(80, 80), 15, B LINE (120, 240)-(160, 80), 15, B PAINT (500, 340), 9, 15
PAINT (260, 430), 9, 15
PAINT (170, 400), 9, 15
PAINT (190, 400), 9, 15
x1 = 320: x2 = 320: x3 = 240: x4 = 240 IF n = 0 THEN h = 1: GOTO 15
h12 = c: h13 = d: x = a: y = b + 20: z = 20
x10 = INT(h12 / z): x20 = INT(h13 / z): x30 = INT(x / z): x40 = INT(y / z)
FOR h = 1 TO z
FOR x1 = x1 TO x1 - x10 STEP -1 LINE (400, x1)-(440, x1), 9 NEXT x1
FOR x2 = x2 TO x2 - x20 STEP -1 LINE (560, x2)-(600, x2), 9 NEXT x2
FOR x3 = x3 TO x3 - x30 STEP -1 LINE (40, x3)-(80, x3), 9
NEXT x3
FOR x4 = x4 TO x4 - x40 STEP -1 LINE (120, x4)-(160, x4), 9 NEXT x4
15 : LINE (40, x3)-(80, x3 - 20), 7, BF LINE (120, x4)-(160, x4 - 20), 7, BF FOR i = 1 TO 5000
NEXT i NEXT h PRINT PRINT PRINT PRINT PRINT
PRINT "Нажмите клавишу пробел" SLEEP
CLS
PRINT " BII", " X", " Y", " H12", " H13" PRINT
PRINT n, a; "дел.", b; "дел.", c; "см", d; "см" PRINT
PRINT “Нажмите клавишу пробел”
SLEEP RUN END
1 : a = 0: b = 0: c = 0: d = 0 GOTO 50
2 : a = 20: b = 21: c = 123: d = 124 GOTO 50
3 : a = 30: b = 31: c = 130: d = 28 GOTO 50
4 : a = 40: b = 42: c = 162: d = 54 GOTO 50
168
5 : a = 50: b = 52: c = 181: d = 65 GOTO 50
6 : a = 61: b = 63: c = 203: d = 76 GOTO 50
ПРИЛОЖЕНИЕ 5 Программа моделирования лабораторной работы №5
«Определение коэффициента местных сопротивлений»
CLS |
|
|
|
|
|
|
|
SCREEN 12 |
|
|
|
|
|
|
|
VIEW PRINT 2 TO 30 |
|
|
|
|
|
||
" |
|
|
Лабораторная работа № 5" |
|
|||
" |
|
|
Определение коэффициента |
" |
|||
" |
|
|
местных сопротивлений |
" |
|||
|
|
|
|
|
|
|
|
"Температура воды t=20 C. Кинематический коэффициент вязкости |
|||||||
воды-0.0101 см2/c " |
|
|
|
|
|
||
|
|
|
|
|
|
|
|
"Введите положение вентиля B II : 1,2,3,4,5" |
|
|
|||||
INPUT |
n |
|
|
|
|
|
|
ON n GOTO 1, 2, 3, 4, 5, 6 |
|
|
|
|
|||
50 : CLS |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
" |
|
BII" |
|
|
|
|
|
|
|
|
|
|
|
|
|
" |
Y |
X" |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
" |
|
H14 |
H15 |
H16 |
H17 |
H18 H19 |
|
H20 " |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
" |
|
14 |
15 |
16 |
17 |
18 |
|
19 " |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
" |
|
|
|
|
|
|
|
20 " |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
" |
|
|
|
|
|
B IV" |
DRAW "c15 b m280,420m260,440r40m280,420u20l210u100r20u20bu160u20l40d20bd160d20r2 0bu200u60r90d80r10m150,160r20m150,120r10bd40d120r40u40d40r20u10m260,
169
290u20m220,290u10br40r20u40d40r20u10m340,290u20m300,290u10br40r20u40
d40r40u10r20u30d30r20d20l40u10br40r40u40d40r40u40d100r40u100d100l40d 60l40u10m440,410u20m480,410u10bl20 u15l15r30l15d15bl20 l60d25u5br20d20l40u20 "
x = 190
LINE (x, 240)-(x + 20, 40), 15, B
LINE (x + 80, 240)-(x + 100, 40), 15, B
LINE (x + 160, 240)-(x + 180, 40), 15, B
LINE (x + 220, 240)-(x + 240, 40), 15, B
LINE (x + 280, 240)-(x + 300, 40), 15, B
LINE (x + 320, 240)-(x + 340, 40), 15, B
LINE (x + 360, 240)-(x + 380, 40), 15, B LINE (40, 280)-(60, 120), 15, B
LINE (80, 280)-(100, 120), 15, B PAINT (230, 280), 9, 15
PAINT (250, 280), 9, 15
PAINT (310, 280), 9, 15
PAINT (330, 280), 9, 15
PAINT (280, 430), 9, 15
PAINT (160, 130), 9, 15
PAINT (160, 150), 9, 15
PAINT (420, 280), 9, 15
PAINT (450, 400), 9, 15
PAINT (470, 400), 9, 15
x1 = 280: x2 = 280: x3 = 240: x4 = 240: x5 = 240: x6 = 240: x7 = 240: x8 = 240: x9 = 240
z = 20
x10 = INT(y / z): x20 = INT(xb / z): x30 = INT(h14 / z): x40 = INT(h15 / z): x50 = INT(h16 / z): x60 = INT(h17 / z): x70 = INT(h18 / z): x80 = INT(h19 / z): x90 = INT(h20 / z)
FOR h = 1 TO z
FOR x3 = x3 TO x3 - x30 STEP -1 LINE (x, x3)-(x + 20, x3), 9 NEXT x3
FOR x4 = x4 TO x4 - x40 STEP -1 LINE (x + 80, x4)-(x + 100, x4), 9 NEXT x4
FOR x5 = x5 TO x5 - x50 STEP -1 LINE (x + 160, x5)-(x + 180, x5), 9 NEXT x5
FOR x6 = x6 TO x6 - x60 STEP -1 LINE (x + 220, x6)-(x + 240, x6), 9 NEXT x6
FOR x7 = x7 TO x7 - x70 STEP -1 LINE (x + 280, x7)-(x + 300, x7), 9 NEXT x7
FOR x8 = x8 TO x8 - x80 STEP -1 LINE (x + 320, x8)-(x + 340, x8), 9 NEXT x8
FOR x9 = x9 TO x9 - x90 STEP -1 LINE (x + 360, x9)-(x + 380, x9), 9 NEXT x9
FOR x1 = x1 TO x1 - x10 STEP -1 LINE (40, x1)-(60, x1), 9
NEXT x1
FOR x2 = x2 TO x2 - x20 STEP -1 LINE (80, x2)-(100, x2), 9
NEXT x2
LINE (40, x1)-(60, x1 - 10), 7, BF LINE (80, x2)-(100, x2 - 10), 7, BF FOR i = 1 TO 8000
NEXT i NEXT h
|
|
170 |
"Нажмите клавишу пробел" |
||
SLEEP |
|
|
CLS |
|
|
|
|
|
|
|
|
" |
Результаты наблюдений: " |
|
" |
" |
|
" |
Положение вентиля BII = "; n |
|
|
|
|
" |
Показания ротаметров (дел.): X="; xb; "Y="; |
|
y |
|
|
|
|
|
" |
Показания пьезометров (см.):" |
|
|
|
|
" |
"; "H14="; h14; "H15="; h15; "H16="; h16; "H17="; h17; |
|
"H18="; |
h18; "H19="; h19; "H20="; h20 |
|
|
|
|
|
|
|
|
|
|
" |
Нажмите клавишу пробел" |
|
SLEEP |
|
|
RUN |
|
|
6 END |
|
|
1 : h14 |
= 91.5: h15 = 75.5: h16 = 65.5: h17 = 67: h18 = 66: h19 = |
|
64: h20 |
= 59: xb = 34: y = 35 |
|
GOTO 50 |
|
|
2 : h14 |
= 97.5: h15 = 80.5: h16 = 70: h17 = 71.5: h18 = 70.5: h19 = |
|
68.5: |
h20 = 63: xb = 45: y = 46 |
|
GOTO 50 |
|
|
3 : h14 |
= 105: h15 = 87: h16 = 75.5: h17 = 77.5: h18 = 76: h19 = |
|
73.5: |
h20 = 67.5: xb = 52: y = 54 |
|
GOTO 50 |
|
|
4 : h14 |
= 122: h15 = 101: h16 = 88: h17 = 90: h18 = 88.5: h19 = |
|
85.5: |
h20 = 78.5: xb = 63: y = 65 |
|
GOTO 50 |
|
|
5 : h14 |
= 142.5: h15 = 117.5: h16 = 102: h17 = 105: h18 = 103: h19 = |
100: h20 = 92: xb = 73: y = 76 GOTO 50
ПРИЛОЖЕНИЕ 6 Программа моделирования лабораторной работы №6