noxff1
ynumberplace right
ynumberangle -90
xorigin 0.5
numbersize 0.12
labelsize 0.14
textsize 0.18
alias exit quit
setfont Times-Roman
alias red setrgb 1 0 0
alias blue setrgb 0 0 1
alias green setrgb 0 1 0
alias black setrgb 0 0 0
alias white setrgb 1 1 1
alias magenta setrgb 1 0 1
alias cyan setrgb 0 1 1
alias yellow setrgb 1 1 0
%red=1 0 0
%blue=0 0 1
%green=0 1 0
%black=0 0 0
%white=1 1 1
%magenta=1 0 1
%cyan=0 1 1
%yellow=1 1 0

ticsize -0.1
ylabeloffset 0.75
numbersize 0.14
labelsize 0.18

ydim 5
xdim 5

if { $nocolor not } then
   com 72colortable.plot
endif
com spectra.plt
zmin -13
zmax -10
colorcontour

xlab Sweep Voltage (V)
ylab Frequency (Hz)
doaxes

yscale
move -0.5 -750
arrowheadsize 0.1
filledarrow -0.5 750
move -0.5 3750
filledarrow -0.5 2250
move -0.6 1500
textsize 0.12
textangle 90
centertext
text Bandpass
noyscale
left
textangle 0

origin 5.2 0
xdim 0.25
ydim 3
zdim 3
showcolorscale
ymin { 10 $zmin exp }
ymax { 10 $zmax exp }
ylab Power
ylog
ynumberplace left
showsecondyaxis
ynumberplace right
noylog 
origin -5.2 0

origin 0 5.25
ydim 3
xdim 5

noax
ylog
ysci
data second_derivative.dat
yrescale
ymin 1.1e-11
ymax 9.9e-7
datacolor |%black
clip
plot
noclip

datathick 6
noax
data current.dat
noconnect
symbols
symbolsize 0.04
symbolnumber 1
filledsymbols
load
doderiv
doderiv
if $smooth
   ysmooth $smooth
   dosmooth
   ysmooth 0
endif
datacolor |%red
clipataxes
doplot
noclip
axes
ynumberplace left
axiscolor |%red
ylab d|+2|=I/dV|+2|= (A/V|+2|=)
showsecondyaxis
ynumberplace right
noaxes
connect
nosymbols

clip
com spectra_slice.dat
data spectra_slice.dat
ylab Scaled |$freq Hz Power (A/V|+2|=)
datacolor |%blue
y={y $delta_freq mul $a1 div $a2 div 4 mul}
!ymin 1.1e-15
!ymax 9.9e-11
plot
axes
axiscolor |%black
showsecondxaxis
xlab
xns 0
showxaxis
axiscolor |%blue
showyaxis

textsize 0.14
move {$xdim 0.1 sub} {$ydim 0.25 sub}
right
text |SD|Tn/n = |{ $dn 100 mul}%