beamelementsheardiagram.m

来自「这时一个基于梁元的有限元计算程序」· M 代码 · 共 8 行

function y=BeamElementShearDiagram(f,L)
x=[0;L];
z=[f(1);f(3)];
hold on 
title('shear Force Diagram');
plot(x,z);
y1=[0;0];
plot(x,y1,'k');