VOLTZ ELECTRIC: Januari 2013

SOAL BILANGAN KOMPLEK 3

Published : 07.55 Author : Unknown

disp ('soal 11,tentukan nilai turunan pada persamaan berikut')
disp ('A.dik :z = 2*i,cari f(z) = 3*(z)^3+ 2*z')
disp ('jawab:')
z1=0+2*i
f=3*(z1)^3+ 2*z1
disp ('B.dik :z = 1+i,cari f(z) = 1/2*(z)^4')
disp ('jawab:')
z2=1+i
f=1/2*(z2)^4
disp ('C.dik :z = i/2,cari f(z) =((z)^2-1)^2')
disp ('jawab:')
z3=0+0.5i
f=((z3)^2-1)^2
disp ('D.dik :z = 2*i,cari f(z) =(z-1)/z*2')
disp ('jawab:')
z4=0+2i
f=(z4-1)/z4*2

disp ('soal 12,tentukan nilai dari fungsi – fungsi pada persamaan berikut:')
disp ('A. dik f(z) = exp(3 + 2*pi*i')
disp ('jawab:')
f=exp(3+ 2*pi*i)
disp ('B. dik f(z) = exp(-i')
disp ('jawab:')
f=exp(-i)
disp ('C. dik f(z) = exp(-3 - 4*i)')
disp ('jawab:')
f=exp(-3-4*i)
disp ('D. dik f(z) = exp(-3 + 4*i')
disp ('jawab:')
f=exp(-3+4*i)

disp ('soal 13,tentukan nilai dari fungsi – fungsi pada persamaan berikut:')
disp ('dik A. f(z) = real(exp(3 + 2*pi*i))')
disp ('jawab :')
f=real(exp(3 + 2*pi*i))
disp ('dik B. f(z) = real(exp(-i))')
disp ('jawab :')
f=real(exp(-i))
disp ('dik C. f(z) = real(exp(-3 - 4*i))')
disp ('jawab :')
f=imag(exp(-3-4*i))
disp ('dik D. f(z) = imag(exp(-3 + 4*i))')
disp ('jawab :')
f=imag(exp(-3+4*i))

disp ('soal 14,tentukan nilai dari fungsi – fungsi pada persamaan berikut:')
disp ('dik A=cos(3 + i*4)')
disp ('dik B=cos(6 - i*8)')
disp ('dik C=sin(2*i)')
disp ('dik D=sin(-2 - i*3)')
disp ('jawab:')
A=cos(3 + i*4)
B=cos(6 + i*8)
C=sin(2*i)
D=sin(-2 - i*3)

disp ('soal 15,tentukan nilai dari fungsi-fungsi pada persamaan berikut:')
disp ('dik : A=cosh(3 + i*4)')
disp ('dik : B=cosh(6 - i*8)')
disp ('dik : C=sinh(i*2)')
disp ('dik : D=cosh(-2 - i*3)')
disp ('jawab :')
A=cosh(3 + i*4)
B=cosh(6 + i*8)
C=sinh(i*2)
D=cosh(-2-i*3)

Read more >>

SOAL BILANGAN KOMPLEK 2

Published : 07.53 Author : Unknown

SOAL REV
disp('soal 5,nyatakan bilangan kompleks pada persamaan bentuk dalam bentuk rectangular berikut: ')
disp('A.dik Z1 = 4 sudut 90derajat')
disp('B.dik Z2 =5 sudut 135derajat' )
disp('C.dik Z3 =pi sudut 45derajat' )
disp('D.dik Z4 =50 sudut 120derajat' )
disp('jawab:')
Z1=complex(4*cosd(90),4*sind(90))
Z2=complex(5*cosd(135),5*sind(135))
Z3=complex(pi*cosd(45),pi*sind(45))
Z4=complex(50*cosd(120),50*sind(120))

disp('soal6,,hitung penjumlahan dan pengurangan bilangan kompleks pada persamaan dalam bentuk kutub berikut:')
disp ('A.dik z1 = 4 sudut 75derajat + 5 sudut 135derajat')
disp ('B.dik z2 = 15 sudut 135derajat + 10 sudut 105derajat')
disp ('C.dik z3 = pi sudut 45derajat + 0.5 sudut 75derajat')
disp ('D.dik z4 = 50 sudut 120derajat + 25 sudut 60derajat')
disp('jawab:')
z1_a=cosd(75)*4;
z1_b=sind(75)*4;
z1_c=cosd(135)*5;
z1_d=sind(135)*5;
z1_1=complex(z1_a,z1_b)+ complex(z1_c,z1_d)
z1a=real(z1_1);
z1b=imag(z1_1);
r=sqrt(z1a^2+z1b^2)
sudut=atand(z1b/z1a)
disp(['hasil dari z1 = 4?75 + 5?135 adalah ',num2str(r)]),disp(['sudut ',num2str(sudut)])
disp('------------------------------------------')
z2_a=cosd(135)*15;
z2_b=sind(135)*15;
z2_c=cosd(105)*10;
z2_d=sind(105)*10;
z2_1=complex(z2_a,z2_b)+ complex(z2_c,z2_d)
z2a=real(z2_1);
z2b=imag(z2_1);
r=sqrt(z2a^2+z2b^2)
sudut=atand(z2b/z2a)
disp(['hasil dari z2 = 15?135 + 10?105 adalah ',num2str(r)]),disp(['sudut ',num2str(sudut)])
disp('------------------------------------------')
z3_a=cosd(45)*pi;
z3_b=sind(45)*pi;
z3_c=cosd(75)*0.5;
z3_d=sind(75)*0.5;
z3_1=complex(z3_a,z3_b)- complex(z3_c,z3_d)
z3a=real(z3_1);
z3b=imag(z3_1);
r=sqrt(z3a^2+z3b^2)
sudut=atand(z3b/z3a)
disp(['hasil dari z3 = pi?45 - 0.5?75 adalah ',num2str(r)]),disp(['sudut ',num2str(sudut)])
disp('------------------------------------------')
z4_a=cosd(120)*50;
z4_b=sind(120)*50;
z4_c=cosd(60)*25;
z4_d=sind(60)*25;
z4_1=complex(z4_a,z4_b)- complex(z4_c,z4_d)
z4a=real(z4_1);
z4b=imag(z4_1);
r=sqrt(z4a^2+z4b^2)
sudut=atand(z4b/z4a)
disp(['hasil dari z4 = 50?120 - 25?60 adalah ',num2str(r)]),disp(['sudut ',num2str(sudut)])

