for location=[50 100 150 200 250 300 350 400 450 500 550 600 650 700 750]
C(i,:)=[(i-1)*2+1 (i-1)*2+2 (i-1)*2+3 (i-1)*2+4];
N=[(1-xi)^2*(2+xi)/4 le/8*(1-xi)^2*(1+xi) (1+xi)^2*(2-xi)/4 le/8*(1+xi)^2*(xi-1)];
Me(i,j)=rho*A*double(double(int(N(i)*N(j)*le/2,xi,-1,1)));
Ke=E*I*[12/le^3 6/le^2 -12/le^3 6/le^2;6/le^2 4/le -6/le^2 2/le;-12/le^3 -6/le^2 12/le^3 -6/le^2; 6/le^2 2/le -6/le^2 4/le];
K=zeros(2*(Ne+1),2*(Ne+1));
M=zeros(2*(Ne+1),2*(Ne+1));
K(C(e,j),C(e,k))= K(C(e,j),C(e,k))+fac(e)*Ke(j,k);
M(C(e,j),C(e,k))= M(C(e,j),C(e,k))+Me(j,k);
Kg=K(3:2*(Ne+1),3:2*(Ne+1));
Mg=M(3:2*(Ne+1),3:2*(Ne+1));
[psi,xval] = morlet(-4,4,90);
Ft(end)=(sin(pi*t/T))^2*sin(4*pi*t/T);
KK=Mg+deltat/2*Cg+beta*deltat^2*Kg;
FF=Ft-Cg*(v(:,i-1)+deltat/2*a(:,i-1))-Kg*(x(:,i-1)+deltat*v(:,i-1)+(1-2*beta)/2*deltat^2*a(:,i-1));
v(:,i)=v(:,i-1)+deltat/2*(a(:,i)+a(:,i-1));
abeta=(1-2*beta)*a(:,i-1)+2*beta*a(:,i);
x(:,i)=x(:,i-1)+deltat*v(:,i-1)+abeta*deltat^2/2;
ss1=x(2*(Sloc2+1),:)-x(2*Sloc2,:);
writematrix(ulti,'DATASET.csv',"Delimiter",',')
0 Comments
Sign in to comment.