//caption:Find equivalant voltage source of the ac current source
//Ex5.3
clc
clear
close
Is=1//current value(in A)
Zs=100//source impedance(in ohm)
Veq=Is*Zs
disp(Veq,'equivalant voltage source of the ac current source(in V)=')