1109/CH8/EX8.1/8_1.sce


1
2
3
4
5
6
7
8

clear;
clc;
K=0.5*exp(%i*(30)/(180/%pi));
Zo=100;
Zl=Zo*(1+K)/(1-K);
A=real(Zl);
B=imag(Zl);
printf("Load impedance = %f /_ %f ohms",fix(abs(Zl)),round(atan(B,A)*180/%pi));