search for: tan0tm

Displaying 1 result from an estimated 1 matches for "tan0tm".

2011 Oct 20
1
Applying function with separate dataframe (calibration file) supplying some inputs
...is type of cross referencing would suffice and I can apply the principle to my current problem. Thanks so much, Nate optode<-function(cal0,T0,cal100,T100,phase,temp) { f1=0.801 deltaPsiK=-0.08 deltaKsvK=0.000383 m=22.9 tan0T100=tan(((cal0+deltaPsiK*(T100-T0)))*pi/180) tan0Tm=tan((cal0+(deltaPsiK*(temp-T0)))*pi/180) tan100T100=tan(cal100*pi/180) tanmTm=tan(phase*pi/180) A=tan100T100/tan0T100*1/m*100^2 B=tan100T100/tan0T100*100+tan100T100/tan0T100*1/m*100-f1*1/m*100-100+f1*100 C=tan100T100/tan0T100-1 KsvT100=(-B+(sqrt(B^2-4*A*C)))/(2*A) KsvTm=Ksv...