第9章adams用戶子程序-(陳立平)機械系統(tǒng)動力學(xué)分析及adams應(yīng)用-在線瀏覽
2024-08-09 16:42本頁面
【正文】 ATE，GSE_OUTPUT，GSE_SAMPGSEMOTSUBMOTIONRELSUBRELOADREQSUBREQUESTSAVSUBSAVESENSUBSENSORSFOSUBSFORCETIRSUBTIREUCOSUBUCONVARSUBVARIABLEVFOSUBVFORCEVTOSUBVTORQUE可以從用戶子程序中調(diào)用功能子程序。例如，在driver user——written subroutine(驅(qū)動用戶子程序)中，可以使用control，access功能子程序。換句話說，可以從上面任何一個用戶子程序中調(diào)用access和function函數(shù)，但用戶只能從driver subroutine中調(diào)用control函數(shù)，從某個evaluation subroutines中調(diào)用setup函數(shù)。然后，可以連同該庫與ADAMS/Solver一同運行。9．2 常用ADAMS用戶子程序簡介 使用GFOSUB用戶子程序?qū)嵗秊榱耸棺x者對用戶子程序有一個直觀印象，本節(jié)首先給出聲明和調(diào)用GFOSUB子程序的例子，通過與GFORCE函數(shù)表達式的對比，說明使用用戶子程序的必要性。另外。如下圖所示，為了在GFORCE中描述這種相互作用力關(guān)系，在小球球心上定義了標(biāo)架Mark_I（ID為2001），在斜面上定義了標(biāo)架Mark_R（ID為2003），同時為了確定小球?qū)π泵娴姆醋饔昧c的位置，生成與標(biāo)架Mark_I時刻重疊的標(biāo)架Mark_J（ID為2002），Mark_J隸屬于斜面。以及，用下面語句調(diào)用已創(chuàng)建好的GFOSUB子程序,并向其傳遞參數(shù)。 IFLAG， RESULT)======================= 定義與聲明 =================== ————————————— 外部變量定義 ——————————INTEGER IDDOUBLE PRECISION TIMEDOUBLE PRECISION PAR( * )INTEGER NPARLOGICAL DFLAGLOGICAL IFLAGDOUBLE PRECISION RESULT(6) ID 標(biāo)志號，在內(nèi)部程序中調(diào)用 TIME 仿真時間 PAR 不定維的數(shù)組，用以向程序傳遞參數(shù)，本例中維數(shù)為5，分別為： PAR（1）＝ PAR（2）＝ PAR（3）＝2001 PAR（4）＝2002 PAR（5）＝2003 NPAR PAR數(shù)組的維數(shù)，本例中NPAR ＝ 5 DFLAG 積分標(biāo)志位， IFLAG 初始標(biāo)志位 RESULT 返回的程序值，每一次調(diào)用可以返回六個值，本例中： RESULT（1）為FX的值 RESULT（2）為FY的值 RESULT（3）為FZ的值 RESULT（4）為TX的值 RESULT（5）為TY的值 RESULT（6）為TZ的值 ——————————— 本地變量和參數(shù)定義 ————————— DOUBLE PRECISION FCT， TCR， VEL(6)INTEGER IPAR(3)， IM， JM，RM，NSTATESLOGICAL ERRFLG ========================可執(zhí)行代碼 =====================FCT = PAR(1)TCR = PAR(2)IM = PAR(3)JM = PAR(4)RM = PAR(5)…… 調(diào)用SYSARY子程序獲得計算信息：如果變量IFLAG的值為true，則將子程序初始化。對每個子程序，都提供了定義、例子、相關(guān)說明等等。只能通過交互式命令CONTROL激活CONSUB，而別的用戶子程序則不能調(diào)用CONSUB。輸入?yún)?shù)構(gòu)成: CONSUB用戶子程序的 輸入?yún)?shù)構(gòu)成為：SUBROUTINE CONSUB(par，npar)輸入?yún)?shù)說明: npar——整型變量，其值為par數(shù)組的維數(shù)。主要功能: ADAMS/Solver將CONTROL中的常數(shù)以實數(shù)數(shù)組的形式傳遞給FUNCTION=USER()。(2)調(diào)用ANALYS功能子程序的目的就是激活某一個ADAMS/Solver的分析子程序。當(dāng)CONSUB停止執(zhí)行時，ADAMS/Solver會提醒你使用其他命令。CONSUB子程序的結(jié)構(gòu)：下面給出CONSUB子程序的結(jié)構(gòu)，從而可以看出該子程序是怎樣工作的。首先，用交互式的命令激活CONSUB：CONTROL/ FUNCTION=USER(r1[，...，r30])相應(yīng)的CONSUB 用戶子程序為：SUBROUTINE CONSUB(PAR， NPAR)======================= 定義與聲明 ===================————————————— 外部變量定義 ——————————INTEGER NPARDOUBLE PRECISION PAR( * )——————————— 本地變量和參數(shù)定義 —————————CHARACTER*10 ATYPECHARACTER*20 TITLELOGICAL ERRFLG， INIFLGCHARACTER*80 COMMND， MESSGEINTEGER STATUS DOUBLE PRECISION DPZEROPARAMETER (DPZERO = )========================可執(zhí)行代碼 ===================== ——————————首先進行一次靜力學(xué)分析 ————————— 指明分析類型和此次分析的名稱ATYPE = ’STATIC’TITLE = ’STATIC_2003’INIFLG = .TRUE.調(diào)用功能子程序ANALYS進行靜力學(xué)分析CALL ANALYS(ATYPE， TITLE， DPZERO， DPZERO， INIFLG，amp。 STATUS)ERRFLG = STATUS .NE. 0MESSGE = ’Error calling ANALYS for STATIC_2.’CALL ERRMES(ERRFLG， MESSGE， STATUS， ’STOP’)CALL DATOUT(STATUS)RETURNEND2. GFOSUB用戶子程序定義：GFOSUB計算子程序用于計算GFORCE聲明中的變量值。調(diào)用：相應(yīng)的調(diào)用命令為GFOCE/id，I=id，JFLOAT=id，RM=idFUNCTION=USER(r1[，…，r30])([ ])中的內(nèi)容表示是可選的。Id——整數(shù)變量；用于提供給GFORCE聲明其自身的標(biāo)志符。Iflag——邏輯型變量；當(dāng)需要從GFOSUB中獲得函數(shù)相關(guān)信息時，ADAMS/Solver將其設(shè)置為true；當(dāng)iflag值為false時，則計算用戶定義的表達式的值。Par——雙精度的常數(shù)數(shù)組；按順序存放USER括號中實參的數(shù)值。子程序的返回結(jié)果：雙精度數(shù)組，返回GFORCE構(gòu)成的六個值。 IFLAG， RESULT)======================= 定義與聲明 ===================————————————— 外部變量定義 ——————————INTEGER IDDOUBLE PRECISION TIMEDOUBLE PRECISION PAR( * )INTEGER NPARLOGICAL DFLAGLOGICAL IFLAGDOUBLE PRECISION RESULT( 6 )——————————— 本地變量和參數(shù)定義 —————————……========================可執(zhí)行代碼 =====================———————————— 用戶自己的程序代碼 —————————……調(diào)用SYSFNC 和/或 SYSARY為后續(xù)計算獲得必要信息，如果IFLAG為真，則這些實際上是在設(shè)置函數(shù)相關(guān)性。3. REQSUB用戶子
研究報告相關(guān)推薦
鄂ICP備17016276號-1