TRANSFORMASI BINTANG-DELTA

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