<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div><span>Com ?nls.lm você resolveria seu problema. No entanto, segue um exemplo:</span></div><div><br><span></span></div><div><span>f <-function(luz,a,b){<br> (((0.01940*luz+a+0.60375)-(((0.01940*luz+a+0.60375)^2)-4*0.01940*luz*b*(a+0.60375))^0.5)/2*b)-0.60375<br>}<br>preditos <- do.call('f',c(list(luz=luz),lin1$par))<br><br>plot(luz,Pn,ylim=c(-1,5),type='l')<br>par(new=TRUE)<br>plot(luz,preditos,ylim=c(-1,5),col='red',xlab='',ylab='',type='l')<br></span></div><div><br><span></span></div><div><span>(S,f,P)</span></div><div><span>Allaman<br></span></div><div> </div><div style="background-color: transparent;" align="center"><font style="background-color: transparent;" face="comic sans ms" size="2"><font size="1"><b><br></b></font></font></div><div style="text-align: left; background-color: transparent;"
align="center"><font style="background-color: transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\begin{signature}</font></font></div><div style="text-align: left; background-color: transparent;" align="center"><font style="background-color: transparent;"><font face="courier, monaco, monospace, sans-serif" size="2"><<>>=</font></font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Prof. Dr. Ivan Bezerra Allaman</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Universidade Estadual de Santa Cruz</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif"
size="2">Departamento de Ciências Exatas e Tecnológicas</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Ilhéus/BA - Brasil</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">Fone: +55 73 3680-5076</font></div><div style="text-align: left; background-color: transparent;" align="center"><font class="Apple-style-span" face="courier, monaco, monospace, sans-serif" size="2">E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com</font></div><div style="text-align: left; background-color: transparent;" align="center"><font style="background-color: transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">@</font></font></div><div style="text-align: left; background-color: transparent;"
align="center"><font style="background-color: transparent;"><font face="courier, monaco, monospace, sans-serif" size="2">\end{signature}</font></font></div></div></body></html>