计算如图所示平面刚架各结点的位移和各梁的内力及支(强烈推荐)

nt( ie, 2 ), 2 ) ;Р L = sqrt( (xj-xi)^2 + (yj-yi)^2 ) ;Р c = (xj-xi)/L ;Р s = (yj-yi)/L ;Р T=[ c -s 0 0 0 0Р s c 0 0 0 0Р 0 0 1 0 0 0Р 0 0 0 c -s 0Р 0 0 0 s c 0Р 0 0 0 0 0 1] ;РreturnРfunction enf = ElementNodeForce( ie )Р% 计算单元的节点力Р% 输入参数Р% ie ----- 节点号Р% 返回值Р% enf ----- 单元局部坐标系下的节点力Р global gElement gNode gDelta gDFР i = gElement( ie, 1 ) ;Р j = gElement( ie, 2 ) ;Р de = zeros( 6, 1 ) ;Р de( 1:3 ) = gDelta( (i-1)*3+1:(i-1)*3+3 ) ;Р de( 4:6 ) = gDelta( (j-1)*3+1:(j-1)*3+3 ) ;Р k = StiffnessMatrix( ie, 1 ) ;Р enf = k * de ;Р Р [df_number, dummy] = size( gDF ) ;Р for idf = 1:1:df_numberР if ie == gDF( idf, 1 ) Р enf = enf - EquivalentNodeForce( gDF(idf,1), ...Р gDF(idf, 2), gDF( idf, 3), gDF( idf, 4 ) ) ;Р break ;Р endР endР Р T = TransformMatrix( ie ) ;Р enf = transpose( T ) * enf ;Рreturn