Surface and bulk passivation of multicrystalline silicon solar cells by ...

98
if Qo (i) < qmin then qmin = Qo (i) : smin = i
next i
Us = (ns (smin) * ps (smin) - ni * ni) * with * LINT (smin)
Se = Us / deltan
print using #. ## ## #.###^^^^ #.####^^^^ #.####^^^^
n, m, phis (smin) , exp (qmin * log (10)) , Us, Se
print #1, using #.
n, m, phis (smin) , exp (qmin * log (10)) , Us, Se
write #2, n * 10 ^ m, phis(smin), exp(qmin * log(10)), Us, Se
next n
print
print #1, ""
next m
close 1, 2
end
function nt (E)
return ni * exp(beta * (Ε - Ε Ι ))
end function
function pt (E)
return ni * exp (-beta * (Ε - ΕΙ) )
end function
function Lx (smin, E)
tp1 = (ns (smin) + nt (E)) / mup
tp2 = (ps (smin) + pt (E)) / run
return Dit / (tp1 + tp2)
end function
function LINT(smin)
nmax = (dΕ2 - dE1) / TOL
iterl = Lx (smin, dE1)
iter2 = Lx (smin, dΕ2)