⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 trainlm.c

📁 nnToolKit 神经网络工具包是基于 MATLAB 神经网络工具箱自行开发的一组神经网络算法函数库
💻 C
📖 第 1 页 / 共 5 页
字号:
/*
 * MATLAB Compiler: 3.0
 * Date: Sun May 13 16:47:40 2007
 * Arguments: "-B" "macro_default" "-O" "all" "-O" "fold_scalar_mxarrays:on"
 * "-O" "fold_non_scalar_mxarrays:on" "-O" "optimize_integer_for_loops:on" "-O"
 * "array_indexing:on" "-O" "optimize_conditionals:on" "-M" "-silentsetup" "-d"
 * "d:/MATLAB6p5/work/nnToolKit/src" "-B" "csglcom:nnToolKit,nnToolKit,2.0"
 * "-B" "sgl" "-m" "-W" "main" "-L" "C" "-t" "-T" "link:exe" "-h"
 * "libmmfile.mlib" "-W" "mainhg" "libmwsglm.mlib" "-t" "-W"
 * "comhg:nnToolKit,nnToolKit,2.0" "-T" "link:lib" "-h" "libmmfile.mlib" "-i"
 * "-i" "D:/MATLAB6p5/work/nnToolKit/lmnet/LmSimu.m"
 * "D:/MATLAB6p5/work/nnToolKit/lmnet/LmTrain.m"
 * "D:/MATLAB6p5/work/nnToolKit/sofm/SofmSimu.m"
 * "D:/MATLAB6p5/work/nnToolKit/sofm/SofmTrain.m" 
 */
#include "trainlm.h"
#include "calcjejj.h"
#include "calcperf.h"
#include "cliptr.h"
#include "getx.h"
#include "libmatlbm.h"
#include "libmmfile.h"
#include "newtr.h"
#include "nntobsu.h"
#include "plotperf.h"
#include "setx.h"
#include "tlm1.h"
#include "tlm2.h"
#include "tlm3.h"

static mxChar _array1_[4] = { 'c', 'h', 'a', 'r' };
static mxArray * _mxarray0_;

static mxChar _array3_[7] = { 't', 'r', 'a', 'i', 'n', 'l', 'm' };
static mxArray * _mxarray2_;

static mxChar _array5_[54] = { 'U', 's', 'e', ' ', 'N', 'N', 'T', '2', 'F',
                               'F', ' ', 'a', 'n', 'd', ' ', 'T', 'R', 'A',
                               'I', 'N', ' ', 't', 'o', ' ', 'u', 'p', 'd',
                               'a', 't', 'e', ' ', 'a', 'n', 'd', ' ', 't',
                               'r', 'a', 'i', 'n', ' ', 'y', 'o', 'u', 'r',
                               ' ', 'n', 'e', 't', 'w', 'o', 'r', 'k', '.' };
static mxArray * _mxarray4_;
static mxArray * _mxarray6_;
static mxArray * _mxarray7_;
static mxArray * _mxarray8_;
static mxArray * _mxarray9_;
static mxArray * _mxarray10_;
static mxArray * _mxarray11_;

static mxChar _array13_[6] = { 's', 't', 'r', 'u', 'c', 't' };
static mxArray * _mxarray12_;

static mxChar _array15_[6] = { 'p', 'n', 'a', 'm', 'e', 's' };
static mxArray * _mxarray14_;

static mxChar _array17_[9] = { 'p', 'd', 'e', 'f', 'a', 'u', 'l', 't', 's' };
static mxArray * _mxarray16_;
static mxArray * _mxarray18_;
static mxArray * _mxarray19_;
static mxArray * _mxarray20_;
static mxArray * _mxarray21_;
static mxArray * _mxarray22_;
static mxArray * _mxarray23_;
static mxArray * _mxarray24_;
static mxArray * _mxarray25_;
static mxArray * _mxarray26_;
static double _ieee_plusinf_;
static mxArray * _mxarray27_;

static mxChar _array29_[18] = { 'U', 'n', 'r', 'e', 'c', 'o', 'g', 'n', 'i',
                                'z', 'e', 'd', ' ', 'c', 'o', 'd', 'e', '.' };
static mxArray * _mxarray28_;

static mxChar _array31_[33] = { 'E', 'p', 'o', 'c', 'h', 's', ' ', 'i', 's',
                                ' ', 'n', 'o', 't', ' ', 'a', ' ', 'p', 'o',
                                's', 'i', 't', 'i', 'v', 'e', ' ', 'i', 'n',
                                't', 'e', 'g', 'e', 'r', '.' };
