DC circuits {renpow}

DC circuits and power calculations

Description

Calculates and plots DC V-I response as well as transient response

Usage

resistor(V,R)
ivplane(x, x0 = FALSE, y0 = FALSE)
diode(V)
vsource(Voc,Rs)
isource(Isc,Rp)
PVcell(x.PVcell)
PVcell.plot(y.PVcell)
eff.pow(x.eff.pow)
transient(ys, tau, ylabel, yslabel)
fuel.cell(x.fcell)

Arguments

V

Voltage

R

Resistance

x

Result of function resistor, diode, vsource, or isource

x0

Logical argument to plot2axis

y0

Logical argument to plot2axis

Voc

Open circuit voltage

Rs

Series resistance

Isc

Short circuit current

Rp

Parallel resistance

x.PVcell

list(I0.A, Isc.A, Area, Rs, Rp, Light)

y.PVcell

output of PVcell

x.eff.pow

list(Rth,Voc)

ys

Source for transient calculation

tau

Time constant

ylabel

y axis label for transient plots

yslabel

Source label for transient plots

x.fcell

list(area.cm2,Rload.ohm)

Details

Object x contains all the calculated values which can be passed to function ivplane to plot the graphs.

Value

V

Voltage

I

Current

P

Power

txt

labels

Light

Light levels from PVcell

Note

Functions used in Chapter 3 and Chapter 5 of Acevedo (2018)

Author(s)

Miguel F. Acevedo [e-mail]

References

Acevedo, M.F. 2018. Introduction to Renewable Electric Power Systems and the Environment with R. Boca Raton, FL: CRC Press. (ISBN 9781138197343)

Irwin, J.D. and R.M. Nelms. 2011. Basic Engineering Circuit Analysis. 11th edition. 2011: Wiley.

Examples

# from Chapter 3
# resistors
V <- seq(-0.2,1,0.01) # volts
x <- resistor(V,R=1)
ivplane(x)

# diode
V <- seq(-0.1,0.6,0.01) # volts
x <- diode(V)
ivplane(x)

# voltage source
x <- vsource(Voc=24,Rs=1)
ivplane(x)
# current source
x <- isource(Isc=20,Rp=1)
ivplane(x)

# PV cell
x <- list(I0.A=1, Isc.A=40, Area=100, Rs=0.05, Rp=1, Light=1) 
# units: I0.A pA/cm2 Isc.A mA/cm2 Area cm2 Rs  ohm Rp  ohm
X <- PVcell(x)
ivplane(X,x0=TRUE,y0=TRUE)

# efficiency of power transfer
x <- list(Rth=1,Voc=24)
eff.pow(x)

# from Chapter 5
# RC circuit transient
R=0.2;C=1 # Mohm and uF
transient(ys=12,tau=R*C,ylabel="Vc(t) [V]",yslabel="Vs [V]") 

# RL circuit transient
R=20;L=1; # kohm and mH
transient(ys=12/R,tau=L/R,ylabel="iL(t) [A]",yslabel="Vs/R [V]") 

# Chapter 6 fuel cells
x <- list(area.cm2=15,Rload.ohm=NA)
fuel.cell(x)
x <- list(area.cm2=15,Rload.ohm=0.5)
fuel.cell(x)