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

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

archives.njit.edu
from archives.njit.edu More from this publisher
20.04.2014 Views

101 input "output file name {XXXXXX} : fl$ open fl$ + ".txt" for append as #1 open fl$ + ".prn" for output as #2 print print #1, "" input "delta_n 10 ^ x range {low, high} : "; ml, m2 print #1, using "delta n 10x range : ## ##"; ml, m2 print print #1, "" input "Qf, Dit, with {x. xxxxeyy} : "; Qf, Dit, with print #.####^^^^ #1, using #.####^^^^ "Qf Dit with : #.####^^^^"; Qf, Dit, with print print #1, "" Qf =Qf* q input "Na, sigman, sigmap {x. xxxxeyy} : "; Nac, mun, mup: Ndc = 0 print #.####^^^^ #1, using #.####^^^^ "Nac num nup : #. ####^ ^ " ; Nac, mun, mup print print #1, "" PO = Nac no=ni * ni / p0 input "stepsize, fine-tune {x.xxxx} : "; stepsize, ft print #1, using "stepsize fine-tune : #.####^^^^ #.##"; stepsize, ft print print #1, "" print print #1, "" print "" print #1, "", time$, date$ print print #1, "" print " n.nn * 10^mm phis Qoverall Us Se" print #1, " n.nn * 10 ^ mm phis Qoverall Us Se" print

102 print #1, " for m = ml to m2 for η = 1 to (10 - ft) step ft deltan = η * 10 ^ m nd = no + deltan pd = p0 + deltan phin = -ΕΙ - 1 / beta * log(nd / nl) phip = -ΕΙ + 1 / beta * log(pd / ni) for i = 0 to (1 / stepsize) phis (ί) = 0 + stepsize * i Ε(ί) = .55 + 1.1 * stepsize * i ns (ί) = ni * exp (beta * (phis (ί) - phin)) ps (ί) = ni * exp (-beta * (phis (ί) - phip) ) next i for i = 0 to (1 / stepsize) for j = 0 to (1 / stepsize) fa(i, j) = (100 * ns(i) + pt(E(j))) / (100 * (ns(i) + nt(E(j))) + (ps(i) + pt(E(j)))) fd(i, j) = (100 * nt(E(j)) + ps(i)) / (100 * (ns(i) + nt(E(j))) + (ps(i) + pt(E(j)))) next j neXt i for i = 0 to (1 / stepsize) Α (ί) = 0 Β (ί) = 0 for j = 0 to (1 / stepsize) Α (ί) = Α (ί) + fa (ί, j) * 1. 1 * stepsize Β (ί) = Β (ί) + fd (ί, j) * 1. 1 * stepsize next j next ί for i = 0 to (1 / stepsize) Qit (ί) _ -q * Dit * (Α (ί) - Β (ί) )

101<br />

input "output file name {XXXXXX} : fl$<br />

open fl$ + ".txt" for append as #1<br />

open fl$ + ".prn" for output as #2<br />

print<br />

print #1, ""<br />

input "delta_n 10 ^ x range {low, high} : "; ml, m2<br />

print #1, using "delta n 10x range : ## ##"; ml, m2<br />

print<br />

print #1, ""<br />

input "Qf, Dit, with {x. xxxxeyy} : "; Qf, Dit, with<br />

print #.####^^^^ #1, using #.####^^^^<br />

"Qf Dit with :<br />

#.####^^^^"; Qf, Dit, with<br />

print<br />

print #1, ""<br />

Qf =Qf* q<br />

input "Na, sigman, sigmap {x. xxxxeyy} : "; Nac, mun, mup: Ndc = 0<br />

print #.####^^^^ #1, using #.####^^^^ "Nac num nup :<br />

#. ####^ ^ " ; Nac, mun, mup<br />

print<br />

print #1, ""<br />

PO = Nac<br />

no=ni * ni / p0<br />

input "stepsize, fine-tune {x.xxxx} : "; stepsize, ft<br />

print #1, using "stepsize fine-tune : #.####^^^^ #.##";<br />

stepsize, ft<br />

print<br />

print #1, ""<br />

print<br />

print #1, ""<br />

print ""<br />

print #1, "", time$, date$<br />

print<br />

print #1, ""<br />

print " n.nn * 10^mm phis Qoverall Us Se"<br />

print #1, " n.nn * 10 ^ mm phis Qoverall Us Se"<br />

print

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!