Function with Output parameters

2530b0c7-03fc-497b-aef4-95bc08a6654c 5 4 5 decimal

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

q'# X'# Y'# x'.q# H# s.q# k# n'# p# Y# F# fBstrip t# 1 time : Initialize parameters Width of Surcharge x.q# x'.q# 2 Y'# * s.q# * + : Distance to near side of surcharge X1# X'# Y'# s.q# * - : Distance to far side X2# X1# x.q# + : Strip load surcharge at elevation of top of wall q# q'# x'.q# x.q# / * : 91 line Pressure Function k## q## θ## β## p## fpstrip Pressure function p## k## q## * π / θ## θ## sin 2 β## * cos * - (* eval : 131 line : 21 line Determine Pressure Diagram p# 02 matrix : n 0 n'# range z# n n'# / H# * : α# π 2 / z# X1# / atan - (: δ# π 2 / z# X2# / atan - (: θ# δ# α# - : β# α# θ# 2 / + : k# q# θ# β# p1# fpstrip p.temp# p1# z# 12 mat : p# p# p.temp# stack eval : 81 line for 31 line Determine Forces F.i# 01 matrix : Y.i# 01 matrix : n 1 n' range z.1# p# n 2 el : z.2# p# n 1 + 2 el : h# z.2# z.1# - : p1# p# n 1 el : p2# p# n 1 + 1 el : Y.temp# H# z.1# h# 2 p2# * p1# + (* 3 p2# p1# + (* / + (- eval : F.temp# p2# p1# + 2 / h# * eval : Y.i# Y.i# Y.temp# stack eval : F.i# F.i# F.temp# stack eval : 91 line for 41 line Determine Forces Y# F.i# n el Y.i# n el * (n 1 F.i# rows sum F.i# sum / eval : F# F.i# sum eval : 31 line 1 time t# - 71 line :

Input parameters

Surcharge

q'# 2118 psf * :

Horizontal distance to near edge of surcharge

X' 15.7 ft * :

Vertical distance to surcharge

Y' 1.1 ft * :

Width of strip

x'.q 8.5 ft * :

Height (exposed height)

H 20 ft * :

Slope (H:V) at which the vertical pressure distributes through the soil (typ 1H:2V as used by UPRR)

s.q 0.5 :

Wall Stiffness (suggested by civil tech software: Flex=1, Semirigid=1.5, Rigid=2)

k 2 :

Number of subdivisions

n' 20 :

q' X' Y' x'.q H s.q k n' p Y.FH F.H fBstrip #

F.H kip ft / #

Y.FH ft #

Function with Ressult return

q'# X'# Y'# x'.q# H# s.q# k# n'# fBstrip t# 1 time : Initialize parameters Width of Surcharge x.q# x'.q# 2 Y'# * s.q# * + : Distance to near side of surcharge X1# X'# Y'# s.q# * - : Distance to far side X2# X1# x.q# + : Strip load surcharge at elevation of top of wall q# q'# x'.q# x.q# / * : 91 line Pressure Function k## q## θ## β## p## fpstrip Pressure function p## k## q## * π / θ## θ## sin 2 β## * cos * - (* : 131 line : 21 line Determine Pressure Diagram p# 02 matrix : n 0 n'# range z# n n'# / H# * : α# π 2 / z# X1# / atan - (: δ# π 2 / z# X2# / atan - (: θ# δ# α# - : β# α# θ# 2 / + : k# q# θ# β# p1# fpstrip p.temp# p1# z# 12 mat : p# p# p.temp# stack eval : 81 line for 31 line Determine Forces F.i# 01 matrix : Y.i# 01 matrix : n 1 p# rows 1 - range z.1# p# n 2 el : z.2# p# n 1 + 2 el : h# z.2# z.1# - : p.1# p# n 1 el : p.2# p# n 1 + 1 el : Y.temp# H# z.1# h# 2 p.2# * p.1# + (* 3 p.2# p.1# + (* / + (- eval : F.temp# p.2# p.1# + 2 / h# * eval : Y.i# Y.i# Y.temp# stack eval : F.i# F.i# F.temp# stack eval : 91 line for 41 line Determine Forces Y# F.i# n el Y.i# n el * (n 1 F.i# rows sum F.i# sum / eval : F# F.i# sum eval : 31 line Result# F# Y# p# 1 time t# - 41 sys : 71 line :