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}%