Ke(1,:)=E(I)/L(I)*[A(I)*C*C+12*II(I)*S^2/L(I)^2  C*S*(A(I)-12*II(I)/L(I)^2)    -6*II(I)*S/L(I) -A(I)*C*C-12*II(I)*S*S/L(I)^2 (-A(I)+12*II(I)/L(I)^2)*S*C    -6*II(I)*S/L(I)];
    Ke(2,:)=E(I)/L(I)*[C*S*(A(I)-12*II(I)/L(I)^2)    A(I)*S*S+12*II(I)*C^2/L(I)^2  6*II(I)*C/L(I)  -A(I)*S*C+12*II(I)*C*S/L(I)^2 -A(I)*S*S-12*II(I)*C*C/L(I)^2  6*II(I)*C/L(I)];
    Ke(3,:)=E(I)/L(I)*[-6*II(I)*S/L(I)               6*II(I)*C/L(I)                4*II(I)         6*II(I)*S/L(I)                -6*II(I)*C/L(I)                2*II(I)];
    Ke(4,:)=E(I)/L(I)*[-A(I)*C*C-12*II(I)*S*S/L(I)^2 -A(I)*S*C+12*II(I)*C*S/L(I)^2 6*II(I)*S/L(I)  A(I)*C*C+12*II(I)*S^2/L(I)^2  A(I)*C*S-12*II(I)*S*C/L(I)^2   6*II(I)*S/L(I)];
    Ke(5,:)=E(I)/L(I)*[-A(I)*C*S+12*II(I)*S*C/L(I)^2 -A(I)*S*S-12*II(I)*C*C/L(I)^2 -6*II(I)*C/L(I) A(I)*C*S-12*II(I)*S*C/L(I)^2  A(I)*S*S+12*II(I)*C*C/L(I)^2   -6*II(I)*C/L(I)];
    Ke(6,:)=E(I)/L(I)*[-6*II(I)*S/L(I)               6*II(I)*C/L(I)                 2*II(I)        6*II(I)*S/L(I)                -6*II(I)*C/L(I)                 4*II(I)];