path: root/3428/CH23/EX14.23.15/Ex14_23_15.sce

//Section-14,Example-1,Page no.-PC.111
//To estimate fraction of Morphine protonated.
clc;
K_b=1.6*10^-6
B=0.010
F_pro=sqrt(K_b/B)
disp(F_pro,'Fraction of Morphine protonated')