static mxArray * _mxarray30_;

static mxChar _array33_[6] = { 'd', 'o', 'u', 'b', 'l', 'e' };
static mxArray * _mxarray32_;

static mxChar _array35_[42] = { 'G', 'o', 'a', 'l', ' ', 'i', 's', ' ', 'n',
                                'o', 't', ' ', 'z', 'e', 'r', 'o', ' ', 'o',
                                'r', ' ', 'a', ' ', 'p', 'o', 's', 'i', 't',
                                'i', 'v', 'e', ' ', 'r', 'e', 'a', 'l', ' ',
                                'v', 'a', 'l', 'u', 'e', '.' };
static mxArray * _mxarray34_;

static mxChar _array37_[35] = { 'M', 'a', 'x', '_', 'f', 'a', 'i', 'l', ' ',
                                'i', 's', ' ', 'n', 'o', 't', ' ', 'a', ' ',
                                'p', 'o', 's', 'i', 't', 'i', 'v', 'e', ' ',
                                'i', 'n', 't', 'e', 'g', 'e', 'r', '.' };
static mxArray * _mxarray36_;

static mxChar _array39_[36] = { 'M', 'e', 'm', '_', 'r', 'e', 'd', 'u', 'c',
                                ' ', 'i', 's', ' ', 'n', 'o', 't', ' ', 'a',
                                ' ', 'p', 'o', 's', 'i', 't', 'i', 'v', 'e',
                                ' ', 'i', 'n', 't', 'e', 'g', 'e', 'r', '.' };
static mxArray * _mxarray38_;

static mxChar _array41_[46] = { 'M', 'i', 'n', '_', 'g', 'r', 'a', 'd',
                                ' ', 'i', 's', ' ', 'n', 'o', 't', ' ',
                                'z', 'e', 'r', 'o', ' ', 'o', 'r', ' ',
                                'a', ' ', 'p', 'o', 's', 'i', 't', 'i',
                                'v', 'e', ' ', 'r', 'e', 'a', 'l', ' ',
                                'v', 'a', 'l', 'u', 'e', '.' };
static mxArray * _mxarray40_;

static mxChar _array43_[32] = { 'M', 'u', ' ', 'i', 's', ' ', 'n', 'o',
                                't', ' ', 'a', ' ', 'p', 'o', 's', 'i',
                                't', 'i', 'v', 'e', ' ', 'r', 'e', 'a',
                                'l', ' ', 'v', 'a', 'l', 'u', 'e', '.' };
static mxArray * _mxarray42_;

static mxChar _array45_[43] = { 'M', 'u', '_', 'd', 'e', 'c', ' ', 'i', 's',
                                ' ', 'n', 'o', 't', ' ', 'a', ' ', 'r', 'e',
                                'a', 'l', ' ', 'v', 'a', 'l', 'u', 'e', ' ',
                                'b', 'e', 't', 'w', 'e', 'e', 'n', ' ', '0',
                                ' ', 'a', 'n', 'd', ' ', '1', '.' };
static mxArray * _mxarray44_;

static mxChar _array47_[42] = { 'M', 'u', '_', 'i', 'n', 'c', ' ', 'i', 's',
                                ' ', 'n', 'o', 't', ' ', 'a', ' ', 'r', 'e',
                                'a', 'l', ' ', 'v', 'a', 'l', 'u', 'e', ' ',
                                'g', 'r', 'e', 'a', 't', 'e', 'r', ' ', 't',
                                'h', 'a', 'n', ' ', '1', '.' };
static mxArray * _mxarray46_;

static mxChar _array49_[36] = { 'M', 'u', '_', 'm', 'a', 'x', ' ', 'i', 's',
                                ' ', 'n', 'o', 't', ' ', 'a', ' ', 'p', 'o',
                                's', 'i', 't', 'i', 'v', 'e', ' ', 'r', 'e',
                                'a', 'l', ' ', 'v', 'a', 'l', 'u', 'e', '.' };
static mxArray * _mxarray48_;

static mxChar _array51_[26] = { 'M', 'u', ' ', 'i', 's', ' ', 'g', 'r', 'e',
                                'a', 't', 'e', 'r', ' ', 't', 'h', 'a', 'n',
                                ' ', 'M', 'u', '_', 'm', 'a', 'x', '.' };
