69db9a28-fbec-4c6c-b4e7-c1b3d7a37954 80 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

Geometry Parameters

pcf psf ft / :

Height of Excavation

h.exc# 36 ft * :

Depth of Embedment

d.emb# 12 ft * :

Total Wall height

H.tot# h.exc# d.emb# + : ft 48

Depth to Water - active

d.wata# 30 ft * : ft 30

Depth to water - passive

d.watp# h.exc# : ft 36

Wall batter (from vertical)

ω# 0 deg * :

Positive rotation is back into the retained soil

Backslope

β'.a# 0 deg * :

Distance to broken back slope

X.βa# 5 ft * :

Height of wall influenced by slope

h.effβa# H.tot# : ft 48

Toeslope

β'.p# 0 deg * - :

Negative is downward

Distance to broken back slope

X.βp# 10 ft * :

Height of wall influenced by slope

h.effβp# d.emb# : ft 12

Factor of height to distance where slope is considered infinite

K.toe# 1.5 :

Factor to increase total active soils pressure to trasnform to apparent pressure diagram

LF.s# 1.3 :

FWHA circular 4 recommends 1.3

Factor to increase total active surcharge pressure to trasnform to uniform load

LF.q# 1.05 :

Soil Parameters

depth to bottom of soil "d"

Unit weight "γ"

Enter Soils Info MK'.a# d ϕ c δ γ γ' 0 ft * 14 deg * 40 psf * 0 deg * 120 pcf * 68 pcf * 10 ft * 28 deg * 200 psf * 5 deg * 120 pcf * 68 pcf * 20 ft * 32 deg * 0 psf * 18 deg * 130 pcf * 65 pcf * 40 ft * 28 deg * 0 psf * 10 deg * 120 pcf * 65 pcf * 56 mat :

Unit weight -submerged "γ'"

Friction Angle "ϕ"

Cohession "c"

Wall friction angle "δ"

Surcharge

Enter soil strata's in Matrix

q.sur# 250 psf * :

Toe Factor of Safety

FS.rtoe# 1.5 :

FHWA uses 1.5

Unit weight of water

γ.wat# 62.4 psf ft / * :

Minimum EFP (when cohesion is negative)

ELF.min# 0 psf * :

Sheeting Info

Depth to Braces

d.brc# 10 ft * 11 mat :

PZ - 27

Name

S.x 31 in 3^* :

Section Mod

I.x 187.5 in 4^* :

MoI

Strength

F.y 50 ksi * :

Modulus of Elasticity

E 29000 ksi * :

Allowable Bending Stress

F.b F.y 0.65 * : ksi 32.5

Moment capacity

M.csht S.x F.b * : kip ft * 83.9583

FHWA - Trib Area Method

Redfine MK.a#, with no text MK.a# 06 matrix : n 2 MK'.a# rows range temp_row# MK'.a# n row : MK.a# MK.a# temp_row# stack eval : 21 line for 31 line

Find the soil stratum for water elevations and dredge line M.soil# z.find# fSS# This finds the soil stratum that z.find lands in Set initial value as the deepest layer soil.row# M.soil# M.soil# rows row eval : soil.row# 11 el z.find# : n 2 M.soil# rows range z.soil# M.soil# n 1 el : z.soil# z.find# ≤ continue soil.row# M.soil# n 1 - row eval : soil.row# 11 el z.find# : break 31 line if 21 line for soil.row# 61 line : Water on Active side Soil 1 el MK.a# d.wata# fSS# : Water on Passive side Soil 2 el MK.a# d.watp# fSS# : At dredge line Soil 3 el MK.a# h.exc# fSS# : At bottom of pile Soil 3 el MK.a# H.tot# fSS# : n 1 Soil rows range MK.a# MK.a# Soil n el stack eval : 11 line for 111 line

