Dim Float VOffLoad,VOnload,VDelta,IOnLoad,RInternal Input "Enter Off-Load Voltage: ",VOffLoad Input "Enter On-Load Voltage: ",VOnLoad Input "Enter On-Load Current (A): ",IOnLoad VDelta=VOffLoad-VOnload Print "On-load Voltage drop is: ";VDelta;"V" RInternal=VDelta/IOnLoad Print "Cell Internal Resistance is (Ohms): ";RInternal Print "Cell Power Dissipation is (Watts): ";(IOnLoad^2)*RInternal
> RUNEnter Off-Load Voltage: 3.232Enter On-Load Voltage: 0.6Enter On-Load Current (A): 0.000059On-load Voltage drop is: 2.632VCell Internal Resistance is (Ohms): 44610.2Cell Power Dissipation is (Watts): 0.000155288>