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

if q>0

re=re+0.001»q»»( s-si) endlf exit else

rf=rf+3/Crd-0.5xal) re=re+5*0.00001*q sl=sl+0.'05 if s-sKO.OOOl exit endlf endlf enddo

repl d with rd.e with re, f with rf return proc rash8 u=ra/(ra+rtO sl=0

do while.t.

dl-1.9+0.01*rd+0.0003«rd*«2 cl=1.12+5.3*0.001*rd+l.31*0.0001«rd*«2 bi=u"dl+(l-u)«cl do case case rd<=80.5

q=27000

case rd<=116.4

q=220200-5468.3*rd+51.5*rd««2-0.16667«rd««3 otherwise

q=502900-10252.67«rd+77.275«rd»«2-0.24333«rd««3+0.00024«rdH«4 endcase absqrtC abs( rd««2+12><( q С ra+rb)-M-y) ))-rd rd-rd+al' If rd>=rc rd=rc

rf»rf+60«Cs-sl)/rd
q=C га+гЮ »C hl.+v)
if q>0                                    ,

re re+0.001*q*Cs~sl) endlf exit

else

rf-rf+3/Crd 0.5*al)

re=re+5*0. 00001 *q

sl=sl+0.05

if s-sl<0.0001

exit

endlf

endif

endrlo

repl d with rd, e with re. f-with rf

return

proc rash9

u=ra/l'ra+rb)

Ei-0

do while.t.  '

dl=-l. 9+0.01*rd+0.0003>«rdx*2

Gi-i. 12+5.3«0.p01*rd+1.3i»0.00011»«rdH«2

bi«u«dl+Cl-u)*cl

do case case rd<-87 4=27000 case rdo].27

q=91600-i;^. R7*n.1+:11. 5*n.l*»2-0. 033333«гф«« otherwi se

q=122300-1255*rd+3.5«rd*«2 e'ndcase al - sq rt( rd**2+12*(q/f га MPb) ~bi-у))-rd rd-rd+at i V rd>=n

1Л.1-  1С  .

rf=rf+eO»C p-sl), id

q=(ra+rb)»J bl+v.)

if q>0

re«re*Q. 001 «q-i •;. si)

endlf

exj t

else                                    ■■                .

rf-rf+3Ard-0.5«al3

pf=re+5«0.00p01*q

sl=sl40.05

:y\

If s-sl<0.0001

exit

endlf

endif

enddo

repl d with rd.e with re,f with rf

return

■ proc rashlO

u=ra/( ra+rb)

sl=0

do while, t.

dl=l. 9+0.01*rd+0.0003*rd**2

cl«l. 12+5. 3*0.001*rd+l. 31*0.0001*rd**2

hl-u»dl4< l-u)*ci

do case

case rd<=22 q=33400

case rd<-40 q-55000-1083. 3*rd+0.13333*rd**3

case rd<=80 4=42000-441.67*rd-7.416*rd**2+0.166667*01**3-0.00083383«rd«*4

otherwise q=18300-71.67*rd-0.75*rd**2+0.0041667*rd**3

endcase al=sqrt( rd**2+12*( q/( га+гЫ-Ы-уЭ )-rd rd»Ttl+ai If rd>=rc rd=rc

rf=rf+60*(s-sl)/rd
q-t га+гЬ)иСМ+у)
^             П  q>0

re«-rp-fO.,001 «Q»( S-sJ.)
endif
exit
|jl            else

rf*rf+3/(rd~0.5*al)

ne»re+5*Q.O000l«ia

sbsliO.05

If s 5i<0.0001

exit

endlf endlf enddo

repl d ulth rd,e with re.f with rf return proc rash22 u=ra/Cra+rb) sl-0

do uhlle.t.

di= 1. 9+0.01*rd+0. 0003«rd*«2 Cl-i. 12+5.3*0.001«rd+0.0003*rcl*«2 bl=u»dl+Cl-u)»cl do case case rd<=40

q=184000«C 0.228+7/C 53+3*rdrj case rd<=58 q=184000*C£). 09+95/C 413«3«nD D case rd<=80

q= 22620CM550*rd+25«rd«»2
otherwise                        I

q=i8020O-4015«rd+33.5«rd*«2-0. i«rd«« endcase •al =sqrtC rd*«2+12«( q/C ra+rb)-bl-y) )-rd rd= rd+al If rd>=rc rd=rc

rf= rf+6CWs-sl)/rd q= С ra+rb)«C bl+y) If q>0

re=re+0.001*q*C S'-sl) • endlf exit elssv

rf=rf+3/(rd-0.5*al) re-re+5«0. 00001*q sbsl+0.05      ; If s~sl<0.000i exit endlf endlf

26

г. гадает площадей угловых дшраж

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

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

Подсчеты площадей угловых диаграмм проектируемых кривых являются составной частью расчетов при подборе радиусов существующих кри­вых, т. е. при проектировании их выправки. ">а задача сейчас во многих проектных организациях решается полностью на ЭВМ. Их можно использо­вать в дипломном проектировании, особенно при многовариантных реше­ниях. В работе же над курсовыми проектами, когда главными являются не проектные, а учебные цели, целесообразно на ЭВМ выполнить только под­счет площадей угловой диаграммы проектируемой кривой w. При подсчетах их "вручную", как показала практика, допускается много ошибок, исклю­чить которые, полностью нельзя йэ-за отсутствия надежного контроля. К тому же эти подсчеты очень трудоемки даже при выполнении их на малых вычислительных машинах.

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

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

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

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

ЛГск = й /rtoan(2.1)

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

пк СК - гас Б - ЛГск;(2.2)

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

К - Refpan,                                                               (2.3)

пк НКК - пк СК - К/2,                                           (2.4)

пк ККК - пк НКК + К;(2.5)

20