F. K. Kong MA, MSc, PhD, CEng, FICE, FIStructE, R. H. Evans CBE, DSc, D ès Sc, DTech, PhD, CEng, FICE, FIMechE, FIStructE (auth.)-Reinforced and Prestressed Concrete-Springer US (1987)

460
132
133
13&
135
136
137
138
139
uo
U1
u:z
U3
lU
us
U6
U7
U8
U9
150
151
152
153
15&
155
156
157
158
159
160
161
162
163
166
165
166
167
168
169
170
171
172
173
176
175
176
177
178
179
180
181
182
183
18&
185
186
187
188
189
190
191
192
193
19&
195
196
197
Computer programs
Z = 0.95 * D
Com ---------------------------------------------------------------
Com I calculate the neutral axis depth x from Bqns &.6-3 and &.7-31
Com ---------------------------------------------------------------
200 X ~ (D - Z) I 0.&5
IF (X .GT. (BETAB - 0.&) * D) X = (BETAB - 0.&) * D
RETURII
5000 FORMAT (/I I ' * * * * The ..ant redistribution ratio',
' exceeds 0.9. * * * * ••, II,
' • • • • In subsequent calculations, a value of',
' 0.9 is to be used. • ~ • • ••, II>
5010 ' FORMAT <II,
' 3PB9.3,
' BIID
• • • • • The calculated lever ar11 distance z = •,
• 1111 > 0.95d ••••• ••• II,
• • • • • In subsequent calculations, a value of',
' 0.95d is to be used. • • * * ••, II>
cam *****************************************************************
Com.
Com • Subroutine llue : PLAIIGB (• PLAIIGEd section)
Com •
Com • Purpose : To deter11ine the uount of bending reinforcement
Com • for a flanged beam section.
Com.
Com • Reference : Section &.8 of Chapter &.
Com.
Com *****************************************************************
SUBROUTIIIB PLAIIGB (BBPP, BETAB, Blf, D, DDASH, PCU, PY, HP,
' KDASH, M, X, Z,
'
AS, ASDASH, PSDASH, KP)
Com • • • • • • • Input parueters • • • • • • • • •
REAL BBPP I BETAB, Blf, D, DDASH, PCU I py I HP
REAL KDASH, M, X, Z
Com
REAL
• • • • • • • • OUtput par-tars
AS, ASDASH, PSDASH, KP
Com • • • • • Local parueters
REAL ASP I ASW I MUP I MUll
Com ---------------------------------------------------------------
Com I Check whether the rectangular stress block is within the
Com I flange thickness or not.
Com ---------------------------------------------------------------
IF (0.9 * X .LI. HP) GO 1D 100
IF (0.9 * X .GT. HP) GO TO :ZOO
co. ---------------------------------------------------------------
Com case 1 : 0. 9x <= hf - Singly reinforced section, since the
Com stress block lies wholly within the flange thickness.
Com calculate the llini- uount of tension steel required from
Com Bqn &.8-3, see Step 2 of Section &.8.
Com ---------------------------------------------------------------
100 AS • M * 1.016 I (0.87 * PY * Z)
RETURII
Com ---------------------------------------------------------------
Com case :z : 0.9x > hf
Com The stress block lies partly outside the flange thickness.
Com Then calculate the following :
Com (a) Muf from Bqn &.8-& of Chapter &, see Step 3 of Sect &.8
Com (b) Kf from Bqn &.8-5 of Chapter &, see Step & of Sect &.8
Com ---------------------------------------------------------------
•