powered by
catenary
tmp <- catenary(c1=1,c2=2,lambda=3,x0=0,x1=3) L(tmp)
Run the code above in your browser using DataLab