Example cellml/MNT_1975: McAllister-Noble-Tsien 1975

This example solves the McAllister-Noble-Tsien 1975 (MNT) Purkinje fibre and pace-maker 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 (! defined $example) {
    $example = "./";
}
$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/mcallister_noble_tsien_model_1975;
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;mcallister_noble_tsien_model_1975 write variables yqs niqslist 1..22 binary;
$Tend = 5000;
$dt = 1.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;mcallister_noble_tsien_model_1975 history mcallister_noble_tsien_model_1975 from grid yqs iy 1..22 binary;
fem define export;r;$example/mcallister_noble_tsien_model_1975;
fem export signal;mcallister_noble_tsien_model_1975 electrodes signal mcallister_noble_tsien_model_1975 names cell;

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

Files used by this example are:

Name                                      Modified     Size

MNT_1975.com 18-Oct-2003 1.3k MNT.gnu 18-Oct-2003 1.9k cellml.ipequa 18-Oct-2003 1.5k cellml.ippara 18-Oct-2003 5.9k lsoda.ipsolv 18-Oct-2003 1.2k mcallister_noble_tsien_model_1975.binsig 18-Oct-2003 601k mcallister_noble_tsien_model_1975.cml 04-Nov-2003 98k mcallister_noble_tsien_model_1975.ipcell 18-Oct-2003 6.7k mcallister_noble_tsien_model_1975.ipexpo 18-Oct-2003 658

Download the entire example:

Name                             Modified     Size

examples_cellml_MNT_1975.tar.gz 19-Aug-2006 415k

Testing status by version:

StatusTestedReal time (s)
i686-linux
cmFailureSun Mar 6 00:29:05 201615
last breakTue Feb 24 03:29:00 201522
cm-debugFailureSun Mar 6 00:40:04 201624
last breakTue Feb 24 03:39:00 201526
last successMon Feb 23 11:04:00 201526
mips-irix
cmFailureTue Aug 21 05:34:53 2007249
last breakTue Apr 17 01:58:00 2007241
cm-debugFailureTue Aug 21 04:30:14 2007463
last breakTue Apr 17 02:07:00 2007443
cm-debug-clear-mallocFailureTue Aug 21 06:06:39 2007460
last breakTue Apr 17 03:00:00 2007448
cm-debug-clear-malloc7FailureTue Aug 21 05:58:22 2007462
last breakTue Apr 17 03:26:00 2007447
cm64FailureMon Aug 20 06:10:54 2007252
last breakTue Apr 17 01:52:00 2007248
cm64-debugFailureTue Aug 21 06:00:05 2007460
last breakTue Apr 17 02:47:00 2007459
cm64-debug-clear-mallocFailureTue Aug 21 06:11:25 2007460
last breakTue Apr 17 02:27:00 2007452
rs6000-aix
cmFailureWed Mar 4 01:30:39 200929
last breakTue Apr 17 02:24:00 200727
cm-debugFailureWed Mar 4 01:39:17 200984
last breakThu Sep 13 02:10:00 200785
cm64FailureWed Mar 4 01:30:37 200930
last breakTue Apr 17 02:25:00 200727
cm64-debugFailureWed Mar 4 01:38:21 200984
last breakThu Sep 13 02:10:00 200782
x86_64-linux
cmFailureSun Mar 6 00:03:14 20169
last breakThu May 4 01:08:00 200616
cm-debugFailureSun Mar 6 00:03:44 201613
last breakTue Apr 11 01:15:00 200623

Testing status by file:


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

Input last modified: Tue Nov 4 16:04:09 2003


CMISS Help / Examples / cellml / MNT_1975