static mxArray * _mxarray50_;

static mxChar _array53_[40] = { 'S', 'h', 'o', 'w', ' ', 'i', 's', ' ',
                                'n', 'o', 't', ' ', 0x0027, 'N', 'a', 'N',
                                0x0027, ' ', 'o', 'r', ' ', 'a', ' ', 'p',
                                'o', 's', 'i', 't', 'i', 'v', 'e', ' ',
                                'i', 'n', 't', 'e', 'g', 'e', 'r', '.' };
static mxArray * _mxarray52_;

static mxChar _array55_[42] = { 'T', 'i', 'm', 'e', ' ', 'i', 's', ' ', 'n',
                                'o', 't', ' ', 'z', 'e', 'r', 'o', ' ', 'o',
                                'r', ' ', 'a', ' ', 'p', 'o', 's', 'i', 't',
                                'i', 'v', 'e', ' ', 'r', 'e', 'a', 'l', ' ',
                                'v', 'a', 'l', 'u', 'e', '.' };
static mxArray * _mxarray54_;

static mxChar _array57_[7] = { 'T', 'R', 'A', 'I', 'N', 'L', 'M' };
static mxArray * _mxarray56_;
static mxArray * _mxarray58_;

static mxChar _array60_[4] = { 'p', 'e', 'r', 'f' };
static mxArray * _mxarray59_;

static mxChar _array62_[5] = { 'v', 'p', 'e', 'r', 'f' };
static mxArray * _mxarray61_;

static mxChar _array64_[5] = { 't', 'p', 'e', 'r', 'f' };
static mxArray * _mxarray63_;

static mxChar _array66_[2] = { 'm', 'u' };
static mxArray * _mxarray65_;
static mxArray * _mxarray67_;

static mxChar _array69_[21] = { 'P', 'e', 'r', 'f', 'o', 'r', 'm',
                                'a', 'n', 'c', 'e', ' ', 'g', 'o',
                                'a', 'l', ' ', 'm', 'e', 't', '.' };
static mxArray * _mxarray68_;

static mxChar _array71_[52] = { 'M', 'a', 'x', 'i', 'm', 'u', 'm', ' ', 'e',
                                'p', 'o', 'c', 'h', ' ', 'r', 'e', 'a', 'c',
                                'h', 'e', 'd', ',', ' ', 'p', 'e', 'r', 'f',
                                'o', 'r', 'm', 'a', 'n', 'c', 'e', ' ', 'g',
                                'o', 'a', 'l', ' ', 'w', 'a', 's', ' ', 'n',
                                'o', 't', ' ', 'm', 'e', 't', '.' };
static mxArray * _mxarray70_;

static mxChar _array73_[51] = { 'M', 'a', 'x', 'i', 'm', 'u', 'm', ' ', 't',
                                'i', 'm', 'e', ' ', 'e', 'l', 'a', 'p', 's',
                                'e', 'd', ',', ' ', 'p', 'e', 'r', 'f', 'o',
                                'r', 'm', 'a', 'n', 'c', 'e', ' ', 'g', 'o',
                                'a', 'l', ' ', 'w', 'a', 's', ' ', 'n', 'o',
                                't', ' ', 'm', 'e', 't', '.' };
static mxArray * _mxarray72_;

static mxChar _array75_[55] = { 'M', 'i', 'n', 'i', 'm', 'u', 'm', ' ',
                                'g', 'r', 'a', 'd', 'i', 'e', 'n', 't',
                                ' ', 'r', 'e', 'a', 'c', 'h', 'e', 'd',
                                ',', ' ', 'p', 'e', 'r', 'f', 'o', 'r',
                                'm', 'a', 'n', 'c', 'e', ' ', 'g', 'o',
                                'a', 'l', ' ', 'w', 'a', 's', ' ', 'n',
                                'o', 't', ' ', 'm', 'e', 't', '.' };
static mxArray * _mxarray74_;

static mxChar _array77_[49] = { 'M', 'a', 'x', 'i', 'm', 'u', 'm', ' ', 'M',
                                'U', ' ', 'r', 'e', 'a', 'c', 'h', 'e', 'd',
                                ',', ' ', 'p', 'e', 'r', 'f', 'o', 'r', 'm',
                                'a', 'n', 'c', 'e', ' ', 'g', 'o', 'a', 'l',
                                ' ', 'w', 'a', 's', ' ', 'n', 'o', 't', ' ',
                                'm', 'e', 't', '.' };
