# assign value to variables:
x=1.1
a=2.2
b=3.3
#A.
proba<-x^(a^b)
print(proba)
## [1] 3.61714
probb<-(x^a)^b
print(probb)
## [1] 1.997611
probc<-(3*(x^3))+2*(x^2)+1
print(probc)
## [1] 7.413
##A.
floor((proba %% 1) *10)
## [1] 6
##B.
floor((probb %% 1) * 10)
## [1] 9
##C.
floor((probc %% 1)*10)
## [1] 4
c(seq(1:8),rep(7:1))
## [1] 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1
rep(1:5, c(1,2,3,4,5))
## [1] 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5
rep(5:1, c(1,2,3,4,5))
## [1] 5 4 4 3 3 3 2 2 2 2 1 1 1 1 1
i<-runif(2)
i[1]
## [1] 0.06418897
i[2]
## [1] 0.3820639
x = i[1]
print(x)
## [1] 0.06418897
y = i[2]
r= sqrt((x^2)+(y^2))
print(r)
## [1] 0.3874185
#theta = "t"
t=atan(y/x)
print(t)
## [1] 1.404345
queue <-c("sheep", "fox", "owl", "ant")
quA <-c(queue, "serpent")
print(quA)
## [1] "sheep" "fox" "owl" "ant" "serpent"
quB<-quA[-1]
print(quB)
## [1] "fox" "owl" "ant" "serpent"
quC<-c("donkey", quB)
print(quC)
## [1] "donkey" "fox" "owl" "ant" "serpent"
quD<-quC[-5]
print(quD)
## [1] "donkey" "fox" "owl" "ant"
quE <-quD[-3]
print(quE)
## [1] "donkey" "fox" "ant"
quF<-c(quE[-3], "aphid", "ant")
print(quF)
## [1] "donkey" "fox" "aphid" "ant"
quG <- which(quF == "aphid")
print(quG)
## [1] 3
z5<-1:100
z5[z5%%2!=0 & z5%%3!=0 & z5%%7!=0]
## [1] 1 5 11 13 17 19 23 25 29 31 37 41 43 47 53 55 59 61 65 67 71 73 79
## [24] 83 85 89 95 97
z6 <- runif(1000)
z6v <- c(mean(z6 < 0.1), mean(z6 > 0.9), mean(z6 > 0.45 & z6 < 0.55))
print(z6v)
## [1] 0.107 0.093 0.109
z6log<-log10(z6)
head(z6log)
## [1] -0.009875105 -0.074994705 -0.425757388 -0.004122771 -0.010340087
## [6] -0.555903304
z6vlog<-c(mean(z6log < 0.1), mean(z6log > 0.9), mean(z6log >0.45 & z6log<0.55))
print(z6vlog)
## [1] 1 0 0
b2. z^2
z6sq<-(z6)^2
head(z6sq)
## [1] 0.95554202 0.70796305 0.14076193 0.98119304 0.95349809 0.07730247
z6vsq<-c(mean(z6sq < 0.1), mean(z6sq > 0.9), mean(z6sq >0.45 & z6sq<0.55))
print(z6vsq)
## [1] 0.322 0.051 0.071
b3. exp^z
z6exp<-exp(z6)
head(z6exp)
## [1] 2.657852 2.319625 1.455257 2.692720 2.655073 1.320530
z6vexp<-c(mean(z6exp < 0.1), mean(z6exp > 0.9), mean(z6exp >0.45 & z6exp<0.55))
print(z6vexp)
## [1] 0 1 0
b4. square root of z
z6sqrt<-sqrt(z6)
head(z6sqrt)
## [1] 0.9886952 0.9172815 0.6125215 0.9952647 0.9881661 0.5272886
z6vsqrt<-c(mean(z6sqrt < 0.1), mean(z6sqrt > 0.9), mean(z6sqrt >0.45 & z6sqrt<0.55))
print(z6vsqrt)
## [1] 0.008 0.194 0.098