Dimmer.asc - применение транзисторных схем замещения динистора и тринистора

.subckt

capometer 1 2 3 4 5

B1

2

1 I={current}*cos(2*pi*{freq}*time)*min(time*2e5, 1.) Rpar=1G

R1

N001

0

1.

C2

N001

0

{C}

B2

0

N001

I=sin(2*pi*{freq}*time)*V(x)*min(time*2e5, 1.)

G1

0

N002

N001 0 1.

G2

0

im

N002 0 1.

R4

N002

0

1.

C5

N002

0

{C}

R5

im 0

1.

C6

im 0

{C}

R2

N003

0

1.

C3

N003

0

{C}

B3

0

N003

I=cos(2*pi*{freq}*time)*V(x)*min(time*2e5, 1.)

G3

0

N004

N003 0 1.

G4

0

re

N004 0 1.

R6

N004

0

1.

C7

N004

0

{C}

R7

re 0

1.

C8

re 0

{C}

R3

5

0

1.

C4

5

0 {C}

B4

0

5 I=if(time<10u, 0.,

R10

4

0

1.

C10

4

0

{C}

B6

0 4

I=if(time<10u, 0., 2./{current}*(V(re)+V(im)*V(im)/V(re)))

G5

0 x

N005

2

1.

R8

x 0

1.

R9

3 0

1G

3

0

1.

G6

N005

1

R12

1

N005

1.

*C9

x

0

{1/(4*pi*freq/Q)}

*L1

0

x

{1/(Q*pi*freq)}

.param

current=10u freq=3Meg C=1µ Q=.25

.ends

capometer