2011-10-17 10/17 MIKUセミナー 数学 R を解くと Rで描くと f<- function(x){ return(sqrt(10-sin(x)/x)) } a<- seq(0.1,300,0.01) plot(a,f(a),cex=0.3) なので漸近線は