Другие предметы \ Железнодорожный путь

Определение объемов земляных работ, тяговые расчеты, реконструкция плана существующей железной дороги, изменение междупутья на кривой, страница 7

x=x+20

else

q1=2*t+c2-x

if q1≤0

q2=c1-c2-2*t

exit

else

u= r2- sqrt(r2**2-q1**2)

l=l+1

xx(1)=x

ww(1)=u

x=x+20

endif

enddo

save screen to aaa

do spf with 'ppp' , 'ppp2'

restore screen from aaa

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

case mm=2

loop

exit

otherwise

clear

return

endcase

enddo

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

return

Результаты расчета

Смещение круговой кривой при увеличении радиуса

Угол поворота: градусов 18, минут 6

Радиус существующей кривой 955

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

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

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

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

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

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

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

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

№

Дополнение до начала пикета

Величина нормали

14.91

34.91

54.91

74.91

94.91

114.91

134.91

154.91

174.91

194.91

214.91

234.91

254.91

274.91

294.91

314.91

334.91

354.91

374.91

0.09

0.51

1.12

1.66.

2.11

2.48

2.75

2.94

3.05

3.07

2.99

2.84

2.61

2.28

1.87

1.37

0.78

0.23

0.01

4 ПОДСЧЕТ ПЛОЩАДЕЙ УГЛОВЫХ ДИАГРАММ

ПРОЕКТИРУЕМЫХ КРИВЫХ

4.1 Краткие сведения

Подсчеты площадей угловых диаграмм проектируемых кривых являются составной частью расчетов при подборе радиусов существующих кривых, т.е. при проектировании их выправки. Эта задача сейчас во многих проектных организациях полностью автоматизирована. Ее можно использовать в дипломном проектировании, особенно при многовариантных решениях. В работе же над курсовыми проектами, когда главными являются не проектные, а учебные цели, целесообразно на ПК выполнить только подсчет площадей угловой диаграммы проектируемой кривой ω. При подсчете их «вручную», как показала практика, допускается много ошибок, исключить которые полностью нельзя из-за отсутствия надежного контроля. К тому же эти подсчеты трудоемки.

В программе помимо подсчета ω предусмотрено также определение длины проектируемой кривой и положение ее в пикетаже.

Исходными данными для расчета являются угол поворота в градусах и минутах, площадь угловой диаграммы существующей кривой и пикет конца полевых замеров в метрах.

Основные расчетные формулы для программы (с учетом обозначений на рисунке 4.1):

расстояние от конца полевых замеров (точки Б) до середины кривой, м,

Х_ск = Ω/α_рад;

(4.1)

пикет середины кривой, м,

пк СК = пк Б - Х_ск;

(4.2)

длина проектируемой кривой и пикеты ее начала и конца, м,

К = R α_рад,	(4.3)
пк НКК = пк СК – К/2,	(4.4)

пк ККК = пк НКК + К;	(4.5)

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

в пределах круговой кривой, м,

ω = х/(2 R);

(4.6)

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

ω = К α_рад/2 + (х - К) α_рад

(4.7)

или

ω = (х - К/2) α_рад,

(4.8)

где х – расстояние от НКК до данной «двадцатки».

Рисунок 4.1 – Угловая диаграмма проектируемой кривой

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

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

Площадь угловой диаграммы проектируемой кривой
	Угол поворота: градусов 20 минут 30 Площадь угловой диаграммы сущ. кривой 175.99 Пикет конца полевых замеров 7000

	Очередное значение радиуса 1050

	Выбор нужного режима работы
	Печать результатов Другое значение радиуса Другое значение угла поворота Выход

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

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

При выборе пункта меню «Печать результатов» пользователь получает возможность просмотреть на экране или выдать на печать результаты расчета. Для этого выдается соответствующий меню-запрос «Выдача на экран» или «Выдача на печать». После завершения печати информации по введенным данным пользователь переходит в окно 2 для ввода очередного значения радиуса, а затем в окно 3.

При выборе пункта меню «Другое значение угла поворота» пользователь переходит в окно 2 и окно 3.

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

4.3 Определение площадей угловых диаграмм проектируемых кривых

Программа 4

set talk off

set echo off

set step off

set status off

set scoreboard off

set safetv off

set exact off

set near on

set deleted on

set date german

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

@ 0.0 to 24.80 double

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

a=0

b=0

c=0

d=0

r=0

dime mv(4),xx(100),ww(100),qmq(100)

mv(1)=' Печать результатов '

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

mv(3)=' Другое значение угла поворота'

mv(4)=' Выход '

do while. t.

@ 0,0 to 24.80 double

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

@ 3,10 to 9.61 double

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

@ 4,42 say 'минут ' get b pict '99'

read

bb=b

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

1 2 3 4 5 6 7 8 9 10 11

Скачать файл