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

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

где  х – расстояние от НККпр до "двадцаток", расположенных в пределах b2;

– в пределах от НККc до точки на существующей кривой, нормаль которой совпадает с НККпр (на рисунке 5.1 – точка Б):

u=Rc – а.

(5.8)

Из треугольника 001А по теореме косинусов

=z2 + а2 + 2zаcosφ1 ,

(5.9)

(5.10)

и, следовательно,

.

(5.11)

Угол  – угол между z и Rс  – в расчете принимает переменное значение в соответствии с положением точки, для которой определяется нормаль, т.е. :

,

(5.12)

где ψ – угол, рад., соответствующий длине дуги существующей кривой, равной х –b2;

.

(5.13)

Максимальное значение этого угла

,

(5.14)

.

(5.15)

Программа составлена с использованием формул, полученных применительно к рисунку 5.1, где принят Rпр < Rф. Однако основные расчетные формулы не изменяются, если принять Rпр > Rф. В этом случае величина s принимает отрицательное значение, так как ∆T = Тф – Тпр < 0, что и будет автоматически учтено  в  последующих  расчетах и, конечно,  в  вычислениях  нормалей.  При

Rпр > Rф  maxψ = d, так как ПККККпр > >ПК КККс. Если округление радиуса Rф незначительно, то расчеты и при Rпр > Rф можно производить по программе, ничего в ней не изменяя. Если же увеличение Rпр против R ф существенно, то при расчетах может быть получено b1 > 20 м, т.е. КККпр  будет удален от КККс более, чем на принятый для определения нормалей шаг расстояний. Тогда в программе надо предусмотреть вычисления и для участка по формуле, изменив программу соответствующим образом:

.

(5.16)

Однако следует предостеречь от механического использования программы для расчетов изменения междупутий на кривой во всех случаях. Структура некоторых формул изменится, если, например, проектируемый путь располагается снаружи существующей кривой. В этом случае нормали в пределах существующей кривой будут равны , а не . Любой расчет всегда надо начинать с построения четкой схемы, и тогда легко уточнить формулы и внести изменения в программу расчета. 

5.3 Программа расчета изменения междупутья на кривой

Программа 5

Название программ   RASKR

Вызов программы    DLOAD " DI:PASKR

Запуск программы на выполнение   RUN 

Программа расчета изменения междупутья на кривой

5 А   '' ######,#### ''

6 INPUT "ВВЕДИТЕ ВАШУ ФАМИЛИЮ" ; F .

7  IF (F = '' * '' ) THEN 800

10 INPUT '' ВВЕДИТЕ УГОЛ ПОВОРОТА КРИВОЙ ГРАДУСОВ ' МИНУТ '' ; A, B

20 INPUT '' ВВЕДИТЕ РАДИУС СУЩЕСТВУЮЩЕЙ КРИВОЙ '' ; R1

30 INPUT "ВВЕДИТЕ ВЕЛИЧИНУ МЕЖДУПУТЬЯ ДО КРИВОЙ " ; z1

40 INPUT "ВВЕДИТЕ ВЕЛИЧИНУ МЕЖДУПУТЬЯ ЗА КРИВОЙ " ; z2

50 INPUT "ВВЕДИТЕ ПИКЕТ НАЧАЛА СУЩ. КРУГОВОЙ КРИВОЙ " ; С1

60 COSUB 500

70 С = 3. 14159*(А + В/60) /360

80 z3 = 2*RI*C

90 z4= (z2 – z1)/(1 – cos(2*С))

100 R3 = R1 + z4 – z2

101 R2 =INT(РЗ +   .5)   

110 GOSUB 600

120 LPRINT "РЕЗУЛЬТАТЫ  РАСЧЕТА"

130 GOSUB 600

140 LPRINT "ДЛИНА СУЩЕСТВУЮЩЕЙ КРИВОЙ " ; z3

141 LPRINT '' РАДИУС ФИКТИВНОЙ КРИВОЙ '' ; R3

150 LPRINT '' РАДИУС ПРОЕКТИРУЕМОЙ КРИВОЙ '' ; R2

160 D2= 2*R2*C

I70 Т = R2*TAN(C) – T

180 LPRIHT "ДЛИНА ПРОЕКТИРУЕМОЙ КРИВОЙ "; D2

190 LPRINT '' ТАНГЕНС ПРОЕКТИРУЕМОЙ КРИВОЙ "; Т

