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