% Test script to test kappa2


disp(' '); disp(' Start here');
x=[.55 .55 .55 .55]
sinphialp=[.3 .3 .3 .3]
kappa=kappa2(x,sinphialp)