This is the revision history for _tempconv_newton in <freenode.net:#perlbot>
factoid_id | subject | copula | predicate | author | namespace |
---|---|---|---|---|---|
13863 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$i=100;my$out=0;while(abs($f->($out)-$in)>$e && $i--){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};($i==-1?"~":"").sprintf((abs($out)>0.01||$out==0?"%0.02f":"%0.02e"),$out)}; | simcop2387 | <*:##NULL> |
13862 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$i=100;my$out=0;while(abs($f->($out)-$in)>$e && $i--){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};sprintf((abs($out)>0.01||$out==0?"%0.02f":"%0.02e"),$out)}; | simcop2387 | <*:##NULL> |
13861 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$i=100;my$out=0;while(abs($f->($out)-$in)>$e && $i--){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};sprintf((abs($out)>0.01?"%0.02f":"%0.02e"),$out)}; | simcop2387 | <*:##NULL> |
13860 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$i=100;my$out=0;while(abs($f->($out)-$in)>$e && $i--){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};sprintf("%0.02f",$out}; | simcop2387 | <*:##NULL> |
13859 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$i=100;my$out=0;while(abs($f->($out)-$in)>$e && $i--){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};sprintf((abs($out)>0.01?"%0.02f":"%0.02e"),$out}; | simcop2387 | <*:##NULL> |
13858 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$i=100;my$out=0;while(abs($f->($out)-$in)>$e && $i--){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};sprintf(abs($out)>0.01?"%0.02f":"%0.02e",$out}; | simcop2387 | <*:##NULL> |
13857 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$i=100;my$out=0;while(abs($f->($out)-$in)>$e && $i--){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};sprintf"%.02g",$out}; | simcop2387 | <*:##NULL> |
13856 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$i=100;my$out=0;while(abs($f->($out)-$in)>$e && $i--){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};sprintf"%0.02g",$out}; | simcop2387 | <*:##NULL> |
13854 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$i=100;my$out=0;while(abs($f->($out)-$in)>$e && $i--){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};sprintf"%0.02f",$out}; | simcop2387 | <*:##NULL> |
13017 | _tempconv_newton | is | sub inv($f,$in){$e=0.005;my$out=0;while(abs($f->($out)-$in)>$e){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$in-$x)/$e;$out=$out-$x/$Dx;};sprintf"%0.02f",$out}; | simcop2387 | <*:##NULL> |
12995 | _tempconv_newton | is | sub inv($f,$in){my$e=0.001;my$out=0;while(abs($f->($out)-$in)>$e){my$x=$f->($out)-$in;my$Dx=($f->($out+$e)-$x)/$e;$out=$out-$x/$Dx};sprintf"%0.02f",$out}; | simcop2387 | <*:##NULL> |