MK.a# ft 0 0.8017 1 m / * 6283.4986 kg m 2^s 2^* / * 0 61845.4582 kg m 3^s 2^* / * 35045.7597 kg m 3^s 2^* / * 10 1.6033 1 m / * 31417.4928 kg m 2^s 2^* / * 0.2863 1 m / * 61845.4582 kg m 3^s 2^* / * 35045.7597 kg m 3^s 2^* / * 20 1.8324 1 m / * 0 1.0307 1 m / * 66999.2464 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 40 1.6033 1 m / * 0 0.5726 1 m / * 61845.4582 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 30 1.8324 1 m / * 0 1.0307 1 m / * 66999.2464 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 36 1.8324 1 m / * 0 1.0307 1 m / * 66999.2464 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 48 1.6033 1 m / * 0 0.5726 1 m / * 61845.4582 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 76 mat

Delete repeated elevations and sort MSP# MK.a# 1 row eval : n 2 MK.a# rows range MK.a# n 1 el MK.a# n 1 - 1 el ≠ k k 1 + : M.row# MK.a# n row : MSP# MSP# M.row# stack eval : 31 line continue if 11 line for MSP# MSP# 1 csort : 41 line

MSP# eval ft 0 0.8017 1 m / * 6283.4986 kg m 2^s 2^* / * 0 61845.4582 kg m 3^s 2^* / * 35045.7597 kg m 3^s 2^* / * 10 1.6033 1 m / * 31417.4928 kg m 2^s 2^* / * 0.2863 1 m / * 61845.4582 kg m 3^s 2^* / * 35045.7597 kg m 3^s 2^* / * 20 1.8324 1 m / * 0 1.0307 1 m / * 66999.2464 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 30 1.8324 1 m / * 0 1.0307 1 m / * 66999.2464 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 36 1.8324 1 m / * 0 1.0307 1 m / * 66999.2464 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 40 1.6033 1 m / * 0 0.5726 1 m / * 61845.4582 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 48 1.6033 1 m / * 0 0.5726 1 m / * 61845.4582 kg m 3^s 2^* / * 33499.6232 kg m 3^s 2^* / * 76 mat

Put Soil Values in to seperate Matricies z# MSP# 1 col eval : May need to put d# at bottom here ϕ# MSP# 2 col eval : c# MSP# 3 col eval : δ# MSP# 4 col eval : γ.b# MSP# 5 col eval : γ'.b# MSP# 6 col eval : 81 line

Need to update use of z and use of h Find pressures, at each node then find forces from integration?

Create soil matrix for active and passive depending on water elevation n 1 γ.b# rows range γ.a# n 1 el z# n 1 el d.wata# ≤ γ.b# n el γ'.b# n el if : γ.p# n 1 el z# n 1 el d.watp# ≤ γ.b# n el γ'.b# n el if : 21 line for 21 line

γ.a# pcf 12012013013065656571 mat

γ.p# pcf 120120130130130656571 mat

Determine Active Force for each Soil stratum n 1 MSP# rows range β# n el β'.a# X.βa# β'.a# tan * 2 h.effβa# * / atan Min eval : If the backslope is steeper than the friction angle use equivlement surcharge method β# n el ϕ# n el ≥ K.s# n el 145 deg * ϕ# n el 2 / - tan 1 β# n el tan / / + : β# n el 0 deg * : 21 line K.s# n el 1 : if K.ai# n 1 el ϕ# n el ω# + cos (2^ω# cos (2^ω# δ# n el - cos * 1 ϕ# n el δ# n el + sin ϕ# n el β# n el - sin * ω# δ# n el - cos ω# β# n el + cos * / sqrt + (2^* / K.s# n el * eval : K.ahi# n 1 el K.ai# n 1 el δ# n el ω# - cos * eval : K.ahci# n 1 el 2 K.ahi# n 1 el sqrt * eval : 61 line for Determine Passive Pressure coeff for each soil stratum n 1 MK.a# rows range β# n el X.βp# K.toe# h.effβp# * < X.βp# β'.p# tan * 2 h.effβp# * / atan eval β'.p# if : β# n el abs ϕ# n el ≥ K.sp# n el 1 β# n el tan / 1 β# n el tan / 45 deg * ϕ# n el 2 / + tan + / eval : β# n el 0 deg * : 21 line K.sp# n el 1 : if ω.p# 1 ω# * - : K.pi# n 1 el ϕ# n el ω.p# - cos (2^ω.p# cos (2^ω.p# δ# n el + cos * 1 ϕ# n el δ# n el + sin ϕ# n el β# n el + sin * ω.p# δ# n el + cos ω.p# β# n el + cos * / sqrt - (2^* / K.sp# n el * eval : K.phi# n 1 el K.pi# n el δ# n el ω.p# - cos * eval : K.phci# n 1 el 2 K.phi# n 1 el sqrt * eval : 61 line for 41 line

