Example 526: 10% uniaxial extension of a unit cube with fibres (60 degrees)

A 3D unit cube of incompressible transversely isotropic material (exponential material law) where the fibre direction is at a constant 60 degree angle wrt the X axis, is displacement loaded on the X=1 face by 10% in the X direction while keeping the X=0 face fixed (uniaxial extension).


The comfile run by this example is as follows:

#Example_526  10% uniaxial extension of a unit cube with fibres (60 degrees)
 
fem
fem define coordinates;r;unifib60;example #Defines rectangular cartesian.
fem define node;r;;example          #Defines 8 nodes.
fem define base;r;;example	        #Defines 3 basis function.
fem define element;r;;example       #Defines 1 element.
fem define fibre;r;;example         #Define fibre orientations in the 1-2
#                               !  plane for all 8 nodes in DEGREES wrt
#                               !  XI 1 direction as 60 degrees.
fem define element;r;;example fibre
fem define window
fem draw lines
fem draw fibres
fem define equation;r;;example      #Defines equation information.
fem define material;r;;example      #Defines material information.
fem define initial;r;;example       #Defines initial conditions.
fem define solve;r;;example         #Defines solution information.
fem solve step 1 error 1.0D-10  #Solve the problem.
fem draw line deformed dotted
fem list strain at 1 ref        #List strain information wrt reference
#                               !  coordinates at 1st gauss point.
fem list stress at 1 ref        #List stress information wrt reference
#                               !  coordinates at 1st gauss point.

Additional testing commands:

fem list stress at 1 ref
fem list strain at 1 ref

Files used by this example are:

Name                 Modified     Size

example_526.com 10-Apr-2000 1.2k test_output.com 10-Apr-2000 50 unifib60.ipbase 10-Apr-2000 3.4k unifib60.ipcoor 10-Apr-2000 608 unifib60.ipelem 10-Apr-2000 446 unifib60.ipelfb 10-Apr-2000 237 unifib60.ipequa 02-May-2004 2.1k unifib60.ipfibr 30-Jan-2001 995 unifib60.ipinit 05-Dec-2002 2.9k unifib60.ipmate 13-Oct-2003 3.0k unifib60.ipnode 10-Apr-2000 1.9k unifib60.ipsolv 16-Aug-2010 2.3k unifib60.ipsolv.old 13-Apr-2007 2.2k

Download the entire example:

Name                      Modified     Size

examples_5_52_526.tar.gz 14-Aug-2014 6.8k

Testing status by version:

StatusTestedReal time (s)
i686-linux
cmSuccessSun Mar 6 00:01:58 20161
cm-debugSuccessSat Mar 5 00:02:15 20161
mips-irix
cmSuccessSun Aug 19 01:27:10 20073
cm-debugSuccessWed Aug 15 01:23:12 20075
cm-debug-clear-mallocSuccessSat Aug 18 01:25:17 200710
cm-debug-clear-malloc7SuccessMon Aug 20 01:23:03 20079
cm64SuccessSun Aug 19 01:27:33 20073
cm64-debugSuccessTue Aug 21 01:21:32 20075
cm64-debug-clear-mallocSuccessTue Feb 1 09:44:20 20053
rs6000-aix
cmSuccessWed Mar 4 01:07:21 20090
cm-debugSuccessMon Mar 2 01:06:22 20091
cm64SuccessWed Mar 4 01:07:21 20090
cm64-debugSuccessTue Mar 3 01:12:11 20091
x86_64-linux
cmSuccessSun Mar 6 00:01:03 20160
cm-debugSuccessSat Mar 5 00:01:14 20160

Testing status by file:


Html last generated: Sun Mar 6 05:50:22 2016

Input last modified: Thu Aug 14 10:03:14 2014


CMISS Help / Examples / 5 / 52 / 526