Example b2128: Small implicit 2d bidomain strip using Luo-Rudy current model

Example b2121 - bidomain This example solves the bidomain equations on a 2d domain. The equations are solved implicitly and the Luo Rudy ionic current model is used. Solution is by sparse LU factorisation and there are 8x8 grid points per element.

The comfile run by this example is as follows:

fem define para;r;biline;example
fem define node;r;biline;example
fem define base;r;biline;example
fem define elem;r;biline;example
fem define grid;r;biline;example
fem update grid geometry
fem update grid metric
fem group grid external as boundary
fem group grid grid 2,9,16,23,30,37,44 as stimulus_site
fem define equa;r;biline;example class 1,2
fem define cell;r;lr_double_pulse;example
fem define mate;r;biline;example cell class 1,2
fem define mate;r;biline;example class 1,2
fem update grid material class 1,2
fem define init;r;biline;example class 1,2
fem define solv;r;biline;example class 1
fem define solv;r;biline2;example class 2
fem define window
fem solve to 0 class 1,2


# Command updated by fixcom.sh on Wed Aug 23 17:50:05 NZT 2000
# Old command: DO M=0..10
for $M ( 0..10 ) 
{

fem solve restart to $M class 1,2
fem draw field grid 1 zmin=-20 zmax=2 class 2
refresh graphics

# Command updated by fixcom.sh on Wed Aug 23 17:50:05 NZT 2000
# Old command: ENDDO
}

Files used by this example are:

Name                    Modified     Size

example_b2128.com       20-Nov-2001  983 
biline.ipbase           10-Apr-2000  1.1k
biline.ipcell           10-Apr-2000  3.4k
biline.ipelem           10-Apr-2000  360 
biline.ipequa           26-May-2003  1.7k
biline.ipgrid           06-Mar-2003  534 
biline.ipinit           10-Apr-2000  557 
biline.ipmatc           10-Apr-2000  946 
biline.ipmate           10-Apr-2000  1.7k
biline.ipmate_cell_old  10-Apr-2000  5.2k
biline.ipnode           10-Apr-2000  1.0k
biline.ippara           12-Nov-2002  5.9k
biline.ipsolv           13-Apr-2007  1.8k
biline.ipsolv.old       10-Apr-2000  1.4k
biline2.ipsolv          13-Apr-2007  1.8k
biline2.ipsolv.old      10-Apr-2000  1.4k
biline7.ipgrid          06-Mar-2003  534 
biline8.ipgrid          06-Mar-2003  534 
lr_double_pulse.ipcell  10-Apr-2000  3.0k
test_output.com_broken  10-Apr-2000   66 

Download the entire example:

Name                                 Modified     Size

examples_b_b2_b21_b212_b2128.tar.gz  14-Apr-2007  9.8k

Html last generated: Sun Mar 6 05:51:10 2016

Input last modified: Fri Apr 13 10:38:39 2007