From 55222bd883ccd184d90d4742a751507f2e047ff1 Mon Sep 17 00:00:00 2001
From: Christophe Geuzaine <cgeuzaine@ulg.ac.be>
Date: Fri, 27 Dec 2019 10:20:32 +0100
Subject: [PATCH] Use natural (positive) convention for impedance calculation

---
 Antennas/dipole.pro | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/Antennas/dipole.pro b/Antennas/dipole.pro
index cf022c8..eb752cc 100644
--- a/Antennas/dipole.pro
+++ b/Antennas/dipole.pro
@@ -130,8 +130,7 @@ Function {
 
   eta0 = 120*Pi ; // eta0 = Sqrt(mu0/eps0)
 
-  // FIXME: CG "Y[]" should be 0 in 3D !?
-  dR[] = (Flag_3Dmodel) ? Unit[ Vector[Sin[Atan2[Z[],X[]]#1], Y[], -Cos[#1]] ] : Vector[0,0,-1] ;
+  dR[] = (Flag_3Dmodel) ? Unit[ Vector[Sin[Atan2[Z[],X[]]#1], 0, Cos[#1]] ] : Vector[0,0,1] ;
 
 
   V0 = 1. ;
-- 
GitLab