DIRECTORY
Atom USING [PutPropOnList],
IO USING [PutFR, PutR, real, rope],
Rope USING [ROPE, Length, Substr],
RealFns USING [Exp, SqRt],
spGlobals USING [argList, EnterModels, makeStringNB, model, Retreat],
spGlobalsExtras USING [CombineInstancesProc, IsUsefulProc];

spModels: CEDAR PROGRAM
IMPORTS Atom, IO, RealFns, Rope, spGlobals
EXPORTS spGlobals=

BEGIN

modelError: SIGNAL[s: Rope.ROPE]= CODE;

NFET: spGlobals.model= {
VgX: NAT= 0;
VsX: NAT= 1;
VdX: NAT= 2;
VbX: NAT= 3;

VtX: NAT= 0;
hKp: NAT= 1;
Phi2: NAT= 2;
Phi2fb: NAT= 3;
Kb: NAT= 4;
ftKb: NAT= 5;
hKbsq: NAT= 6;
qKbsq: NAT= 7;
Vfb: NAT= 8;
Cox: NAT= 9;
Cgsd0: NAT= 10;
Cgsdp: NAT= 11;
Ioff: NAT= 12;
Io: NAT= 13;
kTq: NAT= 14;
expMax: NAT= 15;

IdX: NAT= 0;
CgbX: NAT= 1;
CgsX: NAT= 2;
CgdX: NAT= 3;

Vg, Vs, Vd, Vb, Id: REAL;
Cgs, Cgd: REAL;
Vt, Vgst, Vgdt, VdSAT, Vsbphi2, Vdx, SqrtV: REAL;
t1, t2: REAL;
reverse: BOOL_ FALSE;

Vg_ args[VgX];
Vb_ args[VbX];
Vd_ args[VdX];
Vs_ args[VsX];

t1_ Vb - Vs;
IF t1 > 0.0 THEN {
t1_ t1/parms[kTq];
IF t1 >= parms[expMax] THEN SIGNAL spGlobals.Retreat["NFET -- Source."];
results[4]_ parms[Io]*(RealFns.Exp[t1] - 1.0);
}
ELSE results[4]_ -parms[Io];

t2_ Vb - Vd;
IF t2 > 0.0 THEN {
t2_ t2/parms[kTq];
IF t2 >= parms[expMax] THEN SIGNAL spGlobals.Retreat["NFET -- Drain."];
results[5]_ parms[Io]*(RealFns.Exp[t2] - 1.0);
}
ELSE results[5]_ -parms[Io];

IF Vs > Vd THEN {
reverse_ TRUE;
t1_ Vs;
Vs_ Vd;
Vd_ t1; 
};

Vsbphi2_ MAX[Vs - Vb + parms[Phi2], 0.0];
SqrtV_ RealFns.SqRt[MAX[0.0, parms[qKbsq] + Vg - parms[Vfb] - Vb]];
Vt_ IF Vs= Vb THEN parms[VtX]
ELSE parms[Phi2fb] + parms[Kb]*RealFns.SqRt[Vsbphi2];
Vgst_ Vg - Vs - Vt;
IF Vgst > 0 THEN {
VdSAT_ Vg - parms[Phi2fb] + parms[hKbsq] - parms[Kb]*SqrtV;
IF VdSAT < Vs THEN SIGNAL modelError["Negative VdSAT"];
Vdx_ IF Vd > VdSAT THEN VdSAT ELSE Vd;
t1_ Vsbphi2*RealFns.SqRt[Vsbphi2];
t2_ Vdx - Vb + parms[Phi2];
t2_ t2*RealFns.SqRt[t2];
Id_ parms[hKp]*((2.0*(Vg - parms[Phi2fb]) - Vs - Vdx)*
(Vdx - Vs) + parms[ftKb]*(t1 - t2));
}
ELSE Id_ parms[Ioff];

IF Id < 0.0 THEN
IF Id < -parms[Ioff] THEN SIGNAL modelError["Negative drain current"]
ELSE Id_ parms[Ioff];

t1_ Vg - Vb - parms[Vfb];
IF t1 <= 0.0 THEN results[CgbX]_ parms[Cox]
ELSE results[CgbX]_ 0.5*parms[Kb]*parms[Cox]/SqrtV;

Vgdt_ Vg - Vd - Vt;
t1_ Vgst + Vgdt;
t1_ t1*t1;
IF Vgst <= 0.0 THEN Cgs_ parms[Cgsdp]
ELSE
IF Vgdt < 0.0 THEN Cgs_ parms[Cgsd0] + parms[Cgsdp]
ELSE Cgs_ parms[Cgsdp] + parms[Cgsd0]*(1.0 - Vgdt*Vgdt/t1);
IF Vgdt <= 0.0 THEN Cgd_ parms[Cgsdp]
ELSE Cgd_ parms[Cgsdp] + parms[Cgsd0]*(1.0 - Vgst*Vgst/t1);

IF reverse THEN {
results[IdX] _ - Id;
results[CgsX]_ Cgd;
results[CgdX]_ Cgs;
}
ELSE {
results[IdX] _ Id;
results[CgsX]_ Cgs;
results[CgdX]_ Cgd;
};
}; -- NFET

