Henriktesti

<rcode name="answer" variables=" category:HUOM! Matkat on annettava suuntaansa ei edestakaisin| category:Kuljetuksen inputit|

name:Vetisyys|type:checkbox|default:FALSE|description:Otetaanko tienpinnan kosteus huomioon (T/F)| name:Kosteus|default:5|description:Tienpinnan kosteus(%)| name:MatkaTeol|default:200|description:Matka Teollisuusalueella (Km)| name:MatkaPaaMtnTie|default:200|description:päällystetyllä maantiellä (Km)| name:MatkaPaaltie|default:200|description:päällystämättömällä maantiellä (Km)| name:NopeusTeol|default:50|description:Nopeus Teollisuusalueella (Km/h)| name:NopeusPaaltie|default:50|description:Nopeus päällystetyllä maantiellä (Km/h)| name:NopeusPaaMtnTie|default:50|description:Nopeus päällystämättömällä maantiellä (Km/h)| name:PaivatPeriodissa|default:30|description:päivien lukumäärä periodin aikana (365 vuosi, 91 vuodenaika, 30 kuukausi) (Pv)| name:Paivat|default:5|description:Monenako paivana periodissa ajellaan (vk)| name:Hienoainekuormitus|default:20|description:tienpinnan hienoaineskuormitus (g/m2)| name:Hiukkaspitoisuus|default:5|description:tien pintamateriaalin hienoainespitoisuus (%)| name:Paino|default:2|description:kulkuneuvon keskimäräinen paino (tonnia)|

category:Murskauksen inputit|

name:M|Kuinka monta tonnia malmia murskataan tunnissa?|default:100| name:A|description:Montako tuntia prosessia ajetaan päivässä?|default:8| name:prosessi|description:Mitä murskausprosesseja on käytössä?|type:checkbox|options:'Esi/karkea murskaus';Esi/karkea murskaus;'Välimurskaus';Välimurskaus;'Hienomurskaus';Hienomurskaus;'Materiaalin siirto ja kuljetus';Materiaalin siirto ja kuljetus;'Märkäseulonta';Märkäseulonta;'Kuivaseulonta ilman avulla';Kuivaseulonta ilman avulla;'Kuivaseulonta ilman ilmapuhallusta';Kuivaseulonta ilman ilmapuhallusta;'Kuivaus';Kuivaus|default:'Esi/karkea murskaus';'Välimurskaus';'Hienomurskaus'| name:kosteus|description:Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?|type:selection|options:'Kuiva';Kuiva;'Kostea';Kostea|default:'Kostea'| name:vaimennus|description:Mitkä päästönvaimennusprosessit ovat käytössä?|type:checkbox|options:'Tuulensuojamuuri';Tuulensuojamuuri;'Materiaalin kastelu';Materiaalin kastelu;'Hihnan kotelointi, sykloni';Hihnan kotelointi, sykloni;'Hihnan kotelointi, harjaus';Hihnan kotelointi, harjaus;'Hihnan kotelointi, kangassuodattimet';Hihnan kotelointi, kangassuodattimet;'suljettu tai maanalainen';suljettu tai maanalainen;'Sähköstaattinen suodatus';Sähköstaattinen suodatus|default:'Tuulensuojamuuri';'Materiaalin kastelu'|

category:Hihnakuljetuksen inputit|

name:HiHM|description:Kuinka monta tonnia syötettä kulkee kuljettimen läpi tunnissa?|default:100| name:HiHA|description:Montako tuntia prosessia ajetaan päivässä?|default:8| name:HiHprosessi|description:Mikä kuljetusprosessi on käytössä?|type:selection|options:'Hihnalle lastaaminen ja hihnan vaihto';HiHnalle lastaaminen ja hihnan vaihto;'Hihnalta ajoneuvoon lastaaminen';Hihnalta ajoneuvoon lastaaminen|default:'Hihnalle lastaaminen ja hihnan vaihto'| name:HiHhihnoja|description:Montako lastausta prosessiin kuuluu?|default:1| name:HiHkosteus|description:Onko malmi kuivaa vai kosteaa (rajana 1.5 % kosteutta)?|type:selection|options:'Kuiva';Kuiva;'Kostea';Kostea|default:'Kostea'| name:HiHvaimennus|description:Mitkä päästönvaimennusprosessit ovat käytössä?|type:checkbox|options:'Tuulensuojamuuri';Tuulensuojamuuri;'Materiaalin kastelu';Materiaalin kastelu;'Hihnan kotelointi, sykloni';Hihnan kotelointi, sykloni;'Hihnan kotelointi, harjaus';Hihnan kotelointi, harjaus;'Hihnan kotelointi, kangassuodattimet';Hihnan kotelointi, kangassuodattimet;'Suljettu tai maanalainen';Suljettu tai maanalainen;'Sähköstaattinen suodatus';Sähköstaattinen suodatus|default:'Tuulensuojamuuri';'Materiaalin kastelu'|

category:Sulatus inputit| name:polttoaine|description:Mikä polttoaine on kyseessä?|type:selection|options:'Masuunikaasu';Masuunikaasu;'Koksiuunikaasu';Koksiuunikaasu;'Kaatopaikkakaasu';Kaatopaikkakaasu;'Maakaasu';Maakaasu;'Nestekaasu - Butaani';Nestekaasu - Butaani;'Nestekaasu - Propaani';Nestekaasu - Propaani;'Raskas polttoöljy';Raskas polttoöljy;'Diesel';Diesel;'Jäteöljy';Jäteöljy|default:'Diesel'| name:p_maara|description:Montako tonnia polttoainetta palaa tunnissa?|default:100| name:tunnit|description:Montako tuntia polttoainetta poltetaan?|default:1|

