//Example 7.25.//trailing weight and maximum gradiant
clc;
clear;
close;
format('v',6)
//given data :
w1=100;//tonnes
w=w1+500;//tonnes
we=1.1*w;//effective weight
alpha=1;//
G=1;//
r=45;//
ft=((277.8*we*alpha)+(98.1*w*G)+(w*r));//in newtons
ad=0.7;//adehsive percent
mu=(ft)/(100*10^3*9.81*ad);//
w2=130;//tonnes
ad2=w2*G;//
tadw=w1*ad+ad2;//tonnes
tted=mu*tadw*9.81*1000;//newtones
W=tted/(277.8*1.1*alpha+98.1*alpha+r);//in tonnes
trlw=W-(ad2+w1);//
disp("part (a)")
disp(round(trlw),"trailig weight in tonnes is")
w2=w1+500+ad2;//
G1=((tted/w2)-(277.8*1.1+r))*(1/98.1);//
disp("part (b)")
disp(G1,"maximum gradiant in percentage is")