Problem 5C4 Two 25kip loads are maintained 6 ft apart as the

Problem 5.C4
Two 25-kip loads are maintained 6 ft apart as they moved slowly across the 18-ft beam AB. Write a computer program and use it to calculate the bending moment under each load and at the midpoint C of the beam for values of x from 0 to 24 ft at intervals delta(x) = 1.5 ft.

If you could use MathCAD to solve the problem that would be very helpful!!

Solution

clear;

clc;

format short;

x1=0:1.5:12;

x2=6:1.5:18;

for i=1:length(x1)

Rb(i)=25*(x1(i)/18)+25*(x2(i)/18);

Ra(i)=50-Rb(i);

Mx1(i)=Ra(i)*x1(i);

Mx2(i)=Rb(i)*(18-x2(i));

if x2(i)<=9

Mc(i)=Rb(i)*9;

end;

if x1(i)>=9

Mc(i)=Ra(i)*9;

end;

if x1(i)>3 && x1(i)<9

Mc(i)=Ra(i)*9-25*(9-x1(i));

end;

end;

disp(\' X1 X2 Mx1 Mx2 Mc\');

for i=1:length(x1)

a(i,1)=x1(i);

a(i,2)=x2(i);

a(i,3)=Mx1(i);

a(i,4)=Mx2(i);

a(i,5)=Mc(i);

end;

disp(a);