1## -*- texinfo -*- 2## @deftypefn {Function File} {} ocframe_ex1() 3## Example of a planar frame. 4## 5## @end deftypefn 6function [P,D,MemF]=ocframe_ex1() 7 joints=[0,0,1,1,1; 8 4,4,0,0,0; 9 8,4,1,1,0]; 10 11 EIA=[210e9,23130*(10^-2)^4,84.5*(10^-2)^2];%IPE400 12 13 members=[1,2,EIA;2,3,EIA]; 14 15 nodeloads=[]; 16 17 dist=[1,0,-2e3,0,-2e3,0,0,0;2,0,-4e3,0,-4e3,0,0,1]; 18 point=[];%1,0,-3e4,3,1 19 20 [P,D,MemF]=SolveFrame(joints,members,nodeloads,dist,point); 21 %PlotFrame(joints,members,D,10); 22 %plot moment diagram 23 PlotDiagrams(joints,members,dist,point,MemF,"S"); 24end 25