########################################
# FH HN   , Physik f. FT, MI   kr 7/96 #
########################################
set arrow 1 from 0,0,0 to 0,0,220
set isosamples 18, 18
set surface
set contour both
set cntrparam levels auto 5
set title "Elektrostat. Potential einer Punktladung" 0,0
set xlabel "x" 0,0
set xrange [-1 : 1]
set ylabel "y" 0,0
set yrange [-1 : 1]
set zlabel "Potential" 0,0
set zrange [0 : 120]
min(a,b)= a<b ? a : b
pot(x,y)=min(Umax,U0/sqrt(x**2+y**2))
Umax = 250.0
U0 = 20.0
splot pot(x,y)