again a surface-problem

[Leo Baumann]

Hello,

this is the correct diagram evaluated outside Octave:

www.leobaumann.de/newsgroups/vertDipolOPG_MuPAD.jpg


This is the wrong diagram evaluated with Octave:

www.leobaumann.de/newsgroups/vertDipolOPG_Octave.png

The problem is that the correct diagram shows a lot of lobes which are 
not shown in the with Octave evaluated diagram. Is that a problem of 
ezsurf() or did I make a mistake? I hope I have set the " .*, ./ " all 
correct this time.

This is the Octave-script:

clc;
clear all;
h=1/2;b2=12;l=1;wh=0;

c=@(the,phi1) abs((cos(pi*h/l*cos(phi1))-cos(pi*h/l))./sin(phi1)) \
                 *2 .*abs(cos(pi*2*(b2+h/2)/l*cos(phi1)));

phi1=linspace (-pi/2, pi/2, 1000);
polar(phi1+pi/2, c(wh,phi1));
set (gca, "rtick", 0.2:0.2:2, "ttick", 0:10:180);
title ("Vertikaldiagramm");
#print("vertDipolOPG0.png", "-dpng");
input("weiter - <RETURN>", "s");

ezsurf(@(the,phi1) c(the,phi1).*cos(the).*sin(phi1),\
       @(the,phi1) c(the,phi1).*sin(the).*sin(phi1),\
       @(the,phi1) c(the,phi1).*cos(phi1), [-pi, pi, -pi/2, pi/2] ,30);
title ("Antennendiagramm");

axis equal;
#print("vertDipolOPG_Octave.png", "-dpng");

Thanks - Regards - Leo