path: root/620/CH20/EX20.11/example20_11.sce

l=200*10^(-6);
f=1.5*10^6;
r=100;
q=2*%pi*f*l/r;
disp("the quality of the coil is"); disp(q);