Displaying 2 results from an estimated 2 matches for "debye".
Did you mean:
debe
2010 Oct 04
1
Debye function
Un texte encapsul? et encod? dans un jeu de caract?res inconnu a ?t? nettoy?...
Nom : non disponible
URL : <https://stat.ethz.ch/pipermail/r-help/attachments/20101004/f4d79cd9/attachment.pl>
2012 Aug 11
1
unsued argument
...(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))
%%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.428...