ieee14.c

一种求解目标函数最小化的MATLAB仿真程序.

/*
   The calling syntax is:
          [f,J] = IEEE14(data,x,param,v)
*/

#include <math.h>
#include "mex.h"

static
#ifdef __STDC__
void IEEE14(
                           double  f[],
                           double  J[],
                           double  data[],
                           double  x[],
                           double  param[],
                           double  v[]
                     )
#else
IEEE14(f,J,data,x,param,v)
double             f[],J[];
double             data[],x[],param[],v[];
#endif

/*      Computational Routine    */
{
   double   t396, t25, t28, t21, t31, t22, t33, t27, t26, t406;
   double   t24, t389, t463, t1297, t1087, t215, t264, t1083, t243, t45;
   double   t1554, t48, t188, t260, t1, t1601, t1101, t981, t401, t404;
   double   t627, t74, t201, t553, t626, t71, t851, t1095, t720, t1097;
   double   t643, t322, t719, t66, t1784, t559, t717, t716, t206, t194;
   double   t397, t1093, t252, t400, t432, t1089, t61, t72, t52, t635;
   double   t207, t725, t1108, t299, t415, t1659, t507, t919, t633, t418;
   double   t724, t226, t36, t632, t1104, t399, t229, t646, t34, t32;
   double   t77, t630, t76, t629, t213, t408, t405, t413, t421, t867;
   double   t81, t496, t42, t216, t203, t156, t807, t82, t564, t1115;
   double   t50, t504, t960, t225, t211, t222, t219, t218, t1663, t1111;
   double   t636, t53, t38, t728, t221, t520, t49, t212, t261, t1062;
   double   t314, t209, t44, t1007, t208, t407, t437, t449, t220, t46;
   double   t87, t210, t1799, t43, t86, t47, t435, t214, t103, t642;
   double   t1803, t223, t198, t202, t205, t224, t204, t284, t285, t1407;
   double   t230, t412, t197, t363, t196, t60, t200, t345, t55, t651;
   double   t649, t271, t249, t648, t190, t58, t414, t1674, t97, t93;
   double   t193, t1413, t350, t96, t1807, t91, t171, t645, t56, t327;
   double   t411, t375, t170, t163, t427, t147, t652, t316, t422, t420;
   double   t882, t1131, t233, t416, t99, t59, t424, t423, t431, t63;
   double   t948, t1676, t167, t232, t168, t417, t419, t841, t1415, t1417;
   double   t438, t439, t1137, t62, t741, t742, t736, t436, t241, t1682;
   double   t434, t1135, t912, t57, t430, t598, t433, t442, t447, t448;
   double   t428, t440, t481, t246, t1680, t1255, t100, t1133, t737, t516;
   double   t64, t453, t450, t451, t454, t462, t253, t1064, t250, t775;
   double   t109, t446, t248, t1265, t107, t1141, t748, t153, t482, t443;
   double   t245, t444, t403, t244, t1139, t102, t113, t459, t599, t1692;
   double   t68, t112, t263, t1147, t754, t753, t1271, t258, t110, t20;
   double   t259, t257, t150, t557, t1145, t256, t455, t108, t749, t254;
   double   t1269, t146, t65, t839, t111, t255, t270, t269, t337, t120;
   double   t69, t409, t1278, t464, t19, t555, t119, t330, t1153, t1696;
   double   t117, t70, t1276, t880, t510, t1151, t115, t121, t1409, t265;
   double   t268, t116, t114, t281, t228, t280, t282, t18, t73, t125;
   double   t425, t278, t333, t277, t662, t378, t663, t124, t1590, t1159;
   double   t584, t276, t283, t972, t279, t1282, t336, t274, t765, t821;
   double   t466, t1157, t122, t272, t468, t469, t470, t471, t472, t275;
   double   t273, t1534, t465, t123, t80, t927, t1421, t23, t128, t135;
   double   t301, t766, t288, t1293, t476, t478, t479, t946, t287, t475;
   double   t291, t290, t127, t575, t1706, t517, t1815, t292, t289, t666;
   double   t297, t235, t134, t126, t763, t1552, t665, t130, t1289, t493;
   double   t1511, t473, t2, t251, t1505, t303, t304, t15, t486, t132;
   double   t773, t1489, t870, t1301, t300, t772, t1710, t671, t75, t295;
   double   t302, t456, t296, t670, t783, t483, t487, t489, t490, t1295;
   double   t294, t138, t129, t293, t842, t480, t394, t1719, t239, t139;
   double   t838, t141, t140, t234, t313, t137, t311, t315, t391, t1174;
   double   t603, t136, t1717, t12, t492, t782, t309, t308, t143, t83;
   double   t850, t310, t133, t307, t305, t1712, t776, t8, t686, t158;
   double   t1069, t236, t148, t324, t154, t685, t1047, t498, t499, t502;
   double   t503, t9, t1424, t1723, t1628, t16, t497, t1180, t318, t323;
   double   t501, t320, t319, t681, t949, t95, t321, t680, t142, t854;
   double   t445, t151, t145, t1391, t678, t13, t677, t506, t237, t1730;
   double   t335, t540, t787, t227, t328, t92, t155, t329, t1186, t326;
   double   t1319, t217, t514, t238, t152, t727, t933, t792, t402, t325;
   double   t1317, t94, t149, t914, t341, t164, t342, t1736, t10, t1385;
   double   t793, t169, t1193, t596, t332, t1325, t1558, t338, t247, t1734;
   double   t98, t159, t452, t1191, t457, t426, t1323, t7, t334, t351;
   double   t353, t349, t703, t1071, t1742, t348, t875, t388, t824, t186;
   double   t346, t521, t1011, t347, t1738, t604, t508, t511, t513, t166;
   double   t1196, t798, t1633, t343, t788, t695, t262, t515, t458, t359;