forj = 3:(((L-xd)/.01)+1)
S(j) =t(j)/mint;
b (j) =S(j) mingt;
vg () =(x (j) x (j-1)) / b(j);
ag(j) =(vg (j)- vg (j- 1))/ b(j);
end


AV(2) =0;
KKKKK (2) =0;
forq = 3 : ((( L xd ) /.01) + 1)
KKK (q)= 2 ((( h ((x (q) A2) + (L A2)) A.5) + dely) (cos (( atan (L / x (q))))));
KKKK (q)= (((1 mc *jj) + ( 2 (mbs + mts) (jj- 1))) ag (q))+( 1 wp *jj)+ (2
* ws (j 1)) + ( wts ( sin (((2 atan ( L / x (q)))))));
KKKKK (q) = KKKK (q) / KKK (q);
AV (q) = KKKKK (q) + AV (q 1);
end


%altered stiffness
SS= AV(q)/(q- 2);
disp ('Altered stiffness is ');
disp (S);


PROG5M


%Calculation of the total time taken to deploy a level in a single stage
% User-defined inputs:


LL = input ('Input the total deployed length of the structure ');
L = input ('Input the height of the structure ');
Mc = input ('Mass of the plate used ');
mts = input ('Mass of the top strut ');