Henriktesti

<rcode name="answer" variables=" 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)|

name:M|description:Kuinka monta tonnia malmia murskataan tunnissa?|default:100| 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'|

name:M|description:Kuinka monta tonnia syötettä kulkee kuljettimen läpi tunnissa?|default:100| name:A|description:Montako tuntia prosessia ajetaan päivässä?|default:8| name:prosessi|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:hihnoja|description:Montako lastausta prosessiin kuuluu?|default:1| 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'|

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 "> library(OpasnetUtils) library(xtable)

Temp = FALSE Temp[Vetisyys] = TRUE Vetisyys = Temp Fetch2(data.frame(Name = 'MetMalMurskPol' , Key = "sQp1JLHliusGuXVr" )) Fetch2(data.frame(Name = 'MetMalHihPol' , Key = "tLVG38LFrrGS7z9f")) Fetch2(data.frame(Name = 'Kuljetuksenpaastot', Key = 'PgrEB29Veu9dcl4j')) Fetch2(data.frame(Name = 'Boileripaastot' , Key = 'GQi9OV6k6O8LTTC6'))

cat('asd')

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

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>