PFET: spGlobals.model= {
VgX: NAT= 0;
VsX: NAT= 1;
VdX: NAT= 2;
VbX: NAT= 3;

VtX: NAT= 0;
hKp: NAT= 1;
Phi2: NAT= 2;
Phi2fb: NAT= 3;
Kb: NAT= 4;
ftKb: NAT= 5;
hKbsq: NAT= 6;
qKbsq: NAT= 7;
Vfb: NAT= 8;
Cox: NAT= 9;
Cgsd0: NAT= 10;
Cgsdp: NAT= 11;
Ioff: NAT= 12;
Io: NAT= 13;
kTq: NAT= 14;
expMax: NAT= 15;

IdX: NAT= 0;
CgbX: NAT= 1;
CgsX: NAT= 2;
CgdX: NAT= 3;

Vg, Vs, Vd, Vb, Id: REAL;
Cgs, Cgd: REAL;
Vt, Vgst, Vgdt, VdSAT, Vsbphi2, Vdx, SqrtV: REAL;
t1, t2: REAL;
reverse: BOOL_ FALSE;

Vg_ args[VgX];
Vb_ args[VbX];
Vd_ args[VdX];
Vs_ args[VsX];

t1_ Vs - Vb;
IF t1 > 0.0 THEN {
t1_ t1/parms[kTq];
IF t1 >= parms[expMax] THEN SIGNAL spGlobals.Retreat["PFET -- Source."];
results[4]_ parms[Io]*(RealFns.Exp[t1] - 1.0);
}
ELSE results[4]_ -parms[Io];

t2_ Vd - Vb;
IF t2 > 0.0 THEN {
t2_ t2/parms[kTq];
IF t2 >= parms[expMax] THEN SIGNAL spGlobals.Retreat["PFET -- Drain."];
results[5]_ parms[Io]*(RealFns.Exp[t2] - 1.0);
}
ELSE results[5]_ -parms[Io];

IF Vs < Vd THEN {
reverse_ TRUE;
t1_ Vs;
Vs_ Vd;
Vd_ t1;
};
 
Vsbphi2_ MIN[Vs - Vb + parms[Phi2], 0.0];
SqrtV_ RealFns.SqRt[-MIN[0.0, -parms[qKbsq] + Vg - parms[Vfb] - Vb]];
Vt_ IF Vs= Vb THEN parms[VtX]
ELSE parms[Phi2fb] - parms[Kb]*RealFns.SqRt[-Vsbphi2];
Vgst_ Vg - Vs - Vt;
IF Vgst < 0 THEN {
VdSAT_ Vg - parms[Phi2fb] - parms[hKbsq] + parms[Kb]*SqrtV;
IF VdSAT > Vs THEN SIGNAL modelError["Positive VdSAT"];
Vdx_ IF Vd < VdSAT THEN VdSAT ELSE Vd;
t1_ Vsbphi2*RealFns.SqRt[-Vsbphi2];
t2_ Vdx - Vb + parms[Phi2];
t2_ t2*RealFns.SqRt[-t2];
Id_ parms[hKp]*((2.0*(Vg - parms[Phi2fb]) - Vs - Vdx)*(Vdx - Vs) - parms[ftKb]*(t1 - t2));
}
ELSE Id_ parms[Ioff];

IF Id < 0.0 THEN
IF Id < -parms[Ioff]THEN SIGNAL modelError["Negative drain current"]
ELSE Id_ parms[Ioff];

t1_ Vg - Vb - parms[Vfb];
IF t1 >= 0.0 THEN results[CgbX]_ parms[Cox]
ELSE results[CgbX]_ 0.5*parms[Kb]*parms[Cox]/SqrtV;

Vgdt_ Vg - Vd - Vt;
t1_ Vgst + Vgdt;
t1_ t1*t1;
IF Vgst >= 0.0 THEN Cgs_ parms[Cgsdp]
ELSE IF Vgdt > 0.0 THEN Cgs_ parms[Cgsd0] + parms[Cgsdp]
ELSE Cgs_ parms[Cgsdp] + parms[Cgsd0]*(1.0 - Vgdt*Vgdt/t1);
IF Vgdt >= 0.0 THEN Cgd_ parms[Cgsdp]
ELSE Cgd_ parms[Cgsdp] + parms[Cgsd0]*(1.0 - Vgst*Vgst/t1);

IF reverse THEN {
results[IdX] _ -Id;
results[CgsX]_ Cgd;
results[CgdX]_ Cgs;
}
ELSE {
results[IdX] _ Id;
results[CgsX]_ Cgs;
results[CgdX]_ Cgd;
};
   
}; -- PFET