200 В1 = R3*TAN(C) – Т

210 S = 81/sin(C)

220 z = SQR(5*2 +z4*2 – 2*S*z4*COS(C))

230 X = (S/z)*SIN (C)

231 Y=ANT(X/SQR(-X*X+1))

240 В2 = Z*SIN(2*C+y)

250 F1 = 2*С -АТN(В1/(R1 – z2))

260 РЗ = Cl + z3

270 P1 = Cl – 32

280 Р2 = РЗ – 31

290 LPRINT "ПИКЕТ КОНЦА СУЩЕСТВУЮЩЕЙ КРИВОЙ"; РЗ

300 LPRIHT "ПИКЕТ НАЧАЛА ПРОЕКТИРУЕМОЙ КРИВОЙ"; Р1

310 LPHIHT "ПИКЕТ КОНЦА ПРОЕКТИРУЕМОЙ КРИВОЙ"; Р2

311 GOSUB 700        .320 VI = INT(P1/20)330 Y1 = Vl*20

340 IF Pl > V1. ТHEN YI = V1 + 20

350 X=Y1 – P1

360 IF(X – B2) > 0   GOTO 390

370 F2 = Z1+R2 – SQR(P2^2 – Х^2)

380 GOTO 430

390 F = (X - B2)/RI

400 IF(F – F1) > 0 GOTO 470

410 F4=2*C+V F.

420 F2 = Rl + Z*COS(F4) – SQR(R2^2 – Z^2*(SIN(F4) )^2)

430 LPRIHT ТАВ(15) ; USING А ; X ;

440 LPRIHT ТАВ(З5);  USING A ; F2

450 X = X + 20

460 GOTO 360

470 F3 = D2 + В1 – Z3 – В2

480 LPRIHT "РАЗНИЦА В ДЛИНЕ СУЩ. И ПРОЕКТИРУЕМОГО ПУТИ"; FЗ

481 GOТО 6

490 RETURN

500 LPRINT

501 LPRINT "  ИСХОДНЫЕ ДАННЫЕ"

502 LPRINT "ФАМИЛИЯ СТУДЕНТА" ; F

510 LPRINT "УГОЛ КРИВОЙ: ГРАДУСОВ, МИНУТ";  А, В

520 LPRINT "РАДИУС СУЩЕСТВУЩЕЙ КРИВОЙ"; R1

530 LPRINT "ВЕЛИЧИНА МЕЖДУПУТЬЯ ДО КРИВОЙ"; Z1

540 LPRINT "ВЕЛИЧИНА МЕЖДУПУТЬЯ ЗА КРИВОЙ'' ; Z2

550 LPRIHT "ПИКЕТ НАЧАЛА КРУГОВОЙ КРИВОЙ";

560 COSUB 600

570 RETURN

600 FOR  j = 1ТО 80

610 LPRINT "-";

620 NEХТ

630 LPRINT

640 RETURN

700 LPRINT "X-PACСTOЯHИE ОТ ПИКЕТА НАЧАЛА КРУГ. КРИВОЙ ДО ДВАДЦАТКИ''

710 LPRINT "U-ВЕЛИЧИНА НОРМАЛЕЙ ''

720 COSUB 600

730 LPBINT ТАВ(22) ; "Х"; ТАВ(42) ;"U"

740 COSUB 600

800 ENT

Описание программы

По операторам 6-50 осуществляется ввод исходных данных.

По оператору 60 производится печать исходных данных (обращение к п/п печати исходных данных).

По операторам 7 - 470 производится расчет и выдача на АУЛУ значений:

1) длины существующей кривой;

2) радиуса фиктивной кривой;

3) радиуса проектируемой кривой путем округления радиуса фиктивной кривой;

4) длины проектируемой кривой; 

5) тангенса проектируемой кривой;

6) пикета конца существующей кривой;

7) пикета начала и конца проектируемой кривой;

8) разницы в длине существующего и проектируемого пути;

9) выдается таблица значений:

X – расстояние от пикета начала круговой кривой до "двадцаток" ,

U – величина нормалей на "двадцатках".

Х            U


Программа RASKR содержит ряд вспомогательных программ для печати исходных данных и другие.

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

ИСХОДНЫЕ   ДАННЫЕ

ФАМИЛИЯ СТУДЕНТА                                     ИВАНОВ

Скачать файл