clear all
clc
disp('soal 7,hitung perkalian dan pembagian kompleks dalam bentuk kutub pada persamaan (92) s/d (95) berikut:')
disp ('A.Za = 10 sudut 37derajat * 4 sudut322derajat')
disp ('B.Zb = pi sudut 137derajat * 0.5 sudut22derajat')
disp ('C.Zc = 3*pi sudut 167derajat / 5 sudut 20derajat')
disp ('D.Zd = 10 sudut 37derajat / 4 sudut322derajat')
r1a=10;
r1b=4;
theta1a=37;
theta1b=322;
r_a=r1a*r1b
theta_a=theta1a+theta1b
disp(['hasil dari za = 10?37 * 4?322 adalah ',num2str(r_a)]),disp(['sudut ',num2str(theta_a)])
disp('------------------------------------------')
r2a=pi;
r2b=0.5;
theta2a=137;
theta2b=22;
r_b=r2a*r2b
theta_b=theta2a+theta2b
disp(['hasil dari zb = pi?137 * 0.5?22 adalah ',num2str(r_b)]),disp(['sudut ',num2str(theta_b)])
disp('------------------------------------------')
r3a=3*pi;
r3b=5;
theta3a=167;
theta3b=20;
r_c=r3a/r3b
theta_c=theta3a-theta3b
disp(['hasil dari zc = 3(pi)?167 / 5?20 adalah ',num2str(r_c)]),disp(['sudut ',num2str(theta_c)])
disp('------------------------------------------')
r4a=10;
r4b=4;
theta4a=37;
theta4b=322;
r_d=r4a/r4b
theta_d=theta4a-theta4b
disp(['hasil dari zd = 10?37 / 4?322 adalah ',num2str(r_d)]),disp(['sudut ',num2str(theta_d)])

disp ('soal 8,selesaikan operasi bilangan kompleks pada persamaan berikut:')
disp('dik z^2 -(5+i)z+(8+i)=0')
%persamaan ax^2+bx+c, dimana:
a=1; %harga a
b=-(5+1i); %harga b
c=8+1i; %harga c
%Deskripsi dan Perhitungan
%------------------------------
d=b^2-4*a*c; %D=diskriminan
z1=(-b+sqrt(d))/(2*a) %Akar z1
z2=(-b-sqrt(d))/(2*a) %Akar z2
disp('dik z^2- 3z + (3 + i) = 0')
%persamaan ax^2+bx+c, dimana:
a1=1; %harga a
b1=-3; %harga b
c1=3+1i; %harga c
%Deskripsi dan Perhitungan
%------------------------------
d1=b1^2-4*a1*c1; %D=diskriminan
z_1=(-b1+sqrt(d1))/(2*a1) %Akar z1
z_2=(-b1-sqrt(d1))/(2*a1) %Akar z2
disp ('dik C=sqrt(3+i*4)')
disp ('jawab:')
C=sqrt(3+i*4)
disp ('dik D=nthroot(2*i, 8)')
disp ('jawab:')
D=(0+2*i)^(1/8)

disp ('soal 9,Selesaikan operasi bilangan kompleks pada persamaan berikut:')
disp ('A=z1^2-2*z2+(8 + i)')
disp ('B=2*(z1^2) - 3*(z2) + (3 + i )= 0')
disp ('C=sqrt(z1+z2)')
disp ('D=akar pangkat 3 dari(z1*z2)')
disp ('dik :')
z1=3+2*i
z2=2-5*i
disp ('jawab:')
A=z1^2-2*z2+(8 + i)
B=2*(z1^2)-3*(z2)+(3 + i)
C=sqrt(z1+z2)
zd=z1*z2;
D=zd^(1/3)

disp ('soal no 10,Selesaikan operasi bilangan kompleks pada persamaan berikut:')
disp ('A. f(z)=3*(z1)^2 + z1')
disp ('B. f(z)=3*(z2)^2 + z2')
disp ('C. f(z)=3*(z3)^2 + z3')
disp ('D. f(z)=1/2*(z1)^2')
disp ('E. f(z)=1/2*(z2)^2')
disp ('F. f(z)=1/2*(z3)^2')
disp ('G. f(z)=(z1+1)/(z1-1)')
disp ('H. f(z)=(z2+1)/(z2-1)')
disp ('I. f(z)=(z3+1)/(z3-1)')

