BEBERAPA PROGRAM MATLAB

Report Pemakaian Energi Listrik

jam=0:1:23;
daya=[50 50 50 50 50 50 75 100 125 150 175 210 245 250 250 270 275 280 370 380 380 350 125 50];
plot(jam,daya,'r')
title('Report Pemakaian Energi Listrik')
xlabel('Waktu (jam)')
ylabel('Daya (MW)')

GRAFIK y=2x^2+5x-7

clear all

clc

x=-6:1:6;

y=(2*x.^2)+(5*x)-7;

plot(x,y,'r')

title('GRAFIK y=2x^2+5x-7')

xlabel('SUMBU X')

ylabel('SUMBU Y')

MEMBUAT TABLE

clear all

clc

disp ('**********************************************************')

disp ('***      STUDI PENGASUTAN MOTOR INDUKSI 3 FASA         ***')

disp ('***           DENGAN STARTER STAR / DELTA              ***')

disp ('**********************************************************')

disp ('NAMA              = MASHUDAN KURNIAWAN                    ')

disp ('NIM               = 061030310851                          ')

disp ('KELAS             = 5 ELB                                 ')

disp ('MATA KULIAH       = PEMROGRAMAN KOMPUTER                  ')

disp ('DOSEN PEMBIMBING  = ANTON FIRMANSYAH,S.T.,M.T.            ')

disp ('HARI/TANGGAL      = SABTU,   DESEMBER 2012                ')

disp ('**********************************************************')

disp('  ')

disp('ANALISA DATA')

disp('Dari hasil percobaan,didapat data sebagai berikut:')

disp ('----------------------------------------------------------')

disp('  ')

disp('***********************************************************')

disp('** Pengukuran tanpa beban dengan menggunakan power meter **')

disp('***********************************************************')

teganganline=355;

arusrunningY=0.31;

arusrunningA=1.12;

disp(['*  tegangan line                   |        ',num2str(teganganline),'V         *'])

disp(['*  arus running hubugan star       |        ',num2str(arusrunningY),'A         *'])

disp(['*  arus running hubugan delta      |        ',num2str(arusrunningA),'A         *'])

disp('***********************************************************')

disp('===========================================================')

disp(' ')

disp('*********************************************')

disp('** Arus running hubungan bintang per phasa **')

disp('*********************************************')

af1=0.37;

af2=0.29;

af3=0.28;

disp(['*   arus fasa 1    |      ',num2str(af1),'A             *'])

disp(['*   arus fasa 2    |      ',num2str(af2),'A             *'])

disp(['*   arus fasa 3    |      ',num2str(af3),'A             *'])

disp('*********************************************')

disp('===========================================================')

disp(' ')

disp('*********************************************')

disp('**  Arus running hubungan Delta per phasa  **')

disp('*********************************************')

ad1=1.19;

ad2=1.05;

ad3=1.04;

disp(['*   arus fasa 1    |      ',num2str(ad1),'A             *'])

disp(['*   arus fasa 2    |      ',num2str(ad2),'A             *'])

disp(['*   arus fasa 3    |      ',num2str(ad3),'A             *'])

disp('*********************************************')

disp('===========================================================')

disp(' ')

disp('********************************************')

disp('**Spesifikasi motor induksi yang digunakan**')

disp('********************************************')

disp('* Type         |    SE 2662-5G.VDE 0530    *')

disp('* Voltage      |    380 Volt               *')

disp('* Imax         |    2.5 A                  *')

disp('* Daya         |    1 KW                   *')

disp('* Cos          |    0.83                   *')

disp('* rpm          |    2780                   *')

disp('* Frekuensi    |    50 Hz                  *')

disp('* R            |    20 ohm                 *')

disp('* IP           |    20                     *')

disp('********************************************')

disp('==========================================================')

v=380;

Im=2.5;

f=50;

P=1000;

cos=0.83;

r=20;

disp('----------------------------------------------------------')

disp('-- Perhitungan arus start awal yang terjadi pada saat   --')

disp('--               hubungan star delta                    --')

disp('----------------------------------------------------------')

disp('  ')

disp('I nominal ')

in=P/(sqrt(3)*v*cos);

disp('         __')

disp(['In= P/ / 3.V Line.cos q = ',num2str(in),' A'])

disp('  ')

disp('----------------------------------------------------------')

disp(' ')

disp('========================================')

disp('== harga arus pada saat starting pada ==')

disp('==    hubungan bintang dan delta      ==')

disp('========================================')

disp('= hubungan bintang  |  hubungan delta  =')

disp('========================================')

iy=1.8*in;

id=3*iy;

disp(['     ',num2str(iy),'A              ',num2str(id),'A'])

disp('========================================')

disp(' ')

disp('-----------------------------------------------------------')

disp(' ')

disp('Tabel Perhitungan daya total motor dalam keadaan ')

disp('tanpa beban jika motor dalam hubungan star dan delta')

disp(' ')

r=20;

z=v/Im;

%disp('Z = V/I')

%disp(['  = ',num2str(z),'ohm'])

disp('************************************************************************')

disp('** Hasil perhitungan ** Pada hubungan bintang  |  Pada hubungan delta **')

disp('************************************************************************')

efasa=v/sqrt(3);

ifasa=efasa/z;

C=r/z;

ptot=v*ifasa*C*sqrt(3);

%------------

efasad=v;

ifasad=v/z;

ili=ifasad*sqrt(3);

Cd=r/z;

ptotd=v*ili*Cd*sqrt(3);

disp(['    E fasa                   ',num2str(efasa),' V              ',num2str(efasad),' V'])

disp(['    I fasa                   ',num2str(ifasa),' A                ',num2str(ifasad),' A'])

disp(['    Cos phi                  ',num2str(C),'                 ',num2str(Cd)])

disp(['    Daya total (P)           ',num2str(ptot),' watt                ',num2str(ptotd),' watt'])

disp('************************************************************************')