function [x,y,d]=airyd(x,y,d)

y=s17agf(x);
d=s17ajf(x);