disp ('dik :')
z1=2+i*5
z2=i*3
z3=-4+i*2
disp ('jawab:')
f_A=3*z1^2+z1
f_B=3*(z2)^2 + z2
f_C=3*(z3)^2 + z3
f_D=1/2*(z1)^2
f_E=1/2*(z2)^2
f_F=1/2*(z3)^2
f_G=(z1+1)/(z1-1)
f_H=(z2+1)/(z2-1)
f_I=(z3+1)/(z3-1)

Read more >>

SOAL BILANGAN KOMPLEK 1

Published : 07.47 Author : Unknown

disp('---------------------');
disp('SOAL 1')
disp('Soal Bilangan Komplek')
disp('dibuat Oleh : Mashudan Kurniawan')
disp('Hari/tanggal: sabtu/13 Okt 2012')
disp('---------------------------------')
%----------------------------------------
disp('soal 1,nyatakan bilangan kompleks pada persamaan berikut:')
disp('a. z1=3+i4')
disp('b. z2=3-i4')
disp('c. z3=-3+i4')
disp('d. z4=-3-i4')
disp('jawab: ')
a=3;
b=4;
z1=complex(a,b)
z2=complex(a,-b)
z3=complex(-a,b)
z4=complex(-a,-b)

disp('soal 2,jika z1 =3 + j4 dan z2 = 8 + j6 hitung operasi aritmetik pada persamaan berikut')
disp('a. za = z1+ z2')
disp('b. zb = z1- z2')
disp('c. zc = z1z2')
disp('d. zd = z1/z2')
disp('dik :')
z1=3+j*4;
z2=8+j*6;
disp('jawab:')
za=z1+z2
zb=z1-z2
zc=z1*z2
zd=z1/z2

disp('soal 3,jika z1 =3 + i4, z2 = 8 + i6 dan z3 = 12 + i13 tentukan')
disp ('a.Real z1')
disp ('b.Real z2')
disp ('c.Real Z3')
disp ('d.ZA=re(z1+z3)')
disp ('e.ZB=im(z1-z2)')
disp ('f.ZC=re(z1*z2)')
disp ('g.ZD=im(z1/z3)')
disp('jawab:')
z1=3+i*4;
z2=8+i*6;
z3=12+i*13;
realZ1=real(z1)
realZ2=real(z2)
realZ3=real(z3)
za=real(z1+z3)
zb=imag(z1-z2)
zc=real(z1*z2)
zd=imag(z1/z3)

RECTANGURAL TO POLAR

disp('soal 4,Nyatakan bilangan kompleks pada persamaan bentuk dalam bentuk kutub :')
disp('z1=1+i*4')
disp('z2=1-i*4')
disp('z3=-1+i*4')
disp('z4=-1-(i*4)')
disp('jawab:')
z1=1+i*4
r1=sqrt((1)^2+(4)^2)
sudut_Z1=atand(imag(z1)/real(z1))
disp('-----------------------------')
z2=1-i*4
r2=sqrt((1)^2+(-4)^2)
sudut_Z2=atand(imag(z2)/real(z2))
disp('-----------------------------')
z3 =-1+i*4
r3=sqrt((-1)^2+(4)^2)
sudut_Z3=atand(imag(z3)/real(z3))
disp('-----------------------------')
z4 =-1-i*4
r4=sqrt((-1)^2+(-4)^2)
sudut_Z4=atand(imag(z4)/real(z4))

POLAR TO RECTANGULAR

disp('soal 5,nyatakan bilangan kompleks pada persamaan bentuk dalam bentuk rectangular berikut: ')
disp('A.dik Z1 = 4 sudut 90derajat')
disp('B.dik Z2 =5 sudut 135derajat' )
disp('C.dik Z3 =pi sudut 45derajat' )
disp('D.dik Z4 =50 sudut 120derajat' )
r1=4;
theta1=90;
r2=5;
theta2=135;
r3=pi;
theta3=45;
r4=50;
theta4=120;
%bentuk rectangular
z1_a=cosd(theta1)*r1;
z1_b=sind(theta1)*r1;
z1=complex(z1_a,z1_b)
z2_a=cosd(theta2)*r2;
z2_b=sind(theta2)*r2;
z2=complex(z2_a,z2_b)
z3_a=cosd(theta3)*r3;
z3_b=sind(theta3)*r3;
z3=complex(z3_a,z3_b)
z4_a=cosd(theta4)*pi;
z4_b=sind(theta4)*pi;
z4=complex(z4_a,z4_b)

Read more >>

TRANSFORMASI BINTANG-DELTA

Published : 07.35 Author : Unknown

clear all
clc
disp('***************************************')
disp(' TRANSFORMASI BINTANG-DELTA ')
disp('***************************************')
disp('1.Transformasi Bintang ke Delta')
disp('2.Transformasi Delta ke Bintang')
disp('3.selesai')
disp('---------------------------------------')
pilih=input('Silahkan pilih pilhan Anda : ');
disp('---------------------------------------')
while pilih ~=3
switch pilih
case 1
disp('Transformasi bintang ke delta')
R1=input('masukan nilai R1(ohm)= ');
R2=input('masukan nilai R2(ohm)= ');
R3=input('masukan nilai R3(ohm)= ');
disp('---------------------------------------')
Ra=((R1*R2)+(R2*R3)+(R3*R1))/R1;
Rb=((R1*R2)+(R2*R3)+(R3*R1))/R2;
Rc=((R1*R2)+(R2*R3)+(R3*R1))/R3;
disp('hasil transformasi bintang ke delta')
disp(['RA adalah = ',num2str(Ra),' ohm'])
disp(['RB adalah = ',num2str(Rb),' ohm'])
disp(['RC adalah = ',num2str(Rc),' ohm'])
disp('***************************************')
pause;
return
disp(' ')
case 2
disp('Transformasi delta ke bintang')
Ra=input('masukan nilai RA(ohm)= ');
Rb=input('masukan nilai RB(ohm)= ');
Rc=input('masukan nilai RC(ohm)= ');
disp('---------------------------------------')
R1=(Rb*Rc)/(Ra+Rb+Rc);
R2=(Ra*Rc)/(Ra+Rb+Rc);
R3=(Ra*Rb)/(Ra+Rb+Rc);
disp('hasil transformasi delta ke bintang')
disp(['R1 adalah = ',num2str(R1),' ohm'])
disp(['R2 adalah = ',num2str(R2),' ohm'])
disp(['R3 adalah = ',num2str(R3),' ohm'])
disp('***************************************')
return
end
end

