From 70639dc95b498a5339ae578a1286df92ed2c1624 Mon Sep 17 00:00:00 2001
From: Christophe Geuzaine <cgeuzaine@uliege.be>
Date: Wed, 13 Apr 2022 12:21:16 +0200
Subject: [PATCH] fix dR[] in 3D
---
Antennas/dipole.pro | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Antennas/dipole.pro b/Antennas/dipole.pro
index eb752cc..6131c67 100644
--- a/Antennas/dipole.pro
+++ b/Antennas/dipole.pro
@@ -130,7 +130,7 @@ Function {
eta0 = 120*Pi ; // eta0 = Sqrt(mu0/eps0)
- dR[] = (Flag_3Dmodel) ? Unit[ Vector[Sin[Atan2[Z[],X[]]#1], 0, Cos[#1]] ] : Vector[0,0,1] ;
+ dR[] = (Flag_3Dmodel) ? Unit[ Vector[Cos[Atan2[Z[],X[]]#1], 0, Sin[#1]] /\ Vector[0, 1, 0] ] : Vector[0,0,1] ;
V0 = 1. ;
--
GitLab