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

Diff of /trunk/models/johnpye/beam4.a4c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 843 by johnpye, Sun Sep 10 06:10:36 2006 UTC revision 844 by johnpye, Mon Sep 11 08:31:21 2006 UTC
# Line 1  Line 1 
1  REQUIRE "johnpye/beam.a4c";  REQUIRE "johnpye/beam.a4c";
2    REQUIRE "johnpye/aiscbeams.a4c";
3    
4  (*  (*
5      Model of a beam with four supports and one central load.      Model of a beam with four supports and one central load.
# Line 10  MODEL beam4; Line 11  MODEL beam4;
11      n :== 3; (* five superpositions for the four supports and the applied load *)      n :== 3; (* five superpositions for the four supports and the applied load *)
12    
13      E IS_A youngs_modulus;      E IS_A youngs_modulus;
14      I IS_A second_moment_of_area;      I IS_A second_moment_of_area;
15      L IS_A distance;      L IS_A distance;
16        c IS_A distance; (* max distance from neutral axis *)
17        Ag IS_A area;
18        
19        aisc IS_A aiscbeams;
20        
21        designation IS_A symbol;
22            
23      S IS_A beam_superposition(n,E,I,L);      S IS_A beam_superposition(n,E,I,L);
24    
25      P ALIASES S.B[2].P;      P ALIASES S.B[2].P;
26      a ALIASES S.B[2 ].a;      a ALIASES S.B[2 ].a;
27        x2 ALIASES S.B[1].a;
28        x3 ALIASES S.B[3].a;
29    
30      v ALIASES S.v[2];      v ALIASES S.v[2];
31    
# Line 24  MODEL beam4; Line 33  MODEL beam4;
33      R2 ALIASES S.B[1].P;      R2 ALIASES S.B[1].P;
34      R3 ALIASES S.B[3].P;      R3 ALIASES S.B[3].P;
35      R4 ALIASES S.R2;      R4 ALIASES S.R2;
36    
37        M IS_A moment;
38        M + R3*(S.B[3].a - a) + R4*(L-a) = 0;
39        
40        sigma_max IS_A stress;
41        sigma_max = M*c/I;
42        tau_max IS_A stress;
43        tau_max = sigma_max / 2; (* no shear here at point of max bending *)
44        
45  METHODS  METHODS
46  METHOD specify;  METHOD specify;
47      FIX E,I,L;      FIX E,I,L,c,Ag;
48      FIX S.B[1,3].a;      FIX S.B[1,3].a;
49      FIX P, a;      FIX P, a;
50      FIX S.v[1,3];      FIX S.v[1,3];
# Line 42  END bound_self; Line 59  END bound_self;
59  METHOD values;  METHOD values;
60      (* beam properties *)      (* beam properties *)
61      E := 200 {GPa};      E := 200 {GPa};
62      I := 10e6 {mm^4};      designation := '150UB18.0';
63        I := aisc.Ix[designation];
64        c := aisc.d[designation] / 2;
65        Ag := aisc.Ag[designation];
66        
67      L := 9 {m};      L := 9 {m};
68    
69      (* load *)      (* load *)
# Line 54  METHOD values; Line 75  METHOD values;
75      S.B[3].a := 6 {m};      S.B[3].a := 6 {m};
76    
77      (* deflections at supports *)      (* deflections at supports *)
78      FOR i IN [1..n] DO      FOR i IN [1,3] DO
79          S.v[i] := 0 {m};          S.v[i] := 0 {m};
80      END FOR;      END FOR;
81    
82  END values;  END values;
83    
84  METHOD on_load;  METHOD on_load;

Legend:
Removed from v.843  
changed lines
  Added in v.844

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