Example 5514: Passive inflation of a high order prolate model with two ventricular wall elements

Two prolate elements (region 1: lambda tricubic Hermite; mu,theta trilinear; hydrostatic pressure nodally interpolated) of incompressible pole zero material is inflated to 1kPa.


The comfile run by this example is as follows:

#Example_5514:  inflation of a highorder (lambda tricubic) two element mesh 

fem define parameters;r;profib_tricubic;example

# Command updated by fixcom.sh on Wed Aug 23 17:49:00 NZT 2000
# Old command: assign variable WALL 1
$WALL = 1

fem define coor;r;wall;example reg $WALL #prolate spheriodal coords
fem define node;r;;example reg $WALL #6 nodes
fem define base;r;;example                     #lambda tricubic; mu/theta trilinear
fem define elem;r;;example reg $WALL #2 wall elements
fem define fibr;r;;example reg $WALL #fibre: endo 65 deg; epi -55 deg
#                                             !sheet: endo -45 deg; epi  45 deg
fem define elem;r;;example fibre reg $WALL
fem define equa;r;;example reg $WALL lock #Incomp finite elasticity; Galerkin FEM
fem define mate;r;;example reg $WALL #pole zero law
fem define acti;r;wall0_00;example reg $WALL #passive inflation
fem define init;r;wall;example reg $WALL #inflate to 1kPa
fem define solv;r;wall;example reg $WALL #LU MA28
#
fem solve increm 0.4 iter 2           #solve inflation problem incrementally
fem solve increm 0.3 iter 2
fem solve increm 0.3 iter 20
fem define init;w;wall_def reg $WALL #save deformed equilibrium solutions
#
#fem define window
#fem draw lines
#fem draw lines deformed dotted        !draw inflated solution

Additional testing commands:

fem list initial

Files used by this example are:

Name                     Modified     Size

example_5514.com 29-Jun-2001 1.3k name.txt.mpn 10-Apr-2000 62 profib_tricubic.ippara 17-Dec-2002 5.9k profib_tricubic.out 10-Apr-2000 19k profib_tricubic_old.out 10-Apr-2000 12k test_output.com 10-Apr-2000 17 wall.ipbase 29-Jun-2001 12k wall.ipcoor 10-Apr-2000 710 wall.ipelem 10-Apr-2000 1.2k wall.ipelfb 10-Apr-2000 618 wall.ipequa 02-May-2004 2.0k wall.ipfibr 30-Jan-2001 1.7k wall.ipinit 12-Dec-2002 1.6k wall.ipmate 12-Dec-2002 6.3k wall.ipnode 29-Jun-2001 4.9k wall.ipshee 10-Apr-2000 915 wall.ipsolv 16-Aug-2010 2.3k wall.ipsolv.old 13-Apr-2007 2.1k wall0_00.ipacti 03-Mar-2004 735 wall_def.ipinit 13-Dec-2002 15k wall_def_old.ipinit 12-Dec-2002 15k

Download the entire example:

Name                           Modified     Size

examples_5_55_551_5514.tar.gz 17-Aug-2010 19k

Testing status by version:

StatusTestedReal time (s)
i686-linux
cmSuccessSun Mar 6 00:08:29 201613
cm-debugSuccessSat Mar 5 00:32:33 201623
mips-irix
cmSuccessSun Aug 19 02:30:40 200758
cm-debugSuccessWed Aug 15 02:42:35 2007186
cm-debug-clear-mallocSuccessSat Aug 18 02:58:17 2007188
cm-debug-clear-malloc7SuccessMon Aug 20 02:58:26 2007192
cm64SuccessSun Aug 19 02:33:41 200760
cm64-debugSuccessTue Aug 21 02:49:25 2007197
cm64-debug-clear-mallocSuccessTue Feb 1 09:50:01 200579
rs6000-aix
cmSuccessWed Mar 4 01:12:21 20097
cm-debugSuccessMon Mar 2 01:23:33 200962
cm64SuccessWed Mar 4 01:12:56 20097
cm64-debugSuccessTue Mar 3 01:26:27 200956
x86_64-linux
cmSuccessSun Mar 6 00:01:22 20166
cm-debugSuccessSat Mar 5 00:03:29 201612

Testing status by file:


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

Input last modified: Mon Aug 16 11:19:20 2010


CMISS Help / Examples / 5 / 55 / 551 / 5514