dcDiode: spGlobals.model= {
Vd, e: REAL;

Va: NAT= 0;
Vc: NAT= 1;

Io: NAT= 0;
kTq: NAT= 1;
expMax: NAT= 2;

Vd_ args[Va] - args[Vc];
IF Vd + parms[kTq] <= 0.0 THEN results[0]_ -parms[Io]
ELSE {
e_ Vd/parms[kTq];
IF e >= parms[expMax] THEN SIGNAL spGlobals.Retreat["dcDiode."];
results[0]_ parms[Io]*(RealFns.Exp[e] - 1.0);
};
   
}; -- dcDiode

CSIM: spGlobals.model= {
VgX: NAT= 0;
VsX: NAT= 1;
VdX: NAT= 2;
VbX: NAT= 3;
 
vfb: NAT= 0;
twoPhiF: NAT= 1;
k1: NAT= 2;
k2: NAT= 3;
eta: NAT= 4;
beta0: NAT= 5;
u0: NAT= 6;
u1: NAT= 7;
 
MCgbo: NAT= 8;
Cgbo23rds: NAT= 9;
Cov: NAT= 10;
Cbso: NAT= 11;
Cbdo: NAT= 12;
phiB: NAT= 13;

Ios: NAT= 14;
Iod: NAT= 15;
kTq: NAT= 16;
expMax: NAT= 17;
NoCap: NAT= 18;
nChannel: NAT= 19; -- -1: pType; else nType;

IdX : NAT= 0;
CgbX: NAT= 1;
CgsX: NAT= 2;
CgdX: NAT= 3;
CbsX: NAT= 4;
CbdX: NAT= 5;
Ibs: NAT= 6;
Ibd: NAT= 7;
    	
Vg, Vs, Vd, Vb, Vds, Vgs, Vbs, Vbd: REAL;
Id, Cgs, Cgd, Cbs, Cbd: REAL;
reverse: BOOL_ FALSE;
t1, TwoPhiFMVbs, Sqrt2PhiFMVbs, EtaVds, VgsMVth, VgdMVth, Vth: REAL;

ArgRope: PROC [ix: NAT] RETURNS [r: Rope.ROPE] = {
voltage: Rope.ROPE = IO.PutR[IO.real[args[ix]]];
r _ IO.PutFR["%g (%g V)",
IO.rope[spGlobals.makeStringNB[
handle: parms.handle,
n: parms.modFunc.arguments[ix],
b: NIL]],
IO.rope[Rope.Substr[base: voltage, len: MIN[voltage.Length, 5]]]];
}; -- ArgRope

IF parms[nChannel]= -1 THEN {
Vg_ -args[VgX]; Vb_ -args[VbX]; 
Vd_ -args[VdX]; Vs_ -args[VsX];
}
ELSE {
parms[nChannel]_ 1;
Vg_ args[VgX]; Vb_ args[VbX]; Vd_ args[VdX]; Vs_ args[VsX];
};

IF Vb > Vs THEN {
t1_ (Vb-Vs)/parms[kTq];
IF t1 > parms[expMax] THEN SIGNAL spGlobals.Retreat[
IO.PutFR["CSIM -> Vbs forward biased too much: b = %g, s = %g",
IO.rope[ArgRope[VbX]], IO.rope[ArgRope[VsX]]]];
results[Ibs]_ parms[nChannel]*parms[Ios]*(RealFns.Exp[t1]- 1.0);
}
ELSE results[Ibs]_ -parms[nChannel]*parms[Ios];
        
IF Vb > Vd THEN {
t1_ (Vb-Vd)/parms[kTq];
IF t1 > parms[expMax] THEN SIGNAL spGlobals.Retreat[
IO.PutFR["CSIM -> Vbd forward biased too much: b = %g, d = %g",
IO.rope[ArgRope[VbX]], IO.rope[ArgRope[VdX]]]];
results[Ibd]_ parms[nChannel]*parms[Iod]*(RealFns.Exp[t1]- 1.0);
}
ELSE results[Ibd]_ -parms[nChannel]*parms[Iod];

IF Vs > Vd THEN {reverse_ TRUE; t1_ Vs; Vs_ Vd; Vd_ t1; };
Vds_ Vd - Vs; Vgs_ Vg - Vs; Vbs_ Vb - Vs; Vbd_ Vb - Vd;

TwoPhiFMVbs_ parms[twoPhiF]-Vbs;
Sqrt2PhiFMVbs_ RealFns.SqRt[TwoPhiFMVbs];
EtaVds_ parms[eta]*Vds;

Vth_ parms[vfb]+parms[twoPhiF]+parms[k1]*Sqrt2PhiFMVbs-EtaVds
-parms[k2]*TwoPhiFMVbs;
VgsMVth_ Vgs - Vth;

IF VgsMVth <= 0.0 THEN Id_ 0
ELSE { -- Vgs>Vth:
g: REAL_ 1.0-1.0/(1.744+0.8364*TwoPhiFMVbs);
a: REAL_ 1.0 + 0.5*g*parms[k1]/Sqrt2PhiFMVbs;
alpha: REAL_ a*(1.0 + parms[u1]*VgsMVth); -- a(1+u1*(Vgs-Vth))
VdSat: REAL_ VgsMVth/alpha;
BetaP: REAL_ parms[nChannel]*parms[beta0]/(1.0+parms[u0]*VgsMVth); -- beta0/(1+u0(Vgs-Vth))
         
Id_ IF Vds<VdSat THEN BetaP*Vds*(VgsMVth - 0.5*alpha*Vds)
ELSE BetaP*VgsMVth*VgsMVth/(2.0*alpha);
            
}; -- end of Vgs>Vth

IF parms[NoCap]#0 THEN {
results[CgbX]_ results[CgsX]_ results[CgdX]_ results[CbsX]_ results[CbdX]_ 0; 
results[IdX]_ IF reverse THEN -Id ELSE Id;
RETURN;
};