static mxArray * _mxarray76_;

static mxChar _array79_[16] = { 'V', 'a', 'l', 'i', 'd', 'a', 't', 'i',
                                'o', 'n', ' ', 's', 't', 'o', 'p', '.' };
static mxArray * _mxarray78_;

static mxChar _array81_[10] = { 'U', 's', 'e', 'r', ' ',
                                's', 't', 'o', 'p', '.' };
static mxArray * _mxarray80_;

static mxChar _array83_[13] = { ',', ' ', 'E', 'p', 'o', 'c', 'h',
                                ' ', '%', 'g', '/', '%', 'g' };
static mxArray * _mxarray82_;

static mxChar _array85_[14] = { ',', ' ', 'T', 'i', 'm', 'e', ' ',
                                '%', '4', '.', '1', 'f', '%', '%' };
static mxArray * _mxarray84_;

static mxChar _array87_[10] = { ',', ' ', '%', 's', ' ',
                                '%', 'g', '/', '%', 'g' };
static mxArray * _mxarray86_;

static mxChar _array89_[16] = { ',', ' ', 'G', 'r', 'a', 'd', 'i', 'e',
                                'n', 't', ' ', '%', 'g', '/', '%', 'g' };
static mxArray * _mxarray88_;

static mxChar _array91_[2] = { 0x005c, 'n' };
static mxArray * _mxarray90_;

static mxChar _array93_[10] = { '%', 's', ',', ' ', '%', 's',
                                0x005c, 'n', 0x005c, 'n' };
static mxArray * _mxarray92_;
static mxArray * _mxarray94_;

void InitializeModule_trainlm(void) {
    _mxarray0_ = mclInitializeString(4, _array1_);
    _mxarray2_ = mclInitializeString(7, _array3_);
    _mxarray4_ = mclInitializeString(54, _array5_);
    _mxarray6_ = mclInitializeDouble(5.0);
    _mxarray7_ = mclInitializeDouble(6.0);
    _mxarray8_ = mclInitializeDouble(8.0);
    _mxarray9_ = mclInitializeDouble(9.0);
    _mxarray10_ = mclInitializeDouble(11.0);
    _mxarray11_ = mclInitializeDouble(12.0);
    _mxarray12_ = mclInitializeString(6, _array13_);
    _mxarray14_ = mclInitializeString(6, _array15_);
    _mxarray16_ = mclInitializeString(9, _array17_);
    _mxarray18_ = mclInitializeDouble(100.0);
    _mxarray19_ = mclInitializeDouble(0.0);
    _mxarray20_ = mclInitializeDouble(1.0);
    _mxarray21_ = mclInitializeDouble(1e-10);
    _mxarray22_ = mclInitializeDouble(.001);
    _mxarray23_ = mclInitializeDouble(.1);
    _mxarray24_ = mclInitializeDouble(10.0);
    _mxarray25_ = mclInitializeDouble(1e+10);
    _mxarray26_ = mclInitializeDouble(25.0);
    _ieee_plusinf_ = mclGetInf();
    _mxarray27_ = mclInitializeDouble(_ieee_plusinf_);
    _mxarray28_ = mclInitializeString(18, _array29_);
    _mxarray30_ = mclInitializeString(33, _array31_);
    _mxarray32_ = mclInitializeString(6, _array33_);
    _mxarray34_ = mclInitializeString(42, _array35_);
    _mxarray36_ = mclInitializeString(35, _array37_);
    _mxarray38_ = mclInitializeString(36, _array39_);
    _mxarray40_ = mclInitializeString(46, _array41_);
    _mxarray42_ = mclInitializeString(32, _array43_);
    _mxarray44_ = mclInitializeString(43, _array45_);
    _mxarray46_ = mclInitializeString(42, _array47_);
    _mxarray48_ = mclInitializeString(36, _array49_);
    _mxarray50_ = mclInitializeString(26, _array51_);
    _mxarray52_ = mclInitializeString(40, _array53_);
    _mxarray54_ = mclInitializeString(42, _array55_);
    _mxarray56_ = mclInitializeString(7, _array57_);
    _mxarray58_ = mclInitializeCharVector(0, 0, (mxChar *)NULL);
    _mxarray59_ = mclInitializeString(4, _array60_);
    _mxarray61_ = mclInitializeString(5, _array62_);
    _mxarray63_ = mclInitializeString(5, _array64_);
    _mxarray65_ = mclInitializeString(2, _array66_);
    _mxarray67_ = mclInitializeDoubleVector(0, 0, (double *)NULL);
    _mxarray68_ = mclInitializeString(21, _array69_);
    _mxarray70_ = mclInitializeString(52, _array71_);
    _mxarray72_ = mclInitializeString(51, _array73_);
    _mxarray74_ = mclInitializeString(55, _array75_);
    _mxarray76_ = mclInitializeString(49, _array77_);
    _mxarray78_ = mclInitializeString(16, _array79_);
    _mxarray80_ = mclInitializeString(10, _array81_);
    _mxarray82_ = mclInitializeString(13, _array83_);
    _mxarray84_ = mclInitializeString(14, _array85_);
    _mxarray86_ = mclInitializeString(10, _array87_);
    _mxarray88_ = mclInitializeString(16, _array89_);
    _mxarray90_ = mclInitializeString(2, _array91_);
    _mxarray92_ = mclInitializeString(10, _array93_);
    _mxarray94_ = mclInitializeDouble(1e-20);
}