Read more >>

MEMBUAT MENU PILIHAN PADA MATLAB 2008

Published : 07.31 Author : Unknown

clear all
clc
disp('***************************************')
disp(' MENU PILIHAN ')
disp('***************************************')
disp('Nama = MASHUDAN KURNIAWAN ')
disp('NIM = 0610 3031 0851 ')
disp('Kelas = 5 ELB ')
disp('Hari/Tanggal = Sabtu / 20 Oktober 2012 ')
disp('---------------------------------------')
disp('silahkan pilih soal di bawah ini ')
disp('---------------------------------------')
disp('PILIHAN SOAL');
disp('---------------------------------------')
disp('1. Soal 1')
disp('2. Soal 2')
disp('3. Soal 3')
disp('4. Soal 4')
disp('5. Soal 5')
disp('6. Soal 6')
disp('7. Soal 7')
disp('8. Soal 8')
disp('9. Soal 9')
disp('10. Soal 10')
disp('11. Soal 11')
disp('12. Soal 12')
disp('13. Soal 13')
disp('14. Soal 14')
disp('15. Soal 15')
disp('16. Selesai')
disp('---------------------------------------')
pilih=input('pilihan Anda (1 s/d 15):....');
disp('---------------------------------------')
while pilih ~=4
switch pilih
case 1
disp('soal 1. Dengan menggunakan Matlab,nyatakan bilangan kompleks pada persamaan berikut:')
disp('a. z1=3+i4')
disp('b. z2=3-i4')
disp('c. z3=-3+i4')
disp('d. z4=-3-i4')
disp('jawab: ')
a=3;
b=4;
z1=complex(a,b);
realz1=real(z1);
imagz1=imag(z1);
z2=complex(a,-b);
realz2=real(z2);
imagz2=imag(z2);
z3=complex(-a,b);
realz3=real(z3);
imagz3=imag(z3);
z4=complex(-a,-b);
realz4=real(z4);
imagz4=imag(z4);
disp(['a. Real Z1 = ',num2str(realz1)])
disp(['Imaginer Z1 = ',num2str(imagz1)])
disp(' ')
disp(['b. Real Z2 = ',num2str(realz2)])
disp(['Imaginer Z2 = ',num2str(imagz2)])
disp(' ')
disp(['c. Real Z3 = ',num2str(realz3)])
disp(['Imaginer Z3 = ',num2str(imagz3)])
disp(' ')
disp(['d. Real Z4 = ',num2str(realz4)])
disp(['Imaginer Z4 = ',num2str(imagz4)])
pause;
return
%
case 2
disp('soal 2.Dengan menggunakan Matlab,jika z1 =3 + j4 dan z2 = 8 + j6 hitung operasi aritmetik pada persamaan berikut')
disp('a. za = z1 + z2')
disp('b. zb = z1 - z2')
disp('c. zc = z1*z2')
disp('d. zd = z1/z2')
disp('jawab:')
z1=complex(3,4);
z2=complex(8,6);
za=z1+z2;
zb=z1-z2;
zc=z1*z2;
zd=z1/z2;
disp(['Penjumlahan dari : z1 + z2 = ',num2str(za)])
disp(' ')
disp(['Pengurangan dari : z1 - z2 = ',num2str(zb)])
disp(' ')
disp(['Perkalian dari : z1 * z2 = ',num2str(zc)])
disp(' ')
disp(['Pembagian dari : z1 / z2 = ',num2str(zd)])
return
%
case 3
disp('soal 3.Dengan menggunakan Matlab,jika z1 =3 + i4, z2 = 8 + i6 dan z3 = 12 + i13 tentukan:')
disp ('a.Real z1')
disp ('b.Real z2')
disp ('c.Real Z3')
disp ('d.ZA=re(z1+z3)')
disp ('e.ZB=im(z1-z2)')
disp ('f.ZC=re(z1*z2)')
disp ('g.ZD=im(z1/z3)')
disp('jawab:')
z1=complex(3,4);
z2=complex(8,6);
z3=complex(12,13);
realZ1=real(z1)
realZ2=real(z2)
realZ3=real(z3)
za=real(z1+z3)
zb=imag(z1-z2)
zc=real(z1*z2)
zd=imag(z1/z3)
return
end
end

Read more >>

BEBERAPA PROGRAM MATLAB

Published : 07.27 Author : Unknown

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('************************************************************************')

Read more >>

Program Penyelesaian persamaan kuadrat (ABC)

Published : 07.05 Author : Unknown

