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

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


set pvrn'-t пГГ

■ и,! нв.чг пр.

set deleted on

=-pf date german

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

8 0.П to 24.80 double

P 0.15 say 'Смешение круговой кривой при увеличении радиуса ' а--О 1,-п

г1 =0 П--0

di me mv( 3). хх( 1003. wuC 1001, qmqC 100) nv(1i '  Печать результатов

mv( ?'!--'  Другое значение угла поворота......... '

mv(3b'  Выход                                                                '

*do uhl le. t.

<ё 0.0 to 24,80 double

(? 0,15 say 'Сношение    круговой кривой при увеличении радиуса '

8 ЗЛО to 9,60 double

do vhile.t.

<? 4,12 say '  Угол поворота градусов'  get a plct'99' . 8 4.4.° say '  минут    '  get  b pict'99'

rear!

bb=b

'"' 5,5? say' Радиус сушеетвуюцей кривой       ' get rl plct'99999999'

read

6 6,12 say'  Начало существующей круговой Кривой'  get h plct'99999999' read

@ 7.12 say'  Радиус проектируемой кривой                  '  get r2 plct'9999999'

read m№=l do while.t.

@ 15.16    menu nv;3.3 title 'Выбор нужного режима работы'

read menu to mm save

di i case

■" ise mm=l

(   3.13159*Ca+b/60)/360

c2=2«rl*c

30


UCr-2 rl)*t.anCc)

z-Cr2-rl)/ccMiCc)

q=t+c2

hl-h-t

h3-h+c2

h2-h3+t

y=lnt(hJ/20)

y« y*20

if hl>y y=y+20

enclif

x»y-hl

>*X+7.5wO. 001

1-0

do wliiJe.L. If (x--U<--0 u= гй-sqrtC absC r2**2-x»*Zi)

l-l+l

if 1>100

1 = 100 ' endif

xxCi)=x

ww( l)=u

x=x+20

else if (x~q)<=0

f=Ct+c2/2~x)/rl

u=rl+zxcost'f)-sqrtC r2**2- z*«2«(SinCD)«*2)

1-1+1

xxCi)-x

uuQ)=u

x-xf20

else

ql»2*t+c2~X If ql<.---0

a2*ci-c2-2*t

exit else

u= r2-sqrtC r2**2-ql**2 J 1*1+1

39


xxC iD=x ww( 1 ) = u x-x+20 endif

endi f

endif

enddo

save screen to aaa do spf with  ' ppp'.'ppp2'-

restore screen frora aaa

set  color' to gr+/b, w+/r, b i ase1 nro=2 н loop exi t.      •

otherwise

с I ear

return

endcase

enddo

enddo

set color to gr+/b, w-c'r, h

re' urn BaavJhiaibL cacueia

Смещение круговой кривой при увеличении радиуса
Угол поворота:   градусов    18,   минут   б
Радиус существующей кривой                                                      955

Начало существующей круговой кривой                                 540104 '

Радиус проектируемой кривой                                                    1200

Длина существующей кривой                                                  300.73

Длина проектируемой кривой                                                  377.88

Разница в тангенсах                                                                  38.90

Начало круговой кривой проектируемой                                 540065

Конец круговой кривой существующей                                   540405

Конец круговой кривой проектируемой                                   540444

: N :  Дополнение пикета начала '•   Величина нормали:


:  1:                     14.905

:  ?:                     34.905


0. 09? 0. 508


:N : Дополнение пикета начала : Величина нормали:


3:

. 54.905

4:

74.905

5:

94.905

6:

114.905

7:

134.905

8:

154. 905

9:

174.905

10:

194.905

11:

214.905

12:

234.905

13:

254.905

14:

274.905

15:

294.905

16:

314.905

17:

334.905

18:

354.905

19:

374.905

1.122 1.658 2.108 2. 475

2.  750 2.941 3.046

3.  065 2.998 2.844 2.604 2.277 1.865 1.366 0.781 0.232 0.005


Разница в длине проектируемого и существушего пути  -0.644

4. ОПРЕДЕЛЕНИЕОБЪЕМ»ЗЕНЛЯШРАБОТ ПОГЛАВНОМ/ ПУТИНОВЫХЛИНИИ

Для новый линий подсчеты объемов земляных работ по главному пути Оз.р с целью сравнения вариантов трассы в курсовом и дипломном проек­тировании производят обычно приближенным способом по средним рабочим отметкам Пер отдельным участков. При вычисленном для данного участка значении Нср по готовым таблицам или графикам устанавливается покило-метровый объем, который затем умножается на длину участка 1..

Q3. р С отдельно по насыпям и выемкам) определяется по формуле [13

0з-р = > ql.                                                               (4.1)

Такая схема расчета в принципе может быть сохранена и при определе­нии объемов земляных работ на ЭВМ с той лишь разницей, что при машин­ном счете вместо использования готовых значений q надо предусмотреть определение площади поперечного профиля земляного полотна w   при   каж-

41


дом значении Hep. Подсчеты следует производить по формуле

Оз.р  = Zfl.                                                               С4.2)

Возможны подсчеты объемов земляных работ и по средним площадям попе­речных профилей земляного полотна: по известным рабочим отметкам на концах участка предварительно определяют площади поперечных профилей, а затем их среднее значение, которое умножают на длину участка1.

4.1. Определение объемов земляных работ по средним рабочим отметкам С с последовательным вводом информации по участкам!

Учитывая особенности ввода исходной информации, в табл. 4.1 в ка­честве примера приведены подготовленные для ввода в машину значения Н и I. полученные из продольного профиля, показанного на рис. 4.1. Про­филь разбит на 5 участков, следовательно, по оператору I должно быть введено число 5. Общее число рабочих отметок и соответствующих им длин участков, вводимых по оператору 4. равно б.

900

1550 '

1000

750

800

Рис. Ц-.l.  Продольный профиль участке

Следует обратить внимание, что для последней рабочей отметки длина участка всегда равна нулю.

Скачать файл