/[ascend]/trunk/models/johnpye/beam2.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/beam2.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 840 - (show annotations) (download) (as text)
Sun Sep 10 06:10:36 2006 UTC (16 years, 2 months ago) by johnpye
File MIME type: text/x-ascend
File size: 774 byte(s)
Added 'deflection' to atoms.a4l.
Updated beam models to use 'abs' instead of full conditional modelling.
1 REQUIRE "johnpye/beam.a4c";
2
3 (*
4 Simple superposition of two loads
5 *)
6
7 MODEL beam2;
8
9 n IS_A integer_constant;
10 n:== 2;
11
12 E IS_A youngs_modulus;
13 I IS_A second_moment_of_area;
14 L IS_A distance;
15
16 S IS_A beam_superposition(n,E,I,L);
17
18 P1 ALIASES S.B[1].P;
19 a1 ALIASES S.x[1];
20 P2 ALIASES S.B[2].P;
21 a2 ALIASES S.x[2];
22
23 v1 ALIASES S.v[1];
24 v2 ALIASES S.v[2];
25 METHODS
26 METHOD specify;
27 FIX E,I,L;
28 FIX P1,a1;
29 FIX P2,a2;
30 END specify;
31
32 METHOD bound_self;
33 RUN S.bound_self;
34 L.upper_bound := 500 {m};
35 END bound_self;
36
37 METHOD values;
38 E := 200 {GPa};
39 I := 0.5e6{mm^4};
40 L := 3 {m};
41 P1 := 10 {kN}; a1 := 1 {m};
42 P2 := 10 {kN}; a2 := 2 {m};
43 END values;
44
45 METHOD on_load;
46 RUN reset; RUN bound_self; RUN values;
47 END on_load;
48
49 END beam2;

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22