Changeset 557 for experiments/frams/foraminifera

Timestamp:

08/02/16 18:52:31 (8 years ago)

Author:

Maciej Komosinski

Message:

• Fixed extra space after property ID
• A function to generate simple planispiral forams

Location:

experiments/frams/foraminifera/data/scripts

Files:

• foraminifera.expdef (modified) (2 diffs)
• foraminifera.inc (modified) (1 diff)

experiments/frams/foraminifera/data/scripts/foraminifera.expdef

@@ -125 +125 @@
         //addSpecies({"min_repro_energies" : [4,6]});
         //addSpecies({"min_repro_energies" : [4,8]});
+        
+        //Simulator.print(create_genotype(0.1, 30)); //sample call
+        //Simulator.print(create_genotype(0.2, 30)); //sample call
 }
 
@@ -1006 +1009 @@
 
 property:
-id:zone1_range 
+id:zone1_range
 name:Zone 1 range in frams units
 type:f 0 200 10

experiments/frams/foraminifera/data/scripts/foraminifera.inc

@@ -1 +1 @@
 //size versus energy
 //real proportions
+
+function create_genotype(proculus_size, number_of_chambers)
+{
+        const shift=0.75;
+        const angle_delta=0.7;
+        const angle_delta_delta=-0.018;
+        const growing=1.05;
+        
+        var str="//0\n";
+        var size=proculus_size;
+        for(var i=0;i<number_of_chambers;i++)
+        {
+                str+="p:sh=1,sx=%g,sy=%g,sz=%g\n" % size % size % size;
+                if (i>0)
+                        str+="j:%d,%d,sh=1,dx=%g,ry=%g\n" % (i-1) % i % (size*shift) % (angle_delta+i*angle_delta_delta);
+                size*=growing;
+        }
+        return str;
+}
 
 function init_chambers()