Food-web in Arabic

Food-web in Arabic  preview image

1 collaborator

Revetement-adhesif-bois-brun-marron-0-67-x-2-m Amel Kouidrat (Author)

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by the author
Model was written in NetLogo 5.1.0 • Viewed 4871 times • Downloaded 43 times • Run 0 times
Download the 'Food-web in Arabic ' modelDownload this modelEmbed this model

Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)


Info tab cannot be displayed because of an encoding error

Comments and Questions

Stability (Question)

This model I made to get a stable graph, in an other word a stable system, Although the results I get all end up with the extinction of all animals. What can I do about it ?

Posted almost 9 years ago

Click to Run Model

globals [grass cheetahs-nb snakes-nb fennecs-nb rabbits-nb birds-nb ]  ;; keep track all inividuals

breed [cheetahs cheetah]
breed [snakes snake]
breed [fennecs fennec]
breed [rabbits rabbit]
breed [birds bird]
turtles-own [energy age] 
patches-own [countdown]


;;@@@@@@@@@@@@@@@ TO SETUP @@@@@@@@@@@@@@@@@@@@@@@@@@

to setup
  clear-all
  
    ask patches [
      set pcolor one-of [green white]
      if pcolor = green
        [ set countdown مستوى-نمو-العشب ]
    ]
  
  ;;@@@@@@@@@@@@@@@@@@@@@@@@@@@ breed shapes @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 
   set-default-shape cheetahs "cheetah"
  create-cheetahs العدد-الاولي-للفهد  ;; create the cheetah then initialize their variables
  [
    set color brown
    set size 3  
    set label-color blue - 5
    set energy random 100
    set age random 20
    
    setxy random-xcor random-ycor
  ]
  
  ;;@@@@@@@@@
  set-default-shape snakes "snake"
  create-snakes العدد-الاولي-للافعى  ;; create the snakes, then initialize their variables
  [
    set color red
    set size 2.4
    set energy random 100
    set age random 10
    setxy random-xcor random-ycor
  ]
  ;;@@@@@@@@@@@@@@@@@@@@
  set-default-shape fennecs "fennec"
   create-fennecs العدد-الاولي-للفنك  ;; create the fennec, then initialize their variables
  [
    set color brown + 2
    set size 2.5
    set label-color blue - 2
    set energy random 100
    set age random 10
    setxy random-xcor random-ycor
  ]
  ;;@@@@@@@@@@@@@@@@@
  set-default-shape rabbits "rabbit"
   create-rabbits العدد-الاولي-للأرنب  ;; create the rabbit, then initialize their variables
  [
    set color grey 
    set size 1  
    set label-color blue - 2
    set energy random 60
    set age random 10
    setxy random-xcor random-ycor
  ]
  
  
   ;;@@@@@@@@@@@@@@@@@
  set-default-shape birds "bird side"
   create-birds العدد-الاولي-للأرنب  ;; create the rabbit, then initialize their variables
  [
    set color black
    set size 1  
    set label-color blue - 2
    set energy random 50
    set age random 10
    setxy random-xcor random-ycor
  ]
  
  
  
  
  ;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  
  display-labels
  set grass count patches with [pcolor = green]
  reset-ticks
end    ;;@@@@@@@@@@@@@@@END TO SETUP @@@@@@@@@@@@@@@@@@@@@@@@@@

to go
   if not any? turtles [ stop ]
  go1
   ask patches [ grow-grass ] 
  tick ;move time one month
end   
;;@@@@@@@@@@@@@@@@@@@@@ TO  GO   @@@@@@@@@@@@@@@@@@@@@@@@@@@

to go1 
 
;;@@@@@@@@@@@@@@@@@@@@@@@@
  ask cheetahs [
    move
    set age age + 1  ;;growing
    set energy energy - 0.5  ;; deduct energy
    catch-fennecs
    catch-rabbits
    catch-snakes
    reproduce-cheetahs
    cheetah-death
    
  ]
;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  ask fennecs [
    move
    set age age + 1
    set energy energy - 0.5   ;; deduct energy
    eat-grass
    catch-birds
    catch-rabbits
    fennecs-death
   ;; reproduce-fennecs
    
  ]
  
 ;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  ask snakes [
    move
    set age age + 1
    set energy energy - 0.5   ;; deduct energy
    catch-birds
    catch-rabbits
    catch-fennecs
    snakes-death
    reproduce-snakes
  ]
  
 
 ;;@@@ @@@@@@@@@@@@@@@@@@
 
   ask rabbits [
    move
    set age age + 1
    set energy energy - 0.5  ;; deduct energy
    eat-grass
    rabbits-death
    reproduce-rabbits
  ]
  
 ;;@@@@@@@@@@@@@@@@@@@@@@@
 
  ask birds [
    move
    set age age + 1
    set energy energy - 0.5  ;; deduct energy
    eat-grass
    birds-death
    reproduce-birds
  ]
 ;;@@@@@@@@@@@@@@@@@@@@@@@
 ask patches [ grow-grass ] 
  set grass count patches with [pcolor = green]
 
  display-labels
