cop.avm 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354
  1. #
  2. # These functions may be useful in conjunction with non-linear
  3. # optimization by the minpack and kinsol libraries.
  4. #
  5. # Copyright (C) 2007-2010 Dennis Furey
  6. #
  7. # between (2749)
  8. # chov (2843)
  9. # half_line (642)
  10. # jacobian (1323)
  11. # jacobian_row (1053)
  12. # over (824)
  13. # t_derivative (178)
  14. # under (957)
  15. #
  16. # compressed with granularity 131
  17. #
  18. #
  19. # This program is free software; you can redistribute it and/or modify
  20. # it under the terms of the GNU General Public License as published by
  21. # the Free Software Foundation; version 3.
  22. #
  23. # This program is distributed in the hope that it will be useful,
  24. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  25. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  26. # GNU General Public License for more details.
  27. #
  28. # You should have received a copy of the GNU General Public License
  29. # along with this program; if not, write to the Free Software Foundation,
  30. # Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  31. #
  32. {kwOZtsRrf{wPxz{vjINYNgOwRtjSGJK{QST{zniiY{hvqO{xXnoP{[y[yiXjmz[CuAHjEoqm[cqqrz
  33. QSNd[D[cZhiroeuS_yaz[ysHpaC\LApAy[{o>[OQ@sc_CyN[pSy{yra]RPU^{zx[cwpbPbboQUpMcwf
  34. ={V[qc{{PeTOStF^[cmyvCnavySwibduPcd@SyDE[p\[tncu{yZgS>{x\FCmctx[lA]CnjI{ppGn[W`
  35. [_cyTF[yTE[W\=[=ZSu{PgEMz[lLA\mZjtYBY=Zgn[crBNxJ[S[]b<m[a@EySXe{PXavcnSR[{lAID[
  36. ^[]bC{f{zFFl`Bgp]y]yRfvkaD[S{b=cyt_CurRLcw\v_ub[UyLcu{NVm]Z`S^fCuyfw{{b<RBgq<R@
  37. CaQfzg{kaTY[{z\AwY\<Qaxp_CyUvMZ<@N]@t@S^[SNp>[>at<]x=tVjj[a{{vDVhEb_G^Bgkf{{OSw
  38. ZF[cs{{b[QQGRxwr<=[Q?MExtKruzfSRnHbZZSLAbTVjgd[Ux[csJ<VhF]CNBgg]fuz[TU{pqZVClCc
  39. uZ[clhRJ@WQ_iQSD{JVFmT<=y<l[<EXQPdHL?cbTBBgVk<RDAd[BZ>jBp<ChBkFtVj]x=yR[cr?czx=
  40. Ub]xcnCrC\UpdOa?CBU[AsrtDEuN@MyyI`\D<@F\BfBgbTc<R?@St[UP]hZg]gp=UcaVClCqr[cnub=
  41. lA\ClA]=dOKAtyIxxAaxQYEazt`N_kkhD<W=ftgfU]pOtF[k=x=ftWBU\XiP=Uc]yD[BZg^dBTbUd^<
  42. YQUnYO`J\bviM<K{OLdISPkNdZBk<<<fcL[]{p{<PBg]v^dQjBTCJQ`=THRg\>e\f=bURJnvp_A?Qob
  43. Cuy]]c?^OqP\dW><<rPmz[TCHLVx=@<=p^dQzrU]]ft<<[qIMxKNJjmmQSFClCqTPiQJGL<[\>f]x=y
  44. UA=hTtp<C{OPFdBg{wiWdpATKMlPtHILAbZQe_hHcDA\Y<RUuv<Zet=z[TJ<<Vh[awPqQR^QA<vY\LU
  45. \XiOGoHoL`Ub=o{t@Sz]x]yY]fd[tzXRa\vTFZoQ^dMjLmQ<_LFF]=z[JEz[LApA]q=hTS_CyIrqNOt
  46. q>ut<YD>`@\<D[TZjD[TZU^o_\Z>[@EzcJoTMAOdAWq_CgLA]=fx=TLTfH{r>ecfMZoiMQu\kQWqZAN
  47. hUdvjUd\D[uy<\m<e[?mlIXpP^yO^{z?PF\Bg^d=zSuZ<EuX?iDqPe=q\nUz[PQ<=ft>Cr[[QT<uwPc
  48. jlKJRoFCrCgPBgLA^=[zuR<=C?IQRoiQ<_<R@BILVebEcuyNqIHFRCaPDt=b^q=fFvd[BZojFTWOqBW
  49. Tf=LB\<@=THL=pgHzKQqQP<dUbC_M>PsJGvvJX<fc\<WRHbyOQSP<[y?poGq?]QQCuycR<_JFSJoD[T
  50. [PuT?EqWSQ<R@BjqPoGjzQPUdoQ]\DqSHp_Df<dOLRCVRGL=S?Va]EHIOPiXmZpwFn@qPaP=O>TI\WY
  51. SXiJCyNESPqiMQaUQ`wVQ]yqIRPyPtrptyQiMOQPtiQa]]dnV]URrhnqZXyDDlqOrq\AjNeUahq\iYQ
  52. ryPgJIQQM\AIw`]aBqQSPwFuaQ@QNYrjM]QQIyWZTwQSQSSrq__pwQ_qQuQHeiWaKPwIDnGkaIQJGpa
  53. \<KHp]_?E]\NYeTSgHqFa]IQLDt>qnu`ANh]sWLAIQIuBtwQSnrq__sNQZQOFZPwIDnGqUpa\<F_zB=
  54. DgWqPNqkQ\@ho^pADnYBhnPdDx\YSbYSfJyFryPiXtdNnHbAGHb\_F@aUwpyPtdnWH\^<