vc_init_usr.zip_Adams VC_adams_adams二次开发

static char SccsId[] = "%W% %G%"; /*---------------------------------------------------------------------+ | | | ADAMS/View 6.1 | |----------------------- MECHANICAL DYNAMICS, INC. ------------------| | PRE/POST-PROCESSORS to ADAMS | | | |======================================================================| | COPYRIGHT C 1992 BY MECHANICAL DYNAMICS, INC., ANN ARBOR, MICHIGAN | |======================================================================| | | | ALL RIGHTS RESERVED. THIS CODE MAY NOT BE COPIED OR REPRODUCED | | IN ANY FORM, IN PART OR IN WHOLE, WITHOUT THE EXPLICIT PERMISSION | | OF THE COPYRIGHT OWNER. | | | +---------------------------------------------------------------------*/ /*--------------------------------------------------------------------------*/ /*-- Find mdi_c.h in the distribution area. Include the full path below.--*/ /*--------------------------------------------------------------------------*/ #include "mdi_c.h" /*--------------------------------------------------------------------------*/ /*-- To include your own function for use in ADAMS/View: --*/ /*-- 1) Change the 0 below to a 1 --*/ /*-- 2) Replace function "add" below with your function --*/ /*-- 3) Replace expression "add" with your function name in the --*/ /*-- call to vc_function_add near the bottom of this file. --*/ /*--------------------------------------------------------------------------*/ #define USER_WRITTEN_FUNCTION 1 #if USER_WRITTEN_FUNCTION /*--------------------------------------------------------------------------*/ /*-- --*/ /*-- Arguments to "vc_function_add": --*/ /*-- --*/ /*-- Name -- character string identifying the function. This is --*/ /*-- the name that will be used in expressions. Character --*/ /*-- case is not significant. --*/ /*-- --*/ /*-- Func -- The address of the function. --*/ /*-- --*/ /*-- ArgTp -- One of the enumerated values above which defines the --*/ /*-- types of the arguments that are to be supplied by the --*/ /*-- user when calling the function. These must match in --*/ /*-- type exactly the definition of the function. Only --*/ /*-- those you see above are supported in release 6.1. --*/ /*-- --*/ /*-- ArgCnt -- Argument count. This number provides redundancy --*/ /*-- checking with the argument type value. --*/ /*-- --*/ /*-- Units -- Always zero. --*/ /*-- --*/ /*--------------------------------------------------------------------------*/ /* BOOL vc_function_add( char *Name, FUNCTION Func, ArgType ArgTp, int ArgCnt, int Units ); */ /*--------------------------------------------------------------------------*/ /*-- An example function with two real arguments. --*/ double add(x, y) double x, y; { return(x + y); } #endif /* USER_WRITTEN_FUNCTION */ /*--------------------------------------------------------------------------*/ /*-- To include your own DOE Algorithm for use in ADAMS/View: --*/ /*-- 1) Change the 0 below to a 1 --*/ /*-- 2) Replace "doe_example" below with your algorithm --*/ /*-- 3) Replace every occurence of "doe_example" in this file with your--*/ /*-- algorithm name. --*/ /*--------------------------------------------------------------------------*/ #define USER_DOE_ALGORITHM 0 #if USER_DOE_ALGORITHM /*--------------------------------------------------------------------------*/ /*-- Computes a casewise matrix, e.g., for nVars = 3 and nLevels = 4: --*/ /*-- 0 0 0 --*/ /*-- 1 1 1 --*/ /*-- 2 2 2 --*/ /*-- 3 3 3 --*/ /*--------------------------------------------------------------------------*/ void doe_example(int nVars, int nLevels, int **TrialMatrix, int *nTrials) { int i, j; int *tm; *TrialMatrix = (int *)malloc(nVars * nLevels * sizeof(int)); tm = *TrialMatrix; /* For convenience of indexing */ *nTrials = nLevels; for ( i = 0; i < nLevels; i++ ) { for ( j = 0; j < nVars; j++ ) { tm[i*nVars + j] = i; } } } #endif /* USER_DOE_ALGORITHM */ /*--------------------------------------------------------------------------*/ /*--------------------------------------------------------------------------*/ /*-- To include your own optimization Algorithm for use in ADAMS/View: --*/ /*-- 1) Determine if ADAMS/View will call your algorithm once or --*/ /*-- many times. --*/ /*-- 2) If MANY, skip to USER_CALL_MANY. --*/ /*-- --*/ /*-- ADAMS/View will call your algorithm once if your algorithm --*/ /*-- drives the optimization. This will most likely be the case --*/ /*-- if your algorithm was constructed as a main program. The --*/ /*-- optimization is the outer loop and calls an "analysis" --*/ /*-- routine to compute the objective and constraint functions --*/ /*-- as ouput, using the design variables as input. --*/ /*-- --*/ /*-- ADAMS/View will call your algorithm many times if you want View --*/ /*-- to drive the optimization. This will most likely be the case if --*/ /*-- your algorithm was constructed as a subprogram. ADAMS/View is --*/ /*-- the outer loop and calls your algorithm to update design --*/ /*-- variables and provide instructions as output, given the --*/ /*-- objective and constraint values as input. --*/ /*-- --*/ /*--------------------------------------------------------------------------*/ /*--------------------------------------------------------------------------*/ /*-- To include your own "call once" optimization Algorithm for use in --*/ /*-- ADAMS/View: --*/ /*-- --*/ /*-- 1) Change the 0 below to a 1. --*/ /*--