//example 9.3(a)//
clc
clear
V=0.1*13/100.1;
X=0.1*(-13)/100.1;
disp('V(UT)=')
disp(V)
disp('V(LT)=')
disp(X)