###########################################################################
# Scriptfile: negative_index_analysis.lsf
#
# Description: This file plots the normalized transmission and reflection
#	as a function of frequency for the simulation negative_index.fsp
#	which models the structure described in
#	J. Zhou et a., "Negative index materials using 
#	simple short wire pairs", Physical Review B 73 (2006).
#
#
# Copyright 2007, Lumerical Solutions, Inc.
###########################################################################

# get the frequency, R and T 
f = getdata("T","f");
T = transmission("T");
R = -transmission("R");

# plot the results on separate figures, dB scale
plot(f*1e-9,10*log10(T),"frequency (GHz)","Transmission (dB)");
plot(f*1e-9,10*log10(R),"frequency (GHz)","Reflection (dB)");