#
# $Id: poldat.dem,v 1.9 2010/11/18 23:59:58 sfeam Exp $
#
#
set size square
set time
set clip
set xtics axis nomirror
set ytics axis nomirror
unset grid
unset polar
set title "Primitive Smith Chart"
unset key
set xlabel "Impedance or Admittance Coordinates"
set para
set rrange [-0 : 10]
set trange [-pi : pi]
set xrange [-1:1]
set yrange [-1:1]
tv(t,r) = sin(t)/(1+r)
tu(t,r) = (cos(t) +r)/(1+r)
cu(t,x) = 1 + cos(t)/x
cv(t,x) = (1+ sin(t))/x
plot cu(t,.1),cv(t,.1),cu(t,.1),-cv(t,.1),\
cu(t,1),cv(t,1),cu(t,1),-cv(t,1),\
cu(t,10),cv(t,10),cu(t,10),-cv(t,10),\
tu(t,.1),tv(t,.1),\
tu(t,.5),tv(t,.5),\
tu(t,1),tv(t,1),\
tu(t,5),tv(t,5),\
tu(t,10),tv(t,10),\
cu(t,.5),cv(t,.5),cu(t,.5),-cv(t,.5),\
tu(t,0),tv(t,0)
#cu(t,5),cv(t,5),cu(t,5),-cv(t,5)

Click here for minimal script to generate this plot

set angles degrees
set polar
set grid polar 15.
unset border
unset param
set title "Antenna Pattern"
set xlabel "Azimuth"
set ylabel "dBSM"
set style data line
set rrange [-200:25]
set trange [-pi:pi]
set xrange [-220:220]
set yrange [-220:220]
set mrtics 5
unset xtics
plot "-" using 1:5,"-"
e

Click here for minimal script to generate this plot

set polar
set grid polar
set border 0
set logscale r 10
set view equal xy
set size square
set noxtics
set noytics
set rrange [.5:19]
set rtics axis scale 0.5,0 nomirror rotate by -270  offset 0, 0.7
set rtics (2,5,10,15)
set key opaque box samplen 0.75
set title "log scale polar axis" 
#
set style data impulse
plot 'silver.dat' using ($1/100.):3:0 lc var lw 2 title 'silver.dat'


Click here for minimal script to generate this plot