#zadanie5--------------------------------------------------------------------------------------------------------------------------------------------
  rate <- function(Ptoday.1,k1=0.95,k2=1.05)  #формирование цены акции
  {
    H <- sort(c(k1,k2))*Ptoday.1 #диапазон суточного колебания цены акции
    return(runif(1,H[1],H[2]))
  }

  proverka_rate <- function(Ptoday.1,k1=0.95,k2=1.05,T=30)
  {
    b <- c(rate(Ptoday.1,k1,k2))
    for (i in 1:(T-1))
    {
      a <- rate(b[i],k1,k2)
      b <- append(b,a)
    }
    return(b)
  }

  zadanie5 <- function(Ptoday.1=100)
  {
    plot(proverka_rate(Ptoday.1),type='o',xlab='Номер дня',ylab='Цена акции',pch=20,col='red',cex=1.2,main='График цены акции')
  }
#zadanie6----------------------------------------------------------------------------------------------------------------------------------------------
  modelirovanie <- function(Ptoday.1,k1=0.95,k2=1.05,times=as.integer(runif(1,50,100)),T=30)
  {
    plot(x=1:T,type='n')
    for (i in 1:times)
    {
      n <- proverka_rate(Ptoday.1)
      points(x=1:T,y=n,type='o')
    }
  }