eqf = R1 +R2+R3 - F -W1*L/3-W3*L-W2*L ==0
eqf =

eqm = R2*L+2*R3*L-F*L/3-W1*L/3*0.5*L-W3*L*1.5*L+W3*L^2/2-2.5*W2*L^2==0
eqm =

cdef = (R1*L^3)/6-(4/81)*F*L^3-W1*L^4/144+c*L == 0
cdef =

def2 = R1*4*L^3/3+R2*L^3/6-(125/162)*F*L^3-3/16*W1*L^4-W3*L^4/48-W3*L^4/16+2*L*c==0
def2 =

sol = solve(eqf,eqm,cdef,def2)
sol =
R1: 2183306111051851699891/67108864000000000
R2: 1119568478814815206359/33554432000000000
R3: 3471827368770369759157/134217728000000000
c: -1524645038459259098803/402653184000
x = linspace(0, 3000, 300001);
y(n) = (1/(E*I)) * ((R1*x(n)^3)/6 + c*x(n));
elseif x(n) >= (1000/3) && x(n) < (2000/3)
y(n) = (1/(E*I)) * ((R1*x(n)^3)/6 - F*(x(n)-(L/3))^3/6 - W1*(x(n)-(L/3))^4/24 + c*x(n));
elseif x(n) >= (2000/3) && x(n) < 1000
y(n) = (1/(E*I)) * ((R1*x(n)^3)/6 - F*(x(n)-(L/3))^3/6 - W1*L/3*(x(n)-(L/2))^3/6 + c*x(n));
elseif x(n) >= 1000 && x(n) < 1500
y(n) = (1/(E*I)) * ((R1*x(n)^3)/6 - F*(x(n)-(L/3))^3/6 - W1*L/3*(x(n)-(L/2))^3/6 + R2*(x(n)-L)^3/6 + c*x(n));
elseif x(n) >= 1500 && x(n) < 2000
y(n) = (1/(E*I)) * ((R1*x(n)^3)/6 - F*(x(n)-(L/3))^3/6 - W1*L/3*(x(n)-(L/2))^3/6 + R2*(x(n)-L)^3/6 - (W3*((x(n)-3/2*L)^3)/6 + m*((x(n)-(3/2)*L)^2)/2) + c*x(n));
elseif x(n) >= 2000 && x(n) <= 3000
y(n) = (1/(E*I)) * ((R1*x(n)^3)/6 - F*(x(n)-(L/3))^3/6 - W1*L/3*(x(n)-(L/2))^3/6 + R2*(x(n)-L)^3/6 - (W3*((x(n)-3/2*L)^3)/6 + m*((x(n)-(3/2)*L)^2)/2) + R3*((x(n)-2*L)^3)/6 - W2*((x(n)-2*L)^4)/24 + c*x(n));
YC = (1/(E*I)) * ((R1*1500^3)/6 - F*(1500-(L/3))^3/6 - W1*L/3*(1500-(L/2))^3/6 + R2*(1500-L)^3/6 + c*1500)
YE = (1/(E*I)) * ((R1*3000^3)/6 - F*(3000-(L/3))^3/6 - W1*L/3*(3000-(L/2))^3/6 + R2*(3000-L)^3/6 - (W3*((3000-3/2*L)^3)/6 + m*((3000-(3/2)*L)^2)/2) + R3*((3000-2*L)^3)/6 - W2*((3000-2*L)^4)/24 + c*3000)
Y_C = (1/(E*I))*((R1*3*L^2)/2 -F*((3*L-(L/3))^2)/2 - W1*L/3*(3*L-(L/2)^2)/2+(R2*(3*L-L)^2)/2+c)
Y_E = (1/(E*I))*((R1*3*L^2)/2 -F*((3*L-(L/3))^2)/2 - W1*L/3*(3*L-(L/2)^2)/2+(R2*(3*L-L)^2)/2-(W3*((3*L-3/2*L)^2)/2+ m*(3*L-(3/2)*L))+(R3*((3*L-2*L)^2)/2-W2*(((3*L-2*L)^3)/6))+c)