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)

Program layout 461
198
199
200
201
202
203
20&
205
206
207
208
209
210
211
212
213
21&
215
216
217
218
219
220
221
222
223
22&
225
226
227
228
229
230
231
232
233
23&
235
236
237
238
239
2&0
2&1
2&2
2&3
2&&
245
2&6
2&7
2&8
249
250
251
252
253
25&
255
256
257
258
259
260
261
262
263
200 MUP • 0.&5 * PCU * (BBPP - BN) * HP * (D - 0.5 * HP)
KP • (M * 1.016 - MUP) I (PCU * BN * D ** 2)
eo. ---------------------------------------------------------------
Cola I Check the capacity of the web.
Cola I llote : Kt > It' is equivalent to (M - Muf) > Mu, and so on.
Com ---------------------------------------------------------------
IF (KP • LB. KDASH) GO '1'0 210
IF (KP' .GT. KDASH) GO '1'0 250
Com
Com
---------------------------------------------------------------
case 2 : 0.9x > hf - Singly reinforced section, since the
Com web is adequate to resist the -.mt (M - Muf).
Cola Determine the min~ amount of tension steel required from
Com Bqn &.8-6 of Chapter &, see Step & of Section &.8.
Com ---------------------------------------------------------------
210 ASP • MUP I (0.87 * PY * (D - 0.5 * HP))
ASW • (M * 1.016 - MUP) I (0.87 * FY * Z)
AS "'ASP + ASW
RITURII
Com
eo.
Com
Com
Com
Cola
250
case 2 : 0.9x > hf - Doubly reinforced section, since the
web is inadequate to resist the moment (M- Muf).
However, it needs to check whether As' reaches yield
strength at ULS or not, using Bqn &.6-10 of Chapter &.
IF ((DDASH I X) .LB. (1.0 - PY I 800.0)) GO '1'0 260
IF ((DDASH I X) .GT. (1.0 - PY I 800.0)) GO '1'0 270
Com ---------------------------------------------------------------
Com
The compression steel As' reaches yield strength at ULS.
Com I calculate the lllinimum amount of As • from Bqn &.8-8 and As
Com I from Bqn &.8-9 of Chapter &. Sea also lxaqlle 4.8-1.
Com ---------------------------------------------------------------
260 MUW = ltDASH * PCU * BW * D ** 2
ASDASH "' (M * 1.016 - MUP - MUW) I (0.87 * PY * (D - DDASH))
AS • (0.&5 * PCU * (BIPP - BW) * HP +
' 0.4S * "PCU * BW * (0.9 * X)) I (0.87 * PY) +
'
RITURII
ASDASH
com ---------------------------------------------------------------
cam Here the compression steel As' remains elastic at the I
com ultimate limit state. calculate the minimum. As' and As from Com Bqns &.8-8 and &.8-9 of Chapter &, using a reduced stress I
Com fs' for As'. fs' is calculated from Bqn &.6-11 of Chapter 4.1
Com ---------------------------------------------------------------
270 MUW = ltDASH * PCU * BW * D ** 2
PSDASH • 700.0 * (1.0 - DDASH I X)
ASDASH ,. (M * l.OE6 - MUP - MUW) I (PSDASH * (D - DDASH))
AS • (0.&5 * PCU * (BEPP - BW) * HP +
' 0.&5 * PCU * BW * (0.9 * X) +
'
PSDASH * ASDASH) I (0.87 * FY)
cam *****************************************************************
Com* *
com * Subroutine Nama : INIT (s INITialization)
*
com*
*
Com * Purposes : To initialize the program by reading in the *
Com * following input data : *
Com * 1. Beam section title and type of beam section *