Example cellml/drouhard_roberge_1987: Drouhard - Roberge 1987

This example solves the Drouhard & Roberge (1987) modified Beeler & Reuter 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/drouhard_roberge_model_1987;
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;drouhard_roberge_model_1987 write variables yqs niqslist 1..13 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;drouhard_roberge_model_1987 history drouhard_roberge_model_1987 from grid yqs iy 1..13 binary;
fem define export;r;$example/drouhard_roberge_model_1987;
fem export signal;drouhard_roberge_model_1987 electrodes signal drouhard_roberge_model_1987 names cell;
# For testing we compare the generated CMISS signal files
if ($TESTING) {
    fem compare signal;drouhard_roberge_model_1987 basis both masterfile $example/drouhard_roberge_model_1987 comparefile drouhard_roberge_model_1987 binary;
}

Files used by this example are:

Name                                Modified     Size

drouhard_roberge_1987.com 28-Jul-2003 1.4k cellml.ipequa 28-Jul-2003 1.5k cellml.ippara 28-Jul-2003 5.9k drouhard_roberge_model_1987.binsig 28-Jul-2003 127k drouhard_roberge_model_1987.cml 04-Oct-2003 47k drouhard_roberge_model_1987.ipcell 28-Jul-2003 3.8k drouhard_roberge_model_1987.ipexpo 28-Jul-2003 658 lsoda.ipsolv 28-Jul-2003 1.2k

Download the entire example:

Name                                          Modified     Size

examples_cellml_drouhard_roberge_1987.tar.gz 19-Aug-2006 77k

Testing status by version:

StatusTestedReal time (s)
i686-linux
cmSuccessSun Mar 6 00:04:08 20164
cm-debugSuccessSat Mar 5 00:16:51 20167
mips-irix
cmSuccessSun Aug 19 02:45:45 200770
cm-debugSuccessWed Aug 15 02:25:39 2007129
cm-debug-clear-mallocSuccessSat Aug 18 02:45:30 2007133
cm-debug-clear-malloc7SuccessMon Aug 20 02:44:22 2007139
cm64SuccessSun Aug 19 02:46:46 200773
cm64-debugSuccessTue Aug 21 02:28:01 2007132
cm64-debug-clear-mallocSuccessThu Apr 1 11:44:37 200464
rs6000-aix
cmSuccessWed Mar 4 01:16:11 200910
cm-debugSuccessMon Mar 2 01:14:02 200923
cm64SuccessWed Mar 4 01:13:48 200911
cm64-debugSuccessTue Mar 3 01:19:42 200923
x86_64-linux
cmSuccessSun Mar 6 00:01:14 20162
cm-debugSuccessSat Mar 5 00:01:54 20163

Testing status by file:


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

Input last modified: Sat Oct 4 23:40:04 2003


CMISS Help / Examples / cellml / drouhard_roberge_1987