VgdMVth_ Vg - Vd - Vth;

results[CgbX]_ IF VgsMVth <= 0 THEN parms[MCgbo] ELSE 0;

t1_ VgsMVth+VgdMVth;
t1_ t1*t1; -- (Vgs + Vgd - 2Vth)^2
Cgs_
IF VgsMVth <= 0.0 THEN parms[Cov]
ELSE
IF VgdMVth <= 0.0 THEN parms[Cgbo23rds] + parms[Cov]
ELSE parms[Cov] + parms[Cgbo23rds]*(1.0 - VgdMVth*VgdMVth/t1);
Cgd_
IF VgdMVth <= 0.0 THEN parms[Cov]
ELSE parms[Cov] + parms[Cgbo23rds]*(1.0 - VgsMVth*VgsMVth/t1);
           
Cbs_ parms[Cbso]/RealFns.SqRt[1.0 - Vbs/parms[phiB]];
Cbd_ parms[Cbdo]/RealFns.SqRt[1.0 - Vbd/parms[phiB]];
           
IF reverse THEN {
results[IdX]_ -Id;
results[CgsX]_ Cgd;
results[CgdX]_ Cgs;
results[CbsX]_ Cbd;
results[CbdX]_ Cbs;
}
ELSE {
results[IdX]_ Id;
results[CgsX]_ Cgs;
results[CgdX]_ Cgd;
results[CbsX]_ Cbs;
results[CbdX]_ Cbd;
};
}; -- CSIM

