Putra Pratama's page

Soal no 1
>
a.Nyatakan dalam bentuk assignment
b.Sederhanakan, jabarkan, dan faktorkan bentuk diatas
c.Nyatakan dalam bentuk fungsi f.
d.Tentukan nilai f(0) dan f(1)
e.Gambar fungsi tersebut untuk interval x=-4 sampai 4 dan y=-10 sampai 0,warna kurva = coklat, ketebalan kurva =3. Tunjukan juga legend dari kurva.
Soal no 2
Arsir daerah yang dibatasi oleh kurva y=x dan y=x^2 (Boleh dalam bentuk animasi)!
Contoh : .
Soal no 3
Diagram di bawah ini menggambarkan sebuah sektor lingkaran dengan sudut pusat theta = .
Misalkan A = A(theta) adalah luas daerah antara ruas garis PR dan busur PR
Misalkan B = B(theta) adalah luas daerah segitiga PQR.
a. Tentukan bentuk paling sederhana dari A(theta)/B(theta)!
b. Tentukan limit A(theta)/B(theta) saat menuju 0 dari kanan.
c. Gambarkan A(theta)/B(theta) untuk membuktikan jawaban anda di atas!
d. Dari gambar anda di atas, apa yang terjadi pada A(theta)/B(theta) saat menuju /2?
Berikut source code untuk diagram tersebut!
> with(plots):data:= ([0,0], [0.5, sqrt(3)/2]):
Warning, the name changecoords has been redefined

> data1:= ([0.5, sqrt(3)/2], [1,0]):
> data2:= ([0.5,sqrt(3)/2], [0.5,0]):
> a:= plot( sqrt(1 - x^2), x = 0..1, color = red):
> b:= plot([data], color = orange):
> c:= plot([data1], color = orange):
> d:= plot([data2], color = orange):
> e:= textplot([.07,.05,`O`],color = magenta):
> f:= textplot([.54,.05,`Q`], color = magenta):
> g:= textplot([.9,.05,`R`], color = magenta):
> h:= textplot([.4,.8,`P`], color = magenta):
> l:= textplot([.25,.15,`theta`], color = magenta):
> m:= textplot([.65,.35,`B`], color = red):
> n:= textplot([.8,.5,`A`], color = red):
> o:= plot(sqrt(.04 - x^2), x = 0.1..0.2, color = red):
> display(a,b,c,d,e,f,g,h,l,m,n,o, scaling=constrained);

Soal no 4
a. Tentukan nilai dan jelaskan (perlihatkan) proses untuk menemukan solusi anda tersebut.
b. Tentukan nilai dan jelaskan (perlihatkan) proses untuk menemukan solusi anda tersebut.
(untuk mengunduh dokumen asli, silakan klik disini)

/*Contoh penggunaan array sebagai argumen fungsi*/
#include<stdio.h>
int maks(int ar[], int uk);
main(){
int ukuran, a[]={9,0,-7,3,14,9,5,-3};
ukuran=sizeof(a)/sizeof(int);
printf("Nilai maksimum dalam array berukuran %d"
"itu\n adalah:%d\n", ukuran, maks(a,ukuran));
getchar ();
return 0;
}

int maks(int ar[], int ukuran)
{
int i, maksim;
maksim=ar[0];
for (i=1;i<=ukuran-1;i++)
if(ar>maksim)maksim=ar;
return maksim;
}

(untuk mengunduh dokumen asli, silakan klik disini)

> restart;

a. Pendefiinisian fungsi
> g(x):=piecewise(x<-2,abs(x+2),x>=-2 and x<6,x^2+2*x,x>=6,-(x^2)+7*x);

> dif_g:=diff(g(x),x);

> plot(g(x),x=-5..10,discont=true);

> solve(dif_g<0);

Interval turun pada intreval x<-2, -2<x<-1, dan x>6
> dif_dif_g:=diff(dif_g,x);

> solve(dif_dif_g>0);

Interval cekung ke atas pada -2<x<6
> iscont(g(x),x=-5..10);

> readlib(discont):discont(g(x),x);

g tidak diferensiabel pada titik -2 dan 6 karena g tidak kontinu pada titik tersebut.
> plot({g(x),dif_g},x=-5..10,discont= true);

> restart;
2>Fungsi f(x)=cos(2x)
> f:=cos(2*x);
> with(student):leftbox(f,x=-Pi/2..Pi/2);


>
> Jumlah_RIeman:=leftsum(f,x=-Pi/2..Pi/2);

> N5:=leftsum(f,x=-Pi/2..Pi/2,5);

> evalf(N5);

> N10:=leftsum(f,x=-Pi/2..Pi/2,10);

> evalf(N10);

> N20:=leftsum(f,x=-Pi/2..Pi/2,20);

> evalf(N20);

> N40:=leftsum(f,x=-Pi/2..Pi/2,40);

> evalf(N40);

> N80:=leftsum(f,x=-Pi/2..Pi/2,80);

> evalf(N80);

> limit(f,x=infinity);

> evalf(N160);

> NTakhingga:=leftsum(f,x=-Pi/2..Pi/2,infinity);

2.b Pengaruh perubahan n adalah n merupakan banyaknya persegipanjang yang menggambarkan luas daerah dibawah kurva, sehingga semakin besar n maka luas yang digambarkan persegipanjang atas luas dibawah kurva semakin teliti atau tepat.
> a:=abs(int(f,x));

> b:=int(abs(f),x);

> plot({a,b},x=-Pi..Pi,discont =true);

Dari grafik dapat dilihat bahwa kurva dari a dan b tidak berhimpit maka persamaan a dan persamaan b itu berbeda. Maka untuk fungsi cos 2x, a tidak sama dengan b.


NO.3

> restart;
> r:=1-2*(sin(t));

> plot([r,t,t=0..2*Pi],coords=polar);

> with(student):
> aprok5:=leftsum(r,t=0..2*Pi,5);

> evalf(aprok5);

> aprok15:=leftsum(r,t=0..2*Pi,15);

> evalf(aprok15);

> aprok35:=leftsum(r,t=0..2*Pi,35);

> evalf(aprok35);

> aprok55:=leftsum(r,t=0..2*Pi,55);

> evalf(aprok55);

> aprok75:=leftsum(r,t=0..2*Pi,75);

> evalf(aprok75);

> limit(r,t=infinity);

> int_r:=int(r,t);

>
> (int_r)^2;

> IntKuadarat:=value(int_r^2);

> subs(t=0,(int_r)^2);

> value(subs(t=0,(int_r)^2));

>
>
>

#include<stdio.h>

main()
{
int i,sum=0;
printf("masukkan sebuah bilangan=");
scanf("%d",&i);
while(i>=1)
{
sum+=i; //sum = sum+i;
i--; //i=i-1;
}

printf("hasil jumlah = %d",sum);
getchar();
getchar();

return 0;
}

#include<stdio.h>

main()
{
int i,j,sum=0,counter1=1,counter2=2;
printf("masukkan bilangan pertama=");
scanf("%d",&i);
printf("masukkan bilangan kedua=");
scanf("%d",&j);

while(counter1<=i)
{
counter2=1;
while(counter2<=j)
{
sum +=counter1+counter2;
counter2++;
}
counter1++;
}

printf("maka nilainya adalah= %d",sum);
getchar ();
getchar ();
return 0;
}