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

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


площадь угловой диаграммы проектируемой кривой: в пределам круговой кривой, м, -

v = а- /(2Р)                                                             С2.6)

за пределами круговой кривой -

» - Ло(рап /2 + Сн - Юарад                                                   (2.7)

или

w = Сх - К /2)«огш                                                    С2.8)

где х - расстояние от НКК до данной "двадцатки".

ск

<—

■   НКК ^/^

ккк

Е

■4   Ж   *

X

V4

Б

ч------

к

Рис.  2.1. Угловая диаграмма проектируемой кривой

2.2. Структура, диалога

При выборе пункта меню "Пппсирт пппшапрй угппяыи пиагпамм пппекти-рцриыу кпиим«" пользователь получает на экране систему меню (рис.2.2) для формирования данных и печати результатов. В первом окне запраши­ваются следующие данные: угол поворота,градусов, минут; площадь угло­вой диаграммы: пикет конца полевых замеров.

После ввода этих данных пользователь попадает в окно 2 для ввода пчвррднпт значения пяпиуся Затем на экране появляется сишо_3, пред­назначенное пля выпоранужногорежимарапЪты.

При выборе пункта меню "Пячатьпр-эультятпв" пользователь получает возможность просмотреть на экране или выдать на печать результаты рас-

29


чета. Для этого выдается соответствуший меню-запрос "Выпача ил дкран" или "Випача на пачазъ!!. После завершения печати информации по введен­ным данным пользователь переходит в пк-нп Р. для ввода очередного значе­ния радиуса, а затем в окно 3.

При выборе пункта меню "Другой чиаи^нир угла ппвпрпта" ппль.чпяятрль переходит в пк-нп 1 для ввода данных, а затем переходит в шшо~.2_и пкь но_3.

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

-Площадь угловой диаграммы проектируемой кривой-

НУгол поворота: градусов 20 минут 30                  II

II Площадь угловой диаграммы сущ. кривой               175.9911

II Пикет конца полевых замеров                               70  II

"  ■                                                                                                                                                                                                                                                                                                                                           "

li           -il

II Очередное значение радиуса                      /6-5011

и          I                                                   и

1г=Выбор нужного режима работы=п
II    Печать результатов                 II

II    Другое значение радиуса        II

II    Другое значение угла поворота II
II    Выход                                      II

!■'I

I'           ,    Рис.  2.2.  Формирование данных и печать результате»

2. 3. Определениеплошалвиугловыхшлогжшпроектируемых

Программа 2 set talk off set: echo off ■ set step off set status off sr>t scoreboard off set safety off

30


set exact nff set near on set deleted on set date gerraan set color to gr+/h,w+/r,b 6 0,0 to 24,80 double

5 0,15 say 'Площадь угловой диаграммы проектируемой кривой '
а=0

Ь=0

оО

d=0

г=0

dime mvC4),xxC100),wu(100),qmqC100)

mvCl)='  Печать результатов                         '

mv(2J='  Другое значение радиуса        '

mvC3)='  Другое значение угла поворота.. '

mvC 4)='  Выход do while.t.

Й 0,0 to 24.80 double

в 0,15 say 'Площадь угловой диаграммы проектируемой кривой '

g 3,10 to 9,61 double

в 4,12 say ' Угол поворота градусов' get a plct'99'

8 4,42 say ' минут ' get b plct'99'

read
bb=b                                                                                    ',

6 5,12 say' Площадь угловой диаграммы сущ. кривой '
get с plcf 999999.999'

read

@ 6,12 say'  Пикет конца полевых замеров ' get d plcf 999999' read do while.t.

8 11,10 to 13,61 double Й 12,12 say 'Очередное    значение радиуса 8 12,45 get г plcf 9999' read mm=l

в 15,16   menu mv.4,4 title 'Выбор нужного режима работы' read menu to mm save do case

31


• case mm=l

1=3.14153xCa+b/60D/180

z-c/1

e=d-2

k= r*l

f=k/2+z-f0.005

p-e-k/2                                                                                                                         , i

u=p+k

n=lntCp/20)

n=n«20

If p>n                                                                                                                                                1

n=n+20

endlf

x=n-p

1=0

w=x**2/(2*r)

do while.t.

1=1+1

if i>100

1 = 100

exit

endlf

xxCi)=x

и«С1)=ы

x=x+20

If Cx-k)<0

w=x**2/(2*r)

else

If x-f>0

exit

else

u=Cx-k/2>l endlf

endlf

enddo

save screen to aaa

do spf with 'pp', 'pp2'

restore screen from aaa

set color to gr+/h. ы+/г. b

cazo mrn=2

32

I
Скачать файл