Determine soil forces for each soil layer above the dredge line F.hai# 01 matrix : F.hqai# 01 matrix : n 1 z# rows range z# n el h.exc# < y.1# z# n el : y.2# z# n 1 + el : d.s# y.2# y.1# - : P.hai1# y.1# γ.a# n el * K.ahi# n el * K.ahci# n el c# n el * - 0 lbf ft / * ELF.min# y.1# * Max eval : P.hai2# y.2# γ.a# n el * K.ahi# n el * K.ahci# n el c# n el * - 0 lbf ft / * ELF.min# y.1# * Max eval : F.temp# P.hai1# P.hai2# + (d.s# 2 / * : F.hai# F.hai# F.temp# stack eval : Find Equivalent ka considering cohesion. Use base soil weights (not submerged) P.haeq1# y.1# γ.b# n el * K.ahi# n el * K.ahci# n el c# n el * - 0 lbf ft / * ELF.min# y.1# * Max eval : P.haeq2# y.2# γ.b# n el * K.ahi# n el * K.ahci# n el c# n el * - 0 lbf ft / * ELF.min# y.1# * Max eval : F.haeq# P.haeq1# P.haeq2# + (d.s# 2 / * : K.aqeq 2 F.haeq# * γ.b# n el d.s# 2^* / eval : F.hqai# n el q.sur# K.aqeq * d.s# * eval : 131 line break 11 line if 11 line for Total Active Soil Pressure F.htota# F.hai# sum eval : Total Surcharge Pressure F.htotq# F.hqai# sum eval : 81 line

Single Anchor F.H# H.T# z.anc# F.Hq# T# R# M.max# x.zs# fFHWATrib1 Tributary Method for Single Anchor, refer to FHWA Cir 4 Fig 39 Distance from top of sheeting to top anchor H.anc# 1 el z.anc# 1 el : Destance from top anchor to dredge line H.anc# 2 el H.T# H.anc# 1 el - : Maximum soil pressure p# F.H# 23 / H.T# * / : Maximum surcharge pressure (use average) pq# F.Hq# H.T# / : M.B# 1354 / H.anc# 1 el (2^* p# * pq# H.anc# 1 el (2^* 2 / + : T is returned as Matrix T# 1 el 23 H.T# (2^* 10 H.T# * H.anc# 1 el * - 54 H.anc# 2 el * / p# * H.anc# 1 el H.anc# 2 el 2 / (+ (pq# * + eval : Reaction at dredge line R# 23 / H.T# * p# * H.T# pq# * + (T# 1 el - eval : Point of zero shear (approx) x.zs# 19 / 26 H.T# (2^* 52 H.T# * H.anc# 1 el * - sqrt * H.anc# 2 el 2 / 1 H.anc# 1 el (2^H.anc# 2 el (2^/ - (* + 2 / eval : Moment between top anchor and dredge line M.BC# R# x.zs# * p# x.zs# 3^* 4 H.anc# 2 el * / - pq# x.zs# * 2 H.anc# 2 el * / H.anc# 2 el (2^H.anc# 1 el (2^- x.zs# H.anc# 2 el * - (* + eval : M.BC# trace M.max# M.B# M.BC# Max eval : 201 line : 21 line

