=====================================================

Nama Mahasiswa : Yoza Setya Febriyanti

NIM : 220605110062

Kelas : C

Mata Kuliah : Kalkulus

Dosen Pengampuh : Prof.Dr.Suhartono,M.Kom

Jurusan : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

=====================================================

library("mosaicCalc")
## Loading required package: mosaic
## Registered S3 method overwritten by 'mosaic':
##   method                           from   
##   fortify.SpatialPolygonsDataFrame ggplot2
## 
## The 'mosaic' package masks several functions from core packages in order to add 
## additional features.  The original behavior of these functions should not be affected by this.
## 
## Attaching package: 'mosaic'
## The following objects are masked from 'package:dplyr':
## 
##     count, do, tally
## The following object is masked from 'package:Matrix':
## 
##     mean
## The following object is masked from 'package:ggplot2':
## 
##     stat
## The following objects are masked from 'package:stats':
## 
##     binom.test, cor, cor.test, cov, fivenum, IQR, median, prop.test,
##     quantile, sd, t.test, var
## The following objects are masked from 'package:base':
## 
##     max, mean, min, prod, range, sample, sum
## Loading required package: mosaicCore
## 
## Attaching package: 'mosaicCore'
## The following objects are masked from 'package:dplyr':
## 
##     count, tally
## 
## Attaching package: 'mosaicCalc'
## The following object is masked from 'package:stats':
## 
##     D

2.1.1 Latihan

2.1.1.1 Latihan 1

Cobalah perintah ini:

x <- 10
slice_plot(A * x ^  2 ~ A, domain(A = range(-2,  3)))

Jelaskan mengapa grafik tidak terlihat seperti parabola, meskipun itu adalah grafik ax2.

JAWAB:

Perhatikan bahwa input ke fungsi adalah , bukan . Nilai telah diatur ke 10 — grafik sedang dibuat di atas rentang dari ‘A x x A’ −2 untuk 3.

2.1.1.2 Latihan 2

Terjemahkan masing-masing ekspresi ini dalam notasi matematika tradisional ke dalam plot. Serahkan perintah yang Anda berikan untuk membuat plot (bukan plot itu sendiri). a. 4x−7 di jendela x dari 0 hingga 10.

JAWAB:

slice_plot( 4 * x - 7 ~ x, domain(x = range(0, 10) ))

  1. Cos 5x di jendela x dari −1 ke 1.

JAWAB:

slice_plot( cos(5 * x) ~ x, domain(x = range(-1, 1)))

  1. Cos2t di jendela t dari 0 hingga 5.
slice_plot( cos(2 * t) ~ t, domain(t = range(0,5) ))

  1. √t Cos 5t di jendelat dari 0 hingga 5. (Petunjuk: √(t)adalah .)sqrt(t)
slice_plot( sqrt(t) * cos(5 * t) ~ t, domain(t = range(0, 5) ))

2.1.1.3 Latihan 3

Mereproduksi masing-masing plot ini. Serahkan perintah yang Anda gunakan untuk membuat plot yang identik:

a.

JAWAB:

slice_plot(2*x - 3 ~ x, domain(x = range(0, 5)))

b.

JAWAB :

slice_plot(t^2 ~ t, domain(t = range(-2, 2)))

2.1.1.4 Latihan 4

Apa yang terjadi ketika Anda menggunakan parameter simbolik (misalnya, di , tetapi cobalah membuat plot tanpa memilih nilai numerik tertentu untuk parameter? mm*x + b ~ x

JAWAB:

Anda mendapatkan pesan kesalahan yang mengatakan bahwa “objek tidak ditemukan”.

2.1.1.5 Latihan 5

Apa yang terjadi ketika Anda tidak menentukan rentang untuk input, tetapi hanya satu angka, seperti pada detik dari dua perintah ini:

slice_plot(3 * x ~ x, domain(x= range(1,4)))

slice_plot(3 * x ~ x, domain(x = 14))

Berikan deskripsi tentang apa yang terjadi dan berspekulasi tentang alasannya.

JAWAB:

Jika tidak ada domain yang ditentukan atau jika domain hanya memiliki satu angka daripada rentang, pesan kesalahan akan dihasilkan.slice_plot()

2.2.1 Latihan

2.2.1.1 Latihan 1

Buat masing-masing plot ini:

Prof. Stan Wagon (lihat http://stanwagon.com) mengilustrasikan pemasangan kurva menggunakan pengukuran suhu (dalam derajat C) secangkir kopi versus waktu (dalam menit):

s = read.csv(
  "http://www.mosaic-web.org/go/datasets/stan-data.csv")
gf_point(temp ~ time, data=s)

Berikut catatan tingkat pasang surut air pasang di Hawaii selama sekitar 100 jam:

h = read.csv(
  "http://www.mosaic-web.org/go/datasets/hawaii.csv")
gf_point(water ~ time, data=h)

2.2.1.2 Latihan 2

Buat perintah R untuk menduplikasi masing-masing plot ini. Serahkan perintah Anda (bukan plot):

File data memiliki catatan utilitas untuk sebuah rumah di St. Paul, Minnesota, AS. Buat plot ini, termasuk label:“utilities.csv”

a.

JAWAB :

Utilities <- read.csv(
  "http://www.mosaic-web.org/go/datasets/utilities.csv")

gf_point( 
  temp ~ month, data=Utilities) %>% 
  gf_labs(x = "Month (Jan=1, Dec=12)",
          y = "Temperature (F)",
          main = "Ave. Monthly Temp.")

b.Dari file data, buat plot tagihan bulanan rumah tangga ini untuk gas alam versus suhu rata-rata. Garis memiliki kemiringan “utilities.csv”−5 USD/derajat dan mencegat 300 USD.

b.

JAWAB :

gf_point(
  gasbill ~ temp, data=Utilities) %>%
  gf_labs(xlab = "Temperature (F)",
          ylab = "Expenditures ($US)",
          main = "Natural Gas Use") %>%
  slice_plot( 300 - 5*temp ~ temp, color="blue")