Email             :
RPubs            : https://rpubs.com/yeninawn/
Jurusan          : Fisika Medis
Address         : ARA Center, Matana University Tower
                         Jl. CBD Barat Kav, RT.1, Curug Sangereng, Kelapa Dua, Tangerang, Banten 15810.

1 Integral Tentu dan Tak Tentu

library(mosaicCalc)                                         # Masukkan lib 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
F <- function(x)(x^3-3*x^2+2*x-6)                           # Masukan fungsi x integral tentu
integrate(F, 0, 4)                                          # Masukkan batas integral tentu dan print hasil
## -8 with absolute error < 2.6e-13
F = antiD(x^3-3*x^2+2*x-6~x)                                # Fungsi integral taktentu
F                                                           # Print hasil integral taktentu
## function (x, C = 0) 
## 1/4 * x^4 - 1 * x^3 + 1 * x^2 - 6 * x + C

2 Luas Lingkaran, Keliling Lingkaran, Volume Bola

luas_keliling_volume = function(π,r)                        # Masukan fungsi luas keliling dan volume bola
{
  Luas = π*r^2                                              # Masukan rumus luas lingkaran
  Keliling = 2*π*r                                          # Masukan rumus keliling lingkaran
  Volume = round(4/3*π*r^3 , digits =2)                     # Masukan rumus volume bola
  return(cat(c("Luas lingkarannya:",Luas, "\n",             # Untuk mengeprint dengan mengembalikan data
               "Keliling lingkarannya:",Keliling, "\n",
               "Volume bolanya:",Volume)))
}
luas_keliling_volume(22/7,21)                               # Memasukan nilai phi dan jari-jari
## Luas lingkarannya: 1386 
##  Keliling lingkarannya: 132 
##  Volume bolanya: 38808

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

Langkah Frekuensi
10 4
20 2
30 1
40 5
50 3 
Langkah=c(10,20,30,40,50)                                   # Masukan data
Frekuensi=c(4, 2, 1, 5, 3)                                  # Masukan frekuensi dari data
max_min_rata_median = function(Langkah,Frekuensi)           # Masukan fungsi
   
{                                                           # Pembukaan Fungsi
  batasbawah=39.5                                           # Batas bawah kelas median (40 - 0,5 = 39,5)
  pjgkls=10                                                 # Panjang kelas
  bykdata=15                                                # Jumlah frekuensi atau banyaknya data
  Fsm=7                                                     # Frekuensi sebelum kelas median (4+2+1=7)
  Fkm=5                                                     # Frekuensi kelas median 
  d1modus=4                                                 # Frekuensi kelas modus dikurangi frekuensi kelas sebelumnya (5-1=4)
  d2modus=2                                                 # Frekuensi kelas modus dikurangi frekuensi kelas selanjutnya (5-3=2)
  Xi=sum(Langkah)                                           # Jumlah Data Langkah                          
  Fi=sum(Frekuensi)                                         # Jumlah Frekuensi
  
maksimum = max(Langkah)                                     # Menghitung nilai maksimum data
minimum = min(Langkah)                                      # Menghitung nilai minimum data
ratarata = sum(Langkah*Frekuensi)/sum(Frekuensi)            # Masukkan rumus rata-rata
median = batasbawah + pjgkls*(((bykdata/2)-Fsm)/Fkm)        # Masukan rumus median
modus = batasbawah + pjgkls*((d1modus)/(d1modus+d2modus))   # Masukan rumus modus
variansi = ((Fi * (Xi-ratarata)^2)/Fi)                      # Masukan rumus variasi data
standardev= sqrt(variansi)                                  # Masukan rumus standard deviasi
return(cat("Maksimumnya:", maksimum, "\n",                  # Untuk mengeprint hasil dgn mengembalikan data
           "minimumnya:", minimum, "\n",
           "rata-rata:", ratarata, "\n",
           "median:", median, "\n",
           "modusnya:", modus, "\n",
           "variasi datanya:", variansi, "\n",
           "standard deviasinya:", standardev))                
}                                                           # Penutupan fungsi
max_min_rata_median(Langkah, Frekuensi)                     # Menggunakan fungsi
## Maksimumnya: 50 
##  minimumnya: 10 
##  rata-rata: 30.66667 
##  median: 40.5 
##  modusnya: 46.16667 
##  variasi datanya: 14240.44 
##  standard deviasinya: 119.3333