Displaying 1 result from an estimated 1 matches for "pexv".
Did you mean:
pexp
2012 Aug 11
1
unsued argument
...ction(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))
%%Another defined function
cf<-function(L,b,pa,pb)pa/(L/b)^pb
%%A function of q, quote Pexv, Rgsq, cf
Psfcex<-function(v,L,b,pa,pb)Pexv(v,L,b)+cf(L,b,pa,p...