function outVal = secTacoma(W1,W2)
errVal = 100;
W3=0;
inter=[0 1000];
ic=[0 0 0.001 0];
h=.04;
p=3;
while errVal > 1e-3
    func2 = tacoma6(inter,ic,h,p,W2);
    func1 = tacoma6(inter,ic,h,p,W1);
    W3 = W2 - ((func2)*(W2-W1))/(func2-func1)
    errVal = abs(tacoma6(inter,ic,h,p,W3));
    W1=W2;
    W2=W3;
end
end