Se busca determinar los coeficientes de rigidez de la estructura restringida para el caso:

• Aplicamos solamente una rotacion unitaria en el extremo del elemento y no existe ningun otro desplazamiento.
• Aplicamos un desplazamiento unitario horizontal en el elemento y no existe ningun otro desplazamiento.

Para esto vamos a aplicar la ecuacion de desplazamiento:

$$ [D_M]=[F_M]\times [A_M] $$

Procedimiento Formalizado

Si resolvemos el mismo problema mediante el metodo formalizado, obtenemos:

Calculo de coeficientes de rigidez de un marco plano con apoyo
clear all
clc

syms AE L EI

% Datos

Fm=[L/AE 0 0
   0 L^3/(3*EI) L^2/(2*EI)
   0 L^2/(2*EI) L/(EI)];

Bmj=[1 0
     0 0
     0 1];
Bmq=[0
    1
    0];
Bms=[Bmj Bmq];

Dq=[-L];
Aj=[0
    0];

Brs = [-1 0 0
        0 0 -1
        0 -1 -L];

%% Calculos

Fs=Bms'*Fm*Bms;

Fjj=Fs(1:2,1:2);
Fjq=Fs(1:2,3);
Fqj=Fs(3,1:2);
Fqq=Fs(3,3);

Aq=Fqq^-1*(Dq-Fqj*Aj)
Dj=Fjj*Aj+Fjq*Aq
As=[Aj
    Aq];
Ar=Brs*As

% Calculo para desplazamiento unitario vertical
Dq=[-1]

Aq=Fqq^-1*(Dq-Fqj*Aj)
Dj=Fjj*Aj+Fjq*Aq
As=[Aj
    Aq];
Ar=Brs*As

Fs
Fs^-1