* VA charakteristika diody I1 0 1 1m Vp 1 2 0 D1 2 0 1N5 R2 1 0 1000 .model 1N5 D(is = 1e-14, N = 1.06) *.model 1N5 D(Is=2.682n N=1.836 Rs=.5664 Ikf=44.17m Xti=3 Eg=1.11 Cjo=4p *+ M=.3333 Vj=.5 Fc=.5 Bv=100 Ibv=100u Tt=11.54n) ** TELEFUNKEN pid=D1N4148 case=DO35 ** 91-08-20 dsq *------------------------------------------------ .control destroy all set maxplots = 1 ************************************************* *vypocet pracovniho bodu, vypis chr. hodnot diody *op *show d1 : id vd gd ************************************************* *DC analyza, zobrazeni V-A charakteristiky diody *******zpusob 1********** *dc I1 0 5m 10u *plot I(Vp) vs V(2) title "VA charakteristika diody" *******zpusob 2********** *save @d1[id] all *dc I1 0 5m 10u *settype current @d1[id] *plot @d1[id] vs v(2) title "VA charakteristika diody - 2. zpusob" *******zpusob 3********** *let k = 0 *let n = 0 **set Verbose = false *while k <= 5m * alter @i1[C] = k * op * y[n] = @d1[id] * x[n] = v(2) * let k = k + 100u * let n = n + 1 *end *settype current y *plot y vs x title "VA charakteristika diody - 3. zpusob" ************************************************* .endc *------------------------------------------------ .end