clc;
close();
clear();
//page no 624
//prob no. 20.4
eta=.8;    //efficiency 
lembda=850;  //nm
R=eta*lembda/1234;    //  A/W
mprintf('The responsivity of diode is R= %.2f  A/W',R);