disp('---------------------');
disp('Program Penyelesaian persamaan kuadrat (ABC)')
disp('dibuat Oleh : Mashudan Kurniawan')
disp('Hari/tanggal: sabtu/10 Okt 2012')
%-------------------------
%persamaan ax^2+bx+c, dimana:
a=1 %harga a
b=-5 %harga b
c=1 %harga c
%Deskripsi dan Perhitungan
%------------------------------
d=b^2-4*a*c %D=diskriminan
x1=(-b+sqrt(d))/(2*a) %Akar x1
x2=(-b-sqrt(d))/(2*a) %Akar x2

MENU INPUT

disp('---------------------');
disp('Program Penyelesaian persamaan kuadrat (ABC)')
disp('dibuat Oleh : Mashudan Kurniawan')
disp('Hari/tanggal: sabtu/10 Okt 2012')
disp('---------------------------------')
%-------------------------
%persamaan ax^2+bx+c, dimana:
a=input('masukan nilai a =.....?') %harga a
b=input('masukan nilai b =.....?') %harga b
c=input('masukan nilai c =.....?') %harga c
%Deskripsi dan Perhitungan
%------------------------------
d=b^2-4*a*c %D=diskriminan
x1=(-b+sqrt(d))/(2*a) %Akar x1
x2=(-b-sqrt(d))/(2*a) %Akar x2

Read more >>

MEMBUAT MENU PILIHAN DENGAN MATLAB

Published : 06.59 Author : Unknown

