<div dir="ltr"><div dir="ltr"><div>OM各位</div><div><br></div><div>お世話になっております、JG1TOL渡邉です。</div><div><br></div><div>半年ほど前に、「クロス八木の偏波面」について、色々と</div><div>質問させて頂きました。</div><div>その際は色々とお騒がせし、また失礼も多々ありました事を</div><div>改めてお詫びいたします。</div><div><br></div><div>先日、ふと下記のサイトを見ていたところ、（このサイトの情報が</div><div>正しいと仮定した場合）偏波が合成される様子をベクトルの合成で</div><div>表現できるならば容易に右旋、もしくは左遷偏波を動画化できる事</div><div>に気づいたので試してみました。</div><div><br></div><div><a href="https://www.icom.co.jp/beacon/backnumber/technical/antenna/002.html">https://www.icom.co.jp/beacon/backnumber/technical/antenna/002.html</a></div><div><br></div><div>動画そのものを投稿してもロジックが伝わらないかと思いまして、</div><div>以下にエクセルマクロのソースコードを投稿させて頂きます。</div><div><br></div><div>「だから何？」と言う反応しか頂けないであろう事は百も承知ですが・・・</div><div><br></div><div>※Gmailによって、改行数が自動で短縮されるかも知れません。見辛さについて予めお詫び致します。</div><div><br></div><div>※ソースコード冒頭の</div><div>D = -90</div><div>を</div><div>D = 0</div><div><br></div><div>とすると同相＝「位相給電を行わない場合」の</div><div>シミュレートになります。</div><div><br></div><div>以下、ソースコードとなります。</div><div>エクセルのマクロとしてそのままペーストすれば動きます。</div><div>---</div><div>Sub Henpa()</div><div><br></div><div>'移送の遅延度合</div><div>D = -90</div><div><br></div><div>Cells(1, 1) = "アンテナ①のベクトル"</div><div>Cells(1, 4) = "アンテナ②のベクトル"</div><div>Cells(1, 8) = "合成後のベクトル"</div><div><br></div><div>For i = 1 To 1440 Step 10<br></div><div><br></div><div>i2 = i Mod 360</div><div><br></div><div>'アンテナ①の電力</div><div>R1 = Sin(WorksheetFunction.Radians(i2))</div><div>'アンテナ②の電力</div><div>R2 = Sin(WorksheetFunction.Radians(i2 + D))</div><div><br></div><div>'アンテナ①のベクトル（先端）</div><div>x1 = Cos(WorksheetFunction.Radians(45 + 90)) * R1</div><div>Y1 = Sin(WorksheetFunction.Radians(45 + 90)) * R1</div><div><br></div><div>'アンテナ②のベクトル（先端）</div><div>x2 = Cos(WorksheetFunction.Radians(45)) * R2</div><div>y2 = Sin(WorksheetFunction.Radians(45)) * R2</div><div><br></div><div>'描画用の倍数</div><div>x1 = x1 * 50</div><div>Y1 = Y1 * 50</div><div>x2 = x2 * 50</div><div>y2 = y2 * 50</div><div><br></div><div>'アンテナ①の描画</div><div>   ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 50, 100, x1 + 50, Y1 + 100). _</div><div>        Select</div><div>        Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle</div><div>   </div><div>'アンテナ②の描画</div><div>   ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 200, 100, x2 + 200, y2 + 100). _</div><div>        Select</div><div>        Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle</div><div><br></div><div>'合成後ベクトルの描画</div><div>   ActiveSheet.Shapes.AddConnector(msoConnectorStraight, 400, 100, x1 + x2 + 400, Y1 + y2 + 100). _</div><div>        Select</div><div>        Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle</div><div><br></div><div><br></div><div>'描画遅延ループ</div><div>For j = 0 To 1000</div><div>DoEvents</div><div>Next j</div><div><br></div><div>'オートシェイプ削除</div><div> Dim shp As Shape</div><div> For Each shp In ActiveSheet.Shapes</div><div> shp.Delete</div><div> Next shp</div><div><br></div><div><br></div><div>Next i</div><div><br></div><div>End Sub</div><div><br></div><div>---</div><div>以上です、宜しくお願い致します。</div><div><br></div></div></div>