acDiode: spGlobals.model= {
Vc: NAT= 0; -- cathode voltage index
Va: NAT= 1; -- anode voltage index

Co: NAT= 0;
Pb: NAT= 1;
Vt: NAT= 2;
Io: NAT= 3;
expMax: NAT= 4;

C: NAT= 0;
I: NAT= 1;

t1: REAL;
V: REAL_ args[Va] - args[Vc];
IF V > 0 THEN { -- forward biased
t1_ V/parms[Vt];
IF t1 >= parms[expMax] THEN SIGNAL spGlobals.Retreat[
"acDiode forward biased too much"];
results[I]_ -parms[Io]*(RealFns.Exp[t1]- 1.0);
}
ELSE results[I]_ parms[Io];
results[C]_ parms[Co]/RealFns.SqRt[1.0 - V/parms[Pb]];
}; -- acDiode

acDiodeIsUseful: PROC [parms: spGlobals.argList] RETURNS [isUseful: BOOL] = {
Co: NAT= 0;
Pb: NAT= 1;
Vt: NAT= 2;
Io: NAT= 3;
expMax: NAT= 4;
  
isUseful _ parms[Co]#0 OR parms[Io]#0;
}; -- acDiodeIsUseful

acDiodeCombineInstances: PROC [parmsA, parmsB: spGlobals.argList]
RETURNS [ success: BOOL ] = {
Co: NAT= 0;
Pb: NAT= 1;
Vt: NAT= 2;
Io: NAT= 3;
expMax: NAT= 4;

IF (success _ (parmsA[Pb] = parmsB[Pb] AND parmsA[Vt] = parmsB[Vt]
AND parmsA[expMax] = parmsB[expMax])) THEN {
parmsA[Co] _ parmsA[Co]+parmsB[Co];
parmsA[Io] _ parmsA[Io]+parmsB[Io];
};
}; -- acDiodeCombineInstances

spGlobals.EnterModels[["CSIM", CSIM, 4, 20, 8]];
spGlobals.EnterModels[["acDiode", acDiode, 2, 5, 2, Atom.PutPropOnList[
Atom.PutPropOnList[NIL,
$IsUsefulProc,
NEW[spGlobalsExtras.IsUsefulProc _ acDiodeIsUseful]],
$CombineInstancesProc,
NEW[spGlobalsExtras.CombineInstancesProc _ acDiodeCombineInstances]]]];
spGlobals.EnterModels[["dcDiode", dcDiode, 2, 3, 1]];
spGlobals.EnterModels[["NFET", NFET, 4, 16, 6]];
spGlobals.EnterModels[["PFET", PFET, 4, 16, 6]];

END.


