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

it-   —------------------      .i

II КУРСОВОЕ И ДИПЛОМНОЕ ПРОЕКТИРОВАНИЕ II
У     Тяговые расчеты                                  II

=Я

II Возможные репмы работы

ТЯГОВЫЕ РАСЧЕТЫ

ПЕЧАТЬ

ВЫХОД

Рис.   1.3.  Формирование данных  по за­даче  "Тяговые расчеты"

=Тяговые расчеты=

П=Серия локомотивам
II     ' ТЭ10                   II

В=Вариант расчета 1=^]

IIII НИ

IIУ НУ НИ УII

IIУ

It

=Данные о локомотиве=

Масса локомотива

129 Масса состава

2400 Максимальная скорость

100 Начальная скорость

50 Механическая работа локомотива

100 Время хода поезда 5 Все верно? Да Нет'

=т)П=

У УДанные об уклоне/длине эл-та профиля УН

IIII     ц     м                             ---        ИII

II ННомерЦУклонН Длина эл-та профиля   УН

111 0.0011 211 3.0011 311 3.4011

1111

ННИДобавить РЙУдалить F3Bocct ЕБКВыходНН

=!11'  -                                                      'HI

Рис. 1Л.  Выбор варианта расчета

10

При  работе  В окне   "Данные  nfi  цкппне   /ЦПИНЯ  члеиента пртЬмпн/" пользователь вводит или корректирует данные об уклоне,   длине элемента профиля.

Для этого используются следующие функциональные клавиши:

добавление новой записи:

IF1I

IF2I

удаление записи:

IF3I  -

восстановление удаленной записи:

IESCI
i_______ i

выход.

В нижней строке высвечивается подсказка об использовании Функцио­нальных клавиш.

После того,   как данные об уклоне и длине    элемента    профиля    введены, пользователь,   нажимая кл. lESCj.   выходит из окна 4.

Далее идет расчет. О начале и конце расчета пользователь узнает из сообщений, выдаваемых на экран терминала. После окончания расчета пользователь опять попадает в окно I для выбора очередной серии локо­мотива. Нажатие кл. (ЕЗуиз окна I возвращает пользователя в главное меню. "Тяговые расчеты".

При выборе пункта"Печать" пользователь получает возможность выдать на печать'таблицу "Тяговые расчеты" С рис. 1.5).

На экране высвечивается окно "Серияпгжпиптнйя" Пользователь выби­рает серию локомотива и в окне 2 ииодитиапиаитрасчета. Предполагает­ся, что все данные уже введены по этой серии локомотива и варианту расчета. В противном случае пользователю выдается сообщение об отсут­ствии данных, и нужно перейти к пункту "Тяговые расчеты" для данных. Имеется возможность указать два режима вывода: "Иидачанаякран" или "Яыпяияняпечать". Для этого выдается соответствующее меню - запрос. После завершения печати документа по выбранной серии локомотива и ва­рианту расчета пользователь, нажав кл. |ESCl, возвращается в окно "Се­рия локомотива", а далее при помощи кл. IE5CI пользователь возвращает­ся в меню "Тяговые расчеты".

II

=Тяговые расчеты=

II Вариант расчета 1 II

и                           —ч

Рис. 1.5. Таблица результатов тяговых расчетов 1.3. Определение  скорости, времени шла

и механической работы локомотива

Программа 1 set talk off set echo off set step off set status off set scoreboard off set safety off set exact off set near on set deleted on set date, german set color to gr+/b, w+/r, b ON KEY LABEL Fl do ppp ON KEY LABEL F2 delete ON KEY LABEL F3 recall

DEFINE WINDOW uff FROM 8,40 TO 20.79 NONE

NOFLOAT NOGROW SHADOW NOZOOM COLOR W+/BG+. W+/B. W/BG+ W+/BG+. W+/B. W/BG

+ TITLE'Данные об уклоне/длине зл-та пройм ля'

12

■vCl)-'

mvC2)='

mv(3b'

mv(4v

mvC.

iw(6)«'

mvC7>«'

mvO->  •

mv(9)-'

rovClOb'

mvCll)='

lVl

@ 0.0 to 24.80 double

@ 0.30 say 'ТяГОвМВ

do while.t.

в 2,20 menu mv, 11,1 title 'Серия жжомотива'

read menu to Iv save

IF lv-0

clear exit

endlf

rv=lv

@ 2,45 to 4,68 double

noml=l

6 3,48 say

read

sele 1

count to nl

If nl>0

seek stKlv,2)+st.Knoral,l)

If .not.foundO append blank rerd  ksl with rv.nom with noml

13

endlf else append blank

repl ksl with rv.nom with noml endlf a=0

8 6,2 to 23.38 double @ 6,6 say* Данные о локомотиве' do while.t.

e 8,6 say ' Масса локомотива e 9,9 get a

« 10,6 spv ' Масса состава e 11,8 get b

@ 12,6 say' Максимальная скорость e 13,9 get с

e 14,6.say' Начальная скорость й 15,9 get d @ 16,6 say' Механическая работа локомотива'

5 17.9 get e

@ 18,6 say' Время хода поезда

в 19,9 get f

read

6  21,11 say*Все верно ?* '
men=l

6 22,13 prompt'Да'

8 22,18 prompt'Нет '

menu to men

If men=l

exit

endlf

enddo

ra=a

rb=b

roc

rd=d

re=e

rf-f

do pod

rm=l.

sele 2

14