Example cellml/DFN_1985: DiFrancesco - Noble 1985

This example solves the DiFrancesco & Noble 1985 Purkinje fibre model, defined by a CellML version of the model.

NOTE: This example requires a CellML 1.0 enabled version of CMISS to run.


The comfile run by this example is as follows:

# If the example path is not set, default to current directory
if (! defined $example) {
    $example = "./";
}
# Drop off the trailing / in the example path
$chopped = chop $example;
if ($chopped ne "/") {
    $example .= $chopped;
}

fem define parameters;r;$example/cellml;
fem define node;d;
fem define bas;d;
fem define elem;d;
fem define grid;d;
fem update grid geometry;
fem update grid metric;
fem define equation;r;$example/cellml;
fem define cell;r;$example/difrancesco_noble_model_1985;
fem define material;d cell;
fem define material;d;
fem update grid material;
fem define initial;d;
fem define solve;r;$example/lsoda;
fem solve to 0;
fem open history;difrancesco_noble_model_1985 write variables yqs niqslist 1..35 binary;
$Tend = 5500;
$dt = 10.0;
for ($time=0;$time<$Tend;$time+=$dt) {
    fem solve restart to $time;
    fem write history time $time variables yqs binary;
}
fem close history binary;
fem evaluate electrode;difrancesco_noble_model_1985 history difrancesco_noble_model_1985 from grid yqs iy 1..35 binary;
fem define export;r;$example/difrancesco_noble_model_1985;
fem export signal;difrancesco_noble_model_1985 electrodes signal difrancesco_noble_model_1985 names cell;

# For testing we compare the generated CMISS signal files
if ($TESTING) {
    fem compare signal;difrancesco_noble_model_1985 basis both masterfile $example/difrancesco_noble_model_1985 comparefile difrancesco_noble_model_1985 binary;
}

Files used by this example are:

Name                                 Modified     Size

DFN_1985.com 30-Oct-2003 1.4k cellml.ipequa 30-Oct-2003 1.5k cellml.ippara 30-Oct-2003 5.9k difrancesco_noble_model_1985.binsig 30-Oct-2003 94k difrancesco_noble_model_1985.cml 02-Nov-2003 158k difrancesco_noble_model_1985.ipcell 30-Oct-2003 13k difrancesco_noble_model_1985.ipexpo 30-Oct-2003 658 lsoda.ipsolv 30-Oct-2003 1.2k

Download the entire example:

Name                             Modified     Size

examples_cellml_DFN_1985.tar.gz 19-Aug-2006 93k

Testing status by version:

StatusTestedReal time (s)
i686-linux
cmSuccessSun Mar 6 00:08:16 201611
cm-debugSuccessSat Mar 5 00:26:33 201616
mips-irix
cmSuccessSun Aug 19 03:23:30 2007120
cm-debugSuccessWed Aug 15 03:17:00 2007271
cm-debug-clear-mallocSuccessSat Aug 18 03:32:46 2007276
cm-debug-clear-malloc7SuccessMon Aug 20 03:27:44 2007281
cm64SuccessSun Aug 19 03:26:50 2007199
cm64-debugSuccessTue Aug 21 04:17:34 2007287
cm64-debug-clear-mallocSuccessThu Apr 1 11:38:36 2004187
rs6000-aix
cmSuccessWed Mar 4 01:16:45 200916
cm-debugSuccessMon Mar 2 01:21:13 200958
cm64SuccessWed Mar 4 01:17:15 200915
cm64-debugSuccessTue Mar 3 01:30:42 200961
x86_64-linux
cmSuccessSun Mar 6 00:01:46 20168
cm-debugSuccessSat Mar 5 00:03:27 201612

Testing status by file:


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

Input last modified: Sun Nov 2 16:39:31 2003


CMISS Help / Examples / cellml / DFN_1985