category:Leviamismallin inputit| name:LA|description:Leveyspiiri|default:63.110577| name:LO|description:Pituuspiiri|default:27.735929| name:murskaus.maara|description:Murskattavan malmin määrä (Mg/a)|default:10000000| name:paasto.kerroin|description:Murskaukseen käytettävän prosessin päästökerroin (g/Mg)|default:72.6| name:N|description:Iteraatioiden määrä|default:10000000|

category:Paikallaan olevat polttomoottorit| name:stringi|description:Sivun identifier josta loytyy tiedot kaivoksen moottoreista|default:'Ei lasketa'|

category:Rikasteen kuljetus| name:RikstMatka|description:Matka joka rikastetta kuljetaan(KM)|default:500| name:RikstMaara|description:Lasti|default:19| name:RikstJunalla|type:checkbox|options:'Kyllä'|description:Kuljetetaanko rikaste junalla|Default:'Kyllä'

"> library(reshape2) library(OpasnetUtils) library(xtable) library(ggplot2)

femp = temp[,!colnames(temp) == "Suure"] tapply(PaikPoltMoot[,'PaikPoltMootResult'], PaikPoltMoot[,'Haitta-aine'], sum)

Temp = FALSE Temp[Vetisyys] = TRUE Vetisyys = Temp

if (stringi != 'Ei lasketa' & stringi != & !is.na(stringi)){ Fetch2(data.frame(Name = 'PaikPoltMoot' , Key = "O7jVOuSo3dM7XdCS")) PaikPoltMootPaastot = EvalOutput(PaikPoltMoot) } cat('Paikallaan olevien polttomoottoreiden shaibaa ei oteta huomioon')

1. toimivat

Fetch2(data.frame(Name = 'MetMalHihPol' , Key = "dHcFJGBDYeBUYY7Q")) Fetch2(data.frame(Name = 'Kuljetuksenpaastot', Key = 'ccuScDiPdTrmMTua')) Fetch2(data.frame(Name = 'MetMalMurskPol' , Key = "sQp1JLHliusGuXVr" )) Fetch2(data.frame(Name = 'Boileripaastot' , Key = 'GQi9OV6k6O8LTTC6')) Fetch2(data.frame(Name = 'RikasteKuljetus' , Key = "xKX9ZwlkbeKlLDzi"))

RikasteKuljetus = EvalOutput(RikasteKuljetus) print(xtable(RikasteKuljetus@output, type = 'html'))

PaastotKaivAlue = EvalOutput(MetMalHihPol) KuljetusPaastot = EvalOutput(Kuljetuksenpaastot) MalminMurskausPaastot = EvalOutput(MetMalMurskPol) EnerTuotPaastot = EvalOutput(Boileripaastot)

1. Lasketaan Malminkuljetuksen ei pienhiukkaspaastot
2. koodi kopioitu Rikastekuljetuksen sivuilta

MatkaRikastamoon = MatkaTeol + MatkaPaaMtnTie + MatkaPaaltie femp <- tidy(op_baseGetData("opasnet_base", "Op_fi3127"), objname = "RikasteKuljetus") femp = femp[,!colnames(femp) == "Result"]

femp = femp[femp$Kuljetusväline != 'Juna',]

Liitettava = data.frame( Kuorma = c('tyhjä','(50 %:n kuorma)','täysi (19 t kuorma'), MatkojenLkm = c(RikstMaara%/%19+ifelse(RikstMaara%%19 > 0,1,0),ifelse(RikstMaara%%19 > 0,1,0),RikstMaara%/%19) ) femp = merge(femp,Liitettava) femp = melt(femp,id.vars = c('Kuljetusväline','Kuorma','MatkojenLkm'),variable.name = "Haittaaine", value.name = 'RikastamolleKuljetusResult') femp$RikastamolleKuljetusResult = as.numeric(as.character(femp$RikastamolleKuljetusResult)) femp$RikastamolleKuljetusResult = femp$MatkojenLkm * femp$RikastamolleKuljetusResult * MatkaRikastamoon

femp = merge(femp,RikasteKuljetus@output) femp$TotalResult = (RikasteKuljetus@output$RikasteKuljetusResult + femp$RikastamolleKuljetusResult)

1. objects.get("8EV2qsAPaXuk7ELI")
2. Femp <- EvalOutput(MetMalMurskPol)
3. cat(paste("Pölypäästöt (kg/d) prosessista, kun prosessoidaan ", M * A, " tonnia päivässä.\n", sep=""))

print(xtable(Femp@output), type = 'html') print(xtable(as.data.frame(as.table(tapply(Femp@output$MetMalMurskPolResult, Femp@output$Hiukkaskoko, sum)))), type = 'html')

1. kuljetuksenpaastot

temp = merge(PaastotKaivAlue@output$result,MalminMurskausPaastot@output$result) temp

#Mainin inputit #Vetisyys = FALSE, #autoilun tiedot #MatkaTeol,MatkaPaaltie,MatkaPaaMtnTie, #Paino = 2,NopeusTeol = 50,NopeusPaaltie = 50,NopeusPaaMtnTie = 50, #Teiden inputit #Hienoainekuormitus,Hiukkaspitoisuus,Kosteus,hiukkaskoko, #sateenvaikutuksiin tarvittavat tiedot #PaivatPeriodissa = 30,Paivat = 5

<rcode>