//caption:Find equivalant current source
//Ex5.4
clc
clear
close
Vs=5//source voltage(in V)
Rs=1//source resistance(in ohm)
I=Vs/Rs
disp(I,'equivalant current source(in A)=')