search for: pdebye

...unction 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)) %%This is Rg Rg<-function(L,b)(Rg0sq(L,b))^0.5 %%A debye function of q, the parameters are L and b PDebye<-function(L,b)2*(exp(-q^2*Rg0sq(L,b))+q^2*Rg0sq(L,b)-1)/q^4/(Rg0sq(L,b))^2 %%Another function of q that quote w, PDebye, Rg, parameters are v, L and b Pexv<-function(v,L,b)w(q*Rg(L,b))*PDebye(L,b)+(1-w(q*Rg(L,b)))(1.22*(q*Rg(L,b))^(-1/v)+0.4288*(q*Rg(L,b))^(-2/v)-1.651*(q*Rg(L,b))^(-1/v)) %...