ieee30.c

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

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

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

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

/*      Computational Routine    */
{
   double   t865, t1000, t998, t1005, t1003, t147, t999, t247, t932, t1702;
   double   t1002, t210, t909, t414, t500, t2516, t692, t348, t1, t1009;
   double   t1010, t629, t1007, t261, t898, t907, t911, t910, t388, t1022;
   double   t391, t2228, t1421, t2517, t1420, t1419, t1014, t900, t1817, t396;
   double   t382, t1008, t929, t1418, t311, t831, t1013, t381, t1012, t609;
   double   t848, t577, t610, t1428, t3264, t3265, t611, t925, t933, t1960;
   double   t1647, t2224, t1425, t1017, t1377, t2223, t384, t387, t951, t547;
   double   t564, t1423, t1016, t989, t385, t1426, t386, t821, t1959, t1024;
   double   t903, t1023, t880, t1734, t615, t618, t616, t392, t393, t1732;
   double   t2226, t1021, t1431, t1020, t389, t613, t1019, t1957, t1645, t390;
   double   t612, t2818, t1942, t877, t845, t2243, t619, t1748, t1029, t205;
   double   t398, t270, t399, t2522, t401, t760, t620, t1743, t1028, t1742;
   double   t866, t1741, t273, t1027, t2242, t1648, t405, t617, t1740, t292;
   double   t1026, t293, t943, t302, t2521, t394, t2819, t1737, t395, t272;
   double   t2245, t1450, t625, t2348, t1753, t3508, t2347, t416, t2346, t1651;
   double   t304, t867, t622, t626, t624, t407, t406, t908, t700, t702;
   double   t2046, t1034, t1033, t905, t1445, t922, t705, t1355, t1032, t403;
   double   t2244, t1652, t1444, t1649, t1650, t402, t1747, t621, t274, t1030;
   double   t400, t1962, t1745, t1855, t3510, t409, t2355, t2938, t415, t1038;
   double   t1756, t3403, t1755, t1452, t1037, t1035, t632, t623, t628, t410;
   double   t1754, t275, t3405, t1121, t1458, t420, t3513, t417, t1654, t2250;
   double   t421, t418, t2054, t3512, t1041, t1117, t2824, t1969, t265, t2053;
   double   t3514, t111, t2052, t243, t2354, t1040, t2232, t1115, t412, t2353;
   double   t411, t1758, t413, t1036, t2940, t991, t1949, t1779, t1039, t2368;
   double   t427, t3518, t267, t1767, t1465, t719, t1464, t423, t1048, t259;
   double   t633, t327, t2061, t425, t634, t3516, t158, t1047, t2060, t638;
   double   t635, t264, t2361, t1462, t2944, t424, t426, t1046, t2059, t1124;
   double   t1656, t1045, t1379, t2057, t1460, t430, t419, t1043, t1459, t630;
   double   t1044, t2247, t2359, t2808, t3406, t885, t2527, t2055, t263, t631;
   double   t2826, t1951, t2056, t435, t436, t1052, t439, t2829, t840, t797;
   double   t3410, t2366, t717, t703, t1051, t432, t431, t2948, t257, t1131;
   double   t1050, t838, t1467, t1967, t637, t3519, t2364, t938, t404, t2363;
   double   t1653, t1956, t428, t2249, t1303, t429, t2529, t645, t1060, t646;
   double   t3529, t1058, t791, t1059, t1785, t2070, t643, t2241, t442, t3412;
   double   t2956, t443, t3527, t649, t913, t2532, t167, t1057, t255, t440;
   double   t3526, t987, t444, t441, t2237, t1783, t1784, t641, t912, t915;
   double   t642, t351, t2236, t105, t739, t1139, t1309, t902, t3525, t1657;
   double   t437, t438, t1054, t2831, t2952, t3533, t1958, t1470, t2830, t1135;
   double   t1053, t583, t1658, t640, t639, t434, t1133, t1655, t1489, t1071;
   double   t458, t2383, t657, t459, t1488, t2536, t1487, t2963, t1661, t2836;
   double   t1070, t342, t2835, t455, t248, t456, t916, t3414, t322, t1485;
   double   t1069, t250, t454, t652, t457, t659, t1484, t1068, t653, t461;
   double   t1320, t1483, t451, t452, t1482, t1963, t1066, t1383, t1481, t2380;
   double   t352, t1480, t450, t650, t1065, t253, t1961, t448, t1064, t262;
   double   t2075, t918, t2534, t2533, t1478, t2073, t1315, t1660, t2239, t2833;
   double   t647, t651, t718, t2960, t3531, t446, t449, t447, t256, t2958;
   double   t1061, t1146, t644, t2071, t3530, t1659, t1080, t2095, t1671, t235;
   double   t1500, t665, t1181, t1499, t2541, t664, t471, t1328, t475, t472;
   double   t3536, t239, t1670, t1795, t734, t1079, t2509, t1498, t1794, t661;
   double   t920, t468, t1669, t660, t469, t1077, t850, t731, t677, t3417;
   double   t1668, t408, t1076, t465, t1306, t160, t466, t2539, t1178, t467;
   double   t1075, t926, t1324, t1663, t549, t470, t238, t2085, t241, t658;
   double   t2385, t2538, t656, t463, t712, t269, t245, t462, t1073, t1662;
   double   t3109, t1177, t2965, t1490, t1322, t460, t170, t1072, t682, t1156;
   double   t663, t673, t1513, t484, t485, t1087, t1512, t231, t482, t364;
   double   t233, t745, t2389, t1664, t1086, t481, t508, t674, t670, t2259;
   double   t1676, t1334, t479, t3113, t3114, t921, t3421, t1084, t1799, t477;
   double   t476, t64, t671, t799, t1978, t1507, t480, t478, t236, t483;
   double   t1506, t1504, t488, t1083, t2094, t2387, t1081, t473, t1508, t668;
   double   t92, t1501, t667, t1503, t1330, t353, t2092, t1502, t672, t669;
   double   t474, t2838, t1182, t681, t56, t1338, t1337, t1339, t1093, t1666;
   double   t491, t490, t1516, t1803, t53, t930, t847, t493, t2254, t234;
   double   t1802, t1515, t232, t22, t1090, t648, t2252, t1089, t1665, t486;
   double   t927, t487, t1801, t2260, t675, t679, t1678, t100, t1088, t228;
   double   t89, t504, t1684, t347, t1805, t2257, t502, t503, t685, t3543;
   double   t109, t1520, t349, t1344, t499, t95, t2545, t1342, t683, t923;