{NotebookFileName[],DateString[]}

{"/Volumes/Scratch/OneDrive/courses/MATH127/Avery/DApplications2/dapplications2.nb","Fri 27 Oct 2017 07:51:16"}

Oocyte electrical problem

Numbers from Kado, Marcher, Ozon (1981) Dev Biol 84(2):471-6

Rm=Quantity[1.86, "Megaohms"];
Vm=Quantity[-49, "Millivolts"];
Cmr=Quantity[11.9,(("Microfarads")/(("Centimeters")^2))]

Assume diameter of 1 mm

d=Quantity[1,"Millimeters"];
r=(d/2);
a=4π (r^2);
Cm=a Cmr

Ii=Quantity[10, "Nanoamperes"]

UnitConvert[Ii*Rm,"Millivolts"]

UnitConvert[Vm*Cm,"Nanocoulombs"]

Clear[qp1];
qp1[
q_,
i_:Ii
]:=
UnitConvert/@(i-(q/(Rm Cm))-(Vm/Rm));
qp1[q]

Solve[qp1[q]==0,q]

UnitConvert[(q/Cm),"Volts"]/.Solve[qp1[q]==0,q][[1]]

Solve[qp1[q,0]==0,q]

UnitConvert[Rm Cm]

UnitConvert[(1/(Rm Cm))]

UnitConvert[Ii Rm,"Millivolts"]

UnitConvert[Rm Cm Ii,"Coulombs"]

UnitConvert[Rm Ii,"Millivolts"]