@vv 

Like I said, It had to have been easier than I was making it out to be. Thanks for helping

@Christian Wolinski I can't upvote because I don't have enough rep but this was able to get me the graph I needed. I should be able to make it look nice now for this report. Thank you!!

@Christian Wolinski 

I think I was able to adjust this to what I need. Bare with...

@Christian Wolinski 

K=6.6910*10^(-6)

ap=-0.000011367

Q=0.0038781

P=-0.0005988277808*2^(1/6)

@Christian Wolinski Those parameters are constants

0.0309;
                             "(->)"

                              delt
sqrt(Pi*exp(-1/(3*delt) - 1)/2^(2/3));
                             "(->)"

                               Q
-1.0188;
                             "(->)"

                               s
-Q*AiryBi(s)/AiryAi(s);
                             "(->)"

                               P

(2^(1/6)*Q/(Pi*AiryAi(s)))^2;
                             "(->)"

                               K
-2^(2/3)*AiryAi(1, s)/AiryAi(s);
                             "(->)"

                               ap