path: root/3630/CH8/EX8.12/Ex8_12.sce

clc;
ApdB=50;
Ap=10^(ApdB/10);
Pin=0.001; //watt
Pout=Pin*Ap; //watt
disp('W',Pout,"Pout=");