// Example 7.5.a //photocurrent
clc;
clear;
close;
R=0.85;//in AW^-1
pi=1.5;//in mW
po=1;//in mW
ip=po*R;//in mA
disp(ip,"photocurrent in mA is")