,File: [Cherry]<Thyme>Cedar5.2>System>spModels.mesa
Last Edited by: SChen, May 10, 1985 1:00:56 pm PDT
args:
The 8 electrical parameters of CSIM model. cf. Scharfetter's memo of 12/30/82.
The 6 capacitance parameters for MOSAID model. cf. MOSAID documentation by Dick Foss.
other parameters:
results:
get Ibs:
IF (Vb-Vs) >= parms[twoPhiF] THEN {
Vb _ Vs+parms[twoPhiF]-0.001; -- recover
t1_ (Vb-Vs)/parms[kTq]
};
get Ibd:
If it ever gets here, Vbs must be less than 2phif. cf. expMax calculation in ThymeBasics.thy
Cgb:
Cgs and Cgd:
Cbs and Cbd: Since phiB>2phif, the following should never blow up.
CHANGE LOG
Wilhelm, April 12, 1982  9:28 AM
Barth, 7-May-82 10:43:16 PDT
Chen, April 29, 1983  12:03 PM, added and "enter"ed CSIM and acDiode model.
Chen, June 7, 1984 8:14:49 pm PDT, cedarized.
McCreight, April 2, 1985 5:04:05 pm PST,
1. added acDiodeIsUseful, acDiodeCombineInstances, and related stuff.
2. added more information for the user when bs or bd junctions are forward biased too much.
Chen, May 9, 1985 6:21:28 pm PDT, RealOps.SqRt => RealFns.SqRt .
�ÊʘJš
œ2™2J™2J˜š
Ïk	˜	Jšœ�œ˜Jš�œ
�œ˜#Jšœ�œ�œ˜"Jšœ�œ
˜Jšœ
�œ6˜EJšœ�œ&˜;—J˜šœ
�œ
�˜Jš�œ�œ˜*Jš�œ˜—J˜Jš
�˜J˜Jšœ�œ	�œ�œ
˜'J˜š�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜
Jšœ�œ˜Jšœ�œ
˜Jšœ
�œ
˜Jšœ,�œ
˜1Jšœ�œ
˜
Jšœ	�œ�œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜š�œ
�œ˜Jš
œ˜Jš�œ�œ
�œ&˜HJš
œ.˜.Jš
œ
˜
—Jš�œ˜Jš
œ˜š�œ
�œ˜Jš
œ˜Jš�œ�œ
�œ%˜GJš
œ.˜.Jš
œ
˜
—Jš�œ˜š�œ	�œ˜Jšœ	�œ
˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—J˜Jšœ	�œ˜)Jšœ�œ,˜Cšœ�œ�œ˜Jš�œ1˜5—Jš
œ˜š�œ
�œ˜Jš
œ;˜;Jš�œ�œ
�œ˜7Jšœ�œ�œ�œ˜&Jš
œ"˜"Jš
œ˜Jš
œ˜š
œ6˜6Jš
œ$˜$—Jš
œ
˜
—Jš�œ˜š�œ
�˜Jš�œ�œ
�œ%˜EJš�œ˜—Jš
œ˜Jš�œ�œ˜+Jš�œ0˜4Jš
œ˜Jš
œ˜Jš
œ
˜
Jš�œ
�œ˜%š
�˜Jš�œ�œ!˜3Jš�œ7˜;—Jš�œ
�œ˜%Jš�œ8˜<š�œ	�œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ
˜
—š�œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—JšœÏc˜—š�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜
Jšœ�œ˜Jšœ�œ
˜Jšœ
�œ
˜Jšœ,�œ
˜1Jšœ�œ
˜
Jšœ	�œ�œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜š�œ
�œ˜Jš
œ˜Jš�œ�œ
�œ&˜HJš
œ.˜.Jš
œ
˜
—Jš�œ˜Jš
œ˜š�œ
�œ˜Jš
œ˜Jš�œ�œ
�œ%˜GJš
œ.˜.Jš
œ
˜
—Jš�œ˜š�œ	�œ˜Jšœ	�œ
˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—Jšœ	�œ˜)Jšœ�œ-˜Ešœ�œ�œ˜Jš�œ2˜6—Jš
œ˜š�œ
�œ˜Jš
œ;˜;Jš�œ�œ
�œ˜7Jšœ�œ�œ�œ˜&Jš
œ#˜#Jš
œ˜Jš
œ˜Jš
œZ˜ZJš
œ
˜
—Jš�œ˜š�œ
�˜Jš�œ�œ
�œ%˜DJš�œ˜—Jš
œ˜Jš�œ�œ˜+Jš�œ0˜4Jš
œ˜Jš
œ˜Jš
œ
˜
Jš�œ
�œ˜%š�œ
�œ�œ!˜8Jš�œ7˜;—Jš�œ
�œ˜%Jš�œ8˜<š�œ	�œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ
˜
—š�œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—Jšœž˜—š
œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jš
œ˜Jš�œ�œ˜5š�œ˜Jš
œ˜Jš�œ�œ
�œ˜@Jš
œ-˜-Jš
œ˜—Jšœž˜—š�œ˜Jš
œ™Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jš
œN™NJšœ�œ˜Jšœ	�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jš
œU™UJšœ�œ˜Jšœ�œ˜Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jš
œ™Jšœ�œ˜
Jšœ�œ˜
Jšœ�œ˜
Jšœ�œ˜Jšœ�œ˜Jšœ
�œž˜,—˜Jš
œ™Jšœ�œ˜
Jšœ�œ˜
Jšœ�œ˜
Jšœ�œ˜
Jšœ�œ˜
Jšœ�œ˜
Jšœ�œ˜Jšœ�œ
˜Jšœ$�œ
˜)Jšœ�œ
˜Jšœ	�œ�œ
˜Jšœ?�œ
˜DJ˜š
Ïnœ�œ�œ�œ
�œ˜2Jšœ�œ�œ�œ˜0šœ�œ˜š�œ˜Jš
œ˜Jš
œ˜Jšœ�œ˜	——Jš�œ&�œ˜BJšœž
˜
—J˜š�œ�œ˜Jš
œ ˜ Jš
œ˜Jš
œ
˜
—š�œ˜Jš
œ˜Jš
œ;˜;Jš
œ˜—J˜Jš
œ™š�œ	�œ˜Jš
œ˜š�œ�œ
�œ˜4š�œ=˜?Jš�œ�œ˜/——š�œ�œ™#Jšœž
™(Jš
œ™Jš
œ™—Jš
œ@˜@Jš
œ
˜
—Jš�œ4˜8Jš
œ™š�œ	�œ˜Jš
œ˜š�œ�œ
�œ˜4š�œ=˜?Jš�œ�œ˜/——Jš
œ@˜@Jš
œ
˜
—Jš�œ+˜/J˜Jš�œ	�œ�œ˜:Jš
œ8˜8Jš
œ\™\Jš
œ ˜ Jš
œ)˜)Jš
œ˜J˜š
œ=˜=Jš
œ˜—Jš
œ˜J˜Jš�œ�œ˜š�œž˜Jšœ�œ%˜,Jšœ�œ&˜-Jšœ�œž˜>Jšœ�œ˜Jšœ�œ8žœ	˜ešœ�œ�œ$˜9Jš�œ0˜4—Jšœž˜—J˜š�œ�œ˜Jš
œN˜NJšœ�œ	�œ�œ˜*Jš�œ
˜Jš
œ˜—Jš
œ˜Jš
œ™Jšœ�œ�œ�œ˜9Jš
œ™Jš
œ˜Jšœž˜"š
œ˜Jš�œ�œ˜!š
�˜Jš�œ�œ˜4Jš�œ:˜>——š
œ˜Jš�œ�œ˜!Jš�œF˜J—Jš
œB™BJš
œ5˜5Jš
œA˜Aš�œ	�œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ
˜
—š�œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜—Jšœž˜—š
œ˜Jšœ�œž˜$Jšœ�œž˜"J˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜J˜Jš�
œ�œ˜
Jš�
œ�œ˜
J˜Jšœ�œ
˜	Jš�
œ�œ˜š�œ
�
œ�œž˜!Jšœ�
œ˜š�œ�œ
�œ˜5Jš
œ#˜#—Jšœ�
œ%˜.Jš
œ
˜
—Jš�œ	�
œ
˜Jšœ�
œ �
œ˜6Jšœž˜—šœ�œ�œ�œ˜MJšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ
˜&Jšœž˜—šœ�œ$˜AJš�œ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜Jšœ�œ˜J˜š�œ%�œ˜BJš�œ#�œ˜,Jš
œ#˜#Jš
œ#˜#Jš
œ˜—Jšœž˜—Jšœ�œ
˜0š
œG˜Gšœ�œ
˜Jš
œ˜Jš�œ2˜5—Jš
œ˜Jš�œD˜G—Jš
œ5˜5Jšœ�œ
˜0Jšœ�œ
˜0J˜Jš�œ
˜J˜Jš
œ
™
J˜Jš
œ ™ Jš
œ™Jš
œK™KJš
œ-™-™(J™EJ™[—J™@—…—)=ø