Fix calculation of percent-burned by initializing initial-trees before lighting the initial trees on fire in the setup proceedure

Author: jzkelter

IABM Textbook/chapter 3/Fire Extensions/Fire Simple Extension 1.nlogox

@@ -8,14 +8,17 @@ to setup
   clear-all
   ;; make some green trees
   ask patches [
-    if (random 100) < density
-    [ set pcolor green ]
+    if (random 100) < density [ set pcolor green ]
+  ]  
+  
+  ;; Count initial trees before lighting trees on fire to get accurate calculation of percent burned
+  set initial-trees count patches with [pcolor = green] 
+  
+  ask patches [
     ;; make a column of burning trees at the left-edge
-    if pxcor = min-pxcor
-    [ set pcolor red ]
-  ]
-  ;; keep track of how many trees there are
-  set initial-trees count patches with [pcolor = green]
+    if pxcor = min-pxcor [ set pcolor red ]
+  ]  
+
   reset-ticks
 end
 

IABM Textbook/chapter 3/Fire Extensions/Fire Simple Extension 2.nlogox

@@ -8,14 +8,17 @@ to setup
   clear-all
   ;; make some green trees
   ask patches [
-    if (random 100) < density
-    [ set pcolor green ]
+    if (random 100) < density [ set pcolor green ]
+  ]  
+  
+  ;; Count initial trees before lighting trees on fire to get accurate calculation of percent burned
+  set initial-trees count patches with [pcolor = green] 
+  
+  ask patches [
     ;; make a column of burning trees at the left-edge
-    if pxcor = min-pxcor
-    [ set pcolor red ]
-  ]
-  ;; keep track of how many trees there are
-  set initial-trees count patches with [pcolor = green]
+    if pxcor = min-pxcor [ set pcolor red ]
+  ]  
+
   reset-ticks
 end
 

IABM Textbook/chapter 3/Fire Extensions/Fire Simple Extension 3.nlogox

@@ -8,17 +8,21 @@ to setup
   clear-all
   ;; make some green trees
   ask patches [
-    if (random 100) < density
-    [ set pcolor green ]
+    if (random 100) < density [ set pcolor green ]
+  ]  
+  
+  ;; Count initial trees before lighting trees on fire to get accurate calculation of percent burned
+  set initial-trees count patches with [pcolor = green] 
+  
+  ask patches [
     ;; make a column of burning trees at the left-edge
-    if pxcor = min-pxcor
-    [ set pcolor red ]
-  ]
-  ;; keep track of how many trees there are
-  set initial-trees count patches with [pcolor = green]
+    if pxcor = min-pxcor [ set pcolor red ]
+  ]  
+
   reset-ticks
 end
 
+
 to go
   ;; stop the model when done
   if all? patches [pcolor != red]

IABM Textbook/chapter 3/Fire Extensions/Fire Simple.nlogox

@@ -8,16 +8,17 @@ to setup
   clear-all
   ;; make some green trees
   ask patches [
-    if (random 100) < density [
-      set pcolor green
-    ]
+    if (random 100) < density [ set pcolor green ]
+  ]  
+  
+  ;; Count initial trees before lighting trees on fire to get accurate calculation of percent burned
+  set initial-trees count patches with [pcolor = green] 
+  
+  ask patches [
     ;; make a column of burning trees at the left-edge
-    if pxcor = min-pxcor [
-      set pcolor red
-    ]
-  ]
-  ;; keep track of how many trees there are
-  set initial-trees count patches with [pcolor = green]
+    if pxcor = min-pxcor [ set pcolor red ]
+  ]  
+
   reset-ticks
 end
 
@@ -42,7 +43,7 @@ end
   <widgets>
     <view x="200" wrappingAllowedX="false" y="10" frameRate="30.0" minPycor="-125" height="506" showTickCounter="true" patchSize="2.0" fontSize="10" wrappingAllowedY="false" width="506" tickCounterLabel="ticks" maxPycor="125" updateMode="1" maxPxcor="125" minPxcor="-125"></view>
     <monitor x="43" precision="1" y="152" height="60" fontSize="11" width="115" display="percent burned">(count patches with [shade-of? pcolor red]) / initial-trees   * 100</monitor>
-    <slider x="5" step="1.0" y="38" max="99.0" width="185" display="density" height="50" min="0.0" direction="Horizontal" default="57.0" variable="density" units="%"></slider>
+    <slider x="5" step="1.0" y="38" max="99.0" width="185" display="density" height="50" min="0.0" direction="Horizontal" default="99.0" variable="density" units="%"></slider>
     <button x="106" y="96" height="40" disableUntilTicks="true" forever="true" kind="Observer" width="69" display="go">go</button>
     <button x="26" y="96" height="40" disableUntilTicks="false" forever="false" kind="Observer" width="70" display="setup">setup</button>
   </widgets>