planetrussinclinedsupport.m

来自「matlab编程实现有限元计算,对有限元学习很有帮助」· M 代码 · 共 15 行

function y = PlaneTrussInclinedSupport(T,i,alpha)
%PlaneTrussInclinedSupport   This function calculates the
%                            tranformation matrix T of the inclined
%                            support at node i with angle of
%                            inclination alpha (in degrees).
x = alpha*pi/180;
T(2*i-1,2*i-1) = cos(x);
T(2*i-1,2*i) = sin(x);
T(2*i,2*i-1) = -sin(x) ;
T(2*i,2*i) = cos(x);
y = T;