Mengubah Posisi Tabung

Tabung Mendatar

clear;

clc;

disp('Matlab Tabung Mendatar');

t=input('Panjang Tabung = ');

r=input('Diameter Tabung = ');

x=input('Koordinat Sumbu X = ');

y=input('Koordinat Sumbu Y = ');

grid on;

hold on;

axis square;

xlabel ('sumbu X'), xlabel ('sumbu Y');

axis([0 99 0 99]);

title('Matlab Tabung Mendatar');

a=r;

b=r/2;

elips(y,x,a,b);

garis(x+a,y,x+a,y-t);

garis(x-a,y,x-a,y-t);

elips(x,y-t,a,b);

function elips(x,y,a,b)

yi=y-b:0.1:y+b;

xi=(a/b)*(sqrt(b^2-(yi-y).^2))+x;

plot(yi,xi);

plot(yi,2*x-xi);

function garis(xa,ya,xb,yb)

hold on;

axis([0 100 0 100]);

axis square;

if ya==yb

   if xa<xb

      for xi=xa:0.01:xb;

         yi=xi+ya-xi;

         plot(yi,xi);

      end

   else

      for xi=xa:-0.01:xb;

         yi=xi+ya-xi;

         plot(yi,xi);

      end

   end

else

   m=(xb-xa)/(yb-ya);

   if ya<yb

      for yi=ya:.0.01:yb;

         xi=m*(yi-ya)+xa;

         plot(yi,xi);

      end

   else

      for yi=ya:-0.01:yb;

         xi=m*(yi-ya)+xa;

         plot (yi,xi);

       end

   end

end

Dongeng Pasir dan Batu

Dua orang sahabat sedang berjalan melintasi padang pasir. Selama dalam perjalanan mereka berdebat tentang sesuatu. Salah seorang dari kedua sahabat itu menampar temannya, dan yang ditampar itu merasa sakit tetapi dia tak berkata apa apa, hanya menulis diatas pasir:
"HARI INI TEMAN BAIKKU MENAMPARKU"
Mereka tetap berjalan sampai mereka menemukan sebuah oasis (sumber air), mereka sepakat untuk mandi, teman yang telah ditampar tergelincir dan hampir saja tenggelam di oasis tersebut, tetapi temannya datang dan menolongnya, dan setelah diselamatkan oleh temannya dari bahaya, dia menulis di Batu
"HARI INI TEMAN BAIKKU MENYELAMATKAN NYAWAKU"
Teman yang telah menampar dan yang telah menyelamatkan nyawa teman baiknya itu bertanya kepadanya, "Setelah saya menyakitimu, kamu menulisnya di pasir dan sekarang, kamu menulisnya diatas batu, mengapa?
Temannya pun menjawab : "Ketika seseorang menyakiti kita, kita harus menulisnya diatas pasir, agar angin dapat menerbangkannya dan dapat menghapusnya sehingga dapat termaafkan. Tetapi ketika seseorang melakukan sesuatu yang baik kepada kita, kita harus mengukirnya diatas batu dimana tak ada angin yang dapat menghapusnya"jg