kicad/spice/copy/sub/capometer.sub

38 lines
928 B
Plaintext
Raw Normal View History

2022-04-08 21:49:19 -06:00
* 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