function [fs,ts]=p935(Ps)
global P f
fs=[];
ts=[];
kmax=length(Ps);
for k=1:kmax
   P=Ps(k);
   t=ssec2([300 1200],'er935(x)');
   fs=[fs,f];
   ts=[ts,t];
end
