Food-web in Arabic
Model was written in NetLogo 5.1.0
•
Viewed 4876 times
•
Downloaded 43 times
•
Run 0 times
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
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.
Amel Kouidrat
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