clear all
clc
disp ('***************************************************************')
disp (' PENYELESAIAN SOAL TRANSMISI ')
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,20 NOVEMBER 2012 ')
disp ('---------------------------------------------------------------')
disp ('silahkan pilih penyelesaian soal di bawah ini ')
disp ('---------------------------------------------------------------')
disp ('PILIHAN')
disp ('---------------------------------------------------------------')
disp ('1. soal 1')
disp ('2. soal 2')
disp ('3. soal 3')
disp ('4. selesai')
disp ('---------------------------------------------------------------')
pilih=input('masukkan pilihan Anda = ');
disp ('---------------------------------------------------------------')
while pilih ~=3
switch pilih
case 1
disp('SOAL 1')
disp('Suatu saluran transmisi fasa tiga,50 km,70 KV,mempunyai konstanta:')
disp('R=0,20 ohm per km;X=0,608 ohm per km; Y=j4,0 X 10^-6 mho per km.')
disp('Saluran transmisi tersebut mensuplai beban 30 MW dan faktor daya pf=0,9 terbelakang')
disp('Tegangan pada ujung beban 70 KV.Hitunglah:')
disp('a.tegangan pada ujung kirim ')
disp('b.daya pada ujung kirim')
disp('c.efisiensi transmisi')
disp('d.pengaturan tegangan')
disp('Penyelesaian')
disp(' ')
disp('Is = IR = I ')
disp('VS = VR + IZ')
Pr=30;
V=70;
VR=(V/sqrt(3))*(1000);
disp(['PR = ',num2str(Pr),(' MW'),' ;pf = 0,9 terbelakang'])
disp(' __')
disp('VR = 70 KV(L-L)= 70 / /3 KV (L-N) ')
disp([' = ',num2str(VR),' Volt(L-N)'])
S=50;
R=0.2;
X=0.608;
Y=(j*4)*1e-6;
PR=30000;
pf=0.9;
%jawab:
%Soal a
disp(' ')
disp('a. Karena panjang saluran 50 km,jadi ini adalah saluran pendek')
%
IR=(Pr)*(1000)/(sqrt(3)*(V)*(pf));
sudutIR=acosd(pf);
%
z=complex(R,X)*50;
Z=sqrt(real(z)^2+imag(z)^2);
sudutZ=atand(imag(z)/real(z));
%
IZ=(IR*Z);
sudutIZ=(sudutZ-sudutIR);
z1=complex(IZ*cosd(sudutIZ),IZ*sind(sudutIZ));
VS=VR+real(z1);
image_z1=imag(z1);
z2=complex(VS,image_z1);
Vs=(sqrt(real(z2)^2+imag(z2)^2))/1000;
sudut_VS=atand(imag(z2)/real(z2));
disp ([' Vs=',num2str(Vs),(' /__ '),num2str(sudut_VS),(' KV(L-N)')]);
disp (' atau')
VS=((sqrt(real(z2)^2+imag(z2)^2))/1000)*(sqrt(3));
disp ([' |Vs|=',num2str(VS),(' KV(L-L)')]);
disp ([' Jadi Tegangan pada ujung kirim(Vs)=',num2str(VS),(' KV(L-L)')]);
disp (' ')
%Soal B
teta_s=(sudut_VS)+sudutIR;
Ps=((sqrt(3))*(VS)*(IR)*(cosd(teta_s)))/(1000);
disp (['(B)Daya pada ujung kirim(Ps)=',num2str(Ps),(' MW')]);
disp (' ')
%Soal C
Eff=(Pr/Ps)*100;
disp (['(C)Efisiensi Transmisi (Eff)=',num2str(Eff),('%')]);
disp (' ')
%Soal D
VRF=((VS-V)/(V))*(100);
disp (['(D)Pengaturan Tegangan VR(%)=',num2str(VRF),('%')]);
pause;
return
%
case 2
disp('Soal No 2')
disp('Suatu saluran transmisi fasa tiga, 200 km, 220 KV. Konstanta')
disp('Kawat:Z=0,64 sudut71,8 ohm/km; Y=4e-6 sudut90 mho.km.Saluran')
disp('Transmisi di atas menyalurkan daya sebesar 100 MW dan pf=1,0')
disp('Pada ujung beban.Tegangan pada ujung beban 220KV.dengan meng-')
disp('Gunakan representasi nominal PI')
disp('Tentukanlah:')
disp('a.Tegangan dan arus pada ujung kirim')
disp('b.Efisiensi Transmisi')
disp('c.Pengaturan Tegangan')
disp('Penyelesaian')
%dik:
Pr=100;
pf=1;
y=4e-6;
sudut_y=90;
V=220;
s=200;
z=0.64;
sudut_z=71.8;
%Jawab
IR=(Pr)*(1000)/(sqrt(3)*V);
sudutIR=atand(pf);
VR=V/sqrt(3);
Z=z*s;
Y=s*y;
zy_2=(Z)*(Y/2);
sudutzy=sudut_y+sudut_z;
a=complex(zy_2*cosd(sudutzy),zy_2*sind(sudutzy));
b=1+real(a);
zy2=sqrt((b)^2+imag(a)^2);
sudut_zy2=atand(imag(a)/real(b));
zy_4=(Z)*(Y/4);
c=complex(zy_4*cosd(sudutzy),zy_4*sind(sudutzy));
d=1+real(c);
zy4=sqrt((d)^2+imag(c)^2);
sudut_zy4=atand(imag(c)/real(d));
%Tegangan pada ujung kirim
VS1=(zy2)*(VR*1000);
VS2=(Z)*(IR);
z1=complex(VS2*cosd(sudut_z),VS2*sind(sudut_z))+complex(VS1*cosd(sudut_zy2),VS1*sind(sudut_zy2));
VS=((sqrt(real(z1)^2+imag(z1)^2))*sqrt(3))/1000;
sudut_VS=atand(imag(z1)/real(z1));
disp (['(A)Tegangan pada ujung kirim(Vs)=',num2str(VS),(' sudut'),num2str(sudut_VS),(' KV(L-L)')]);
%Arus pada ujung kirim
IS1=zy4*Y*(VR*1000);
IS2=zy2*IR;
sudut_IS1=sudut_y+sudut_zy4;
z2=complex(IS1*cosd(sudut_IS1),IS1*sind(sudut_IS1))+complex(IS2*cosd(sudut_zy2),IS2*sind(sudut_zy2));
IS=sqrt(real(z2)^2+imag(z2)^2);
sudut_IS=atand(imag(z2)/real(z2));
disp ([' Daya pada ujung kirim (Ps)=',num2str(IS),(' sudut'),num2str(sudut_IS),(' Ampere')]);
teta_S=sudut_VS-sudut_IS;
Ps=(3*(sqrt(real(z1)^2+imag(z1)^2))/1000*IS*cosd(teta_S))/1000;
disp (' ')
%Efisiensi transmisi
Eff=(Pr/Ps)*100;
disp (['(B)Efisiensi Transmisi (Eff)=',num2str(Eff),('%')]);
disp (' ')
%Pengaturan Tegangan
VR_NL=((sqrt(real(z1)^2+imag(z1)^2))/1000)/zy2;
VRF=((VR_NL-VR)/(VR))*100;
disp (['(C)Pengaturan Tegangan VR(%)=',num2str(VRF),('%')]);
pause;
return
%
case 3
disp('Soal 3')
disp('Penentuan besar beban pada rugi-rugi tertentu. Tentukanlah jumlah')
disp('Daya pada ujung beban, bila faktor daya beban cos teta_R , yang')
disp('Dapat ditransmisikan melalui saluran pendek dengan tegangan ujung')
disp('Kirim Vs dan rugi-rugi transmisi yang diijinkan L?')
disp('Jawab:')
%SOAL A
%dik:
l=20;
z=complex(0.263,0.765);
cos_teta=0.906;
teta_R=-25;
teta=acosd(cos_teta);
Vs_LL=30;
Vs_LN=19;
%jawab:
Zr=(100*real(z)*l)/(10*cos_teta);
a=19000+j*0;
b=0.808+j*0;
c=complex(20*cosd(71),20*sind(71));
d=complex(58.1*cosd(25),58.1*sind(25));
e=1+j*0;
z=a/((b*c/d)+1);
f=complex(real(z),imag(z));
Vr=(sqrt(real(f)^2+imag(f)^2))/1000;
sudut_Vr=atand(imag(f)/real(f));
Ir=(Vr*1000)/Zr;
%jadi
Pr_fasa=((Vr*Ir)*cosd(-25));
Pr_3fasa=((Vr*Ir)*cosd(-25))*3;
teta_S=teta_R+sudut_Vr;
Ps_fasa=(Vs_LN*Ir)*cosd(teta_S);
Ps_3fasa=(Vs_LN*Ir)*cosd(teta_S)*3;
eff=Pr_fasa/Ps_fasa;
rugi_rugi=Ps_fasa-Pr_fasa;
Vr_persen=((Vs_LN-Vr)/Vr)*100;
disp(['(A)Tegangan Pada Ujung Beban(Vr)=',num2str(Vr),(' KV(L-L)')]);
disp([' Daya Pada Ujung Beban(Pr) =',num2str(Pr_3fasa),(' KW/3fasa')]);
disp([' Daya Pada Ujung kirim(Ps) =',num2str(Ps_3fasa),(' KW/3fasa')]);
disp([' Efisiensi =',num2str(eff),]);
disp([' Rugi-rugi =',num2str(rugi_rugi),(' KW/fasa')]);
disp([' Pengaturan Tegangan VR(%) =',num2str(Vr_persen),(' %')]);
%SOAL B
Y=((5.58)*(10^4));
thet=90;
disp('Y=5.58*10^4/__90 ')
Vs=66;
disp(['VS = ',num2str(Vs),'KV (L-L)'])
Zr=(100*0.263*100)/(15*cos_teta);
sudutZr=25;
Zr1=200;
disp(['ZR = ',num2str(Zr),' /__25 ohm'])
Zs=40.4;
sudutZs=71;
disp(['ZS = ',num2str(Zs),' /__71 ohm'])
Vs_a=(66/sqrt(3));
a1=1;
r1=40.4;
theta1=71;
z1_a=cosd(theta1)*r1;
z1_b=sind(theta1)*r1;
z1=complex(z1_a,z1_b)
%
z2_a=cosd(thet)*Y;
z2_b=sind(thet)*Y;
z2=complex(z2_a,z2_b)
brew=((a1)+(z1)+(z2));
bre=(brew/4);
br=brew+bre;
%
r3=80.8;
tet=71
z3_a=cosd(tet)*r3;
z3_b=sind(tet)*r3;
z3=complex(z3_a,z3_b)
%

