FEMGEN SOLID

CON NAM 4

! Define two points

GEOMETRY POINT COORD P1 0 62

GEOMETRY POINT COORD P2 0 80

! Join these two points with a line.

GEOMETRY LINE STRAIGHT L1 P1 P2

@#5

! Create a point (P3) at the origin and another point (P4) at z=20;

! these two points will be used to define the axis for the rotations.

GEOMETRY POINT COORD P3 0 0 0

GEOMETRY POINT COORD P4 0 0 20

CONSTRUCT TRANSFRM ROTATE ROT1 P3 P4 -90

CONSTRUCT TRANSFRM ROTATE ROT2 P3 P4 30.4

CONSTRUCT TRANSFRM ROTATE ROT3 P3 P4 59.6

@#5

! Create the circular part of the housing

GEOMETRY SWEEP L1 L2 ROT1

GEOMETRY SWEEP P1 P7 ROT2

GEOMETRY COPY L1 L6 ROT2

GEOMETRY SWEEP L6 L7 ROT3

EYE FRAME ALL

@#5

! Create three points for the left hand end

GEOMETRY POINT COORD P11 -127

GEOMETRY POINT COORD P12 -127 69

GEOMETRY POINT COORD P13 -127 80

EYE FRAME ALL

! Create a surface

LABEL GEOMETRY POINTS

GEOMETRY SURFACE 4POINTS S3 P10 P11 P12 P8

@#5

! Create the points and lines for the remaining surfaces

GEOMETRY LINE STRAIGHT L13 P13 P2

GEOMETRY SPLIT L13 P14 .75

GEOMETRY LINE STRAIGHT L15 P14 P8

GEOMETRY SPLIT L5 P15 .5

GEOMETRY LINE STRAIGHT L17 P15 P14

GEOMETRY LINE STRAIGHT L18 P13 P12

! Create the remaining surfaces

GEOMETRY SURFACE AUTO

@#5

! Produce a suitable 2D mesh

MESHING GENERATE

LABEL GEOMETRY DIVISIONS

MESHING DIVISION L13 4

MESHING DIVISION L14 2

MESHING DIVISION L15 2

MESHING DIVISION L18 2

MESHING GENERATE

VIEW MESH

@#5

! Construct a set to contain the complete model

CONSTRUCT SET OPEN SE2

CONSTRUCT SET APPEND ALL

CONSTRUCT SET CLOSE

@#5

! Sweep this set to produce the base part of the housing.

GEOMETRY SWEEP SE2 SE3 2 TR 0 0 8

@#5

! Change the view to a more suitable orientation

VIEW GEOMETRY ALL

EYE ROTATE LEFT 35;

EYE ROTATE UP 25;

EYE FRAME ALL

@#5

! Adjust the set before sweeping again

UTILITY TABULATE SETS

VIEW GEOMETRY SE3

LABEL GEOMETRY SURFACES

CONSTRUCT SET OPEN SE3

CONSTRUCT SET REMOVE S9

CONSTRUCT SET CLOSE

@#5

! Sweep the new set by 27 in the z direction to produce the rest of the

! housing.

GEOMETRY SWEEP SE3 4 TR 0 0 27

@#5

! Create a mesh and view it

MESHING GENERATE

VIEW HIDDEN SHADE

VIEW MESH ALL

VIEW HIDDEN OFF;

@#5

! Define and attach materials

PROPERTY MATERIAL MAT MAT1 209E3 .3 7800E-12

PROPERTY ATTACH ALL MA MAT1

@#5

! Define sets for constraints

EYE ROTATE TO 0;

VIEW GEOMETRY ALL;

EYE FRAME ALL

CONSTRUCT SET OPEN YSYM

CONSTRUCT SET APPEND S14 S19 S22 S37 S42

CONSTRUCT SET CLOSE

CONSTRUCT SET OPEN XSYM

CONSTRUCT SET APPEND S23 S30 S49

CONSTRUCT SET CLOSE

@#5

! Define set for loads

CONSTRUCT SET OPEN PRES

CONSTRUCT SET APPEND S15 S17 S20 S28 S38 S40 S43 S47

CONSTRUCT SET CLOSE

@#5

! Display the sets just created

VIEW GEOMETRY PRES

VIEW GEOMETRY +XSYM

VIEW GEOMETRY +YSYM

VIEW GEOMETRY ALL

@#5

! Apply the pressure load

PROPERTY LOADS PRES LO1 PRES 11

@#5

! Apply the constraints

PROPERTY BOUNDARY CONSTRAINT CO1 XSYM 1

PROPERTY BOUNDARY CONSTRAINT CO2 YSYM 2

LABEL GEOMETRY POINTS

PROPERTY BOUNDARY CONSTRAINT CO3 P26 3

@#5

! Check valid elements for package

UTILITY TABULATE FE AB

@#5

! Change the element type

MESHING TYPES ALL HE20 2

MESHING GENERATE

@#5

! Check the model

VIEW GEOMETRY ALL

LABEL MESH CONSTRNT

LABEL MESH LOADS

@#5

! Create a finite element input file

UTILITY WRITE ABAQUS solid20.inp

Y

UTIL WRITE ARCH SOLID.ARC

Y

STOP

Y

3d bearing housing