Другие предметы \ Изыскания и проектирование железных дорог

Выполнение инженерных расчетов на ЭВМ IBM при проектировании железных дорог: Методические указания к курсовому и дипломному проектированию, страница 9


Таблица    4.1

I                     Номера        индексов                      1 Параметры                ,                                                                                         ,

1            i            i         i            i                  i                I I0III2I3I         4|5|

1           1           1         1           1                  1                1

Нк,   м                        12,48  13.25  1   10  1    0    1  - 7,13  1- 5.34  I

1            Г    .     1         1            1                  1                1 1к,   км                        10.9    11,55  1     1   1  0.751       0,8    1     0         |

i           i            i.i            1                  1........................................................................................................................................................           i

4.2. Спзуктура диалога

При выборе пункта меню "Обърц мнткаи" пользователь получает на экране систему меню   (рис.     4.21    для формирования данных и печати результатов.

В пкна 1 запрашиваются следующие данные: ширина основной площадки; начальный объем насыпи: начальный объем выемки: рабочая отметка в на­чале участка.   После ввода этих данных пользователь попадает в пкнп    2.

клнмв. yqafiTKnR, длинах участклв.. следушик за рабочими птмвткаии. При работе в этом окне пользователь вводит / корректирует/ эти данные. В нижней строке высвечивается подсказка об использований функциональных клавиш

1F1I - добавить,     |F2| - удалить   .IF3I - восстановить, IESCI  - выход.

После того,   как данные введены,  пользователь нажимает кл.|Е5С|,  (жна 2 исчезает и на его месте возникает ошю_3,   предназначенное лляпыбп-

польэователь получает возможность выдать на печать результаты расчета, а затем опять вернуться в qkuq_3 для выбора другого режима работы.

пользователь переходит в окно I для ввода новых данных,  а затем   пере­ходит в окна-2 и 3.

Окончание работы происходит при выборе пункта меню "Выход" в окне    3 или нажиме кл. |Е5С|в окне 3.

43


tfiM земляных работ по срелним рабочим о-плеткам

Is Ширина основной площадки                    6. 50

I! Начальный объем насыпи                              О

II Начальный объем выемки                              О

II Рабочая отметка в начале      участка      2. 48

(1_----------- --------- —-------------------                      ---------

|Раб.   отметка в конце участкаIIДлина участка,  следушего за отметкой!!!


3.25 10. 00

о

7.13


1.55 1.00 0.80 0.00


П Добавить Г2 Удалить F3 Восст ESK Выход


i

-Выбор нужного режима работьРг^г=т=

I) Печать результатов                                            II

I! Другое значение ширины основной площадки||
IВыходII


Рис.  4.2.  Исходные даннме и  печать результатов

4.3. Программа определения объемов земляных работ

Программа 4

set talk off sot. echo off set step off set stal lis сГГ

¥


set scoreboard off

set safety off

set exact off

set near on

set deleted on

set date german

set color to gr+/b, u+/r. h

ON KEY LABEL Fl do ppp

ON KEY LABEL F2 delete

ON KEY LABEL F3 recall

sele 3

use rab

DEFINE WINDOW wff FROM 10,1 TO 16,79 NONE:

NOFLOAT NOGROW SHADOW NOZOOM COLOR W*/BG+. W+/B. W/BG+ W+/BG+. V+/B,

W/BG+ TITLE' Данные о рабочей otml псе/длине участка'

8 0.0 to 24,80 double

@ 0,15 say 'Объем земляных работ по средним рабочим отметкам . ' Ь=0 х=0 у=0 fl=0

dime 2lC100),z2(100),z3C100),z4C100).mvC3),25C100).z6C100) mv(l)='  Печать результатов

mvC2)='  Другое значение ширины основной площадки... ' mv(3D='  Выход do while.t.

@ 0,0 to 24,80 double

@ 0,15 say ' Объем земляных работ по средним рабочим отметкам '

@ 3,10 to 9.60 double

©4,12 say'   ширина основной площадки                       '  get b pict'9999.99'

read

6 5,12 say'   Начальный объем насыпи                                '  get x plct'9999.99'

read
xx=x                                                                          •

e 6,12 say'  Начальный объем выемки                                 '   Bet у pict'9999. 99'

read

УУ=У

6 7,12 say' Рабочая отметка в начале участка ' get fl plct'9999.99'

read

ffl=fl

45


do pod sele 3 go top brouse fields f2:28: h='Раб. отметка в конце участка', h: 36: Ы'Длина участка,следующего за отметкой' WINDOW vFF all format COLOR SCHEME 10 set color to fir+/b, w+/r. b do while.t. nl=0 n2=0 n3=0

mm=l e 14,11 "enu mv.3,4 title 'Выбор нужного режима работы' read menu to mm save do case case mm=l

sele 3

go top do while. npt.eofO n3=n3+l 25Cn3)=f2

z6Cn3)=h                              .  '

q=Cfl+f2)/2 If q<=0

c=( 1.5«q*«2-( 4.4+b)*q+0.9)*h у=учс nl=nl+l zl(ni)=c z2fnl)=y fl=f2 else

If q-6<»0

a=C 1.5«q*«2+b*q+0.7)*h x=x+a n2=n2+l z3Cn2)*a z4Cn2)=x fl=f2 else

if x-J2<0 a=( 1.75«j«».24<: b-33 «q+9.7) «h

46


х=х+а

n2=n2+i

z3Cn2) = a

z4Cn2.1=x

fl=f2

else                                                                                        »

а= С 2«q**21< Ь-Э) *q +45. 7) *h x=x+a

n2=n2+l

z3Cn2) = a

24(n2) = x

fl=f2 endlf endlf endlf skip enddo

save screen to aaa clear

wait'                            Установите    бумагу.   Нажмите    кл.   <<  ENTER>>'

clear set device to print set printer to a4.txt clear

8 0,0 to 24,80 double

8 0,15 say 'Объем земляных работ по средним рабочим отметкам '

8 2,12 say'  Ширина основной площадки                           '  +stKb, 7,21

8 3,12 '. ау'   Начальный объем насыпи                               '   +strt xx, 7, 2)

8 4,12 say'   Начальный объем выемки                                '   +st.Kyy, 7,2)

8 5,12 say'  Рабочая отметка в начале участка    '    +strCffl,7.2)

8 7,12 say'  Рабочие отметки в конце участка      '

ns=8 do prt with z5, n3,10.ns

8 ns,12 say 'Длины участков,следующие за этими отметками' ns=ns+l

do prt wlthz6.n3,10, ns 8 ns,12 say 'Объемы выемок на участках' ns=ns+l

do prt with zl.nl,10,ns 8 ns,12 say 'Объемы выемок с нарастаицим итогом '

47

Скачать файл