Guest User

Untitled

a guest
Aug 19th, 2019
72
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. v<-c(5, 0, 1, -2, 3, 4, 0 2, 1)
  2. v<-c(5, 0, 1, -2, 3, 4, 0, 2, 1)
  3. m<-matrix(v, nrow = 3, ncol = 3)
  4. v
  5. m
  6. det(m)
  7. solve(m)
  8. mi<-solve(m)
  9. round(mi, 2)
  10. help
  11. mt<-t(m)
  12. mt
  13. m
  14. m%*%mt
  15. k<-1+(3.3 * log(80))
  16. k
  17. n<-(1000 * 0.5 * (1 - 0.5) * 1.96) / (1000 - 1) * 0.02^2 + 0.5 * (1 - 0.5) * 1.96
  18. n
  19. n<-(1000 * 0.5 * (1 - 0.5) * 1.96) / ((1000 - 1) * 0.02^2 + 0.5 * (1 - 0.5) * 1.96)
  20. n
  21. n<-(1000 * 0.5 * (1 - 0.5) * 1.96^2) / ((1000 - 1) * 0.02^2 + 0.5 * (1 - 0.5) * 1.96^2)
  22. n
  23. A<- matrix(,nrow = 4, ncol = 4)
  24. A
  25. A<- matrix(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,nrow = 4, ncol = 4)
  26. A<- (1,1,1,1,1,1,1,1,1,1,1,1,1,)
  27. A<- (1,1,1,1,1,1,1,1,1,1,1,1,1)
  28. A<- (1 11 1 1 11 1 11 )
  29. A<- c(1,1,1,1,1,1,1,1,1,1,1,1,1)
  30. A
  31. A<- c(1, 1, 1, 1, 1, 1, -1, 0, 2, 0, -1, 1, 0, 1, -2, 0)
  32. A
  33. M9<- matrix(A, nrow = 4, ncol = 4)
  34. M9
  35. M9<- matrix(A, byrow = 4, ncol = 4)
  36. M9
  37. V<- c(x, y , z, w)
  38. M9i<- solve(M9)
  39. M9i
  40. shit<- c(7/2, 1, 3/2, -1)
  41. b<- matrix(shit, nrow = 4, ncol = 1)
  42. b
  43. x<- M9i %*% b
  44. x
  45. import Dados1;
  46. clc
  47. getwd()
  48. install.packages("readxl")
  49. library("readxl")
  50. my_data <- read_excel("Dados1.xlsx")
  51. my_data
RAW Paste Data