//Ex8_4
clc
Ir=10*10^(-3)
disp("Ir = "+string(Ir)+" ampere/lumen of radiant energy ") //photodiode Reverse saturation current for constant reverse bias VR
RF=10*10^(3)
disp("RF= "+string(RF)+ " ohm")  //Feedback resistance
E=1*10^(-2)
disp("E = "+string(E)+" lumens")//  radiant energy
IR=Ir*E
disp("IR =Ir*E= "+string(IR)+" ampere") // Reverse saturation current
Vo=IR*RF
disp("Vo=IR*RF= "+string(Vo)+" volts") //  output voltage
s=E/Vo
disp("scale factor=E/Vo= "+string(E)+" lumens/V") //  Scale factor of photometer