Ero sivun ”Mikrobien määrä pohjavedessä” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(→Laskenta: vieläkin jokin vika) |
(→Laskenta: ehkä toimii?) |
||
| Rivi 57: | Rivi 57: | ||
library(OpasnetUtils) | library(OpasnetUtils) | ||
library(xtable) | library(xtable) | ||
# Ensin valikoidaan tietolähde. Käyttäjän antama input on ensisijainen, jos sitä ei ole, kaivetaan Basesta oletusarvo data. | |||
apparate <- function(objname, source = "Op_fi1755") { | apparate <- function(objname, source = "Op_fi1755") { | ||
| Rivi 70: | Rivi 72: | ||
} | } | ||
kaivon.tuotto <- apparate("kaivon.tuotto") | kaivon.tuotto <- apparate("kaivon.tuotto") | ||
vedenjohtavuus <- apparate("vedenjohtavuus") | vedenjohtavuus <- apparate("vedenjohtavuus") | ||
paksuus <- apparate("paksuus") | paksuus <- apparate("paksuus") | ||
etäisyys <- apparate("etäisyys") | etäisyys <- apparate("etäisyys") | ||
huokoisuus <- apparate("huokoisuus") | huokoisuus <- apparate("huokoisuus") | ||
mikrobipit.lähde <- apparate("mikrobipit.lähde") | mikrobipit.lähde <- apparate("mikrobipit.lähde") | ||
inaktivaatiopit <- apparate("inaktivaatiopit") | inaktivaatiopit <- apparate("inaktivaatiopit") | ||
inaktivaationopeus <- apparate("inaktivaationopeus") | inaktivaationopeus <- apparate("inaktivaationopeus") | ||
# Funktio laskee mikrobipitoisuuden pohjavedessä. | # Funktio laskee mikrobipitoisuuden pohjavedessä. | ||
| Rivi 98: | Rivi 98: | ||
formula <- function(dependencies, ...) { | formula <- function(dependencies, ...) { | ||
ComputeDependencies(dependencies, ...) | ComputeDependencies(dependencies, ...) | ||
#Lasketaan kulkeutumisaika kahdella eri tavalla riippuen tilanteesta. | |||
kulkeutumisaika <- 0 | kulkeutumisaika <- 0 | ||
if(tilanne == "suoravirtaus") { | if(tilanne == "suoravirtaus") { | ||
kulkeutumisaika <- etäisyys / (vedenjohtavuus * (paksuus / etäisyys) / huokoisuus) / 3600 / 24 | kulkeutumisaika <- etäisyys / (vedenjohtavuus * (paksuus / etäisyys) / huokoisuus) / 3600 / 24 | ||
} | } | ||
if(tilanne == "kaivoimu") { | if(tilanne == "kaivoimu") { | ||
kulkeutumisaika <- 2 * pi * huokoisuus * paksuus * etäisyys ^ 2 / kaivon.tuotto # Miksi 2 * ? | kulkeutumisaika <- 2 * pi * huokoisuus * paksuus * etäisyys ^ 2 / kaivon.tuotto # Miksi 2 * ? | ||
} | } | ||
mikrobipit.kohde <- mikrobipit.lähde * exp(0 - inaktivaationopeus * kulkeutumisaika) | mikrobipit.kohde <- mikrobipit.lähde * exp(0 - inaktivaationopeus * kulkeutumisaika) | ||
inaktivaatioaika <- log10(inaktivaatiopit / mikrobipit.lähde) / (0 - inaktivaationopeus / 2.3) # Miksi 2.3? | |||
inaktivaatioaika <- log10(inaktivaatiopit / mikrobipit.lähde) / (0 - inaktivaationopeus / 2.3) # Miksi 2.3? | |||
#Loputuloksena annetaan se kolmesta lasketusta outputista joka tulosteessa määritellään. | |||
return(get(tuloste)) | return(get(tuloste)) | ||
} | } | ||
| Rivi 126: | Rivi 121: | ||
) | ) | ||
mikrobit.pohjavesi <- EvalOutput(mikrobit.pohjavesi, N = 10) | mikrobit.pohjavesi <- EvalOutput(mikrobit.pohjavesi, N = 10) | ||
cat(tuloste, "\n") | |||
mikrobit.pohjavesi | mikrobit.pohjavesi | ||
Versio 3. joulukuuta 2012 kello 11.53
| Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
| Lisää dataa
|
Kysymys
Mitä mikrobien määrä pohjavedessa kuvaa?
Vastaus
Mikrobien määrä pohjavedessä kuvaa eri mikrobien mitattuja pitoisuuksia pohjavedessä.
Perustelut
Data
Data perustuu kuviteltuun tilanteeseen.
| Obs | Symboli | Parametri | Selite | Arvo | Yksikkö | Excel |
|---|---|---|---|---|---|---|
| 1 | Ks | vedenjohtavuus | Kyllästyneen tilan vedenjohtavuus | 1.00E-05 | m /s | D9 |
| 2 | Hs | paksuus | Pohjavesivyöhykkeen paksuus | 5-15 | m | D10 |
| 3 | R | etäisyys | Etäisyys päästölähteestä | 100 | m | D11 |
| 4 | n | huokoisuus | Maaperän huokoisuus | 0.35 | D12 | |
| 5 | C0 | mikrobipit.lähde | Päästölähteen mikrobipitoisuus = mikrobipitoisuus akviferissä | 1.00E+08 | # /l | D13 |
| 6 | CA | inaktivaatiopit | Pitoisuus jolloin mikrobien ajatellaan inaktivoituneen | 10 | # /l | D14 |
| 7 | µ | inaktivaationopeus | Inaktivaatiokerroin | 0.01 | 1 /vrk | D15 |
| 8 | t | kulkeutumisaika | Kulkeutumisaika | 405.0925926 | vrk | D17: =D11/(D9*(D10/D11)/D12)/3600/24 |
| 9 | Ct | mikrobipit.kohde | Pitoisuus tarkastelukohdassa | 1.74E+06 | # /l | D18: =D13*EXP((-D15*D17)) |
| 10 | tin | inaktivaatioaika | Inaktivaatioaika | 1610 | vrk | D19: =LOG10(D14/D13)/(-D15/2.3) |
Riippuvuudet
Yksikkö
# /l
Laskenta
Tämä laskenta kuvaa mikrobien kulkeutumista pohjavedessä tai maaperässä.
Yksinkertaisimmillaan mikrobien voidaan arvioida kulkeutuvan päästölähteestä raakavesilähteeseen samalla nopeudella kuin vesi virtaa kyllästyneessä maaperässä. Päästölähteen oletetaan sijaitsevan pohjavesivyöhykkeessä ja virtauksen tapahtuvat lateraalisuunnassa. Päästölähteen virtaamaa ei ole tunnettu, joten pohjavesivyöhykkeen ja päästölähteen ja pohjavesivyöhykkeen mikrobipitoisuudet oletetaan samoiksi. Pumppausta ei ole huomioitu. Tiedot ovat tiedostosta Riskinarviointilaskelmat_inaktivaatio271112.xls.
Tulokset
| Clean | Medium | Contaminated | |
| Norovirus | 0 | 204.167 | 2166.667 |
| Rotavirus | 0 | 204.167 | 2166.667 |
| Murine norovirus | 0 | 204.167 | 2166.667 |
Katso myös
Viitteet
Aiheeseen liittyviä tiedostoja
<mfanonymousfilelist></mfanonymousfilelist>