SHARE
TWEET

Untitled

a guest Apr 18th, 2019 76 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. # b) Determine a função de fiabilidade do servidor "vsrv8" nos dias 1 de janeiro e 1 de
  2.   # fevereiro 2017. Apresente e analise os respetivos gráficos.
  3.  
  4. # 1 janeiro 2017
  5. fiab = function(t) {
  6.   up = nrow(subset(vpnsessions, as.Date(data) == (as.Date("2017-01-01", format="%Y-%m-%d")) & duracao > 1 & servidor == 'vsrv8'))
  7.   down = nrow(subset(vpnsessions, as.Date(data) == (as.Date("2017-01-01", format="%Y-%m-%d")) & duracao < 2 & servidor == 'vsrv8'))
  8.  
  9.   deltaT = (60 * 24) / (up + down)
  10.  
  11.   tempoOperacao = up * deltaT
  12.  
  13.   lambda = down / tempoOperacao
  14.  
  15.   # F(t) = e ^ - (0.001574t)
  16.  
  17.   return (exp(-lambda * t))
  18. }
  19. plot(fiab(1:1440), type='l', main="Função de fiabilidade do servidor vsrv8 no dia 1 de janeiro de 2017", ylab = "Fiabilidade (%)", xlab="Minutos do dia 1 de janeiro de 2017")
  20.  
  21.  
  22. # 1 fevereiro 2017
  23. fiab = function(t) {
  24.   up = nrow(subset(vpnsessions, as.Date(data) == (as.Date("2017-02-01", format="%Y-%m-%d")) & duracao > 1 & servidor == 'vsrv8'))
  25.   down = nrow(subset(vpnsessions, as.Date(data) == (as.Date("2017-02-01", format="%Y-%m-%d")) & duracao < 2 & servidor == 'vsrv8'))
  26.  
  27.   deltaT = (60 * 24) / (up + down)
  28.  
  29.   tempoOperacao = up * deltaT
  30.  
  31.   lambda = down / tempoOperacao
  32.  
  33.   # F(t) = e ^ -0.0016975t
  34.   print(lambda)
  35.  
  36.   return (exp(-lambda * t))
  37. }
  38. plot(fiab(1:1440), type='l', main="Função de fiabilidade do servidor vsrv8 no dia 1 de fevereiro de 2017", ylab = "Fiabilidade (%)", xlab="Minutos do dia 1 de fevereiro de 2017")
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top