q=(ra+rb)*(b1+y)
if q>0
re=re+0.001*q*(s-s1)
endif
exit
else
rf=rf+3/(rd-0.5*a1)
re=re+5*0.00001*q
s1=s1+0.05
if s-s1<0.0001
exit
endif
endif
enddo
repl d with rd.e with re.f with rf
return
procedure PRWAIT
PARAMETERES coler1, coler2, txt1, txt2
set color1 to &coler1
@ 17,7 clear to 20,53
@ 17,7 to 20,53 DOUBLE
@ 18,19 say txt1
set color1 to &coler2
@ 19,19 say txt2
set color1 to gr+/b,w+/r,b
return
Результаты расчета выдаются на печать в следующем виде:
Тяговые расчеты
Серия локомотива ТЭ3
Масса локомотива 254
Масса состава 1700
Максимальная скорость 100
Начальная скорость 0
Механическая работа локомотива 0
Время ходы поезда 0
|
№ |
Уклон |
Длина эл-та профиля |
Скорость |
Мех.раб.лок. |
Вр.хода поезда |
|
1 2 3 4 5 6 7 8 9 |
0.0 -4.0 4.0 15.0 15.0 15.0 15.0 15.0 15.0 |
1.0 1.0 0.5 3.0 3.0 1.0 2.0 1.0 1.0 |
50.8 68.6 68.2 20.5 20.5 20.5 20.5 20.5 20.5 |
24.3 38.0 43.9 109.8 206.3 238.5 302.9 335.1 367.3 |
1.83 2.82 3.26 8.11 15.14 17.49 22.18 24.53 26.88 |
3 ОПРЕДЕЛЕНИЕ СМЕЩЕНИЙ КРУГОВОЙ КРИВОЙ
ПРИ УВЕЛИЧЕНИИ ЕЕ РАДИУСА
3.1 Общие сведения
Значения нормалей u, т.е. смещений, совпадающих по направлению с нормалями к существующему пути, в соответствии с расчетной схемой, представленной на рисунке 3.1, определяются по формулам:
в пределах от НККпр до НККс –
|
u = Rпр - √(R2пр – х2) , |
(3.1) |
в пределах от КККс до КККпр –
|
u = Rпр - √[R2пр - √(2ΔТ + Кс – х)2], |
(3.2) |
в пределах существующей кривой –
|
u = Rс – а. |
(3.3) |
Из треугольника ОО1А (рисунок 3.1) по теореме косинусов
R2пр = z2 + а2 + 2 zаcosφ.
Отсюда
а = - zcosφ + √ R2пр – z2(sinφ)2.
Тогда
|
u = Rс + zcosφ - √R2пр – z2(sinφ)2. |
(3.4) |
Рисунок 3.1 – Расчетная схема к определению смещений кривой при увеличении ее радиуса
Угол между биссектрисой угла и радиусом существующей кривой, проведенным к точке, удаленной от НККпр на расстояние х, определяется в радианах по формуле
|
φ = (ΔТ + Кс/2 – х)/ Rс. |
(3.5) |
Для точек, расположенных за серединой кривой, значение φ, вычисленное по формуле (3.5), принимает знак минус, но это не приводит к изменению расчетной формулы (3.4).
В расчетах величине х – расстоянию от начала проектируемой кривой до точки на существующем пути, для которой определяется величина нормали, последовательно придается нарастающее значение с выбранным шагом (обычно через 20 м).
Исходными данными для расчета являются угол поворота, радиус и пикет начала существующей кривой и радиус проектируемой кривой (рисунок3.2).
|
Смещение круговой кривой при увеличении радиуса |
||
|
Угол поворота: градусов 2- минут 30 Радиус существующей кривой 1000 Начало существующей кривой 300 Радиус проектируемой кривой 5000 |
||
|
Выбор печати нужного режима |
||
|
Печать результатов Другое значение угла поворота Выход |
||
Рисунок 3.2 – Формирование исходных данных
3.2 Структура диалога
При выборе пункта меню «Определение смещений круговой кривой при увеличении ее радиуса» пользователь получает на экране систему меню (рисунок 3.2) для формирования данных и печати результатов.
В окне 1 запрашиваются следующие данные: угол поворота – градусов, минут; радиус существующей кривой; радиус проектируемой кривой. После ввода этих данных пользователь попадает в окно 2, предназначенное для выбора нужного режима работы. При выборе пункта меню «Печать результатов» пользователь получает возможность просмотреть на экране или выдать на печать результаты расчета. Для этого выдается соответствующее меню – запрос «Выдача на экран» или «Выдача на печать». После завершения печати информации пользователь, нажав клавишу "ESC", возвращается в окно 2 для выбора очередного режима работы.
При выборе пункта меню «Другое значение угла поворота» пользователь переходит в окно 1 для ввода данных, а затем в окно 2 для выбора режима работы.
Окончание работы происходит при выборе пункта меню «Выход» в окне 2 или нажатием клавиши "ESC" в окне 2.
3.3 Определение смещений круговой кривой
Программа 3
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
r1=0
h=0
r2=0
dime mv(3),xx(100),ww(100),qmq(100)
mv(1)=' Печать результатов '
mv(2)=' Другое значение угла поворота ….'
mv(3)=' Выход '
do while. t.
@ 0,0 to 24.80 double
@ 0,15 say 'Смещение круговой кривой при увеличении радиуса'
@ 3,10 to 9.60 double
do while. t.
@ 4,12 say ' Угол поворота градусов' get a pict '99'
@ 4,42 say 'минут ' get b pict '99'
read
bb=b
@ 5,12 say ' Радиус существующей кривой ' get r1 pict '99999999'
read
@ 6,12 say ' Начало существующей кривой' get h pict '99999999'
read
@ 7,12 say ' Радиус проектируемой кривой' get r2 pict '99999999'
read
mm1
do while. t.
@ 15,16 menu mv,3,3 title 'Выбор нужного режима работы'
read menu to mm save
do case
case mm=1
c=3.13159*(a+b/60)/360
c2=2*r1*c
c1=2*r2*c
t=(r2-r1)*tan(c)
z=( r2-r1)/cos (c)
q=t+c2
h1=h-t
h3=h+c2
h2=h3+t
y=lnt(h1/20)
y=y+20
if h1>y
y=y+20
endif
x=y-h1
x=x+7.5*0.001
l=0
do while. t.
if (x-t)≤0
u=r2-sqrt(abs(r2**2-x**2))
l=l+1
if l>100
l=100
endif
xx(1)=x
ww(1)=u
x=x+20
else
if (x-q)≤0
f=(t+c2/2-x)/r1
u=r1+z*cos(f)- sqrt(r2**2-z**2*(sin(f))**2)
l=l+1
xx(1)=x
ww(1)=u
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.