z4_a=cosd(sudutZr)*Zr1;
z4_b=sind(sudutZr)*Zr1;
z4=complex(z4_a,z4_b)
%
bro=(z3/z4);
%
Has=(Vs_a)/(br);
hasil=(Has*bro);
%
IR=sqrt((real(hasil))^2+(imag(hasil)^2))
sudut_Z1=atand(imag(hasil)/real(hasil))

pause;
return
end
end

Read more >>

VEKTOR DAN MATRIK DENGAN MATLAB

Published : 06.19 Author : Unknown

VEKTOR DAN MATRIK DENGAN MATLAB

1. FORMAT DATA

Dalam matlab dikenal dua jenis format data yaitu vektor dan matrik. Vektor atau matrik di definisikan dengan tanda kurung siku “ [ ] “untuk memisahkan kolom digunakan tanda koma ” , ” atau spasi tanda “ ; ” digunakan untuk memisahkan baris.

a. Vektor

Vektor adalah sekelompok bilangan yang tersusun atas satu dimensi, dimensi ini bisa berupa baris atau kolom.

Contoh vektor baris:

>>a = [1,2,3]

a =

1 2 3

>> b = [1 2 3]

b =

1 2 3

Contoh vektor kolom:

>> a = [1;2;3]

a =

Untuk mendefinisikan suatu vektor dengan jumlah elemen yang banyak tetapi memiliki interval yang teratur digunakan operator ” : “

>> a = 1:10

a =

1 2 3 4 5 6 7 8 9 10

Untuk membuat suatu vektor baris dengan interval 2 sebagai contoh berikut:

>> a = 1:2:10

a =

1 3 5 7 9

2. MATRIK

Matrik adalah sekelompok bilangan yang tersusun dalam segi empat dua dimensi,matrik bisa matrik bujur sangkar dan matrik segiempat.

a. Menginputkan matrik

Ada empat cara untuk menginputkan matrik

Cara 1:

>> a=[1 2 3;4 5 6;7 8 9]

Cara 2:

>> a=[1 2 3

5 5 6

7 8 9]

Cara 3:

>> a1=[1 2 3];

>> a2=[4 5 6];

>> a3=[7 8 9];

>> a=[a1;a2;a3];

>> a

Cara 4:

>> a=input('masukan matrik= ');

masukan matrik= [1 2 3;4 5 6;7 8 9]

>> disp(a)

3. Perkalian Matrik

1. Perkalian Skalar

Untuk mengalikan satu matrik dengan bilangan tunggal (skalar) masing-masing elemen matrik harus dikalikan dengan faktor tersebut.

Contoh:

>> a = 4

a =

>> b = [3 2 5;6 1 7]

b =

3 2 5

6 1 7

>> c = a*b

c =

12 8 20

24 4 28

2. Perkalian Dua Matrik

Dua matrik dapat dikalikan satu sama lain apabila jumlah kolom dalam matrik pertama sama dengan jumlah baris matrik kedua.

Contoh:

>> a=[1 2 3;4 5 6;7 8 0]

a =

1 2 3

4 5 6

7 8 0

>> b=[366;804;351]

b =

366

804

351

>> det(a)

ans =

>> inv(a)

ans =

-1.7778 0.8889 -0.1111

1.5556 -0.7778 0.2222

-0.1111 0.2222 -0.1111

Penyelasaian dengan statement inv

Cara 1:

>> x=inv(a)*b

x =

25.0000

22.0000

99.0000

Cara 2:

>> x=a\b

x =

25.0000

22.0000

99.0000

Cara 3:

>> [L,U]=lu(a)

L =

0.1429 1.0000 0

0.5714 0.5000 1.0000

1.0000 0 0

U =

7.0000 8.0000 0

0 0.8571 3.0000

0 0 4.5000

>> x=inv(U)*inv(L)*b

x =

25.0000

22.0000

99.0000

Cara lain:

>> ABC = [6 -3 4;12 5 -7;-6 2 6]

ABC =

6 -3 4

12 5 -7

-6 2 6

>> K=[41;-26;14]

K =

-26

>> xyz=inv(ABC)*K

xyz =

2.0035

-2.6842

5.2316

MODIFIKASI MATRIK

Kita dapat mengganti elemen dari matrik yang telah didefinisikan hal ini dapat berguna apabila kita bekerja dengan matrik yang sangat besar. Kemudian kita ingin mengganti eleman matrik pada baris dua kolom tiga dengan angka 10.

