b73687b9-d323-4bc8-ae0f-eec47d274953 10 Oscar Campo 3 5 false true 0 6 decimal

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

L 10 in * :

a 4 in * :

w 10 kip in / * :

Definition singularity function:

x a n fsin f x a - (n^x a > (* n 0 ≥ (* : f 0 ≈ 0 f if 21 line :

x q R.1 x 01 - fsin * w x a 0 fsin * - R.2 x L 1 - fsin * + :

x V R.1 x 00 fsin * w x a 1 fsin * - R.2 x L 0 fsin * + :

x M R.1 x 01 fsin * w 2 / x a 2 fsin * - R.2 x L 1 fsin * + :

Boundary condition, on x>L , V(x) and M(x) are zero

x# L 1010 -^in * + :

x# V 0 ≡ x# M 0 ≡ 21 sys R.1 R.2 21 sys Solve Assign kip 184221 sys

x in * V x in * M 2 1 sys

Mmax 5.8 in * V : kip 4.1983 1010 -^*

For elastic tangent, we use θ(x) and y(x)

x θ 1 E I * / R.1 2 / x 02 fsin * w 6 / x a 3 fsin * - R.2 2 / x L 2 fsin * + C.1 + (* :

x y 1 E I * / R.1 6 / x 03 fsin * w 24 / x a 4 fsin * - R.2 6 / x L 3 fsin * + C.1 x * + C.2 + (* :

I π d 4^* 64 / :

E 30000 ksi * :

d 2 in * :

Boundary conditions: y(x) is zero on supports

0 y 0 ≡ L y 0 ≡ 21 sys C.1 C.2 21 sys Solve Assign kip in 2^* 246 - 021 sys

plotting elastic curve y(x)

x in * y x 0 ≥ ( x 10 ≤ ( & ( *

To find point of maximum deflection we use θ(x) = 0

x in * θ x 0 ≥ ( x 10 ≤ ( & ( *

The plot shows that the point where θ(x) = 0 is between 4~6

Trying to find the exact point of max deflection (xm)...

x in * θ 0 ≡ xm Solve Assign no result

xm x in * θ 0 ≡ x 46 solve : #

xm x in * θ 0 ≡ x solve maple : #

x in * θ 0 ≡ xm 4.5 ≡ FindRoot #