risandy bayu 2413100052

clear all
clc

disp('=================Pemrograman Komputer=============')
disp('=========Risandy Bayu Setiawan 2413100052=========')
disp('MENGHITUNG VOLUME TABUNG DAN MENAMPILKAN GAMBARNYA')
            disp('  ')
            q=input('masukkan tinggi :');      %tinggi tabung
                    r=input('masukkan jari-jari :');    %jari-jari
                    volume=pi*r.^2*q
                    %buat batas
                    tht = linspace(0,2*pi,50);     %lingkaran alas&tutup dibagi menjadi 100 sel
                    z=linspace(0,q,20);             %tinggi dibagi menjadi 20sel

                    %buat silinder
                    xa = repmat(r*cos(tht),20,1);  % repmat dipakai untuk membuat selimut tabung
                    ya = repmat(r*sin(tht),20,1); 
                    za = repmat(z',1,50);         

                    % membuat tutup tabung
                    X = [xa*0;flipud(xa);(xa(1,:))*0];     %flipud=untuk menukar posisi elemen
                                                            ...matriks tersebut yang ditulis dari bawah ke atas
                    Y = [ya*0;flipud(ya);(ya(1,:))*0];     %flipud dipakai untuk membuat tutup tabung
                    Z = [za;flipud(za);za(1,:)];

                    % untuk mengedit display tabung
                    [TRI,v]= surf2patch(X,Y,Z); %surf2patch untuk mengubah geometri menjadi objek 3D
                    patch('Vertices',v,'Faces',TRI,'facecolor',[1 0 0],'facealpha',0.8);  %menampilkan objek 3D
                    view(3);grid on; axis square; title('TABUNG','FontSize',12);%untuk membuka kanvas/sumbu