Anti Copas

Email             :
RPubs            : https://rpubs.com/yosia
Jurusan          : Statistika
Instagram      : yyosia
Contact          : 085779286780
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

1 Intergral Tentu dan Tak Tentu

\(\int_{0}^{20}(5x^4+2x^3-1x+10) dx\)

Integral Tentu 

f <- function(x) {return(5*x^4+2*x^3-1*x+10)}
integrate(f,0,20)$value
## [1] 3280000

Jawaban numeriknya adalah 3,141593 hingga small error 2,7 × 10^-5

Integral Tak Tentu

\(∫(5x^4+2x^3-1x+10) dx\)

library(mosaicCalc)
## Loading required package: mosaicCore
## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2
## 
## Attaching package: 'mosaicCalc'
## The following object is masked from 'package:stats':
## 
##     D
Int_tak_tentu = antiD(5*x^4+2*x^3-1*x+10 ~ x)
Int_tak_tentu
## function (x, C = 0) 
## 1 * x^5 + 1/2 * x^4 - 1/2 * x^2 + 10 * x + C

2 Luas Lingkaran, Keliling Lingkaran, dan, Volume Bola.

Sebuah lingkaran mempunyai diameter 10 cm. tentukanlah Luas , keliling dan volume nya.

luas_keliling_volume <- function(phi,r)
{
  luas = phi*r^2
  keliling = 2*phi*r
  Volume = round(4/3*phi*r^3 , digits = 2)
  
return (cat(c("luas_lingkaran :", luas, sep = "\n", 
             "keliling_lingkaran :", keliling, sep = "\n",
             "Volume_lingkaran :", Volume, sep = "\n")))
}

luas_keliling_volume(22/7,5)
## luas_lingkaran : 78.5714285714286 
##  keliling_lingkaran : 31.4285714285714 
##  Volume_lingkaran : 523.81

3 Nilai Maksimum, Minimum, Rata-rata, Median, Mode, Variansi, Standard Deviasi pada data berfrekuensi.

data frekuensi ;

interval_nilai <- c(47,53,59,65,70,76,82)
Frekuensi <- c(2,8,7,6,2,2,3)
df = data.frame(interval_nilai,Frekuensi)
df
##   interval_nilai Frekuensi
## 1             47         2
## 2             53         8
## 3             59         7
## 4             65         6
## 5             70         2
## 6             76         2
## 7             82         3
nilai_matematika = c(rep(47,2),rep(53,8),rep(59,7),rep(65,6),rep(70,2),rep(76,2),rep(82,3))
                     
max<-max(nilai_matematika)
min<-min(nilai_matematika)
rata_rata<-mean(nilai_matematika)
median<-median(nilai_matematika)
mode<-mode(nilai_matematika)
variansi<-var(nilai_matematika)
standar_deviasi<-sd(nilai_matematika)

X<-c(max,min,rata_rata,median,mode,variansi,standar_deviasi)
names(X)<-c("max","min","rata_rata","median","mode","variansi","standar_deviasi")
X
##                max                min          rata_rata             median 
##               "82"               "47" "61.9666666666667"               "59" 
##               mode           variansi    standar_deviasi 
##          "numeric" "101.205747126437" "10.0601067154597"