Albedo

Albedo preview image

1 collaborator

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by everyone
Model was written in NetLogo 6.4.0 • Viewed 23 times • Downloaded 10 times • Run 0 times
Download the 'Albedo' modelDownload this modelEmbed this model

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


Hvad er dette?

Modellen viser solstråler (10 på linje) som rammer jorden. Ved jordoverfladen, som illustrereres ved en hvid linje, bliver der i gennemsnit reflekteret 70% procent og absorberet 30%. De absorberede solstråler bliver til varme i jordlaget. Varmestråling vises som røde prikker.

Hvordan virker modellen

Gule stråler kommer ned i bunter af 10 på en linje, fra en område i venstre side. Når de rammer jordovefladen har de hver for sig 30% change for at blive absorberet, hvorved der skabes varmestråling i jordlaget. Hvis strålen ikke bliver absorberet bliver den reflekteret tilbage til himlen. Dvs at der er 70% sandsynlighed for at sollyset bliver bliver reflekteret.

Forbedringer af modellen

Modellen kunne forbedres ved at farven på jordoverlaget passer til albedo værdien på 0,7. Man kan også vælge en anden værdi for albedoen, således at f.eks 30% bliver reflekteret og 70% bliver absorberet.

Relaterede modeller

Denne model er baseret på "Climate Change"

Kredit og referencer.

Forfatter: Solveig Skadhauge

Comments and Questions

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

Click to Run Model

globals [
  earth-top     ;; y koordinat for jordoverfladen
  albedo        ;; albedo værdien
  xstart        ;; x koordinat for den øverste række i himlen hvor stråler kommer fra
  countreflect  ;; Tæller antallet af reflekterede stråler
  countabsorb   ;; Tæller antallet af absorberede stråler
]

breed [rays ray]     ;; solstråler
breed [heats heat]   ;; varme energi

to setup
  clear-all
  set-default-shape rays "ray"
  set-default-shape heats "dot"
  setup-world
  set albedo 0.7
  set countreflect 10 * 0.7
  set countabsorb 10 * 0.3
  reset-ticks
end 

to setup-world            ;; I denne procedure tegnes werden op
  set earth-top 0         ;; jordoverfladen sættes til at have y-koordinat 0
  ask patches [
    if pycor > earth-top [
      set pcolor scale-color blue pycor -20 20
    ]
    if pycor = earth-top
        [ set pcolor white
    ]
    if pycor < earth-top  ;;
      [ set pcolor brown + 3 ]
    ]
end 

to go
  run-sunshine   ;; Solstrålerne et trin frem
  run-heat       ;; varmestrålers et trin frem
  tick           ;; tiden sættes en enhed op
end 

to run-sunshine
  ask rays [
    if not can-move? 0.3 [ die ]  ;; strålerne fjernes hvis de befinder sig ved kanten
    fd 0.3                        ;; ellers bevæges de fremad
  ]
  if ticks mod 10 = 0  [          ;; Ved hver tiende tick
    create-sunshine               ;; laves et bundt med solstråler
  ]
  encounter-earth   ;; Ved Jordoverfladen skal strålerne enten absorberes eller reflekteres
end 

to create-sunshine
   set xstart -10
   create-rays 10 [
      set heading 160
      set color yellow
      set xstart xstart + 1
      setxy xstart 16
    ]
end 

to encounter-earth
  ask rays with [ycor <= earth-top] [
    ;; afhængig af albedoværdien er der en hvis sandsynlighed for at strålen reflekteres
    ifelse 100 * albedo > random 100      ;; random 100 giver et tilfældig tal mellem 1 og 100
      [ set heading 180 - heading
        set countreflect countreflect + 1]
      [ set color red ;; Hvis strålen ikke er blevet reflekteret skal den absorberes
        set breed heats
        set countabsorb countabsorb + 1 ]
  ]
end 

to run-heat
  ask heats
  [
    if not can-move? 0.5 [die]
    fd 0.5
  ]
end 

There are 3 versions of this model.

Uploaded by When Description Download
Solveig Skadhauge 14 days ago minor corrections Download this version
Solveig Skadhauge 14 days ago minor corrections Download this version
Solveig Skadhauge 14 days ago Initial upload Download this version

Attached files

File Type Description Last updated
Albedo.png preview Preview for 'Albedo' 14 days ago, by Solveig Skadhauge Download

This model does not have any ancestors.

This model does not have any descendants.