1、1.操作系統(tǒng)：Windows xp 32位2.軟件版本：Adams 2013 32位、Visual Studio 2010專業(yè)版 32位3.編譯軟件：Intel Visual Fortran 11.04.環(huán)境配置：(1) 在操作系統(tǒng)環(huán)境變量Path中增加Adams啟動文件mdi.bat的路徑，如D:MSC.SoftwareAdams2013commonmdi.bat(2) 把Fortran安裝路徑，如D:IVF2011IntelComposerXE-2011compilerlibia32(3) 把libifcoremd.lib、libifcoremd.lib、libmmd.lib、libifp

2、ortmd.lib、libirc.lib、svml_dispmd.lib這6個庫文件復(fù)制到Adams安裝路徑下win32文件夾下5.編寫用戶子程序Adams安裝程序D:MSC.SoftwareAdams2013solverc_usersubs文件夾下有C語言編寫的常用的用戶子程序，其中slv_c_utils.h文件是用戶子程序的頭文件。編寫用戶子程序時，在這些程序的基礎(chǔ)上進(jìn)行更改會有事半功倍的效果。本文以編寫VForce用戶子程序為例，對其編寫、編譯操作過程進(jìn)行說明。復(fù)制vfosub.c和slv_c_utils.h兩個文件到個人工作文件夾Adams_Matlab，本文直接使用vfosub.c的

3、原始代碼，其代碼為：#include "slv_c_utils.h"adams_c_Vfosub Vfosub;/* Note: * Use mixed case names for the Adams subroutine names when using the C * style interface. For the default subroutine name capitalize the first* letter and have the remaining letters lower case; Gfosub for example. * Doing thi

4、s insures that Adams Solver correctly distinguishes a C style * subroutine from Fortran and calls with the appropriate interface.* */void Vfosub(const struct sAdamsVforce* vfo, double time, int dflag, int iflag, double* result)/* Assign readable variable names to passed parameters */ double c=vfo-&g

5、t;PAR0; int ipar3=(int)vfo->PAR1, (int)vfo->PAR2,(int)vfo->PAR1;/* Local variables */ double vel3; int nstates; int errflg;/* call SYSARY for translation velocities TVEL */ c_sysary("TVEL", ipar, 3, vel, &nstates, &errflg); c_errmes(errflg, "Error calling SYSARY for T

6、VEL", vfo->ID, "STOP");/* - Evaluate VFORCE components - */ result0 = -c * vel0; result2 = -c * vel1; result2 = -c * vel2;注意：因為代碼中引用了slv_c_utils.h，復(fù)制時必須同時復(fù)制slv_c_utils.h文件，否則編譯時會報錯。6.編譯操作(1) 在開始菜單下，啟動Visual Studio 2010命令提示工具。(2) 把工作路徑設(shè)置到用戶子程序文件所在路徑D:Adams_Matlab，輸入指令cd D:Adams_Matlab并按回車。(3) 輸入指令D:MSC.SoftwareAdams2013commonmdi.bat并按回車，(4) 系統(tǒng)進(jìn)入Adams環(huán)境中(5) 輸入cr-u并按回車，(6) 進(jìn)入編譯子程序，這時系統(tǒng)提示是否在調(diào)試狀態(tài)下連接，直接輸入回車。 (7) 輸入C語言用戶子程序的文件名vfosub.c并回車(注意：該文件必須是以.c為后綴名，不能以.cpp為后綴名,并且該文件必須在當(dāng)前路徑下存在)(8) 系統(tǒng)提示輸入下一個文件名稱，這時直接點擊回車；(9) 然后輸入生成的dll文件的名稱，這個文件名可不與c文件同名，比如輸入myvfosub.dll，(10) 然后點擊回車