% 3-minute demo of survey.m, showing 3 modes. The middle one, k=39.957, is a "bowtie".
% CCK 2016-Mar-10

k1 = 39.94
k2 = 39.97
L  = 2
safety = 20
outfile = 'surveytest.mat'

figure(1)
start_time = datestr(now)
[tension, k] = survey(k1, k2, L, safety, outfile);
finish_time = datestr(now)

figure(2)
hold off
plot(k,log10(tension),'r')

