Henriktesti

<rcode name="answer" variables=" 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:0| name:RikstJunalla|description:temp|default:0

"> library(OpasnetUtils) library(xtable)

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

if (stringi != 'Ei lasketa' | stringi != ){ Fetch2(data.frame(Name = 'RikasteKuljetus' , Key = "KzcEGJIklxd93uXD")) Fetch2(data.frame(Name = 'RikasteKuljetus' , Key = "AEprDHHARLLyLeYS")) }

1. toimivat

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

PaastotKaivAlue = EvalOutput(MetMalHihPol) KuljetusPaastot = EvalOutput(Kuljetuksenpaastot) MalminMurskausPaastot = EvalOutput(MetMalMurskPol) Paikallaan olevat polttomoottorit = EvalOutput(PaikPoltMoot)

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')

EnerTuotPaastot = EvalOutput(Boileripaastot)

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>