void TerminateModule_trainlm(void) {
    mxDestroyArray(_mxarray94_);
    mxDestroyArray(_mxarray92_);
    mxDestroyArray(_mxarray90_);
    mxDestroyArray(_mxarray88_);
    mxDestroyArray(_mxarray86_);
    mxDestroyArray(_mxarray84_);
    mxDestroyArray(_mxarray82_);
    mxDestroyArray(_mxarray80_);
    mxDestroyArray(_mxarray78_);
    mxDestroyArray(_mxarray76_);
    mxDestroyArray(_mxarray74_);
    mxDestroyArray(_mxarray72_);
    mxDestroyArray(_mxarray70_);
    mxDestroyArray(_mxarray68_);
    mxDestroyArray(_mxarray67_);
    mxDestroyArray(_mxarray65_);
    mxDestroyArray(_mxarray63_);
    mxDestroyArray(_mxarray61_);
    mxDestroyArray(_mxarray59_);
    mxDestroyArray(_mxarray58_);
    mxDestroyArray(_mxarray56_);
    mxDestroyArray(_mxarray54_);
    mxDestroyArray(_mxarray52_);
    mxDestroyArray(_mxarray50_);
    mxDestroyArray(_mxarray48_);
    mxDestroyArray(_mxarray46_);
    mxDestroyArray(_mxarray44_);
    mxDestroyArray(_mxarray42_);
    mxDestroyArray(_mxarray40_);
    mxDestroyArray(_mxarray38_);
    mxDestroyArray(_mxarray36_);
    mxDestroyArray(_mxarray34_);
    mxDestroyArray(_mxarray32_);
    mxDestroyArray(_mxarray30_);
    mxDestroyArray(_mxarray28_);
    mxDestroyArray(_mxarray27_);
    mxDestroyArray(_mxarray26_);
    mxDestroyArray(_mxarray25_);
    mxDestroyArray(_mxarray24_);
    mxDestroyArray(_mxarray23_);
    mxDestroyArray(_mxarray22_);
    mxDestroyArray(_mxarray21_);
    mxDestroyArray(_mxarray20_);
    mxDestroyArray(_mxarray19_);
    mxDestroyArray(_mxarray18_);
    mxDestroyArray(_mxarray16_);
    mxDestroyArray(_mxarray14_);
    mxDestroyArray(_mxarray12_);
    mxDestroyArray(_mxarray11_);
    mxDestroyArray(_mxarray10_);
    mxDestroyArray(_mxarray9_);
    mxDestroyArray(_mxarray8_);
    mxDestroyArray(_mxarray7_);
    mxDestroyArray(_mxarray6_);
    mxDestroyArray(_mxarray4_);
    mxDestroyArray(_mxarray2_);
    mxDestroyArray(_mxarray0_);
}

static mxArray * Mtrainlm(mxArray * * tr,
                          mxArray * * Ac,
                          mxArray * * El,
                          mxArray * * v5,
                          mxArray * * v6,
                          mxArray * * v7,
                          mxArray * * v8,
                          int nargout_,
                          mxArray * net_in,
                          mxArray * Pd,
                          mxArray * Tl,
                          mxArray * Ai,
                          mxArray * Q,
                          mxArray * TS,
                          mxArray * VV,
                          mxArray * TV,
                          mxArray * v9,
                          mxArray * v10,
                          mxArray * v11,
                          mxArray * v12);

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -