grafkomfaisyal

clc; clear; close all;
hold on; grid on;
axis([0,100,-70,30]);
x=[12,8,8,21,18];
y=[0,0,13,0,0];
%plot gambar asli
plot(x,y,'black');

%Skala
Sx=2; Sy=2;
xskala=Sx*x;
yskala=Sy*y;
% plot(xskala,yskala,'--r');

%translasi
tx=15; ty=0;
xtrans=xskala+tx;
ytrans=yskala+ty;
plot(xtrans,ytrans,'--r');

%pencerminan terhadap sumbu x
x1=xtrans;
y1=-ytrans;
% plot(x1,y1,'--b');

% rotasi
xp=44; yp=-20;
sudut=180;
teta=pi*sudut/180;
x1r=xp+(x1-xp)*cos(teta)-(y1-yp)*sin(teta);
y1r=yp+(x1-xp)*sin(teta)+(y1-yp)*cos(teta);
plot(x1r,y1r,'--b');

% Lingkaran
xpusatL=15; ypusatL=0; r2L=3; r2L=3;
for xincL = xpusatL - r2L : 0.1 : xpusatL+r2L;
	 yincL=r2L/r2L*(sqrt(r2L^2-(xincL-xpusatL)^2))+ypusatL;
	plot(xincL,yincL,'black');
	plot(xincL,2*ypusatL-yincL,'black');

    %Skala
    Sx=2; Sy=2;
    xskala=Sx*xincL;
    yskala=Sy*yincL;
    xskala1=Sx*xincL;
    yskala1=Sy*(2*ypusatL-yincL);
    % plot(xskala,yskala,'--r');

    %translasi
    tx=15; ty=0;
    xtrans=xskala+tx;
    ytrans=yskala+ty;
    xtrans1=xskala1+tx;
    ytrans1=yskala1+ty;
    plot(xtrans,ytrans,'--r');
    plot(xtrans1,ytrans1,'--r');

    %pencerminan terhadap sumbu x
    x1=xtrans;
    y1=-ytrans;
    x11=xtrans1;
    y11=-ytrans1;
    % plot(x1,y1,'--b');

    % rotasi
    xp=44; yp=-20;
    sudut=180;
    teta=pi*sudut/180;
    x1r=xp+(x1-xp)*cos(teta)-(y1-yp)*sin(teta);
    y1r=yp+(x1-xp)*sin(teta)+(y1-yp)*cos(teta);
    x1r1=xp+(x11-xp)*cos(teta)-(y11-yp)*sin(teta);
    y1r1=yp+(x11-xp)*sin(teta)+(y11-yp)*cos(teta);
    plot(x1r,y1r,'--b');
    plot(x1r1,y1r1,'--b');
end