WolframAlpha computational knowledge AI
(d=((B*N)/(375*m^2))*sqrt(562500*c^2-(B*k*N)^2)),N=1000*c/(2*k*B),B=(1+m/p),k=0.5,m=0.5,c=0.03,p=0.58