Define functions for 1 anchor or multiple anchors Must update to include water******* Single Anchor F.H# H.T# z.anc# F.Hq# T# R# M.max# x.zs# fFHWATrib1 Tributary Method for Single Anchor, refer to FHWA Cir 4 Fig 39 H.T# trace Distance from top of sheeting to top anchor H.anc# 1 el z.anc# 1 el : Destance from top anchor to dredge line H.anc# 2 el H.T# H.anc# 1 el - : Maximum soil pressure p# F.H# 23 / H.T# * / : Maximum surcharge pressure (use average) pq# F.Hq# H.T# / : M.B# 1354 / H.anc# 1 el (2^* p# * pq# H.anc# 1 el (2^* 2 / + : T is returned as Matrix T# 1 el 23 H.T# (2^* 10 H.T# * H.anc# 1 el * - 54 H.anc# 2 el * / p# * H.anc# 1 el H.anc# 2 el 2 / (+ (pq# * + eval : Reaction at dredge line R# 23 / H.T# * p# * H.T# pq# * + (T# 1 el - eval : Point of zero shear (approx) x.zs# 19 / 26 H.T# (2^* 52 H.T# * H.anc# 1 el * - sqrt * H.anc# 2 el 2 / 1 H.anc# 1 el (2^H.anc# 2 el (2^/ - (* + 2 / eval : Moment between top anchor and dredge line M.BC# R# x.zs# * p# x.zs# 3^* 4 H.anc# 2 el * / - pq# x.zs# * 2 H.anc# 2 el * / H.anc# 2 el (2^H.anc# 1 el (2^- x.zs# H.anc# 2 el * - (* + eval : M.BC# trace M.max# M.B# M.BC# Max eval : 211 line : 21 line Multiple anchors F.H# H.T# z.anc# F.Hq# T# R# M.max# fFHWATribM Triburtary Method for multiple anchors, refer to FHWA Cir 4 Fig 39 H# is entered as column matrix Top anchor and bending moment nr# z.anc# rows : Establish height between anchors H.anc# 1 el z.anc# 1 el 0 ft * - : n 2 z.anc# rows range H.anc# n el z.anc# n el z.anc# n 1 - el - : 11 line for H.anc# nr# 1 + el H.T# z.anc# nr# el - : 41 line Max soil pressure p# F.H# H.T# 13 / H.anc# 1 el * - 13 / H.anc# nr# el * - / eval : Maximum surcharge pressure (use average) pq# F.Hq# H.T# / : 41 line Top Anchor T# 1 el 23 / H.anc# 1 el * 12 / H.anc# 2 el * + (p# * H.anc# 1 el H.anc# 2 el 2 / (+ (pq# * + eval : 21 line Bottom Anchor T# nr# el H.anc# nr# 1 - el 2 / 2348 / H.anc# nr# el * + (p# * H.anc# nr# 1 - el 2 / H.anc# nr# el 2 / + (pq# * + eval : 21 line Middle Anchors nr# 2 > n 2 nr# 1 - range T# n el H.anc# n el 2 / H.anc# n 1 + el 2 / + (p# * H.anc# n el 2 / H.anc# n 1 + el 2 / + (pq# * + eval : 11 line for 11 line 0 if 21 line Reaction at dredge line R# 316 / H.anc# nr# el * p# * 12 / H.anc# nr# el * p# * + : 21 line Maximum bending moment above dredge line At top anchor M.maxi# 1 el 1354 / H.anc# 1 el (2^* p# * pq# H.anc# 1 el (2^* 2 / + eval : Other locations n 2 H.anc# rows range M.maxi# n el p# H.anc# n el (2^* 10 / pq# H.anc# n el (2^* 10 / + eval : 11 line for M.max# M.maxi# Max eval : 61 line M.max# 121 line : 21 line Choose which to use d.brc# rows 1 ≡ F.htota# h.exc# d.brc# F.htotq# T# R# M.max# x.zs# fFHWATrib1 11 line F.htota# h.exc# d.brc# F.htotq# T# R# M.max# fFHWATribM 11 line if 21 line 51 line

