Dust Storm

No preview image

1 collaborator

Josh Chan (Author)

WHAT IS IT?

This section could give a general understanding of what the model is trying to show or explain.

HOW IT WORKS

This section could explain what rules the agents use to create the overall behavior of the model.

HOW TO USE IT

This section could explain how to use the model, including a description of each of the items in the interface tab.

THINGS TO NOTICE

This section could give some ideas of things for the user to notice while running the model.

THINGS TO TRY

This section could give some ideas of things for the user to try to do (move sliders, switches, etc.) with the model.

EXTENDING THE MODEL

This section could give some ideas of things to add or change in the procedures tab to make the model more complicated, detailed, accurate, etc.

NETLOGO FEATURES

This section could point out any especially interesting or unusual features of NetLogo that the model makes use of, particularly in the Procedures tab. It might also point out places where workarounds were needed because of missing features.

RELATED MODELS

This section could give the names of models in the NetLogo Models Library or elsewhere which are of related interest.

CREDITS AND REFERENCES

This section could contain a reference to the model's URL on the web if it has one, as well as any other necessary credits or references.

Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

;;
;; Setup Procedures
;;

to setup
  clear-all
  setup-world ;; sets up the world where dust storm will occur
  setup-dust ;; set up the dust on the ground
  do-plots
end 

to setup-world
  ask patches [
    ifelse pycor < -13
    [ set pcolor brown ]
    [ set pcolor sky ]
  ]
  add-vegetation
end 

to setup-dust
  create-turtles 100 ;; in this model, the turles ARE the dust...
  ask turtles [ set shape "circle" ]
  ask turtles [
    ifelse see-trapped-dust? [set color brown - 1] [set color brown]
  ]
  ask turtles [ setxy random-xcor -14 ]
end 

to add-vegetation
  if vegetation?
  [ ask patches [
      if pycor = -13 [ set pcolor green ]
  ]]
end 

;;
;; Runtime Procedures
;;

to go
  blow-dust
  do-plots
end 

to blow-dust
  ask turtles [
    check-vegetation ;; allows vegetation to trap dust near ground
    check-soil-moisture ;; allows moist soil to retain more dust
    check-wind-speed
    right random 90
    forward 3
  ]
end 

to check-vegetation
  if vegetation? [if ycor > -13 and random 100 < 50 [ facexy xcor -16 ]]
end 

to check-soil-moisture
  if ycor > -13 and random 100 < soil-moisture [ facexy xcor -16 ]
end 

to check-wind-speed
  if wind-speed = "low" and ycor < -13 and random 100 < 50 [ facexy xcor -16 ]
  if wind-speed = "medium" and ycor < -13 and random 100 < 50 [ facexy xcor 16 ]
  if wind-speed = "high" and ycor < -13 and random 100 < 50 [ facexy xcor 16 forward 5 ]
end 

to do-plots
  set-current-plot "Dust Storm Intensity"
  set-current-plot-pen "dust"
  plot count turtles with [ycor > -13]
end

There is only one version of this model, created over 14 years ago by Josh Chan.

Attached files

No files

This model does not have any ancestors.

This model does not have any descendants.

NetLogo