search for: rg0sq

It is a complex function, functions are quoted frequently, you may read from bottom up The independent variable for final fit is q %%Rg0 is a function of L and b Rg0sq<-function(L,b)L*b/6*(1-3/2*b/L+3/2*(b/L)^2-3/4*(b/L)^3*(1-exp(-2*L/b))) %%alpha is a defined function alpha<-function(x)(1+(x/3.12)^2+(x/8.67)^3)^(0.176/3) %%w is a defined function w<-function(x)(1+tanh(x-1.523)/0.1477)/2 %%It is Rg^2 Rgsq<-function(L,b)(alpha(L/b)*Rg0sq(L,b)) %%Th...