Put Fire Simple models back to how they were until next edition of Textbook comes out (or until they are ready to put up errata)

Author: jzkelter

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

@@ -8,17 +8,14 @@ to setup
   clear-all
   ;; make some green trees
   ask patches [
-    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 [
+    if (random 100) < density
+    [ set pcolor green ]
     ;; make a column of burning trees at the left-edge
-    if pxcor = min-pxcor [ set pcolor red ]
+    if pxcor = min-pxcor
+    [ set pcolor red ]
   ]
-
+  ;; keep track of how many trees there are
+  set initial-trees count patches with [pcolor = green]
   reset-ticks
 end
 

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

@@ -8,17 +8,14 @@ to setup
   clear-all
   ;; make some green trees
   ask patches [
-    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 [
+    if (random 100) < density
+    [ set pcolor green ]
     ;; make a column of burning trees at the left-edge
-    if pxcor = min-pxcor [ set pcolor red ]
+    if pxcor = min-pxcor
+    [ set pcolor red ]
   ]
-
+  ;; keep track of how many trees there are
+  set initial-trees count patches with [pcolor = green]
   reset-ticks
 end
 

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

@@ -8,21 +8,17 @@ to setup
   clear-all
   ;; make some green trees
   ask patches [
-    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 [
+    if (random 100) < density
+    [ set pcolor green ]
     ;; make a column of burning trees at the left-edge
-    if pxcor = min-pxcor [ set pcolor red ]
+    if pxcor = min-pxcor
+    [ set pcolor red ]
   ]
-
+  ;; keep track of how many trees there are
+  set initial-trees count patches with [pcolor = green]
   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,17 +8,16 @@ to setup
   clear-all
   ;; make some green trees
   ask patches [
-    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 [
+    if (random 100) < density [
+      set pcolor green
+    ]
     ;; make a column of burning trees at the left-edge
-    if pxcor = min-pxcor [ set pcolor red ]
+    if pxcor = min-pxcor [
+      set pcolor red
+    ]
   ]
-
+  ;; keep track of how many trees there are
+  set initial-trees count patches with [pcolor = green]
   reset-ticks
 end
 
@@ -43,7 +42,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="99.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="57.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>