F.H# H.T# z.anc# F.Hq# T# R# M.max# x.zs# fFHWATrib1 Tributary Method for Single Anchor, refer to FHWA Cir 4 Fig 39 Distance from top of sheeting to top anchor H.anc# 1 el z.anc# 1 el : Destance from top anchor to dredge line H.anc# 2 el H.T# H.anc# 1 el - : Maximum soil pressure p# F.H# 23 / H.T# * / : Maximum surcharge pressure (use average) pq# F.Hq# H.T# / : M.B# 1354 / H.anc# 1 el (2^* p# * pq# H.anc# 1 el (2^* 2 / + : T is returned as Matrix T# 1 el 23 H.T# (2^* 10 H.T# * H.anc# 1 el * - 54 H.anc# 2 el * / p# * H.anc# 1 el H.anc# 2 el 2 / (+ (pq# * + eval : Reaction at dredge line R# 23 / H.T# * p# * H.T# pq# * + (T# 1 el - eval : Point of zero shear (approx) x.zs# 19 / 26 H.T# (2^* 52 H.T# * H.anc# 1 el * - sqrt * H.anc# 2 el 2 / 1 H.anc# 1 el (2^H.anc# 2 el (2^/ - (* + 2 / eval : Moment between top anchor and dredge line M.BC# R# x.zs# * p# x.zs# 3^* 4 H.anc# 2 el * / - pq# x.zs# * 2 H.anc# 2 el * / H.anc# 2 el (2^H.anc# 1 el (2^- x.zs# H.anc# 2 el * - (* + eval : M.BC# trace M.max# M.B# M.BC# Max eval : 201 line :

F.htota# h.exc# d.brc# F.htotq# T# R# M.max# x.zs# fFHWATrib1 4.8925 105^* N *

Must update to include water ******************* Define a function to determine soil and surcharge forces below the dredge line z# γ.e# γ.b# K# K.c# c# ELF.min# q.sur# F.hsi# F.hqi# y.s# y.q# fFHbelow t# 1 time : Determine soil forces for each soil layer below the dredge line F.hsi# 01 matrix : F.hqi# 01 matrix : Depth to force resultant for soil and for surcharge from dredge line y.s# 01 matrix : y.q# 01 matrix : 61 line n 1 z# rows range z# n el h.exc# ≥ (z# n el H.tot# < (& y.1# z# n el : y.2# z# n 1 + el : d.s# y.2# y.1# - : P.h1# y.1# γ.e# n el * K# n el * K.c# n el c# n el * - 0 lbf ft / * ELF.min# y.1# * Max eval : P.h2# y.2# γ.e# n el * K# n el * K.c# n el c# n el * - 0 lbf ft / * ELF.min# y.1# * Max eval : F.temp# P.h1# P.h2# + (d.s# 2 / * : F.hsi# F.hsi# F.temp# stack eval : Distance to force from dredge line y.temp# d.s# 2 P.h2# * P.h1# + (* 3 P.h2# P.h1# + (* / y.1# h.exc# - (+ : y.s# y.s# y.temp# stack eval : Find Equivalent ka considering cohesion. Use base soil weights (not submerged) P.h1# y.1# γ.b# n el * K# n el * K.c# n el c# n el * - 0 lbf ft / * ELF.min# y.1# * Max eval : P.h2# y.2# γ.b# n el * K# n el * K.c# n el c# n el * - 0 lbf ft / * ELF.min# y.1# * Max eval : F.heq# P.h1# P.h2# + (d.s# 2 / * : K.qeq 2 F.heq# * γ.b# n el d.s# 2^* / eval : F.temp# q.sur# K.qeq * d.s# * eval : F.hqi# F.hqi# F.temp# stack eval : Distance to force from dredge line y.temp# d.s# 2 P.h2# * P.h1# + (* 3 P.h2# P.h1# + (* / y.1# h.exc# - (+ : y.q# y.q# y.temp# stack eval : 201 line 011 line if 11 line for 1 time t# - 41 line : Find active soil forces and surcharge z# γ.a# γ.b# K.ahi# K.ahci# c# ELF.min# q.sur# F.hai# F.hqai# y.sa# y.q# fFHbelow Find Passive forces (no surcharge) z# γ.p# γ.b# K.phi# K.phci# c# 0 psf * 0 psf * F.hpi# F.hqpi# y.sp# y.qp# fFHbelow 41 line 41 line

Factor Of Safety at Toe F.htoe# F.hai# F.hqai# sum + sum : F.Rtoe# F.hpi# sum : FS.toe# F.htoe# F.Rtoe# / : 41 line

Output Results FS.toe# M.max# Delete p.a# T# R# K.ahi# K.ahci# K.phi# K.phci# F.hai# F.hqai# F.htota# F.htoe# F.Rtoe# 151 sys : 21 line