tests/d_coil.3.ckt

   1 Mutual inductance test circuit  --  lo-z drive
   2 .options initsc 1
   3 v1 1 0  pulse(0 1 .002 .002 .002 .002 .01) ac 1
   4 r1a 1 2 1
   5 k1 l1a l1b .75
   6 l1a 2 0 .56
   7 l1b 3 0 .79
   8 r1b 3 0 75
   9
  10 v2 4 0  pulse(0 1 .002 .002 .002 .002 .01) ac 1
  11 r2a 4 5 1
  12 l2a 5 6 .061151326
  13 l2b 6 0 .498848674
  14 l2c 6 7 .291151326
  15 r2b 7 0 75
  16
  17 v3 8 0  pulse(0 1 .002 .002 .002 .002 .01) ac 1
  18 r3a 8 9 1
  19 l3a 10 0 .56
  20 l3b 11 0 .79
  21 e3a 9 10 11 0 .631454018
  22 e3b 12 11 10 0 .890801204
  23 r3b 12 0 75
  24
  25 .options nopage
  26 .width out=170
  27 .print ac v(4) v(2) v(3) v(5) v(7) v(9) v(12) i(r1a) i(r2a) i(r3a) i(l1a) i(l2a) i(l3a)
  28 .ac dec 2 .1 1k
  29 .print ac vp(4) vp(2) vp(3) vp(5) vp(7) vp(9) vp(12) ip(r1a) ip(r2a) ip(r3a) ip(l1a) ip(l2a) ip(l3a)
  30 .ac dec 2 .1 1k
  31 .print tran v(4) v(2) v(3) v(5) v(7) v(9) v(12) i(r1a) i(r2a) i(r3a) i(l1a) i(l2a) i(l3a)
  32 .tran .001 .01 0 .0001
  33 .status notime
  34 .end