38 lines
928 B
Plaintext
38 lines
928 B
Plaintext
|
* Copyright <20> Linear Technology Corp. 1998, 1999. All rights reserved.
|
|||
|
|
*
|
|||
|
|
.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., max(0.,.5*V(im)*{current}/(2*pi*{freq})/(V(im)*V(im)+V(re)*V(re))))
|
|||
|
|
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
|
|||
|
|
G6 N005 1 3 0 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
|