Example cellml/JRW_1998: Jafri, Rice, and Winslow - 1998

This example solves the Jafri, Rice, & Winslow 1998 ventricular myocyte 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/jafri_rice_winslow_model_1998;
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;jafri_rice_winslow_model_1998 write variables yqs niqslist 1..48 binary;
$Tend = 1500;
$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;jafri_rice_winslow_model_1998 history jafri_rice_winslow_model_1998 from grid yqs iy 1..48 binary;
fem define export;r;$example/jafri_rice_winslow_model_1998;
fem export signal;jafri_rice_winslow_model_1998 electrodes signal jafri_rice_winslow_model_1998 names cell;

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

Files used by this example are:

Name                                  Modified     Size

JRW_1998.com 02-Nov-2003 1.4k cellml.ipequa 02-Nov-2003 1.5k cellml.ippara 02-Nov-2003 5.9k jafri_rice_winslow_model_1998.binsig 02-Nov-2003 333k jafri_rice_winslow_model_1998.cml 06-Nov-2003 182k jafri_rice_winslow_model_1998.ipcell 02-Nov-2003 20k jafri_rice_winslow_model_1998.ipexpo 02-Nov-2003 658 lsoda.ipsolv 02-Nov-2003 1.2k

Download the entire example:

Name                             Modified     Size

examples_cellml_JRW_1998.tar.gz 19-Aug-2006 281k

Testing status by version:

StatusTestedReal time (s)
i686-linux
cmFailureSun Mar 6 00:53:56 201639
last breakTue Feb 24 03:44:00 201536
cm-debugFailureSun Mar 6 01:16:44 201660
last breakTue Feb 24 03:53:00 201562
last successMon Mar 13 02:26:00 2006176
mips-irix
cmFailureTue Aug 21 04:30:36 2007372
last breakTue Apr 17 01:58:00 2007371
cm-debugFailureFri Aug 17 05:32:14 2007949
last breakFri Mar 17 02:28:00 2006953
cm-debug-clear-mallocFailureTue Aug 21 05:14:59 2007940
last breakSat Apr 29 04:52:00 2006952
cm-debug-clear-malloc7FailureTue Aug 21 05:20:42 2007915
last breakTue Apr 17 03:43:00 2007923
cm64FailureTue Aug 21 05:47:37 2007392
last breakTue Apr 17 02:18:00 2007375
cm64-debugFailureSun Aug 19 06:09:34 2007930
last breakTue Apr 18 05:07:00 2006928
cm64-debug-clear-mallocFailureTue Aug 21 05:30:41 2007939
last breakTue Apr 17 03:17:00 2007943
rs6000-aix
cmFailureWed Mar 4 01:34:50 200950
last breakTue Apr 17 02:25:00 200748
cm-debugFailureWed Mar 4 02:04:06 2009199
last breakThu Sep 13 02:11:00 2007200
cm64FailureWed Mar 4 01:35:15 200951
last breakTue Apr 17 02:26:00 200748
cm64-debugFailureWed Mar 4 02:05:54 2009211
last breakThu Sep 13 02:14:00 2007217
x86_64-linux
cmFailureSun Mar 6 00:05:10 201630
last breakThu Apr 2 00:33:00 200948
cm-debugFailureSun Mar 6 00:05:27 201639
last breakThu Apr 2 00:39:00 200968

Testing status by file:


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

Input last modified: Thu Nov 6 11:09:08 2003


CMISS Help / Examples / cellml / JRW_1998