end 
;;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

to move  ;; turtle procedure
  rt random 50
  lt random 50
  fd 1
end 

to eat-grass
  ;; animals eat grass color changes
  if pcolor = green [
    set pcolor green + 2 
    set energy energy + 1   ;; To be verified@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
  ]
end 

to reproduce-fennecs  
  
  if random-float 100 < معدل-نمو-الفنك
   [  
    set energy (energy / 2)                
    hatch 1 [ rt random-float 360 fd 1  set age 0 ]  

   ]
end 

to reproduce-snakes 
 if random-float 100 < معدل-نمو-الأفعى
   [  
    set energy (energy / 2)                
    hatch 1 [ rt random-float 360 fd 1 set age 0 ]  

   ]
end 

to reproduce-birds  
 if random-float 100 < معدل-نمو-العصافير
   [  
    set energy (energy / 3)               
    hatch 1 [ rt random-float 360 fd 1 set age 0 ]  

   ]
end 

to reproduce-cheetahs 
if random-float 100 < معدل-نمو-الفهد
   [  
    set energy (energy / 2)                
    hatch 1 [ rt random-float 360 fd 1 set age 0  ]  

   ]
end 

to reproduce-rabbits
 if random-float 100 < معدل-نمو-الأرانب
   [  
    set energy (energy / 2)               
    hatch 1 [ rt random-float 360 fd 1 ]  

   ]
end 

;;@@@ hunting  process

to catch-rabbits  
  let prey one-of rabbits-here                     
  if prey != nobody                             
      [ ask prey [ die ]                          
      set energy energy + 3 ];;  To be verified@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
end 

;;@@@@@@

to catch-fennecs
  let prey one-of fennecs-here                   
  if prey != nobody                             
    [ ask prey [ die ]                          
      set energy energy + 4 ];;  To be verified@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
end 

;;@@@@@-----------------------________________________________

to catch-snakes
let prey one-of snakes-here
if prey != nobody                             
    [ ask prey [ die ]                         
      set energy energy + 5 ]
end 
;__________________________________________
;;@@@@@

;;@@@@@@@@@@@@@@@@@@@@@@@@@@@ catch-bird@@@@@@@@@@@@@@@@@@@@@@@

to catch-birds  
  let prey one-of birds-here                    ;; grab bird
  if prey != nobody                             ;;  if it get one
    [ ask prey [ die ]                          ;; bird die
     set energy energy + 3 ];; energy up To be verified@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
end 
;;_______________________________________________________________________________________________________________________

to cheetah-death  
  if (energy <= 0) or  (age >= 132) ; lifespan 13 years
   [ die ]
end 
;;@@@@

to fennecs-death  
  if (energy < 0) 
 [ die ]
  if (age >= 168) ;; fennec live to 14 years
  [ die ]
end 

to birds-death  
  if (energy < 0) or  (age >= 36) ;average life 3 years
  [ die ]
end 

to rabbits-death  
  if (energy < 0) 
  [ die ]
  if (age >= 90) 
  [ die ]
end 

to snakes-death  
  if (energy < 0) or (age >= 132) ; lifespan 13 years
   [ die ]
end 
;to death
  
 ;; ask snakes [
   ;; let limit count turtles-here 
;;    let a ( 0.95 * snakes-nb )
  ;;  ask n-of min [ 5 limit] turtles-here [ die ] ]
  ;
 ; ask patches [
;  repeat 5 [
  ;  if any? turtles-here [
;      ask one-of turtles-here [
        
;      ]
;    ]
;  ]
;]
;end

to grow-grass  ;
  if pcolor = (green + 2) [
    ifelse countdown > 100
      [ set pcolor green
        set countdown مستوى-نمو-العشب ]
      [ set countdown countdown - 1 ]
  ]
end 

to display-labels
  set cheetahs-nb count cheetahs
  set birds-nb count birds
  set snakes-nb count snakes
  set fennecs-nb count fennecs
  set rabbits-nb count rabbits
  ask turtles [ set label "" ]
  if اظهار-الطاقة [
    ask birds [ set label round energy ]
    ask rabbits [ set label round energy ]
    ask fennecs [ set label round energy ]
    ask snakes [ set label round energy ]
    ask cheetahs [ set label round energy ]
  ]
  
  if age-n [
    ask birds [ set label round age ]
    ask rabbits [ set label round age ]
    ask fennecs [ set label round age ]
    ask snakes [ set label round age ]
    ask cheetahs [ set label round age ]
  ]
end 




;;@@@ created by Kouidrat Amel @@@

There is only one version of this model, created almost 9 years ago by Amel Kouidrat.

Attached files

File Type Description Last updated
Food-web in Arabic .png preview Preview for 'Food-web in Arabic ' almost 9 years ago, by Amel Kouidrat Download

This model does not have any ancestors.

This model does not have any descendants.