電流分布

By 平野拓一

分布定数線路上の電流分布

進行波

<< Graphics`Colors`

l = 2. ;
r = l/80. ;
d = 0.25;

cable1[n_, t_]:=Module[{},
{{GrayLevel[0.8],Rectangle[{-l - 2*r, d/2 - 1.5*r}, {2*r, 
                          d/2 + 1.5*r}]},
{Blue, 
                  Table[Disk[{((i - 1)/(n - 1))*
                            l + (l/n/2)*
                            Sin[-2*π*((i - 1)/(n - 1))*
                                  l + t] - l, d/2}, r], {i, 1, n} ]}}
];
cable2[n_, t_]:=Module[{},
{{GrayLevel[0.8],Rectangle[{-l - 2*r, -d/2 - 1.5*r}, {2*
                            r, -d/2 + 1.5*r}]},
{Blue, 
                  Table[Disk[{((i - 1)/(n - 1))*
                            l - (l/n/2)*
                            Sin[-2*π*((i - 1)/(n - 1))*
                                  l + t] - l, -d/2}, r], {i, 1, 
                      n} ]}}
];
ticks = {Line[{{-l, -1.5*
                  d}, {0, -1.5*d}}], 
          Line[{{0, -1.5*d - 1.5*r}, {0, -1.5*d + 1.5*r}}], 
          Line[{{-l/4, -1.5*d - 1.5*r}, {-l/4, -1.5*d + 
                  1.5*r}}], 
          Line[{{-2*l/4, -1.5*d - 1.5*r}, {-2*l/4, -1.5*d + 
                  1.5*r}}], 
          Line[{{-3*l/4, -1.5*d - 1.5*r}, {-3*l/4, -1.5*d + 
                  1.5*r}}], 
          Line[{{-4*l/4, -1.5*d - 1.5*r}, {-4*l/4, -1.5*d + 
                  1.5*r}}], 
Text[
            StyleForm["0", 
              FontSize -> 14], {0, -1.5*d + 
                1.5*r}, {0, -1}], 
Text[
            StyleForm["-λ/2", 
              FontSize -> 14], {-l/4, -1.5*d + 
                1.5*r}, {0, -1}], 
Text[
            StyleForm["-λ", 
              FontSize -> 14], {-2*l/4, -1.5*d + 
                1.5*r}, {0, -1}], 
Text[
            StyleForm["-3λ/2", 
              FontSize -> 14], {-3*l/4, -1.5*d + 
                1.5*r}, {0, -1}], 
Text[
            StyleForm["-2λ", 
              FontSize -> 14], {-4*l/4, -1.5*d + 
                1.5*r}, {0, -1}]};
waveform[
          t_] := {{Line[{{-l, 1.5*d}, {0, 1.5*d}}]}, {RGBColor[1, 0, 0], 
            Line[Table[{-((i - 1)/(100 - 1))*l, 
                  1.5*d + (d/2)*
                      Sin[2*π*((i - 1)/(100 - 1))*l + 
                          t]}, {i, 1, 100}]]}};

Table[
Show[ 
        Graphics[ {cable1[30, t], cable2[30, t], ticks, 
            waveform[t]}], 
AspectRatio -> 
          Automatic , 
PlotRange -> {{-l - 2*r, 
              1.5*r}, {-1.5*d - 1.5*r, 
              2*d + 1.5*r}}, 
ImageSize -> {480, 
            256}]
, {t, 0, 2*π - 0.001, 
        2*π/16. }]

定在波

<< Graphics`Colors`

l = 2. ;
r = l/80. ;
d = 0.25;

cable1[n_, t_]:=Module[{},
{{GrayLevel[0.8],Rectangle[{-l - 2*r, d/2 - 1.5*r}, {2*r, 
                          d/2 + 1.5*r}]},
{Blue, 
                  Table[Disk[{((i - 1)/(n - 1))*
                            l + (l/n/2)*
                            Sin[-2*π*((i - 1)/(n - 1))*l]*
                            Sin[t] - l, d/2}, r], {i, 1, n} ]}}
];
cable2[n_, t_]:=Module[{},
{{GrayLevel[0.8],Rectangle[{-l - 2*r, -d/2 - 1.5*r}, {2*
                            r, -d/2 + 1.5*r}]},
{Blue, 
                  Table[Disk[{((i - 1)/(n - 1))*
                            l - (l/n/2)*
                            Sin[-2*π*((i - 1)/(n - 1))*l]*
                            Sin[t] - l, -d/2}, r], {i, 1, n} ]}}
];
ticks = {Line[{{-l, -1.5*
                  d}, {0, -1.5*d}}], 
          Line[{{0, -1.5*d - 1.5*r}, {0, -1.5*d + 1.5*r}}], 
          Line[{{-l/4, -1.5*d - 1.5*r}, {-l/4, -1.5*d + 
                  1.5*r}}], 
          Line[{{-2*l/4, -1.5*d - 1.5*r}, {-2*l/4, -1.5*d + 
                  1.5*r}}], 
          Line[{{-3*l/4, -1.5*d - 1.5*r}, {-3*l/4, -1.5*d + 
                  1.5*r}}], 
          Line[{{-4*l/4, -1.5*d - 1.5*r}, {-4*l/4, -1.5*d + 
                  1.5*r}}], 
Text[
            StyleForm["0", 
              FontSize -> 14], {0, -1.5*d + 
                1.5*r}, {0, -1}], 
Text[
            StyleForm["-λ/2", 
              FontSize -> 14], {-l/4, -1.5*d + 
                1.5*r}, {0, -1}], 
Text[
            StyleForm["-λ", 
              FontSize -> 14], {-2*l/4, -1.5*d + 
                1.5*r}, {0, -1}], 
Text[
            StyleForm["-3λ/2", 
              FontSize -> 14], {-3*l/4, -1.5*d + 
                1.5*r}, {0, -1}], 
Text[
            StyleForm["-2λ", 
              FontSize -> 14], {-4*l/4, -1.5*d + 
                1.5*r}, {0, -1}]};
waveform[
          t_] := {{Line[{{-l, 1.5*d}, {0, 1.5*d}}]}, {RGBColor[1, 0, 0], 
            Line[Table[{-((i - 1)/(100 - 1))*l, 
                  1.5*d - (d/2)*
                      Sin[-2*π*((i - 1)/(100 - 1))*l]*
                      Sin[t]}, {i, 1, 100}]]}};

Table[
Show[ 
        Graphics[ {cable1[30, t], cable2[30, t], ticks, 
            waveform[t]}], 
AspectRatio -> 
          Automatic , 
PlotRange -> {{-l - 2*r, 
              1.5*r}, {-1.5*d - 1.5*r, 
              2*d + 1.5*r}}, 
ImageSize -> {480, 
            256}]
, {t, 0, 2*π - 0.001, 
        2*π/16. }]