MTB > ERASE C1 – C100

MTB > RANDOM

100 C1 – C4;

SUBC > EXPONENTIAL 5.

MTB > LET

C100 = (C1+C2+C3+C4)/4

MTB > DESC C1 – C4

C100

MTB > GHISTO C1 – C4

C100;

SUBC > SAME.

MTB > NAME C1 'DEFDENS'

MTB > NAME C2 'YIELD'

MTB > RANDOM 1000 C1;

SUBC > EXPONENTIAL .5.

MTB > HISTO C1

MTB > DESC C1

MTB > LET 'YIELD' = 1/(1+.9*C1)

MTB > HISTO C2

MTB > DESC C2

I=Isat{e(qV/kT-1}

MTB > NAME C3 'Vbe'

MTB > NAME C4 'Isat'

MTB > RANDOM 100 C3;

SUBC > NORMAL 650 25.

MTB > GHISTO C3

MTB > DESC C3

MTB > LET C4=1E10/exp(c3/26)

MTB > GHISTO C4

MTB > DESC C4

MTB > LET C5=logt(c4)

MTB > GHISTO C5