>> d=[1 2 3;4 5 6]

d =

1 2 3

4 5 6

>> d(2,3)=10

d =

1 2 3

4 5 10

TRANSPOSE MATRIK

Transpose matrik merupakan salah satu operasi penting dalam matrik, dengan mengetik tanda kutip tunggal “ ‘ “ bisa digunakan untuk mengubah bentuk elemen baris menjadi kolom.

>> d

d =

0 5 3

4 5 10

>> d'

ans =

0 4

5 5

3 10

BILANGAN KOMPLEK

Bilangan komplek adalah suatu bilangan yang terdiri dari atas dua suku yang terpisah sering ditulis sebagai:

z=a+jb

dimana:

a=bilangan real dari z

b=bilangan imajiner dari z

bilangan imajiner sering ditulis juga Me^jᶿ

dimana:

M adalah magnitude, M=

0 adalah sudut, =tan^-1(b/a)

BENTUK POLAR SUATU BIL. KOMPLEKS

Contoh:

>> z

z =

3.0000 + 4.0000i

>> abs(z)

ans =

>> angle(z)

ans =

0.9273

>> real(z)

ans =

>> imag(z)

ans =

>> conj(z)

ans =

3.0000 - 4.0000i

Read more >>

Teknik Pengoperasian kubikel 20 KV

Published : 05.46 Author : Unknown

Penamaan Kubikel 20 KV

Disebut kubikel karena peralatan-peralatan tersebut di kemas plat blok berbentuk almari dengan pintu di bagian yang bisa dibuka dan ditutup menurut standar operasi yang diminta.

Dikatakan kubikel 20 KV atau switchgear 20 KV, karena peralatan tersebut bekerja pada tegangan nominal fasa-fasa 20 KV, yang termasuk kategori teganga menengah (> 1 KV hingga 35 KV) dan kubikel 20 KV banyak digunakan di lapangan.

Teknik Pengoperasian kubikel 20 KV

Penyaluran daya

Sumber tegangan menengah yang mensuplai kubikel 20 KV di laboratorium mekanik teknik listrik diperoleh dari transformator step-up (380 V/20 KV). Daya listrik yang disalurkan dari panel hubung bagi sentral politeknik sebesar 380 V masuk ke box panel PMS (pemisah). Dari panel PMS ini keluarannya masuk ke ...(380 V) dari transformator step-up, yang sekundernya (tegangan 20 KV) dimasukkan ke incoming pada kubikel.

Keluaran kubikel (outgoing) dihubungkan ke transformator step-down (20 KV/380 V), yang selanjutnya akan digunakan ke beban-beban melalui keluaran tegangan rendah transformator step-down atau tegangan menengah langsung dari keluaran kubikel.

Bagian-bagian utama kubikel 20 KV

Bagian-bagian utama alat ini terbagi 3 yaitu:

Incoming, Metering dan Outgoing. Masing-masing bagian memiliki kontak DS (Disconecting switch) da bagian kontak pentanahan (grounding).

Incoming

Incoming adalah tempat masuknya tegangan dari sumber sebesar 20 KV yang mana pada incoming trsebut terdapat 3 buah lampu indikator neon (R,S,T) yang akan menyala apabila tegangan dari luar masuk ke incoming.

Pada incoming juga terdapat 3 buah trafo arus yangkan digunakan oleh KWH meter pada incoming dengan kode P7 untuk mengukur daya yang dikeluarkan . Pada beberapa kubikel terdapat jenis pemasangan transformator arus (CT) yaitu:

1. Current Transformator Double Secondary

2. Current Transformator Single Secondary

Selain itu pada incoming juga terdapat heater (pemanas) yang berfungsi untuk memanaskan ruang atau kompartemen pada kubikel sehingga tidak lembab dan dapat menghindari terjadinya percikan bunga api.

Metering

Metering adalah suatu bagian dari kubikel yang memiliki kemampuan pengukuran besarn-besarn listrik. Pada metering terdapat alat-alat ukur pengukuran seperti voltmeter,amperemeter,dan KV meter. Pada metering terdapat fuse-fuse pengaman sebanyak 3 buah buatan merlin gerin dengan data fuse HV 20 KV;6,3 A; W/O Striker. Tepat di bawah fuse-fuse ini terdapat 3 buah transformator tegangan yang menurunkan tegangan dari 20 KV menjadi 100 V AC yang akan digunakan oleh alat-alat ukur seperti kv meter dan amperemeter serta voltmeter. Selain fuse-fuse juaga terdapat MCB 3 fasa yang akan mengamankan hubungan ke material-material pengukuran.

Outgoing

Outgoing berfungsi sebagai tempat keluarnya tegangan menengah setelah melalui incoming dan metering. Ougoing memiliki kompartemen yang paling besar dimana pada kompartemen bagian atas terdapat kontak grounding dan juga terdapat kontak disconecting switch DS. Pada bagian atas juga terdapat 2 buah kunci dan satu kunci lagi pada bagian bawah kompartemen.

Kunci-kunci bekerja secara interlock dangan tipe kunci 50. Keterangan mengenai ketiga kunci itu antara lain:

1. Missing key

2. Free key

3. Described key

Pada bagian bawah terdapat tuas yang akan menekan pegas yang ada di dalamnya. Selain menggunakan pegas juga bisa dilakukan otomatis dengan motorized.

Bagian-bagian kubikel

Read more >>

Laman